mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

(scm_remove_from_port_table): Report freed ptab entry size

Browse source 
with scm_done_free, matching scm_must_malloc in scm_add_to_port_table.
This commit is contained in:
Kevin Ryde 2006-04-09 00:13:16 +00:00
parent 38ed76f413
commit e3cbcc57ba
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -497,6 +497,8 @@ scm_remove_from_port_table (SCM port)
if (p->putback_buf)
scm_must_free (p->putback_buf);
scm_must_free (p);
scm_done_free (sizeof (*p)); /* matching scm_must_malloc above */
/* Since we have just freed slot i we can shrink the table by moving
the last entry to that slot... */
if (i < scm_port_table_size - 1)