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

another repair for older MSVC

Browse Source
This commit is contained in:
Matthew Flatt 2016-08-15 06:24:17 -06:00
parent 2c65aa8512
commit ab6f578eca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/list.c
View File

@ -3649,15 +3649,15 @@ static Scheme_Object *eqv_hash_code(int argc, Scheme_Object *argv[])
Scheme_Object *scheme_make_weak_box(Scheme_Object *v) Scheme_Object *scheme_make_weak_box(Scheme_Object *v)
{ {
DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_weak_box_type));
#ifdef MZ_PRECISE_GC #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); return (Scheme_Object *)GC_malloc_weak_box(v, NULL, 0, 0);
#else #else
Scheme_Small_Object *obj; Scheme_Small_Object *obj;
obj = MALLOC_ONE_TAGGED_WEAK(Scheme_Small_Object); 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->iso.so.type = scheme_weak_box_type;
obj->u.ptr_val = v; obj->u.ptr_val = v;