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

Fixed a bug where C. externals were turned into blocking calls, and B. externals were turned into normal external calls

Browse Source 
This turned out to be the reason for the slowness in parrot_attack.
This commit is contained in:
Neil Brown 2009-04-19 23:09:18 +00:00
parent fcacdd3235
commit f4eea82bb7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -2140,8 +2140,8 @@ cgenProcCall n as
tell [")};"]
return $ sequence_ afters
case c of
'B' -> tell ["ExternalCallN("]
'C' -> tell ["BlockingCallN(wptr,"]
'B' -> tell ["BlockingCallN(wptr,"]
'C' -> tell ["ExternalCallN("]
_ -> dieP (A.nameMeta n) "Unknown external PROC format"
tell [ [if c == '.' then '_' else c | c <- cs]
, ",1,ext_args);"]