From 741f5502f34622dcf8db13215597c275726773f2 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 18 May 2010 09:01:04 -0500
Subject: [PATCH] Attempt to remove 'warning: dereferencing type-punned pointer
 will break strict-aliasing rules'

---
 src/racket/gc/new_hblk.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/racket/gc/new_hblk.c b/src/racket/gc/new_hblk.c
index c216e9f611..9d6810e45c 100644
--- a/src/racket/gc/new_hblk.c
+++ b/src/racket/gc/new_hblk.c
@@ -164,7 +164,8 @@ ptr_t GC_build_fl(struct hblk *h, size_t sz, GC_bool clear, ptr_t list)
    * put p (which is now head of list of objects in *h) as first
    * pointer in the appropriate free list for this size.
    */
-      obj_link(h -> hb_body) = list;
+	  word *tmp = (word *)h->hb_body;
+      obj_link(tmp) = list;
       return ((ptr_t)p);
 }