diff options
| author | simonmar <unknown> | 2005-10-31 11:31:10 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-10-31 11:31:10 +0000 |
| commit | 435a55f2516a44d4ef3ab15d8c67eb4077ff5acf (patch) | |
| tree | 7ec6e60bb0350bcc108a3f705eb2bae0c0fa7d5b /ghc | |
| parent | 085a9ce77c7c1b42941af23b2f41c910a4a35720 (diff) | |
| download | haskell-435a55f2516a44d4ef3ab15d8c67eb4077ff5acf.tar.gz | |
[project @ 2005-10-31 11:31:10 by simonmar]
clean up more junk generated by gcc
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/driver/mangler/ghc-asm.lprl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl index 63b753fdfd..3406419b7b 100644 --- a/ghc/driver/mangler/ghc-asm.lprl +++ b/ghc/driver/mangler/ghc-asm.lprl @@ -1438,7 +1438,8 @@ sub print_doctored { # # and optimise: # - s/^\tmovq\s+(-?\d*\(\%r(bx|bp)\)),\s*(\%r(ax|cx|dx|10|11))\n\tjmp\s+\*\3/\tjmp\t\*$1/g; + s/^\tmovq\s+(-?\d*\(\%r(bx|bp|13)\)),\s*(\%r(ax|cx|dx|10|11))\n\tjmp\s+\*\3/\tjmp\t\*$1/g; + s/^\tmovl\s+\$${T_US}(.*),\s*(\%e(ax|cx|si|di))\n\tjmp\s+\*\%r\3/\tjmp\t$T_US$1/g; } if ( $TargetPlatform !~ /^i386-/ |