diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 19:05:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 19:05:22 +0000 |
| commit | 9efe82d34dae3adda0deaa8320ba06f06d46ac83 (patch) | |
| tree | 60f0de6621d8bde31542cb2744a54aab7adca0e1 /utils/h2ph.PL | |
| parent | fe537c65e65392ee3f8a008b58c2aa375967832d (diff) | |
| download | perl-9efe82d34dae3adda0deaa8320ba06f06d46ac83.tar.gz | |
h2ph: Tru64 disassembler.h evilness: mixed C and Pascal.
p4raw-id: //depot/perl@17066
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 7903996876..82dc761633 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -426,6 +426,13 @@ sub next_line $in =~ s/\?\?</{/g; # | ??<| {| $in =~ s/\?\?>/}/g; # | ??>| }| } + if ($in =~ /^\#ifdef __LANGUAGE_PASCAL__/) { + # Tru64 disassembler.h evilness: mixed C and Pascal. + while (<IN>) { + last if /^\#endif/; + } + next READ; + } if ($in =~ s/\\$//) { # \-newline $out .= ' '; next READ; |