Commit cb470321 authored by sof's avatar sof
Browse files

[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.
parent 6a0b3f67
...@@ -598,8 +598,9 @@ sub mangle_asm { ...@@ -598,8 +598,9 @@ sub mangle_asm {
local($thing); local($thing);
chop($thing = $_); chop($thing = $_);
print STDERR "Funny global thing?: $_" print STDERR "Funny global thing?: $_"
unless $KNOWN_FUNNY_THING{$thing} unless # $KNOWN_FUNNY_THING{$thing}
|| /^${T_US}stg_.*${T_POST_LBL}$/o # RTS internals /^${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}__fexp_.*${T_POST_LBL}$/o # foreign export
|| /^${T_US}__stginit.*${T_POST_LBL}$/o # __stginit<module> || /^${T_US}__stginit.*${T_POST_LBL}$/o # __stginit<module>
|| /^${T_US}.*_btm${T_POST_LBL}$/o # large bitmaps || /^${T_US}.*_btm${T_POST_LBL}$/o # large bitmaps
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment