From: simonmar <unknown>
Date: Mon, 12 Nov 2001 14:09:03 +0000 (+0000)
Subject: [project @ 2001-11-12 14:09:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~580
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c921f5e85da9f1d652b3886c485ec4fbbe4fa220;p=ghc-hetmet.git

[project @ 2001-11-12 14:09:03 by simonmar]
comment update
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 9cdd983..d0763f8 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -599,7 +599,7 @@ sub mangle_asm {
 	    chop($thing = $_);
 	    print STDERR "Funny global thing?: $_"
 		unless # $KNOWN_FUNNY_THING{$thing}
-		       /^${T_US}stg_.*${T_POST_LBL}$/o          # RTS internals (now dead?)
+		       /^${T_US}stg_.*${T_POST_LBL}$/o          # RTS internals
 		    || /^${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>