projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-10-31 11:31:10 by simonmar]
[ghc-hetmet.git]
/
ghc
/
driver
/
mangler
/
ghc-asm.lprl
diff --git
a/ghc/driver/mangler/ghc-asm.lprl
b/ghc/driver/mangler/ghc-asm.lprl
index
63b753f
..
3406419
100644
(file)
--- a/
ghc/driver/mangler/ghc-asm.lprl
+++ b/
ghc/driver/mangler/ghc-asm.lprl
@@
-1438,7
+1438,8
@@
sub print_doctored {
#
# and optimise:
#
#
# 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-/
}
if ( $TargetPlatform !~ /^i386-/