78 |
{ |
{ |
79 |
long new_size = scm_subr_table_room * 3 / 2; |
long new_size = scm_subr_table_room * 3 / 2; |
80 |
void *new_table |
void *new_table |
81 |
= scm_must_realloc ((char *) scm_subr_table, |
= scm_realloc ((char *) scm_subr_table, |
82 |
sizeof (scm_t_subr_entry) * scm_subr_table_room, |
sizeof (scm_t_subr_entry) * new_size); |
|
sizeof (scm_t_subr_entry) * new_size, |
|
|
"scm_subr_table"); |
|
83 |
scm_subr_table = new_table; |
scm_subr_table = new_table; |
84 |
scm_subr_table_room = new_size; |
scm_subr_table_room = new_size; |
85 |
} |
} |
152 |
SCM |
SCM |
153 |
scm_makcclo (SCM proc, size_t len) |
scm_makcclo (SCM proc, size_t len) |
154 |
{ |
{ |
155 |
scm_t_bits *base = scm_must_malloc (len * sizeof (scm_t_bits), "compiled-closure"); |
scm_t_bits *base = scm_gc_malloc (len * sizeof (scm_t_bits), |
156 |
|
"compiled closure"); |
157 |
unsigned long i; |
unsigned long i; |
158 |
SCM s; |
SCM s; |
159 |
|
|
375 |
{ |
{ |
376 |
scm_subr_table |
scm_subr_table |
377 |
= ((scm_t_subr_entry *) |
= ((scm_t_subr_entry *) |
378 |
scm_must_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room, |
scm_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room)); |
|
"scm_subr_table")); |
|
379 |
} |
} |
380 |
|
|
381 |
void |
void |