diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-12 23:11:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-12 23:11:16 +0000 |
| commit | 90851df92fb26217b0f1c0286baca234cc285e52 (patch) | |
| tree | c1bd38f79194f4df82d18cd4ab08d893e1eeb3c6 /utils | |
| parent | 4a5826852ee095d233fab172b67097a331a21e42 (diff) | |
| download | perl-90851df92fb26217b0f1c0286baca234cc285e52.tar.gz | |
Make h2ph recognize (and skip) const and __const__ in C function
prototypes. This makes it produce better files on linux-sparc64.
p4raw-id: //depot/perl@26812
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index e46ac208fc..78e10a4637 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -354,6 +354,7 @@ while (defined (my $file = next_file())) { use re "eval"; my $typelist = join '|', keys %isatype; $new =~ s[' + (?:(?:__)?const(?:__)?\s+)? (?:(?:un)?signed\s+)? (?:long\s+)? (?:$typelist)\s+ @@ -362,6 +363,7 @@ while (defined (my $file = next_file())) { '] [my \$$1]gx; $new =~ s[' + (?:(?:__)?const(?:__)?\s+)? (?:(?:un)?signed\s+)? (?:long\s+)? (?:$typelist)\s+ |