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

Added a fix to prevent running a zero-length list of processes in CIF

Browse Source
This commit is contained in:
Neil Brown 2007-10-13 20:02:07 +00:00
parent 9e21e4fc0d
commit ffe8477237
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/GenerateC.hs
View File

@ -1708,9 +1708,12 @@ cgenPar ops pm s
tell ["int ", index, " = 0;\n"]
call genStructured ops s (createP pids pris index)
tell [pids, "[", index, "] = NULL;\n"]
tell ["if(",pids,"[0] != NULL){"] -- CIF seems to deadlock when you give ProcParList a list
-- beginning with NULL (i.e. with no processes)
case pm of
A.PriPar -> tell ["ProcPriParList (", pids, ", ", pris, ");\n"]
_ -> tell ["ProcParList (", pids, ");\n"]
tell ["}"]
tell [index, " = 0;\n"]
call genStructured ops s (freeP pids index)
where