[project @ 2005-02-10 03:08:26 by wolfgang]

PowerPC: mangler trouble again

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 5d5676c..d704f09 100644 (file)
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -1229,7 +1229,7 @@ sub mangle_asm {
                                push(@o,$l);
                                next;
                            }
-                           next if $l =~ /^\s*\..*$symb.*\n/;
+                            next if $l =~ /^\s*\..*$symb.*\n?/;
                            push(@o,$l);
                        }
                        $c = join("\n",@o) . "\n";