summaryrefslogtreecommitdiff
path: root/regen/regcomp.pl
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2012-01-17 09:02:50 +1100
committerTony Cook <tony@develop-help.com>2012-01-17 09:50:27 +1100
commit5c72e80d9b6c141c9b2f5403860c03e6ebb64bc1 (patch)
tree64e0da5bdf541764622b7615020899333ddffec3 /regen/regcomp.pl
parent5637ef5b34a3e8caf72080387a15ea8d81b61baf (diff)
downloadperl-5c72e80d9b6c141c9b2f5403860c03e6ebb64bc1.tar.gz
handle U suffixed unsigned int literals from regexp.h
Diffstat (limited to 'regen/regcomp.pl')
-rw-r--r--regen/regcomp.pl4
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;