diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs index 33be361..6ab60ff 100644 --- a/backends/GenerateC.hs +++ b/backends/GenerateC.hs @@ -1555,7 +1555,9 @@ genProcSpec lvl n (A.Proc _ (sm, rm) fs (Just p)) forwardDecl || rm == A.Recursive then (genParHeader, genParParams) else (genNormalHeader, return ()) - genStatic lvl n + if sm == A.InlineSpec + then tell ["static "] -- definitely static + else genStatic lvl n header if forwardDecl then tell [";\n"]