X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fdriver%2Fmangler%2Fghc-asm.lprl;h=9cdd983d10795a2a7f1abf7d8e14854a6e9485ed;hb=cb470321d910dca529dc5363cb87932eeb8ee9c5;hp=0b1ae8cfd8b1cb2287c74b1492376e91f5c7e50d;hpb=6a0b3f6798ec5b80f96d0230c553e466877440b3;p=ghc-hetmet.git

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 0b1ae8c..9cdd983 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -598,8 +598,9 @@ sub mangle_asm {
 	    local($thing);
 	    chop($thing = $_);
 	    print STDERR "Funny global thing?: $_"
-		unless $KNOWN_FUNNY_THING{$thing}
-		    || /^${T_US}stg_.*${T_POST_LBL}$/o          # RTS internals
+		unless # $KNOWN_FUNNY_THING{$thing}
+		       /^${T_US}stg_.*${T_POST_LBL}$/o          # RTS internals (now dead?)
+		    || /^${T_US}__stg_.*${T_POST_LBL}$/o        # more RTS internals
 		    || /^${T_US}__fexp_.*${T_POST_LBL}$/o       # foreign export
 		    || /^${T_US}__stginit.*${T_POST_LBL}$/o     # __stginit<module>
 		    || /^${T_US}.*_btm${T_POST_LBL}$/o          # large bitmaps