diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 11:57:45 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 11:57:45 +0000 |
| commit | e48618c7132ee7954c6a869d4cc007f1f854c302 (patch) | |
| tree | c257757e662938867e9a0851c427967477f562b1 /compiler/HsVersions.h | |
| parent | 53f99d8465ec50f7c37c65658fa346094bd37ded (diff) | |
| download | haskell-e48618c7132ee7954c6a869d4cc007f1f854c302.tar.gz | |
Don't use CPP for SLIT/FSLIT
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 1ba8a01022..14f14233ff 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -60,14 +60,6 @@ name = Util.global (value); #define WARN(e,msg) if False && (e) then pprPanic "WARN" (msg) else #endif -#if defined(__GLASGOW_HASKELL__) -#define SLIT(x) (FastString.mkLitString# (x#)) -#define FSLIT(x) (FastString.mkFastString# (x#)) -#else -#define SLIT(x) (FastString.mkLitString (x)) -#define FSLIT(x) (FastString.mkFastString (x)) -#endif - -- Useful for declaring arguments to be strict #define STRICT1(f) f a | a `seq` False = undefined #define STRICT2(f) f a b | a `seq` b `seq` False = undefined |