Implement short-form PLACE, and fix PLACE IN WORKSPACE/VECSPACE.

This commit is contained in:
Adam Sampson 2008-03-17 18:47:54 +00:00
parent 396d28e286
commit 06ff5ccda6
3 changed files with 5 additions and 2 deletions

View File

@ -16,6 +16,8 @@ Intrinsics:
- SQRT
- DSQRT
CHAN for CHAN OF, and PLACE for PLACE AT.
PLACE IN WORKSPACE and PLACE IN VECSPACE, both currently ignored.
INITIAL variables.

View File

@ -1258,8 +1258,7 @@ allocation
placement :: OccParser A.Placement
placement
= do sAT
e <- intExpr
= do e <- tryXV (optional sAT) intExpr
return $ A.PlaceAt e
<|> do tryXX sIN sWORKSPACE
return $ A.PlaceInWorkspace

View File

@ -7,5 +7,7 @@ PROC P ()
PLACE w IN WORKSPACE:
INT v:
PLACE v IN VECSPACE:
INT new:
PLACE new #123456:
SKIP
: