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

(scm_mark_all): Fix c99-isms "loops" and "again" variables.

Browse source
This commit is contained in:
Kevin Ryde 2006-02-03 23:49:37 +00:00
parent f14a93dfe4
commit 71c7cfa502
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/gc-mark.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005, 2006 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
@ -71,6 +71,7 @@ void
scm_mark_all (void) scm_mark_all (void)
{ {
long j; long j;
int loops;
scm_i_init_weak_vectors_for_gc (); scm_i_init_weak_vectors_for_gc ();
scm_i_init_guardians_for_gc (); scm_i_init_guardians_for_gc ();
@ -100,11 +101,11 @@ scm_mark_all (void)
scm_mark_subr_table (); scm_mark_subr_table ();
int loops = 0; loops = 0;
while (1) while (1)
{ {
loops++;
int again; int again;
loops++;
/* Mark the non-weak references of weak vectors. For a weak key /* Mark the non-weak references of weak vectors. For a weak key
alist vector, this would mark the values for keys that are alist vector, this would mark the values for keys that are