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

Stopped mobile arrays being allocated after declaration (with random size!)

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 15:56:04 +00:00
parent 919781eabc
commit e8fec8585b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backends/GenerateC.hs
View File

@ -1278,10 +1278,12 @@ cdeclareInit m rt@(A.Record _) var
initField :: A.Type -> A.Variable -> CGen () initField :: A.Type -> A.Variable -> CGen ()
initField t v = do fdeclareInit <- fget declareInit initField t v = do fdeclareInit <- fget declareInit
doMaybe $ fdeclareInit m t v doMaybe $ fdeclareInit m t v
cdeclareInit m t@(A.Mobile _) var cdeclareInit m t@(A.Mobile t') var
= Just $ do call genVariableUnchecked var A.Original = Just $ do call genVariableUnchecked var A.Original
tell ["=NULL;"] tell ["=NULL;"]
call genAssign m [var] $ A.ExpressionList m [A.AllocMobile m t Nothing] case t' of
A.Array {} -> return ()
_ -> call genAssign m [var] $ A.ExpressionList m [A.AllocMobile m t Nothing]
cdeclareInit _ _ _ = Nothing cdeclareInit _ _ _ = Nothing
-- | Free a declared item that's going out of scope. -- | Free a declared item that's going out of scope.