/[guile]/guile/guile-core/libguile/ports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/ports.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.168 by hanwen, Sun Aug 4 16:10:19 2002 UTC revision 1.169 by hanwen, Sun Aug 4 23:33:28 2002 UTC
# Line 456  scm_t_port * Line 456  scm_t_port *
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.,

Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26