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> #include <unistd.h>
#endif #endif
int scm_i_marking = 0;
/* /*
Entry point for this file. Entry point for this file.
*/ */

9
libguile/private-gc.h
View file

@ -1,7 +1,7 @@
/* /*
* private-gc.h - private declarations for garbage collection. * 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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * 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 gc-mark
*/ */
/* this can be used to ensure that set/clear gc marks only happen when /* Non-zero while in the mark phase. */
allowed. */ SCM_INTERNAL int scm_i_marking;
int scm_i_marking;
void scm_mark_all (void); SCM_INTERNAL void scm_mark_all (void);
/* /*
gc-segment: gc-segment: