[project @ 1997-11-25 12:43:48 by simonm]

add ST macros for GHC < 2.00.

diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h
index 77e9a22..a515918 100644 (file)
--- 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