projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Convert some DEBUG uses to debugIsOn
[ghc-hetmet.git]
/
compiler
/
basicTypes
/
Unique.lhs
diff --git
a/compiler/basicTypes/Unique.lhs
b/compiler/basicTypes/Unique.lhs
index
36a5352
..
5190702
100644
(file)
--- a/
compiler/basicTypes/Unique.lhs
+++ b/
compiler/basicTypes/Unique.lhs
@@
-54,6
+54,9
@@
import BasicTypes
import FastTypes
import FastString
import Outputable
import FastTypes
import FastString
import Outputable
+#ifdef DEBUG
+import StaticFlags ( opt_SuppressUniques )
+#endif
#if defined(__GLASGOW_HASKELL__)
--just for implementing a fast [0,61) -> Char function
#if defined(__GLASGOW_HASKELL__)
--just for implementing a fast [0,61) -> Char function
@@
-283,7
+286,6
@@
Allocation of unique supply characters:
d desugarer
f AbsC flattener
g SimplStg
d desugarer
f AbsC flattener
g SimplStg
- l ndpFlatten
n Native codegen
r Hsc name cache
s simplifier
n Native codegen
r Hsc name cache
s simplifier