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

Clean up some uses of old GC macros that don't exist any more.

Browse source 
* libguile/deprecated.h (SCM_GC8MARKP, SCM_SETGC8MARK, SCM_CLRGC8MARK):
  Delete.
* libguile/gc.c (scm_assert_cell_valid): Remove check of SCM_GC_MARK_P.
This commit is contained in:
Ken Raeburn 2009-10-29 12:16:12 -04:00
parent 9515ef7237
commit b4246e5b22
2 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/deprecated.h
View file

@ -120,9 +120,6 @@ SCM_DEPRECATED SCM scm_unprotect_object (SCM obj);
(SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y)))) (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y))))
#define SCM_FREEP(x) (0) #define SCM_FREEP(x) (0)
#define SCM_NFREEP(x) (1) #define SCM_NFREEP(x) (1)
#define SCM_GC8MARKP(x) SCM_GC_MARK_P (x)
#define SCM_SETGC8MARK(x) SCM_SET_GC_MARK (x)
#define SCM_CLRGC8MARK(x) SCM_CLEAR_GC_MARK (x)
#define SCM_GCTYP16(x) SCM_TYP16 (x) #define SCM_GCTYP16(x) SCM_TYP16 (x)
#define SCM_GCCDR(x) SCM_CDR (x) #define SCM_GCCDR(x) SCM_CDR (x)
SCM_DEPRECATED void scm_remember (SCM * ptr); SCM_DEPRECATED void scm_remember (SCM * ptr);

13
libguile/gc.c
View file

@ -146,18 +146,7 @@ scm_assert_cell_valid (SCM cell)
*/ */
if (scm_expensive_debug_cell_accesses_p) if (scm_expensive_debug_cell_accesses_p)
scm_i_expensive_validation_check (cell); scm_i_expensive_validation_check (cell);
#if (SCM_DEBUG_MARKING_API == 0)
if (!SCM_GC_MARK_P (cell))
{
fprintf (stderr,
"scm_assert_cell_valid: this object is unmarked. \n"
"It has been garbage-collected in the last GC run: "
"%lux\n",
(unsigned long) SCM_UNPACK (cell));
abort ();
}
#endif /* SCM_DEBUG_MARKING_API */
scm_i_cell_validation_already_running = 0; /* re-enable */ scm_i_cell_validation_already_running = 0; /* re-enable */
} }
} }