Commit ce9447a5 authored by rrt's avatar rrt
Browse files

[project @ 2001-10-16 14:02:01 by rrt]

Comment dubious hack.
parent a5977a45
......@@ -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$/;
......
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment