Commit 39ce3c68 authored by sof's avatar sof
Browse files

[project @ 1998-11-08 17:08:34 by sof]

primOpInfo WriteOffAddrOp fixed
parent 8a6fc891
......@@ -1213,13 +1213,17 @@ primOpInfo (IndexOffForeignObjOp kind)
primOpInfo (WriteOffAddrOp kind)
= let
s = alphaTy; s_tv = alphaTyVar
s = betaTy; s_tv = betaTyVar
(str, prim_ty, _) = getPrimRepInfo kind
op_str = _PK_ ("write" ++ str ++ "OffAddr#")
tvs
| kind == StablePtrRep = [s_tv,alphaTyVar]
| otherwise = [s_tv]
in
-- NB: *Prim*Result --
PrimResult op_str [s_tv]
PrimResult op_str tvs
[addrPrimTy, intPrimTy, prim_ty, mkStatePrimTy s]
statePrimTyCon VoidRep [s]
......
Markdown is supported
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