[project @ 1998-08-14 12:51:47 by sof]

StateAnd{Int,Word}64# types

diff --git a/ghc/lib/std/PrelST.lhs b/ghc/lib/std/PrelST.lhs
index 580ec93..5755970 100644 (file)
--- a/ghc/lib/std/PrelST.lhs
+++ b/ghc/lib/std/PrelST.lhs
@@ -126,4 +126,7 @@ data StateAndWord#   s     = StateAndWord#   (State# s) Word#
 data StateAndFloat#  s     = StateAndFloat#  (State# s) Float# 
 data StateAndDouble# s     = StateAndDouble# (State# s) Double#  
 data StateAndAddr#   s     = StateAndAddr#   (State# s) Addr#
+
+data StateAndInt64#  s     = StateAndInt64#  (State# s) Int64#
+data StateAndWord64# s     = StateAndWord64# (State# s) Word64#
 \end{code}