From 6106fc13a1c4014a311de2869766fa1de0746cf1 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 6 Mar 2008 21:04:11 +0000
Subject: [PATCH] Removed a leftover suffix involved in declaring channel
 arrays

---
 backends/GenerateCPPCSP.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/backends/GenerateCPPCSP.hs b/backends/GenerateCPPCSP.hs
index 1eda25d..2af306f 100644
--- a/backends/GenerateCPPCSP.hs
+++ b/backends/GenerateCPPCSP.hs
@@ -558,7 +558,7 @@ cppdeclareInit m t@(A.Array ds t') var _
                        call genVariableUnchecked var
                        tell ["_storage,"]
                        call genVariableUnchecked var
-                       tell ["_actual,"]
+                       tell [","]
                        sequence_ $ intersperse (tell ["*"]) [case dim of A.Dimension d -> tell [show d] | dim <- ds]
                        tell [");"]
                   _ -> return ()