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

Fixed the intrinsic PROCs to be generated correctly

Browse Source
This commit is contained in:
Neil Brown 2009-02-27 17:13:18 +00:00
parent 0d5c8f28fd
commit 9614d5f7f9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backends/GenerateC.hs
View File

@ -1831,7 +1831,12 @@ cgenProcCall n as
cgenIntrinsicProc :: Meta -> String -> [A.Actual] -> CGen ()
cgenIntrinsicProc m "ASSERT" [A.ActualExpression e] = call genAssert m e
cgenIntrinsicProc _ "RESCHEDULE" [] = call genReschedule
cgenIntrinsicProc _ s _ = call genMissing $ "intrinsic PROC " ++ s
cgenIntrinsicProc m s as = case lookup s intrinsicProcs of
Just amtns -> do tell ["occam_", s, "("]
seqComma [call genActual (A.Formal am t (A.Name emptyMeta n)) a
| ((am, t, n), a) <- zip amtns as]
tell [");"]
Nothing -> call genMissing $ "intrinsic PROC " ++ s
cgenReschedule :: CGen ()
cgenReschedule = tell ["Reschedule (wptr);"]