From 367f47f92d7b3e4bd2829dca825c886d76c7d567 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Nov 2012 05:00:01 -0700
Subject: [PATCH] fix bad aliasing

---
 src/racket/src/jitalloc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/jitalloc.c b/src/racket/src/jitalloc.c
index 9de8326671..aa6876d651 100644
--- a/src/racket/src/jitalloc.c
+++ b/src/racket/src/jitalloc.c
@@ -102,8 +102,8 @@ static intptr_t read_first_word(void *sp)
 
 static intptr_t initial_tag_word(Scheme_Type tag, int flags)
 {
-  GC_CAN_IGNORE Scheme_Small_Object sp;
-  memset(&sp, 0, sizeof(Scheme_Small_Object));
+  GC_CAN_IGNORE Scheme_Simple_Object sp;
+  memset(&sp, 0, sizeof(Scheme_Simple_Object));
   sp.iso.so.type = tag;
   if (flags) {
     if (tag == scheme_pair_type)