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

fix allocation

Browse Source 
Repairs a mistake in 95f6a2342b.
This commit is contained in:
Matthew Flatt 2016-08-02 11:37:54 -06:00
parent b1e406b5a7
commit 3769d82b74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/optimize.c
View File

@ -1428,7 +1428,7 @@ Scheme_Object *scheme_make_struct_proc_shape(intptr_t k, Scheme_Object *identity
{ {
Scheme_Object *ps; Scheme_Object *ps;
ps = scheme_malloc_small_atomic_tagged(sizeof(Scheme_Simple_Object)); ps = scheme_malloc_small_tagged(sizeof(Scheme_Simple_Object));
ps->type = scheme_struct_proc_shape_type; ps->type = scheme_struct_proc_shape_type;
SCHEME_PROC_SHAPE_MODE(ps) = k; SCHEME_PROC_SHAPE_MODE(ps) = k;
SCHEME_PROC_SHAPE_IDENTITY(ps) = identity; SCHEME_PROC_SHAPE_IDENTITY(ps) = identity;