suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the backend so that it does not think stack sizes are needed for external functions

Browse Source
This commit is contained in:
Neil Brown 2009-04-15 17:10:29 +00:00
parent 681b1aa878
commit 5f87855cc7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backends/GenerateC.hs
View File

@ -161,17 +161,18 @@ generateC = generate cgenOps
needStackSizes :: (CSMR m, Die m) => m [A.Name]
needStackSizes
= do cs <- getCompState
return $ nub $(([A.Name emptyMeta $ nameString $ A.Name emptyMeta n
return $ nub $ ([A.Name emptyMeta $ nameString $ A.Name emptyMeta n
| A.NameDef {A.ndName = n
,A.ndSpecType=A.Proc {}
} <- Map.elems $ csNames cs]
)
\\ (map (A.Name emptyMeta . nameString . A.Name emptyMeta . fst) (csExternals cs)))
++
[A.Name emptyMeta $ nameString $ A.Name emptyMeta n
| A.NameDef {A.ndName = n
,A.ndSpecType=A.Function {}
} <- Map.elems $ csNames cs]
)
\\ (map (A.Name emptyMeta . nameString . A.Name emptyMeta . fst) (csExternals cs))
cgenTopLevel :: String -> A.AST -> CGen ()
cgenTopLevel headerName s