diff options
author | Tony Cook <tony@develop-help.com> | 2012-01-17 09:02:50 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2012-01-17 09:50:27 +1100 |
commit | 5c72e80d9b6c141c9b2f5403860c03e6ebb64bc1 (patch) | |
tree | 64e0da5bdf541764622b7615020899333ddffec3 /regen | |
parent | 5637ef5b34a3e8caf72080387a15ea8d81b61baf (diff) | |
download | perl-5c72e80d9b6c141c9b2f5403860c03e6ebb64bc1.tar.gz |
handle U suffixed unsigned int literals from regexp.h
Diffstat (limited to 'regen')
-rw-r--r-- | regen/regcomp.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regen/regcomp.pl b/regen/regcomp.pl index 6ed84f3293..69643ca5b8 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -262,6 +262,10 @@ foreach my $file ("op_reg_common.h", "regexp.h") { foreach my $key (keys %definitions) { s/\b$key\b/$definitions{$key}/g; } + + # Remove the U suffix from unsigned int literals + s/\b([0-9]+)U\b/$1/g; + my $newval = eval $_; # Get numeric definition $definitions{$define} = $newval; |