diff options
| author | simonmar <unknown> | 2000-10-12 14:41:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-10-12 14:41:17 +0000 |
| commit | 69b29b57f29e775ffbe2108f8315aca3a690a1bc (patch) | |
| tree | 208ca287431f4d3a314c341ebc5201694828d11c /ghc/compiler/HsVersions.h | |
| parent | 2ee4f4b48b7c13ea121ab37a73fdf238db464b5f (diff) | |
| download | haskell-69b29b57f29e775ffbe2108f8315aca3a690a1bc.tar.gz | |
[project @ 2000-10-12 14:41:15 by simonmar]
Remove wired-in names. Partially propogated.
Diffstat (limited to 'ghc/compiler/HsVersions.h')
| -rw-r--r-- | ghc/compiler/HsVersions.h | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h index d1bad70d0b..3da1db1223 100644 --- a/ghc/compiler/HsVersions.h +++ b/ghc/compiler/HsVersions.h @@ -43,57 +43,6 @@ name = global (value) :: IORef (ty); \ # define MkIOError(h,errt,msg) (errt msg) #endif -#if defined(__GLASGOW_HASKELL__) - --- Import the beggars -import GlaExts - ( Int(..), Int#, (+#), (-#), (*#), - quotInt#, negateInt#, (==#), (<#), (<=#), (>=#), (>#) - ) - -#define FAST_INT Int# -#define ILIT(x) (x#) -#define IBOX(x) (I# (x)) -#define _ADD_ +# -#define _SUB_ -# -#define _MUL_ *# -#define _QUOT_ `quotInt#` -#define _NEG_ negateInt# -#define _EQ_ ==# -#define _LT_ <# -#define _LE_ <=# -#define _GE_ >=# -#define _GT_ ># - -#define FAST_BOOL Int# -#define _TRUE_ 1# -#define _FALSE_ 0# -#define _IS_TRUE_(x) ((x) _EQ_ 1#) - -#else {- ! __GLASGOW_HASKELL__ -} - -#define FAST_INT Int -#define ILIT(x) (x) -#define IBOX(x) (x) -#define _ADD_ + -#define _SUB_ - -#define _MUL_ * -#define _DIV_ `div` -#define _QUOT_ `quot` -#define _NEG_ - -#define _EQ_ == -#define _LT_ < -#define _LE_ <= -#define _GE_ >= -#define _GT_ > - -#define FAST_BOOL Bool -#define _TRUE_ True -#define _FALSE_ False -#define _IS_TRUE_(x) (x) - -#endif {- ! __GLASGOW_HASKELL__ -} - #if __GLASGOW_HASKELL__ >= 23 -- This #ifndef lets us switch off the "import FastString" |