Static C functions; clean up

1 files changed, 2 insertions, 1 deletions

diff --git a/SC/Afun.hs b/SC/Afun.hs
index 3379cc6..2f1346f 100644
--- a/SC/Afun.hs
+++ b/SC/Afun.hs
@@ -87,7 +87,8 @@ compileAfun1 procname (A.Alam lhs (A.Abody acc)) = do
     outnames <- genAVarsTup (A.arraysR acc)
     (auxdefs, stmts) <- compileCommands <$> compileAcc' aenv destnames acc
     return (auxdefs
-           ,C.ProcDef procname
+           ,C.ProcDef C.defAttrs
+                      procname
                       (map (\case Left (TypedName t n) -> (t, n)
                                   Right (TypedAName t n) -> (t, n))
                            (tupanamesList' argnames)