[project @ 2001-11-09 20:30:11 by sof]

Make recent rts/ changes work by recognising symbols starting
with __stg as being known-funny-things.

Still recognise "^stg" as 'funny', not sure if that's still
needed.

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