mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Remove multiple definition of `scm_i_marking'.

Browse source 
* libguile/private-gc.h (scm_i_marking): Turn definition into a
  declaration.
  (scm_mark_all): Mark as `SCM_INTERNAL'.

* libguile/gc-mark.c (scm_i_marking): New definition.
This commit is contained in:
Ludovic Courtès 2009-03-26 18:47:28 +01:00
parent fc0b6e29cc
commit 6cc323e2ff
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc-mark.c
View file

@ -64,6 +64,8 @@ extern unsigned long * __libc_ia64_register_backing_store_base;
#include <unistd.h>
#endif
int scm_i_marking = 0;
/*
Entry point for this file.
*/

9
libguile/private-gc.h
View file

@ -1,7 +1,7 @@
/*
* private-gc.h - private declarations for garbage collection.
*
* Copyright (C) 2002, 03, 04, 05, 06, 07, 08 Free Software Foundation, Inc.
* Copyright (C) 2002, 03, 04, 05, 06, 07, 08, 09 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -164,11 +164,10 @@ scm_i_gc_heap_size_delta (scm_t_cell_type_statistics * freelist);
gc-mark
*/
/* this can be used to ensure that set/clear gc marks only happen when
allowed. */
int scm_i_marking;
/* Non-zero while in the mark phase. */
SCM_INTERNAL int scm_i_marking;
void scm_mark_all (void);
SCM_INTERNAL void scm_mark_all (void);
/*
gc-segment: