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

repair broken allocation

Browse Source 
Commit 4b02c169d7 incorrectly used a size calculation for
structs in the case a serialized structure representation.
This commit is contained in:
Matthew Flatt 2016-11-28 19:38:32 -07:00
parent ba1f5be532
commit ac04d1e544
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/src/struct.c
View File

@ -2619,7 +2619,8 @@ Scheme_Object *scheme_make_serialized_struct_instance(Scheme_Object *prefab_key,
Scheme_Serialized_Structure *inst; Scheme_Serialized_Structure *inst;
inst = (Scheme_Serialized_Structure *) inst = (Scheme_Serialized_Structure *)
scheme_malloc_tagged(STRUCT_BYTES(num_slots)); scheme_malloc_tagged(sizeof(Scheme_Serialized_Structure)
+ ((num_slots - mzFLEX_DELTA) * sizeof(Scheme_Object *)));
inst->so.type = scheme_serialized_structure_type; inst->so.type = scheme_serialized_structure_type;
inst->num_slots = num_slots; inst->num_slots = num_slots;