Tweak the mangler; fixes trac #2871

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

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index 7fd1855..34f4758 100644 (file)
--- 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 ) {