diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-11 15:03:40 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-11 15:03:40 +0000 |
| commit | 24c1c71fc2a6a8d0a90d6ddf3ccf778772ccac7d (patch) | |
| tree | 0eb86781843b8de7c0144f1e6125683b982307be /driver | |
| parent | 5bd3072ac30216a505151601884ac88bf404c9f2 (diff) | |
| download | haskell-24c1c71fc2a6a8d0a90d6ddf3ccf778772ccac7d.tar.gz | |
Tweak the mangler; fixes trac #2871
It was getting confused by lines like:
# 9 "C:\Temp\/ghc620_0/ghc620_0.hc" 1
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/mangler/ghc-asm.lprl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index 7fd1855df3..34f475817b 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 ) { |