suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LANGUAGE
View File

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

3
frontends/ParseOccam.hs
View File

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

2
testcases/place.occ
View File

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