suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bad aliasing

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-15 05:00:01 -07:00
parent 8c021b60ce
commit 367f47f92d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/jitalloc.c
View File

@ -102,8 +102,8 @@ static intptr_t read_first_word(void *sp)
static intptr_t initial_tag_word(Scheme_Type tag, int flags) static intptr_t initial_tag_word(Scheme_Type tag, int flags)
{ {
GC_CAN_IGNORE Scheme_Small_Object sp; GC_CAN_IGNORE Scheme_Simple_Object sp;
memset(&sp, 0, sizeof(Scheme_Small_Object)); memset(&sp, 0, sizeof(Scheme_Simple_Object));
sp.iso.so.type = tag; sp.iso.so.type = tag;
if (flags) { if (flags) {
if (tag == scheme_pair_type) if (tag == scheme_pair_type)