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

Define variables necessary for some of the constant-folding tests.

Browse Source
This commit is contained in:
Adam Sampson 2008-04-06 13:12:04 +00:00
parent 118a1f3527
commit 8f7c8b9fcb
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
frontends/OccamPassesTest.hs
View File

@ -45,6 +45,7 @@ startState
undefined undefined
defineConst "someBytes" (A.Array [A.UnknownDimension] A.Byte) defineConst "someBytes" (A.Array [A.UnknownDimension] A.Byte)
undefined undefined
defineVariable "var" A.Int
-- | Test 'OccamPasses.foldConstants'. -- | Test 'OccamPasses.foldConstants'.
testFoldConstants :: Test testFoldConstants :: Test

2
frontends/RainTypesTest.hs
View File

@ -66,7 +66,7 @@ constantFoldTest = TestList
foldCon n exp orig = TestCase $ testPass ("constantFoldTest " ++ show n) (buildExprPattern exp) (constantFoldPass $ buildExpr orig) state foldCon n exp orig = TestCase $ testPass ("constantFoldTest " ++ show n) (buildExprPattern exp) (constantFoldPass $ buildExpr orig) state
state :: State CompState () state :: State CompState ()
state = return () state = defineVariable "x" A.Int64
lit :: Integer -> ExprHelper lit :: Integer -> ExprHelper
lit n = Lit $ int64Literal n lit n = Lit $ int64Literal n