diff options
| author | simonm <unknown> | 1997-11-25 12:43:48 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1997-11-25 12:43:48 +0000 |
| commit | 3094cd6ca224859e7aa2fbbab15221f7d7f40a55 (patch) | |
| tree | 832c5b2f9fbf3b1a34b4e8ef93b86393104f13a2 /ghc/compiler/HsVersions.h | |
| parent | cfd229b7cfe58a987c65800000bcb0e9b2de9a20 (diff) | |
| download | haskell-3094cd6ca224859e7aa2fbbab15221f7d7f40a55.tar.gz | |
[project @ 1997-11-25 12:43:48 by simonm]
add ST macros for GHC < 2.00.
Diffstat (limited to 'ghc/compiler/HsVersions.h')
| -rw-r--r-- | ghc/compiler/HsVersions.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h index 77e9a22baa..a515918173 100644 --- a/ghc/compiler/HsVersions.h +++ b/ghc/compiler/HsVersions.h @@ -110,6 +110,10 @@ you will screw up the layout where they are used in case expressions! # define minInt (minBound::Int) # define maxInt (maxBound::Int) #else +# define STATE_TOK(x) (S# x) +# define ST_RET(x,y) (x,y) +# define unsafePerformST(x) unsafePerformPrimIO(x) +# define ST_TO_PrimIO(x) x # define SYN_IE(a) a(..) # define EXP_MODULE(a) a.. # define IMPORT_DELOOPER(mod) import mod |