Change 11374 by gsar@latte-gsar on 2001/07/16 02:10:51
make h2ph grok ccsymbols fo the form 1234L, 1234ULL etc.
Affected files ...
... //depot/maint-5.6/perl/utils/h2ph.PL#4 edit
Differences ...
==== //depot/maint-5.6/perl/utils/h2ph.PL#4 (xtext) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL.~1~ Sun Jul 15 20:15:05 2001
+++ perl/utils/h2ph.PL Sun Jul 15 20:15:05 2001
@@ -563,9 +563,9 @@
print PREAMBLE "# $_=$define{$_}\n";
}
- if ($define{$_} =~ /^\d+$/) {
+ if ($define{$_} =~ /^(\d+)U?L{0,2}$/i) {
print PREAMBLE
- "unless (defined &$_) { sub $_() { $define{$_} } }\n\n";
+ "unless (defined &$_) { sub $_() { $1 } }\n\n";
} elsif ($define{$_} =~ /^\w+$/) {
print PREAMBLE
"unless (defined &$_) { sub $_() { &$define{$_} } }\n\n";
End of Patch.
