From: sewardj <unknown>
Date: Tue, 4 Dec 2001 10:04:39 +0000 (+0000)
Subject: [project @ 2001-12-04 10:04:39 by sewardj]
X-Git-Tag: Approximately_9120_patches~472
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa3cf5847527a6aab02c75f83826c39308c78610;p=ghc-hetmet.git

[project @ 2001-12-04 10:04:39 by sewardj]
Update to follow the __init_Foo -> __stginit_Foo change.
---

diff --git a/ghc/utils/debugNCG/Diff_Gcc_Nat.hs b/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
index eec034d..02b6428 100644
--- a/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
+++ b/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
@@ -330,7 +330,7 @@ breakLabel s
                  "tbl:"     -> CTbl
                  _ -> error ("breakLabel: " ++ show (s,k,m))
      in
-        if   head m == '_' && dropWhile (== '_') m == "init"
+        if   head m == '_' && dropWhile (== '_') m == "stginit"
         then (init k, Init)
         else (m, kind)