From 435a55f2516a44d4ef3ab15d8c67eb4077ff5acf Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 31 Oct 2005 11:31:10 +0000
Subject: [PATCH] [project @ 2005-10-31 11:31:10 by simonmar] clean up more
 junk generated by gcc

---
 ghc/driver/mangler/ghc-asm.lprl |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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-/ 
-- 
1.7.10.4