[project @ 2001-12-04 10:04:39 by sewardj]

[ghc-hetmet.git] / ghc / utils / debugNCG / Diff_Gcc_Nat.hs

diff --git a/ghc/utils/debugNCG/Diff_Gcc_Nat.hs b/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
index eec034d..02b6428 100644 (file)
--- 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)