From ab6f578eca3f73f8d6e8f0ec7fd584b7e5470523 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 15 Aug 2016 06:24:17 -0600 Subject: [PATCH] another repair for older MSVC --- racket/src/racket/src/list.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/src/racket/src/list.c b/racket/src/racket/src/list.c index 2c84427458..5631071137 100644 --- a/racket/src/racket/src/list.c +++ b/racket/src/racket/src/list.c @@ -3649,15 +3649,15 @@ static Scheme_Object *eqv_hash_code(int argc, Scheme_Object *argv[]) Scheme_Object *scheme_make_weak_box(Scheme_Object *v) { - DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_weak_box_type)); - #ifdef MZ_PRECISE_GC + DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_weak_box_type)); return (Scheme_Object *)GC_malloc_weak_box(v, NULL, 0, 0); #else Scheme_Small_Object *obj; + DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_weak_box_type)); + obj = MALLOC_ONE_TAGGED_WEAK(Scheme_Small_Object); - obj->iso.so.type = scheme_weak_box_type; obj->u.ptr_val = v;