msyds/qbe-hs
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Assignment type

Browse Source
This commit is contained in:
Francesco Gazzetta committed 2022-07-03 11:01:40 +02:00
1 parent 8e85d1b000
commit e6f660011e
2 files changed
+47 -44
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

test/Main.hs
+1 -1
View File
@@ -54,7 +54,7 @@ goldenTests = testGroup "golden tests"
, t "jmp" $ Jmp "target"
, t "jnz" $ Jnz (valInt 0) "target1" "target2"
, t "ret" $ Ret $ Just $ ValTemporary "x"
, t "phi" $ Phi "a" Word [PhiArg "b" $ valInt 1, PhiArg "c" $ valInt 2]
, t "phi" $ Phi (Assignment "a" Word) [PhiArg "b" $ valInt 1, PhiArg "c" $ valInt 2]
, t "call" $ Call (Just ("r", AbiBaseTy Word)) (ValGlobal "f") (Just $ valInt 1)
[Arg (AbiBaseTy Word) $ valInt 2, Arg (AbiAggregateTy "t") $ ValTemporary "a"]
[Arg (AbiBaseTy Word) $ valInt 3, Arg (AbiAggregateTy "t1") $ ValTemporary "b"]