From ce9447a542a051071bcf007ad94c139cf9b72057 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Tue, 16 Oct 2001 14:03:12 +0000
Subject: [PATCH] [project @ 2001-10-16 14:02:01 by rrt] Comment dubious hack.

---
 ghc/driver/mangler/ghc-asm.lprl |    2 +-
 ghc/driver/split/ghc-split.lprl |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index ca26221..8d3f60b 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -421,7 +421,7 @@ sub mangle_asm {
     $i = 0; $chkcat[0] = 'misc'; $chk[0] = '';
 
     while (<INASM>) {
-	tr/\r//d if $TargetPlatform =~ /-mingw32$/;
+	tr/\r//d if $TargetPlatform =~ /-mingw32$/; # In case Perl doesn't convert line endings
 	next if $T_STABBY && /^\.stab.*${T_US}__stg_split_marker/o;
 	next if $T_STABBY && /^\.stab.*ghc.*c_ID/;
 	next if /^\t\.def.*endef$/;
diff --git a/ghc/driver/split/ghc-split.lprl b/ghc/driver/split/ghc-split.lprl
index 66f2be6..a101a2e 100644
--- a/ghc/driver/split/ghc-split.lprl
+++ b/ghc/driver/split/ghc-split.lprl
@@ -139,7 +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 =~ tr/\r//d if $TargetPlatform =~ /-mingw32$/; # in case Perl doesn't convert line endings
     $str;
 }
 \end{code}
-- 
1.7.10.4