1709 |
|
|
1710 |
if (mm != 0) |
if (mm != 0) |
1711 |
{ |
{ |
1712 |
|
#if SCM_ENABLE_DEPRECATED == 1 |
1713 |
scm_c_issue_deprecation_warning |
scm_c_issue_deprecation_warning |
1714 |
("Returning non-0 from a port free function is " |
("Returning non-0 from a port free function is " |
1715 |
"deprecated. Use scm_gc_free et al instead."); |
"deprecated. Use scm_gc_free et al instead."); |
1717 |
("(You just returned non-0 while freeing a %s.)", |
("(You just returned non-0 while freeing a %s.)", |
1718 |
SCM_PTOBNAME (k)); |
SCM_PTOBNAME (k)); |
1719 |
m += mm; |
m += mm; |
1720 |
|
#else |
1721 |
|
abort (); |
1722 |
|
#endif |
1723 |
} |
} |
1724 |
|
|
1725 |
SCM_SETSTREAM (scmptr, 0); |
SCM_SETSTREAM (scmptr, 0); |
1726 |
scm_remove_from_port_table (scmptr); |
scm_remove_from_port_table (scmptr); |
1727 |
scm_gc_ports_collected++; |
scm_gc_ports_collected++; |
1759 |
mm = scm_smobs[k].free (scmptr); |
mm = scm_smobs[k].free (scmptr); |
1760 |
if (mm != 0) |
if (mm != 0) |
1761 |
{ |
{ |
1762 |
|
#if SCM_ENABLE_DEPRECATED == 1 |
1763 |
scm_c_issue_deprecation_warning |
scm_c_issue_deprecation_warning |
1764 |
("Returning non-0 from a smob free function is " |
("Returning non-0 from a smob free function is " |
1765 |
"deprecated. Use scm_gc_free et al instead."); |
"deprecated. Use scm_gc_free et al instead."); |
1767 |
("(You just returned non-0 while freeing a %s.)", |
("(You just returned non-0 while freeing a %s.)", |
1768 |
SCM_SMOBNAME (k)); |
SCM_SMOBNAME (k)); |
1769 |
m += mm; |
m += mm; |
1770 |
|
#else |
1771 |
|
abort(); |
1772 |
|
#endif |
1773 |
} |
} |
1774 |
} |
} |
1775 |
break; |
break; |