From fa3cf5847527a6aab02c75f83826c39308c78610 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 4 Dec 2001 10:04:39 +0000
Subject: [PATCH] [project @ 2001-12-04 10:04:39 by sewardj] Update to follow
 the __init_Foo -> __stginit_Foo change.

---
 ghc/utils/debugNCG/Diff_Gcc_Nat.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
 
-- 
1.7.10.4