From 45c488d1c5ac792c613fdb69232dee3f0533ee22 Mon Sep 17 00:00:00 2001
From: Richard Brooksby <rb@ravenbrook.com>
Date: Thu, 17 May 2012 15:33:56 +0100
Subject: [PATCH] Adding missing cast to deliberately throw away bits in hash
 function, fixing a warning on w3i6mv.

Copied from Perforce
 Change: 178200
 ServerID: perforce.ravenbrook.com
---
 mps/code/table.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mps/code/table.c b/mps/code/table.c
index 772e45d9d30..b7ba512d270 100644
--- a/mps/code/table.c
+++ b/mps/code/table.c
@@ -65,7 +65,7 @@ static size_t sizeFloorLog2(size_t size)
 static ulong TableHash(Word key)
 {
   /* Shift some randomness into the low bits. */
-  return (key >> 10) + key;
+  return (ulong)((key >> 10) + key);
 }