[project @ 1997-11-10 11:39:17 by simonm]

[ghc-hetmet.git] / ghc / driver / ghc-asm.lprl

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 06a6416..d3b99b6 100644 (file)
--- 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/;
@@ -1382,7 +1383,6 @@ sub init_FUNNY_THINGS {
        "${T_US}UnderflowVect7${T_POST_LBL}", 1,
        "${T_US}UpdErr${T_POST_LBL}", 1,
        "${T_US}UpdatePAP${T_POST_LBL}", 1,
-       "${T_US}WorldStateToken${T_POST_LBL}", 1,
        "${T_US}_Enter_Internal${T_POST_LBL}", 1,
        "${T_US}_PRMarking_MarkNextAStack${T_POST_LBL}", 1,
        "${T_US}_PRMarking_MarkNextBStack${T_POST_LBL}", 1,