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

Fixed a couple of problems in the backend with channel bundles

Browse Source
This commit is contained in:
Neil Brown 2009-04-13 20:37:21 +00:00
parent f2c4ada01b
commit d36503e15d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backends/GenerateC.hs
View File

@ -402,6 +402,8 @@ cgenBytesIn m t v
= do tell ["sizeof("] = do tell ["sizeof("]
genType t genType t
tell [")"] tell [")"]
genBytesIn' t@(A.ChanDataType {})
= tell ["sizeof(mt_cb_t*)"]
genBytesIn' (A.Mobile t@(A.Array {})) = genBytesIn' t genBytesIn' (A.Mobile t@(A.Array {})) = genBytesIn' t
genBytesIn' (A.Mobile _) genBytesIn' (A.Mobile _)
= tell ["sizeof(void*)"] = tell ["sizeof(void*)"]
@ -746,10 +748,10 @@ cgenVariableWithAM checkValid v am fct
, ct) , ct)
A.ChanDataType {} -> A.ChanDataType {} ->
return return
(do tell ["(&("] (do tell ["(&(("]
call genVariable' v A.Original (const $ Plain "mt_cb_t") call genVariable' v A.Original (const $ Plain "mt_cb_t")
let ind = findIndex ((== fieldName) . fst) fs let ind = findIndex ((== fieldName) . fst) fs
tell [".channels[", maybe "" show ind, "]))"] tell [").channels[", maybe "" show ind, "]))"]
, ct) , ct)
A.SubscriptFromFor m' subCheck start count A.SubscriptFromFor m' subCheck start count
-> do ct <- details v -> do ct <- details v