Permalink
Browse files

new keyword const (not yet working)

  • Loading branch information...
1 parent 42b0094 commit 66e91379a225d7cec0f4d017330afee2f833ee7a Reini Urban committed Jul 3, 2012
Showing with 248 additions and 227 deletions.
  1. +12 −2 keywords.c
  2. +222 −221 keywords.h
  3. +5 −4 op.c
  4. +3 −0 regen/keywords.pl
  5. +6 −0 toke.c
View
@@ -962,7 +962,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
goto unknown;
}
- case 5: /* 39 tokens of length 5 */
+ case 5: /* 40 tokens of length 5 */
switch (name[0])
{
case 'B':
@@ -1102,6 +1102,16 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
goto unknown;
+ case 'o':
+ if (name[2] == 'n' &&
+ name[3] == 's' &&
+ name[4] == 't')
+ { /* const */
+ return (all_keywords || FEATURE_CONST_IS_ENABLED ? KEY_const : 0);
+ }
+
+ goto unknown;
+
case 'r':
if (name[2] == 'y' &&
name[3] == 'p' &&
@@ -3449,5 +3459,5 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
}
/* Generated from:
- * e5a540774760ea54c761ef17ee4a153cc264e9a700b817d561e390730c457406 regen/keywords.pl
+ * b3bc17e14b584d3f983490537d283b8f61f6711bf0d9391dad150d43d2d54e06 regen/keywords.pl
* ex: set ro: */
Oops, something went wrong.

0 comments on commit 66e9137

Please sign in to comment.