456 |
scm_new_port_table_entry (void) |
scm_new_port_table_entry (void) |
457 |
#define FUNC_NAME "scm_new_port_table_entry" |
#define FUNC_NAME "scm_new_port_table_entry" |
458 |
{ |
{ |
459 |
scm_t_port *entry = (scm_t_port *) scm_gc_malloc (sizeof (scm_t_port), "port"); |
scm_t_port *entry = (scm_t_port *) scm_gc_calloc (sizeof (scm_t_port), "port"); |
|
memset (entry, 0x0, sizeof (scm_t_port)); |
|
|
|
|
460 |
if (scm_port_table_size == scm_port_table_room) |
if (scm_port_table_size == scm_port_table_room) |
461 |
{ |
{ |
462 |
/* initial malloc is in gc.c. this doesn't use scm_gc_malloc etc., |
/* initial malloc is in gc.c. this doesn't use scm_gc_malloc etc., |