From cb470321d910dca529dc5363cb87932eeb8ee9c5 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 9 Nov 2001 20:30:11 +0000 Subject: [PATCH] [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 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 || /^${T_US}.*_btm${T_POST_LBL}$/o # large bitmaps -- 1.7.10.4