suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed an unnecessary line from the GenerateC backend, and added a comment to a tested function

Browse Source
This commit is contained in:
Neil Brown 2007-10-03 17:17:28 +00:00
parent 1f8bb0e44a
commit f6af19c67e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateC.hs
View File

@ -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.