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

Fixed the tests for array slicing

Browse Source
This commit is contained in:
Neil Brown 2008-03-09 18:21:16 +00:00
parent e90ea48baa
commit f8cd341cd8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
backends/GenerateCTest.hs
View File

@ -351,13 +351,13 @@ testArraySlice :: Test
testArraySlice = TestList testArraySlice = TestList
[ [
-- Slice from a one-dimensional array: -- Slice from a one-dimensional array:
testSlice 0 ("&arr[" ++ checkSlice "4" "5" "12" ++ "]") "arr" 4 5 [A.Dimension 12] testSlice 0 ("(&arr[" ++ checkSlice "4" "5" "12" ++ "])") "arr" 4 5 [A.Dimension 12]
-- Slice from a two-dimensional array: -- Slice from a two-dimensional array:
,testSlice 1 ("&arr[4*arr_sizes[1]]") "arr" 4 5 [A.Dimension 12,A.Dimension 12] ,testSlice 1 ("(&arr[" ++ checkSlice "4" "5" "12" ++ "*arr_sizes[1]])") "arr" 4 5 [A.Dimension 12,A.Dimension 12]
-- Slice from a three-dimensional array: -- Slice from a three-dimensional array:
,testSlice 2 ("&arr[4*arr_sizes[1]*arr_sizes[2]]") "arr" 4 5 [A.Dimension 12,A.Dimension 12,A.Dimension 12] ,testSlice 2 ("(&arr[" ++ checkSlice "4" "5" "12" ++ "*arr_sizes[1]*arr_sizes[2]])") "arr" 4 5 [A.Dimension 12,A.Dimension 12,A.Dimension 12]
-- TODO test with unknown dimensions -- TODO test with unknown dimensions
] ]
@ -366,7 +366,7 @@ testArraySlice = TestList
testSlice index exp nm start count ds testSlice index exp nm start count ds
= testBothSameS ("genSlice " ++ show index) exp = testBothSameS ("genSlice " ++ show index) exp
(tcall genVariable (tcall genVariable
(A.SubscriptedVariable undefined (A.SubscriptFromFor undefined (intLiteral start) (intLiteral count)) (variable nm)) (A.SubscriptedVariable emptyMeta (A.SubscriptFromFor emptyMeta (intLiteral start) (intLiteral count)) (variable nm))
) )
(defineName (simpleName nm) $ simpleDefDecl nm (A.Array ds A.Int)) (defineName (simpleName nm) $ simpleDefDecl nm (A.Array ds A.Int))