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

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

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

revision 1.224 by mdj, Thu Feb 21 01:00:41 2002 UTC revision 1.225 by dirk, Mon Feb 25 23:22:16 2002 UTC
# Line 1709  scm_gc_sweep () Line 1709  scm_gc_sweep ()
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.");
# Line 1716  scm_gc_sweep () Line 1717  scm_gc_sweep ()
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++;
# Line 1755  scm_gc_sweep () Line 1759  scm_gc_sweep ()
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.");
# Line 1762  scm_gc_sweep () Line 1767  scm_gc_sweep ()
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;

Legend:
Removed from v.1.224  
changed lines
  Added in v.1.225

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