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

Remove redundant Ident

Browse Source
This commit is contained in:
Francesco Gazzetta
2022-07-02 11:51:07 +02:00
parent 9ee497e31a
commit 8f9652e28e
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/Main.hs
View File

@@ -34,18 +34,18 @@ goldenTests = testGroup "golden tests"
, CInt False 2 , CInt False 2
, CSingle 0.1 , CSingle 0.1
, CDouble (-0.2) , CDouble (-0.2)
, CGlobal $ Ident "global" , CGlobal "global"
] ]
, t "linkage" (Export, Section "secName" Nothing, Section "secName" $ Just "flag1 flag2") , t "linkage" (Export, Section "secName" Nothing, Section "secName" $ Just "flag1 flag2")
, t "typedef" $ Typedef (Ident "t") (Just 8) , t "typedef" $ Typedef "t" (Just 8)
[ (SubExtTy HalfWord, Just 16) [ (SubExtTy HalfWord, Just 16)
, (SubAggregateTy (Ident "t1"), Nothing) , (SubAggregateTy "t1", Nothing)
] ]
, t "opaque" $ Opaque (Ident "t") 8 16 , t "opaque" $ Opaque "t" 8 16
, t "val" [ValConst (CInt False 0), ValTemporary $ Ident "temporary", ValGlobal $ Ident "global"] , t "val" [ValConst (CInt False 0), ValTemporary "temporary", ValGlobal "global"]
, t "jmp" $ Jmp $ Ident "target" , t "jmp" $ Jmp "target"
, t "jnz" $ Jnz (ValConst $ CInt False 0) (Ident "target1") (Ident "target2") , t "jnz" $ Jnz (ValConst $ CInt False 0) "target1" "target2"
, t "ret" $ Ret $ Just $ ValTemporary $ Ident "x" , t "ret" $ Ret $ Just $ ValTemporary "x"
] ]
where where
t name value = goldenVsAction t name value = goldenVsAction