From d457b793c0da209269d1f4c99eaa094a1aac21e8 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 1 Apr 2009 17:29:32 +0000 Subject: [PATCH] Added code that allows any external PROCs not beginning with B or C to be handled as normal This shows that my current scheme is a bit of a hack; if an occam programmer starts a normal PROC with B or C, it will be treated funny during separate compilation. In future I probably need some new form of #PRAGMA to support separate compilation, different from that used to interface with C. --- backends/GenerateC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs index acdfa3c..841ae4b 100644 --- a/backends/GenerateC.hs +++ b/backends/GenerateC.hs @@ -2015,7 +2015,7 @@ cgenProcCall n as (A.Recursive, _) -> let m = A.nameMeta n in call genPar A.PlainPar $ A.Only m $ A.ProcCall m n as - (_, Just _) -> + (_, Just _) | head (A.nameName n) `elem` ['B', 'C'] -> do let (c:cs) = A.nameName n tell ["{int ext_args[] = {"] -- We don't use the formals in csExternals because they won't