From d0d5cf6779be6ef06cf8103011d9959e34a994df Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 11 Feb 2009 14:19:34 +0000 Subject: [PATCH] Fixed the C++ backend where I was trying to be too clever with the sizes --- backends/GenerateCPPCSP.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/backends/GenerateCPPCSP.hs b/backends/GenerateCPPCSP.hs index 70e0af0..42937dc 100644 --- a/backends/GenerateCPPCSP.hs +++ b/backends/GenerateCPPCSP.hs @@ -636,7 +636,8 @@ cppintroduceSpec (A.Specification _ n (A.Is _ am t@(A.Array ds c@(A.ChanEnd {})) tell [","] genName n tell [","] - call genExpression (A.SizeVariable m $ A.Variable m n) + genName n + call genSizeSuffix "0" tell [");"] --For all other cases, use the C implementation: cppintroduceSpec n = cintroduceSpec n