X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=driver%2Fmangler%2Fghc-asm.lprl;fp=driver%2Fmangler%2Fghc-asm.lprl;h=34f475817b93556d798faa1ebb5e123c7e9ca4c4;hp=7fd1855df3b190c509e7918610487390c3b0e4cc;hb=24c1c71fc2a6a8d0a90d6ddf3ccf778772ccac7d;hpb=5bd3072ac30216a505151601884ac88bf404c9f2

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index 7fd1855..34f4758 100644
--- a/driver/mangler/ghc-asm.lprl
+++ b/driver/mangler/ghc-asm.lprl
@@ -580,7 +580,7 @@ sub mangle_asm {
 	next if /${T_PRE_APP}(NO_)?APP/om; 
     	next if /^;/m && $TargetPlatform =~ /^hppa/m;
 
-	next if /(^$|^\t\.file\t|^ # )/m && $TargetPlatform =~ /^(mips|ia64)-/m;
+	next if /(^$|^\t\.file\t|^ # )/m && $TargetPlatform =~ /(^mips-|^ia64-|-mingw32$)/m;
 
 	if ( $TargetPlatform =~ /^mips-/m 
 	  && /^\t\.(globl\S+\.text|comm\t)/m ) {