This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.h: Remove unused #define
authorKarl Williamson <public@khwilliamson.com>
Sun, 31 Oct 2010 19:37:11 +0000 (13:37 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 31 Oct 2010 23:18:39 +0000 (16:18 -0700)
ANYOF_RUNTIME() is no longer used, so can be removed.

I had long tried to figure out what the purpose of this was, and
discovered it really had none.

I think it must have had something to do with locales at one time.  But
locales don't do well with utf8, and I don't know how to make it better.
In any event this wasn't actually accomplishing anything.

regcomp.h

index 06e179d..8f0b828 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -326,9 +326,6 @@ struct regnode_charclass_class {
 #define ANYOF_UNICODE          0x20    /* Matches >= one thing past 0xff */
 #define ANYOF_UNICODE_ALL      0x40    /* Matches 0x100 - infinity */
 
 #define ANYOF_UNICODE          0x20    /* Matches >= one thing past 0xff */
 #define ANYOF_UNICODE_ALL      0x40    /* Matches 0x100 - infinity */
 
-/* Are there any runtime flags on in this node? */
-#define ANYOF_RUNTIME(s)       (ANYOF_FLAGS(s) & 0x0f)
-
 #define ANYOF_FLAGS_ALL                0xff
 
 /* Character classes for node->classflags of ANYOF */
 #define ANYOF_FLAGS_ALL                0xff
 
 /* Character classes for node->classflags of ANYOF */