Changed inline items to always be static

I'm not sure if this is a valid thing to do, but it solved a problem with the occam libraries where multiple occam files were including an inline FUNCTION from an include file, and this was causing problems at link time.
This commit is contained in:
Neil Brown 2009-04-12 13:02:58 +00:00
parent 8e10eb8811
commit 7a7eefa33e

View File

@ -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"]