From f805f6be61dc205853252d78550b6eb5a69e3304 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 29 Dec 2007 19:23:30 +0000
Subject: [PATCH] MrEd x: custom hash function for widget indices needs to
 provide only the expected hash code

svn: r8155
---
 src/mred/mredx.cxx | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/mred/mredx.cxx b/src/mred/mredx.cxx
index 1feb36c22e..e1a324d34a 100644
--- a/src/mred/mredx.cxx
+++ b/src/mred/mredx.cxx
@@ -422,8 +422,10 @@ static void widget_hash_indices(void *_key, long *_h, long *_h2)
   h = (lkey >> 2);
   h2 = (lkey >> 3);
 
-  *_h = h;
-  *_h2 = h2;
+  if (_h)
+    *_h = h;
+  if (_h2)
+    *_h2 = h2;
 }
 #endif