From f4eea82bb7a26ee4c1ed6da3c55dd100bdeccd53 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sun, 19 Apr 2009 23:09:18 +0000 Subject: [PATCH] Fixed a bug where C. externals were turned into blocking calls, and B. externals were turned into normal external calls This turned out to be the reason for the slowness in parrot_attack. --- backends/GenerateC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs index eef4513..aecfb46 100644 --- a/backends/GenerateC.hs +++ b/backends/GenerateC.hs @@ -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);"]