From: simonmar <unknown>
Date: Tue, 10 Sep 2002 16:07:48 +0000 (+0000)
Subject: [project @ 2002-09-10 16:07:48 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1689
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a338e1c0c82d3b7d74fc731fd2f75db9ca98355a;p=ghc-hetmet.git

[project @ 2002-09-10 16:07:48 by simonmar]
Tidy up error message for "funny global things"
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index f238d91..9ed28e5 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -613,7 +613,8 @@ sub mangle_asm {
 		   || ! /^L\$\d+$/ ) ) {
 	    local($thing);
 	    chop($thing = $_);
-	    print STDERR "Warning: retaining unknown function `$_' in output from C compiler"
+	    $thing =~ s/:$//;
+	    print STDERR "Warning: retaining unknown function \`$thing' in output from C compiler\n"
 		unless # $KNOWN_FUNNY_THING{$thing}
 		       /^${T_US}stg_.*${T_POST_LBL}$/o          # RTS internals
 		    || /^${T_US}__stg_.*${T_POST_LBL}$/o        # more RTS internals