From 680956c4ea00c0a568954ba9455ddc1ab5d27770 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Tue, 15 Apr 2014 00:18:47 +0100
Subject: [PATCH] Avoid bad cast on 64-bit.

Copied from Perforce
 Change: 185534
 ServerID: perforce.ravenbrook.com
---
 mps/test/function/40.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mps/test/function/40.c b/mps/test/function/40.c
index c57f8c62ba5..5257e1fcfc1 100644
--- a/mps/test/function/40.c
+++ b/mps/test/function/40.c
@@ -66,7 +66,7 @@ static void test(void)
   comment("%i of 10.", i);
   UC;
   z[i] = allocone(ap, 1, 1);
-  if (i % 8 == 0) { z[i] = (mycell *) ((int)z[i] + 4); } /* error to scan this! */
+  if (i % 8 == 0) { z[i] = (mycell *) ((mps_word_t)z[i] + 4); } /* error to scan this! */
  }
 
  for (i=0; i<1000; i++) {