diff options
| author | rrt <unknown> | 2001-03-07 10:27:43 +0000 |
|---|---|---|
| committer | rrt <unknown> | 2001-03-07 10:27:43 +0000 |
| commit | fa4769e95b2ceeb4cff8ab71f3b74fc8f2d9d7a0 (patch) | |
| tree | 971b26d6491eedc6bb9176e088c60a0882f6cfb6 | |
| parent | 9eae079be036ab76c2f571862b29323659bbb772 (diff) | |
| download | haskell-fa4769e95b2ceeb4cff8ab71f3b74fc8f2d9d7a0.tar.gz | |
[project @ 2001-03-07 10:27:43 by rrt]
On mingwin, remove CRs from input file, to prevent problems when
reading from unmounted partitions. (This shouldn't be a problem, but
it is; this fix makes the mangler a bit more robust anyway.)
| -rw-r--r-- | ghc/driver/mangler/ghc-asm.lprl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl index 6e5da21d80..cd4d99aae6 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$/; |