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

Tried using my new CCSP helper function to allocate arrays

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 18:59:57 +00:00
parent 78f9fb6196
commit 9c433b248a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -1977,8 +1977,8 @@ cgenAssert m e
--{{{ 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 ["MTAllocArray(wptr,"] = do tell ["MTAllocDataArray(wptr,"]
mobileElemType True innerT 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]
tell [")"] tell [")"]