projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
15bef2b
)
Fix Haddock errors.
author
Thomas Schilling
<nominolo@googlemail.com>
Sun, 20 Jul 2008 16:41:33 +0000
(16:41 +0000)
committer
Thomas Schilling
<nominolo@googlemail.com>
Sun, 20 Jul 2008 16:41:33 +0000
(16:41 +0000)
compiler/HsVersions.h
patch
|
blob
|
history
diff --git
a/compiler/HsVersions.h
b/compiler/HsVersions.h
index
1622928
..
09c8d2e
100644
(file)
--- a/
compiler/HsVersions.h
+++ b/
compiler/HsVersions.h
@@
-24,12
+24,18
@@
you will screw up the layout where they are used in case expressions!
/* Global variables may not work in other Haskell implementations,
* but we need them currently! so the conditional on GLASGOW won't do. */
/* Global variables may not work in other Haskell implementations,
* but we need them currently! so the conditional on GLASGOW won't do. */
+#ifndef __HADDOCK__
#if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__)
#define GLOBAL_VAR(name,value,ty) \
{-# NOINLINE name #-}; \
name :: IORef (ty); \
name = Util.global (value);
#endif
#if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__)
#define GLOBAL_VAR(name,value,ty) \
{-# NOINLINE name #-}; \
name :: IORef (ty); \
name = Util.global (value);
#endif
+#else /* __HADDOCK__ */
+#define GLOBAL_VAR(name,value,ty) \
+name :: IORef (ty); \
+name = Util.global (value);
+#endif
#define COMMA ,
#define COMMA ,