Implement short-form PLACE, and fix PLACE IN WORKSPACE/VECSPACE.
This commit is contained in:
parent
396d28e286
commit
06ff5ccda6
2
LANGUAGE
2
LANGUAGE
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -7,5 +7,7 @@ PROC P ()
|
|||
PLACE w IN WORKSPACE:
|
||||
INT v:
|
||||
PLACE v IN VECSPACE:
|
||||
INT new:
|
||||
PLACE new #123456:
|
||||
SKIP
|
||||
:
|
||||
|
|
Loading…
Reference in New Issue
Block a user