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

Added a missing sanity check when allocating mobile arrays

Browse Source
This commit is contained in:
Neil Brown 2009-04-15 19:36:14 +00:00
parent d07a4cb496
commit 535054eed0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -2154,7 +2154,9 @@ cgenSetPri _ e = do tell ["SetPriority(wptr,"]
--{{{ mobiles --{{{ mobiles
cgenAllocMobile :: Meta -> A.Type -> Maybe A.Expression -> CGen() cgenAllocMobile :: Meta -> A.Type -> Maybe A.Expression -> CGen()
cgenAllocMobile m (A.Mobile t@(A.Array ds innerT)) Nothing cgenAllocMobile m (A.Mobile t@(A.Array ds innerT)) Nothing
= do tell ["MTAllocDataArray(wptr,"] | A.UnknownDimension `elem` ds = dieP m "Cannot allocate mobile array with unknown dimension"
| otherwise =
do tell ["MTAllocDataArray(wptr,"]
call genBytesIn m innerT (Left False) call genBytesIn m innerT (Left False)
tell [",", show $ length ds] tell [",", show $ length ds]
prefixComma $ [call genExpression e | A.Dimension e <- ds] prefixComma $ [call genExpression e | A.Dimension e <- ds]