Commit 4b1f1a3b authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-31 14:25:34 by sewardj]

Change primOpUsg(CatchOp) to reflect changed arity of catch#.  Also
update primOpStrictness(CatchOp).
parent a105d60e
...@@ -933,7 +933,7 @@ primOpStrictness WriteMutVarOp = ([wwPrim, wwLazy, wwPrim], False) ...@@ -933,7 +933,7 @@ primOpStrictness WriteMutVarOp = ([wwPrim, wwLazy, wwPrim], False)
primOpStrictness PutMVarOp = ([wwPrim, wwLazy, wwPrim], False) primOpStrictness PutMVarOp = ([wwPrim, wwLazy, wwPrim], False)
primOpStrictness CatchOp = ([wwLazy, wwLazy], False) primOpStrictness CatchOp = ([wwStrict, wwLazy, wwPrim], False)
primOpStrictness RaiseOp = ([wwLazy], True) -- NB: True => result is bottom primOpStrictness RaiseOp = ([wwLazy], True) -- NB: True => result is bottom
primOpStrictness BlockAsyncExceptionsOp = ([wwLazy], False) primOpStrictness BlockAsyncExceptionsOp = ([wwLazy], False)
primOpStrictness UnblockAsyncExceptionsOp = ([wwLazy], False) primOpStrictness UnblockAsyncExceptionsOp = ([wwLazy], False)
...@@ -2286,7 +2286,7 @@ primOpUsg op ...@@ -2286,7 +2286,7 @@ primOpUsg op
SameMutVarOp -> mangle [mkP, mkP ] mkM SameMutVarOp -> mangle [mkP, mkP ] mkM
CatchOp -> -- [mkO, mkO . (inFun mkM mkO)] mkO CatchOp -> -- [mkO, mkO . (inFun mkM mkO)] mkO
mangle [mkM, mkM . (inFun mkM mkM)] mkM mangle [mkM, mkM . (inFun mkM mkM), mkP] mkM
-- might use caught action multiply -- might use caught action multiply
RaiseOp -> mangle [mkM ] mkM RaiseOp -> mangle [mkM ] mkM
......
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