luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

use reg for empty args placeholder

This commit is contained in:
Zachary Snow 2020-12-05 17:23:34 -07:00
parent 1fd72d878f
commit 8eac9b0149
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Convert/EmptyArgs.hs
View File

@ -31,8 +31,7 @@ convertDescription other = other
traverseFunctionsM :: ModuleItem -> Writer Idents ModuleItem
traverseFunctionsM (MIPackageItem (Function ml t f decls stmts)) = do
let dummyDecl = Variable Input (Implicit Unspecified []) "_sv2v_unused" [] Nil
decls' <- do
decls' <-
if any isInput decls
then return decls
else do
@ -40,6 +39,8 @@ traverseFunctionsM (MIPackageItem (Function ml t f decls stmts)) = do
return $ dummyDecl : decls
return $ MIPackageItem $ Function ml t f decls' stmts
where
dummyType = IntegerVector TReg Unspecified []
dummyDecl = Variable Input dummyType "_sv2v_unused" [] Nil
isInput :: Decl -> Bool
isInput (Variable Input _ _ _ _) = True
isInput _ = False