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

Corrected BYTESIN for mobile arrays

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 21:18:52 +00:00
parent 658bfd08e4
commit d3f4ff1a9a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backends/GenerateC.hs
View File

@ -364,6 +364,7 @@ cgenBytesIn m t v
= do tell ["sizeof("] = do tell ["sizeof("]
genType t genType t
tell [")"] tell [")"]
genBytesIn' (A.Mobile t@(A.Array {})) = genBytesIn' t
genBytesIn' (A.Mobile _) genBytesIn' (A.Mobile _)
= tell ["sizeof(void*)"] = tell ["sizeof(void*)"]
genBytesIn' (A.List _) genBytesIn' (A.List _)