Skip to content
Snippets Groups Projects
Commit 3094cd6c authored by Simon Marlow's avatar Simon Marlow
Browse files

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

add ST macros for GHC < 2.00.
parent cfd229b7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/HsVersions.h
+ 4
− 0
View file @ 3094cd6c
...@@ -110,6 +110,10 @@ you will screw up the layout where they are used in case expressions! ...@@ -110,6 +110,10 @@ you will screw up the layout where they are used in case expressions!
# define minInt (minBound::Int) # define minInt (minBound::Int)
# define maxInt (maxBound::Int) # define maxInt (maxBound::Int)
#else #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 SYN_IE(a) a(..)
# define EXP_MODULE(a) a.. # define EXP_MODULE(a) a..
# define IMPORT_DELOOPER(mod) import mod # define IMPORT_DELOOPER(mod) import mod
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment