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

Removed cppremoveSpec, since it was doing the same as cremoveSpec

Browse Source
This commit is contained in:
Neil Brown 2009-02-27 10:49:45 +00:00
parent 69b798735f
commit cd1b409f96
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
backends/GenerateCPPCSP.hs
View File

@ -39,7 +39,7 @@ import System.IO
import qualified AST as A import qualified AST as A
import CompState import CompState
import GenerateC (cgenOps, cgenReplicatorLoop, cgenType, cintroduceSpec, cremoveSpec, import GenerateC (cgenOps, cgenReplicatorLoop, cgenType, cintroduceSpec,
generate, genComma, genLeftB, genMeta, genName, genRightB, justOnly, seqComma, withIf) generate, genComma, genLeftB, genMeta, genName, genRightB, justOnly, seqComma, withIf)
import GenerateCBased import GenerateCBased
import Errors import Errors
@ -88,8 +88,7 @@ cppgenOps = cgenOps {
genUnfoldedExpression = cppgenUnfoldedExpression, genUnfoldedExpression = cppgenUnfoldedExpression,
genUnfoldedVariable = cppgenUnfoldedVariable, genUnfoldedVariable = cppgenUnfoldedVariable,
getScalarType = cppgetScalarType, getScalarType = cppgetScalarType,
introduceSpec = cppintroduceSpec, introduceSpec = cppintroduceSpec
removeSpec = cppremoveSpec
} }
--}}} --}}}
@ -513,18 +512,6 @@ cppdeclareInit _ _ _ = Nothing
cppdeclareFree :: Meta -> A.Type -> A.Variable -> Maybe (CGen ()) cppdeclareFree :: Meta -> A.Type -> A.Variable -> Maybe (CGen ())
cppdeclareFree _ _ _ = Nothing cppdeclareFree _ _ _ = Nothing
-- | Changed to work properly with declareFree to free channel arrays.
cppremoveSpec :: A.Specification -> CGen ()
cppremoveSpec (A.Specification m n (A.Declaration _ t))
= do fdeclareFree <- fget declareFree
case fdeclareFree m t var of
Just p -> p
Nothing -> return ()
where
var = A.Variable m n
-- Otherwise, defer to the C implementation:
cppremoveSpec sp = cremoveSpec sp
--Changed from GenerateC to add a name function (to allow us to use the same function for doing function parameters as constructor parameters) --Changed from GenerateC to add a name function (to allow us to use the same function for doing function parameters as constructor parameters)
--and also changed to use infixComma. --and also changed to use infixComma.
--Therefore these functions are not part of GenOps. They are called directly by cppgenForwardDeclaration and cppintroduceSpec. --Therefore these functions are not part of GenOps. They are called directly by cppgenForwardDeclaration and cppintroduceSpec.