X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fdriver%2Fmangler%2Fghc-asm.lprl;h=cd4d99aae6a082b033d3db80f55b07cffd9c0a85;hb=fa4769e95b2ceeb4cff8ab71f3b74fc8f2d9d7a0;hp=6e5da21d806037902c513e6c3d58768d13e40924;hpb=9eae079be036ab76c2f571862b29323659bbb772;p=ghc-hetmet.git

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 6e5da21..cd4d99a 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -417,6 +417,7 @@ sub mangle_asm {
     $i = 0; $chkcat[0] = 'misc'; $chk[0] = '';
 
     while (<INASM>) {
+	tr/\r//d if $TargetPlatform =~ /-mingw32$/;
 	next if $T_STABBY && /^\.stab.*${T_US}__stg_split_marker/o;
 	next if $T_STABBY && /^\.stab.*ghc.*c_ID/;
 	next if /^\t\.def.*endef$/;