From fb63409659ef007803122996bd8494f67c1abca4 Mon Sep 17 00:00:00 2001 From: simonm Date: Mon, 17 May 1999 16:22:14 +0000 Subject: [PATCH] [project @ 1999-05-17 16:22:14 by simonm] Fix for egcs on sparc. --- ghc/driver/ghc-asm.lprl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl index 9fa847f..29d7c6a 100644 --- a/ghc/driver/ghc-asm.lprl +++ b/ghc/driver/ghc-asm.lprl @@ -265,7 +265,7 @@ sub init_TARGET_STUFF { $T_COPY_DIRVS = '\.(global|proc|stab)'; $T_hsc_cc_PAT = '\.asciz.*\)(hsc|cc) (.*)\\\\t(.*)"'; - $T_DOT_WORD = '\.(word|byte|half|skip)'; + $T_DOT_WORD = '\.(word|byte|half|skip|uahalf)'; $T_DOT_GLOBAL = '^\t\.global'; $T_HDR_literal = "\.text\n\t\.align 8\n"; $T_HDR_misc = "\.text\n\t\.align 4\n"; @@ -644,6 +644,7 @@ sub mangle_asm { if ($TargetPlatform =~ /^i386-/) { $p =~ s/^\tpushl \%edi\n//; $p =~ s/^\tpushl \%esi\n//; + $p =~ s/^\tpushl \%ebx\n//; $p =~ s/^\tsubl \$\d+,\%esp\n//; $p =~ s/^\tmovl \$\d+,\%eax\n\tcall __alloca\n// if ($TargetPlatform =~ /^.*-cygwin32/); } elsif ($TargetPlatform =~ /^m68k-/) { -- 1.7.10.4