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

Implement PRI PAR (the priorities probably aren't very sensible at the moment)

Browse Source
This commit is contained in:
Adam Sampson 2007-04-30 01:35:33 +00:00
parent 7205272fa5
commit 76865debc7
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fco2/GenerateC.hs
View File

@ -1235,19 +1235,28 @@ genPar :: A.ParMode -> A.Structured -> CGen ()
genPar pm s
= do (size, _, _) <- constantFold $ addOne (sizeOfStructured s)
pids <- makeNonce "pids"
pris <- makeNonce "priorities"
index <- makeNonce "i"
when (pm == A.PriPar) $
do tell ["int ", pris, "["]
genExpression size
tell ["];\n"]
tell ["Process *", pids, "["]
genExpression size
tell ["];\n"]
tell ["int ", index, " = 0;\n"]
genStructured s (createP pids index)
genStructured s (createP pids pris index)
tell [pids, "[", index, "] = NULL;\n"]
tell ["ProcParList (", pids, ");\n"]
case pm of
A.PriPar -> tell ["ProcPriParList (", pids, ", ", pris, ");\n"]
_ -> tell ["ProcParList (", pids, ");\n"]
tell [index, " = 0;\n"]
genStructured s (freeP pids index)
where
createP pids index (A.OnlyP _ p)
= do tell [pids, "[", index, "++] = "]
createP pids pris index (A.OnlyP _ p)
= do when (pm == A.PriPar) $
tell [pris, "[", index, "] = ", index, ";\n"]
tell [pids, "[", index, "++] = "]
genProcAlloc p
tell [";\n"]
freeP pids index (A.OnlyP _ _)