Corrected BYTESIN for mobile arrays

2009-03-23 21:18:52 +00:00 · 2009-03-23 21:18:52 +00:00 · d3f4ff1a9a
commit d3f4ff1a9a
parent 658bfd08e4
1 changed files with 1 additions and 0 deletions
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@ -364,6 +364,7 @@ cgenBytesIn m t v
      = do tell ["sizeof("]
           genType t
           tell [")"]
+    genBytesIn' (A.Mobile t@(A.Array {})) = genBytesIn' t
    genBytesIn' (A.Mobile _)
      = tell ["sizeof(void*)"]
    genBytesIn' (A.List _)