From: sof <unknown>
Date: Thu, 4 Feb 1999 08:15:44 +0000 (+0000)
Subject: [project @ 1999-02-04 08:15:44 by sof]
X-Git-Tag: Approximately_9120_patches~6615
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=20e4a740525395555cae23c553ce2abf0e790920;p=ghc-hetmet.git

[project @ 1999-02-04 08:15:44 by sof]
- include mingw32 in the list of x86 platforms supported.
- weed out ecoff debug information.
---

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index c8d1545..6d49219 100644
--- a/ghc/driver/ghc-asm.lprl
+++ b/ghc/driver/ghc-asm.lprl
@@ -104,7 +104,7 @@ sub init_TARGET_STUFF {
     $T_HDR_direct   = "\t.SPACE \$TEXT\$\n\t.SUBSPA \$CODE\$\n\t\.align 4\n";
 
     #--------------------------------------------------------#
-    } elsif ( $TargetPlatform =~ /^i386-.*-(linuxaout|freebsd2|nextstep3|cygwin32)$/ ) {
+    } elsif ( $TargetPlatform =~ /^i386-.*-(linuxaout|freebsd2|nextstep3|cygwin32|mingw32)$/ ) {
 				# NeXT added but not tested. CaS
 
     $T_STABBY	    = 1; # 1 iff .stab things (usually if a.out format)
@@ -393,6 +393,7 @@ sub mangle_asm {
     while (<INASM>) {
 	next if $T_STABBY && /^\.stab.*$TUS[@]?__stg_split_marker/o;
 	next if $T_STABBY && /^\.stab.*ghc.*c_ID/;
+	next if /^\t\.def.*endef$/;
 	next if /$TPREAPP(NO_)?APP/o; 
     	next if /^;/ && $TargetPlatform =~ /^hppa/;