mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

* gc.c (scm_gc_sweep): Make it compile even when deprecated

Browse source 
features are excluded.
This commit is contained in:
Dirk Herrmann 2002-02-25 23:22:16 +00:00
parent bac0e23263
commit 646052c0dc
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2002-01-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_gc_sweep): Make it compile even when deprecated
features are excluded.
2002-01-10 Dirk Herrmann <D.Herrmann@tu-bs.de> 2002-01-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* num2integral.i.c (NUM2INTEGRAL): Fixed signedness problem. * num2integral.i.c (NUM2INTEGRAL): Fixed signedness problem.

8
libguile/gc.c
View file

@ -1709,6 +1709,7 @@ scm_gc_sweep ()
if (mm != 0) if (mm != 0)
{ {
#if SCM_ENABLE_DEPRECATED == 1
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
("Returning non-0 from a port free function is " ("Returning non-0 from a port free function is "
"deprecated. Use scm_gc_free et al instead."); "deprecated. Use scm_gc_free et al instead.");
@ -1716,6 +1717,9 @@ scm_gc_sweep ()
("(You just returned non-0 while freeing a %s.)", ("(You just returned non-0 while freeing a %s.)",
SCM_PTOBNAME (k)); SCM_PTOBNAME (k));
m += mm; m += mm;
#else
abort ();
#endif
} }
SCM_SETSTREAM (scmptr, 0); SCM_SETSTREAM (scmptr, 0);
@ -1755,6 +1759,7 @@ scm_gc_sweep ()
mm = scm_smobs[k].free (scmptr); mm = scm_smobs[k].free (scmptr);
if (mm != 0) if (mm != 0)
{ {
#if SCM_ENABLE_DEPRECATED == 1
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
("Returning non-0 from a smob free function is " ("Returning non-0 from a smob free function is "
"deprecated. Use scm_gc_free et al instead."); "deprecated. Use scm_gc_free et al instead.");
@ -1762,6 +1767,9 @@ scm_gc_sweep ()
("(You just returned non-0 while freeing a %s.)", ("(You just returned non-0 while freeing a %s.)",
SCM_SMOBNAME (k)); SCM_SMOBNAME (k));
m += mm; m += mm;
#else
abort();
#endif
} }
} }
break; break;