X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2FdebugNCG%2FDiff_Gcc_Nat.hs;h=eec034d5b8a7e2361e7f60ca34031989e9c7a511;hb=fb7a723bfd7650a705cb226e07c5b08b7a8e9279;hp=725cf85e9e7f685a5b9ef4efe8d14c4db0a66fac;hpb=dfedfb0289ca2de4bb51330bfd7d51fa975da2c3;p=ghc-hetmet.git

diff --git a/ghc/utils/debugNCG/Diff_Gcc_Nat.hs b/ghc/utils/debugNCG/Diff_Gcc_Nat.hs
index 725cf85..eec034d 100644
--- 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