/[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.171 by hanwen, Fri Aug 16 22:01:09 2002 UTC revision 1.172 by hanwen, Fri Aug 16 22:07:26 2002 UTC
# Line 456  SCM Line 456  SCM
456  scm_new_port_table_entry (scm_t_bits tag)  scm_new_port_table_entry (scm_t_bits tag)
457  #define FUNC_NAME "scm_new_port_table_entry"  #define FUNC_NAME "scm_new_port_table_entry"
458  {  {
459      /*
460        We initialize the cell to empty, this is in case scm_gc_calloc
461        triggers GC ; we don't want the GC to scan a half-finished Z.
462       */
463      
464    SCM z = scm_cons (SCM_EOL, SCM_EOL);    SCM z = scm_cons (SCM_EOL, SCM_EOL);
465    scm_t_port *entry = (scm_t_port *) scm_gc_calloc (sizeof (scm_t_port), "port");    scm_t_port *entry = (scm_t_port *) scm_gc_calloc (sizeof (scm_t_port), "port");
466    if (scm_i_port_table_size == scm_i_port_table_room)    if (scm_i_port_table_size == scm_i_port_table_room)
# Line 495  scm_add_to_port_table (SCM port) Line 500  scm_add_to_port_table (SCM port)
500    pt->port = port;    pt->port = port;
501    SCM_SETCAR(z, SCM_EOL);    SCM_SETCAR(z, SCM_EOL);
502    SCM_SETCDR(z, SCM_EOL);    SCM_SETCDR(z, SCM_EOL);
503        SCM_SETPTAB_ENTRY (port, pt);
504    return pt;    return pt;
505  }  }
506  #endif  #endif

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

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