Ignore INLINE FUNCTION

2007-04-30 04:31:00 +00:00 · 2007-04-30 04:31:00 +00:00 · 72eafaedea
commit 72eafaedea
parent 39ec48c1e3
1 changed files with 2 additions and 1 deletions
--- a/fco2/Parse.hs
+++ b/fco2/Parse.hs
@ -1229,7 +1229,8 @@ definition
           eol
           return $ A.Specification m n $ A.Proc m fs' p
    <|> do m <- md
-           rs <- tryVX (sepBy1 dataType sComma) sFUNCTION
+           -- FIXME INLINE is ignored.
+           rs <- tryVX (sepBy1 dataType sComma) (sFUNCTION <|> tryXX sINLINE sFUNCTION)
           n <- newFunctionName
           fs <- formalList
           do { sIS; fs' <- scopeInFormals fs; el <- expressionList rs; scopeOutFormals fs'; sColon; eol; return $ A.Specification m n $ A.Function m rs fs' (A.OnlyEL m el) }