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-14 15:53:41 by sewardj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
HsVersions.h
diff --git
a/ghc/compiler/HsVersions.h
b/ghc/compiler/HsVersions.h
index
3da1db1
..
39285ba
100644
(file)
--- a/
ghc/compiler/HsVersions.h
+++ b/
ghc/compiler/HsVersions.h
@@
-12,7
+12,7
@@
you will screw up the layout where they are used in case expressions!
#ifdef __GLASGOW_HASKELL__
#define GLOBAL_VAR(name,value,ty) \
#ifdef __GLASGOW_HASKELL__
#define GLOBAL_VAR(name,value,ty) \
-name = global (value) :: IORef (ty); \
+name = Util.global (value) :: IORef (ty); \
{-# NOINLINE name #-}
#endif
{-# NOINLINE name #-}
#endif
@@
-28,6
+28,15
@@
name = global (value) :: IORef (ty); \
#define WARN(e,msg)
#endif
#define WARN(e,msg)
#endif
+-- temporary usage assertion control KSW 2000-10
+#ifdef DO_USAGES
+#define UASSERT(e) ASSERT(e)
+#define UASSERT2(e,msg) ASSERT2(e,msg)
+#else
+#define UASSERT(e)
+#define UASSERT2(e,msg)
+#endif
+
#if __STDC__
#define CAT2(a,b)a##b
#else
#if __STDC__
#define CAT2(a,b)a##b
#else