From: simonmar <unknown>
Date: Tue, 11 Jul 2000 08:43:35 +0000 (+0000)
Subject: [project @ 2000-07-11 08:43:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~4047
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8c0b2b04054478f82cfa72e57d0dc315ffb9e6f9;p=ghc-hetmet.git

[project @ 2000-07-11 08:43:35 by simonmar]
workaround for strange gcc-ism: elide 'popl %edx' in the epilogue.
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index b5db622..10b928f 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -733,6 +733,7 @@ sub mangle_asm {
 		    $e =~ s/^\tret\n//;
 		    $e =~ s/^\tpopl \%edi\n//;
 		    $e =~ s/^\tpopl \%esi\n//;
+		    $e =~ s/^\tpopl \%edx\n//;
 		    $e =~ s/^\tpopl \%ecx\n//;
 		    $e =~ s/^\taddl \$\d+,\%esp\n//;
 		    $e =~ s/^\tsubl \$-\d+,\%esp\n//;