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

Fixed genBytesIn for mobile arrays

Browse Source
This commit is contained in:
Neil Brown 2009-04-16 17:39:24 +00:00
parent cdab6af65a
commit 437c6bd3ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateC.hs
View File

@ -410,7 +410,7 @@ cgenBytesIn m t v
tell [")"] tell [")"]
genBytesIn' t@(A.ChanDataType {}) genBytesIn' t@(A.ChanDataType {})
= tell ["sizeof(mt_cb_t*)"] = tell ["sizeof(mt_cb_t*)"]
genBytesIn' (A.Mobile t@(A.Array {})) = genBytesIn' t genBytesIn' (A.Mobile t@(A.Array {})) = tell ["sizeof(mt_array_t*)"]
genBytesIn' (A.Mobile _) genBytesIn' (A.Mobile _)
= tell ["sizeof(void*)"] = tell ["sizeof(void*)"]
genBytesIn' (A.List _) genBytesIn' (A.List _)