From: simonm <unknown>
Date: Fri, 17 Oct 1997 11:09:44 +0000 (+0000)
Subject: [project @ 1997-10-17 11:09:44 by simonm]
X-Git-Tag: Approx_2487_patches~1364
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=599176eefed17ef3345bcc93365c9ef1044f199d;hp=b4e51977b60a2f528ce63a0a33a9d2c3127b60f3;p=ghc-hetmet.git

[project @ 1997-10-17 11:09:44 by simonm]
mangler fix.
---

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 8c99b70..d3b99b6 100644
--- a/ghc/driver/ghc-asm.lprl
+++ b/ghc/driver/ghc-asm.lprl
@@ -976,6 +976,7 @@ sub mangle_asm {
 			$c =~ s/^\s+ldil.*\n\s+ldo.*\n\s+bv.*\n(.*\n)?\s+\.EXIT/$1\t.EXIT/;
 		    } elsif ( $TargetPlatform =~ /^i386-/ ) {
 			$c =~ s/^\tmovl \$${T_US}${symb}_fast\d+,\%edx\n\tjmp \*\%edx\n//;
+			$c =~ s/^\tmovl \$${T_US}${symb}_fast\d+,\%ecx\n\tjmp \*\%ecx\n//;
 			$c =~ s/^\tmovl \$${T_US}${symb}_fast\d+,\%eax\n\tjmp \*\%eax\n//;
 		    } elsif ( $TargetPlatform =~ /^mips-/ ) {
 			$c =~ s/^\tjmp \$31,\(\$27\),0\n\t\.align 4\n\t\.end/\t.align 4\n\t.end/;