Fixed genBytesIn for mobile and list types in the C backend

2008-06-01 19:50:53 +00:00 · 2008-06-01 19:50:53 +00:00 · 104bdf5d0a
commit 104bdf5d0a
parent 4e6b166696
1 changed files with 4 additions and 0 deletions
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@ -391,6 +391,10 @@ cgenBytesIn m t v
      = do tell ["sizeof("]
           call genType t
           tell [")"]
+    genBytesIn' (A.Mobile _)
+      = tell ["sizeof(void*)"]
+    genBytesIn' (A.List _)
+      = tell ["sizeof(void*)"]
    genBytesIn' t
      = do f <- fget getScalarType
           case f t of