From 437c6bd3ef1de12bde5f1cc22c07685ad2eaab9a Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 16 Apr 2009 17:39:24 +0000
Subject: [PATCH] Fixed genBytesIn for mobile arrays

---
 backends/GenerateC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index a28e5a8..ce0a633 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -410,7 +410,7 @@ cgenBytesIn m t v
            tell [")"]
     genBytesIn' t@(A.ChanDataType {})
       = 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 _)
       = tell ["sizeof(void*)"]
     genBytesIn' (A.List _)