projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b8d0c39
)
[project @ 2001-10-16 11:20:58 by rrt]
author
rrt
<unknown>
Tue, 16 Oct 2001 11:20:58 +0000
(11:20 +0000)
committer
rrt
<unknown>
Tue, 16 Oct 2001 11:20:58 +0000
(11:20 +0000)
Strip out \r on Windows. This should not be necessary as Perl should
read in text mode on a text mounted volume (under Cygwin).
ghc/driver/split/ghc-split.lprl
patch
|
blob
|
history
diff --git
a/ghc/driver/split/ghc-split.lprl
b/ghc/driver/split/ghc-split.lprl
index
8071aa5
..
66f2be6
100644
(file)
--- 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
print STDERR "### BLOCK:$count:\n$str" if $Dump_asm_splitting_info;
# return str
+ $str =~ tr/\r//d if $TargetPlatform =~ /-mingw32$/;
$str;
}
\end{code}
$str;
}
\end{code}