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

Added more tests for the C backend (genArrayLiteralElems, genActual, genActuals)

Browse Source
This commit is contained in:
Neil Brown 2007-10-03 15:57:45 +00:00
parent 9260bb9177
commit 80836c0074
2 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backends/GenerateC.hs
View File

@ -66,7 +66,9 @@ data GenOps = GenOps {
declareFree :: GenOps -> Meta -> A.Type -> A.Variable -> Maybe (CGen ()),
declareInit :: GenOps -> Meta -> A.Type -> A.Variable -> Maybe (CGen ()),
declareType :: GenOps -> A.Type -> CGen (),
-- | Generates an individual parameter to a function/proc.
genActual :: GenOps -> A.Actual -> CGen (),
-- | Generates the list of actual parameters to a function/proc.
genActuals :: GenOps -> [A.Actual] -> CGen (),
genAlt :: GenOps -> Bool -> A.Structured -> CGen (),
-- | Generates the given array element expressions as a flattened (one-dimensional) list of literals
@ -1427,7 +1429,7 @@ cgenActual ops actual
case (t, e) of
(A.Array _ _, A.ExprVariable _ v) ->
do call genVariable ops v
tell [", "]
tell [","]
call genVariable ops v
tell ["_sizes"]
_ -> call genExpression ops e
@ -1435,7 +1437,7 @@ cgenActual ops actual
case t of
A.Array _ _ ->
do call genVariable ops v
tell [", "]
tell [","]
call genVariable ops v
tell ["_sizes"]
_ -> fst $ abbrevVariable ops am t v

27
backends/GenerateCTest.hs
View File

@ -193,15 +193,36 @@ testArraySizes = TestList
,testBothSame "genArraySizesSize 0" "[1]" (tcall genArraySizesSize [A.Dimension 7])
,testBothSame "genArraySize 0" "const int*foo_sizes=@;" (tcall3 genArraySize True at foo)
,testBothSame "genArraySize 1" "const int foo_sizes[]={@};" (tcall3 genArraySize False at foo)
,testBothSame "genArrayLiteralElems 0" "$" $ (tcall genArrayLiteralElems [A.ArrayElemExpr undefined]) . unfolded
,testBothSame "genArrayLiteralElems 1" "$,$,$" $ (tcall genArrayLiteralElems [A.ArrayElemExpr undefined, A.ArrayElemExpr undefined, A.ArrayElemExpr undefined]) . unfolded
,testBothSame "genArrayLiteralElems 2" "$,$,$" $ (tcall genArrayLiteralElems [A.ArrayElemExpr undefined, A.ArrayElemArray [A.ArrayElemExpr undefined, A.ArrayElemExpr undefined]]) . unfolded
]
where
unfolded = (\ops -> ops {genUnfoldedExpression = override1 dollar})
testActuals :: Test
testActuals = TestList
[
-- C adds a prefix comma (to follow Process* me) but C++ does not:
testBoth "genActuals 0" ",@,@" "@,@" $ (tcall genActuals [undefined, undefined]) . (\ops -> ops {genActual = override1 at})
,testBothSame "genActuals 1" "" $ (tcall genActuals [])
--For expressions, genExpression should be called:
,testBothSame "genActual 0" "$" $ (tcall genActual $ A.ActualExpression A.Bool (A.True undefined)) . over
--For abbreviating arrays, C++ should call genExpression/genVariable, whereas C should do its foo,foo_sizes thing:
,testBoth "genActual 1" "@,@_sizes" "$" $ (tcall genActual $ A.ActualExpression (A.Array undefined undefined) (A.ExprVariable undefined $ A.Variable undefined foo)) . over
,testBoth "genActual 2" "@,@_sizes" "@" $ (tcall genActual $ A.ActualVariable A.Abbrev (A.Array undefined undefined) (A.Variable undefined foo)) . over
]
where
over = (\ops -> ops {genVariable = override1 at, genExpression = override1 dollar})
---Returns the list of tests:
tests :: Test
tests = TestList
[
testGenType
,testStop
testActuals
,testArraySizes
,testGenType
,testStop
]