projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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
reconstruct_label :: Label -> LabelKind -> Label
reconstruct_label root Init
- = "__init_" ++ root ++ ":"
+ = "__stginit_" ++ root ++ ":"
reconstruct_label root kind
= root ++ "_" ++ pp kind ++ ":"
where
reconstruct_label root kind
= root ++ "_" ++ pp kind ++ ":"
where