From 8eac9b0149111f3129f785b2728db91cae30074b Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Sat, 5 Dec 2020 17:23:34 -0700
Subject: [PATCH] use reg for empty args placeholder

---
 src/Convert/EmptyArgs.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Convert/EmptyArgs.hs b/src/Convert/EmptyArgs.hs
index 2e25403..8144d68 100644
--- a/src/Convert/EmptyArgs.hs
+++ b/src/Convert/EmptyArgs.hs
@@ -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