From: simonm <unknown>
Date: Tue, 25 Nov 1997 12:43:48 +0000 (+0000)
Subject: [project @ 1997-11-25 12:43:48 by simonm]
X-Git-Tag: Approx_2487_patches~1237
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3094cd6ca224859e7aa2fbbab15221f7d7f40a55;p=ghc-hetmet.git

[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
--- 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