From f6af19c67ef31dde1708f75f6541add15b2b9002 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 3 Oct 2007 17:17:28 +0000
Subject: [PATCH] Removed an unnecessary line from the GenerateC backend, and
 added a comment to a tested function

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

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 1217ac2..5250a11 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -79,6 +79,7 @@ data GenOps = GenOps {
     genArraySizesLiteral :: GenOps -> [A.Dimension] -> CGen (),
     -- | Writes out the size of the _sizes array, in square brackets.
     genArraySizesSize :: GenOps -> [A.Dimension] -> CGen (),
+    -- | Generates an array subscript for the given variable (with error checking if the Bool is True), using the given expression list as subscripts
     genArraySubscript :: GenOps -> Bool -> A.Variable -> [A.Expression] -> CGen (),
     genAssert :: GenOps -> Meta -> A.Expression -> CGen (),
     genAssign :: GenOps -> Meta -> [A.Variable] -> A.ExpressionList -> CGen (),
@@ -1163,7 +1164,6 @@ cgenSpec ops spec body
 -- | Generate the C type corresponding to a variable being declared.
 -- It must be possible to use this in arrays.
 cdeclareType :: GenOps -> A.Type -> CGen ()
-cdeclareType _ (A.Chan {}) = tell ["Channel *"]
 cdeclareType ops t = call genType ops t
 
 -- | Generate a declaration of a new variable.