[project @ 2001-09-04 18:29:20 by ken]

[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 725cf85..eec034d 100644 (file)
--- a/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
+++ b/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
@@ -268,7 +268,7 @@ find_label code lbl
 
 reconstruct_label :: Label -> LabelKind -> Label
 reconstruct_label root Init
-   = "__init_" ++ root ++ ":"
+   = "__stginit_" ++ root ++ ":"
 reconstruct_label root kind
    = root ++ "_" ++ pp kind ++ ":"
      where