From: simonmar <unknown>
Date: Mon, 31 Oct 2005 11:31:10 +0000 (+0000)
Subject: [project @ 2005-10-31 11:31:10 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~95
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=435a55f2516a44d4ef3ab15d8c67eb4077ff5acf;p=ghc-hetmet.git

[project @ 2005-10-31 11:31:10 by simonmar]
clean up more junk generated by gcc
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 63b753f..3406419 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-/