diff options
| author | sewardj <unknown> | 1999-11-19 15:42:12 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-11-19 15:42:12 +0000 |
| commit | 59c9a5828f3d060aabafc7e00f8ee6a17e1c51ab (patch) | |
| tree | 7abc6fa407d283c7c245e5f514217c8d076893d1 /ghc/rts | |
| parent | f6885db3c891ade3130c47cc4463ce5ec034ad5c (diff) | |
| download | haskell-59c9a5828f3d060aabafc7e00f8ee6a17e1c51ab.tar.gz | |
[project @ 1999-11-19 15:42:07 by sewardj]
Duh. Reinstate type variable for state token in Ref type.
Also rename to STRef since that's GHC's name for it.
Diffstat (limited to 'ghc/rts')
| -rw-r--r-- | ghc/rts/Assembler.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ghc/rts/Assembler.c b/ghc/rts/Assembler.c index e2a4451b5c..e4d75394a2 100644 --- a/ghc/rts/Assembler.c +++ b/ghc/rts/Assembler.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: Assembler.c,v $ - * $Revision: 1.17 $ - * $Date: 1999/11/19 13:54:53 $ + * $Revision: 1.18 $ + * $Date: 1999/11/19 15:42:12 $ * * This module provides functions to construct BCOs and other closures * required by the bytecode compiler. @@ -1323,9 +1323,9 @@ const AsmPrim asmPrimOps[] = { , { "primIsIEEEDouble", "", "B", MONAD_Id, i_PRIMOP1, i_isIEEEDouble } /* Ref operations */ - , { "primNewRef", "a", "R", MONAD_IO, i_PRIMOP2, i_newRef } - , { "primWriteRef", "Ra", "", MONAD_IO, i_PRIMOP2, i_writeRef } - , { "primReadRef", "R", "a", MONAD_IO, i_PRIMOP2, i_readRef } + , { "primNewRef", "a", "R", MONAD_ST, i_PRIMOP2, i_newRef } + , { "primWriteRef", "Ra", "", MONAD_ST, i_PRIMOP2, i_writeRef } + , { "primReadRef", "R", "a", MONAD_ST, i_PRIMOP2, i_readRef } , { "primSameRef", "RR", "B", MONAD_Id, i_PRIMOP2, i_sameRef } /* PrimArray operations */ |