diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-25 18:24:43 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-26 15:16:59 +0000 |
| commit | 32aeac00e3860b7bf1ab7236d73b402bf093834b (patch) | |
| tree | 7af00aa5edd0a0e6056c2f6b54cb0d39e1998260 /utils | |
| parent | c00253d55e3afc04b4e470781703e82287f1eef6 (diff) | |
| download | perl-32aeac00e3860b7bf1ab7236d73b402bf093834b.tar.gz | |
Freak out if h2ph has to translate a macro that contains assembly code.
Subject: [PATCH] h2ph vs __asm__
Message-ID: <20041125172443.757a4833@dhcp123.mandrakesoft.com>
p4raw-id: //depot/perl@23547
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index c6a39c9bb6..f715f507db 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -391,6 +391,7 @@ if ($opt_e && (scalar(keys %bad_file) > 0)) { exit $Exit; sub expr { + $new = '"(assembly code)"' and return if /\b__asm__\b/; # freak out. my $joined_args; if(keys(%curargs)) { $joined_args = join('|', keys(%curargs)); |