From 104bdf5d0a69d65373249ab614bb55715edefe17 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 1 Jun 2008 19:50:53 +0000
Subject: [PATCH] Fixed genBytesIn for mobile and list types in the C backend

---
 backends/GenerateC.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 9c9223d..81a090f 100644
--- 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