From: rrt <unknown>
Date: Tue, 16 Oct 2001 11:20:58 +0000 (+0000)
Subject: [project @ 2001-10-16 11:20:58 by rrt]
X-Git-Tag: Approximately_9120_patches~829
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=35d7d23c6daf7088926a244771e86513079842d1;p=ghc-hetmet.git

[project @ 2001-10-16 11:20:58 by rrt]
Strip out \r on Windows. This should not be necessary as Perl should
read in text mode on a text mounted volume (under Cygwin).
---

diff --git a/ghc/driver/split/ghc-split.lprl b/ghc/driver/split/ghc-split.lprl
index 8071aa5..66f2be6 100644
--- a/ghc/driver/split/ghc-split.lprl
+++ b/ghc/driver/split/ghc-split.lprl
@@ -139,6 +139,7 @@ sub ReadTMPIUpToAMarker {
     print STDERR "### BLOCK:$count:\n$str" if $Dump_asm_splitting_info;
 
     # return str
+    $str =~ tr/\r//d if $TargetPlatform =~ /-mingw32$/;
     $str;
 }
 \end{code}