From 961b6fc01f9c2f0220070849d22b2a30ca031324 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 9 Oct 2021 10:19:46 +0200
Subject: Static C functions; clean up

---
 SC/Afun.hs | 3 ++-
 SC/Exp.hs  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'SC')

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)
diff --git a/SC/Exp.hs b/SC/Exp.hs
index 5c0bc72..ef18a7f 100644
--- a/SC/Exp.hs
+++ b/SC/Exp.hs
@@ -54,7 +54,7 @@ compileFun aenv (A.Lam lhs (A.Body body)) = do
             ++ map (\(TypedName t n) -> (t, n)) (itupList argnames)
             ++ map (\(TypedName t n) -> (t, n)) (itupList outnames)
     return $ CompiledFun
-        (C.ProcDef funname arguments (sts1 ++ sts2))
+        (C.ProcDef C.defAttrs { C.faStatic = True }funname arguments (sts1 ++ sts2))
         (\argexprs destnames ->
             map (C.EVar . snd) arrayarguments
             ++ itupList argexprs
-- 
cgit v1.2.3-70-g09d2