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

Fixed genBytesIn for mobile and list types in the C backend

Browse Source
This commit is contained in:
Neil Brown 2008-06-01 19:50:53 +00:00
parent 4e6b166696
commit 104bdf5d0a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -391,6 +391,10 @@ cgenBytesIn m t v
= do tell ["sizeof("] = do tell ["sizeof("]
call genType t call genType t
tell [")"] tell [")"]
genBytesIn' (A.Mobile _)
= tell ["sizeof(void*)"]
genBytesIn' (A.List _)
= tell ["sizeof(void*)"]
genBytesIn' t genBytesIn' t
= do f <- fget getScalarType = do f <- fget getScalarType
case f t of case f t of