/[guile]/guile/guile-core/libguile/gc-mark.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc-mark.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by mvo, Sun Nov 3 22:05:09 2002 UTC revision 1.6 by mdj, Wed Feb 19 15:04:49 2003 UTC
# Line 1  Line 1 
1  /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002 Free Software Foundation, Inc.  /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003 Free Software Foundation, Inc.
2   *   *
3   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
4   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 120  scm_mark_all (void) Line 120  scm_mark_all (void)
120    /* mark the registered roots */    /* mark the registered roots */
121    {    {
122      size_t i;      size_t i;
123      for (i = 0; i < SCM_VECTOR_LENGTH (scm_gc_registered_roots); ++i)      for (i = 0; i < SCM_HASHTABLE_N_BUCKETS (scm_gc_registered_roots); ++i)
124        {        {
125          SCM l = SCM_VELTS (scm_gc_registered_roots)[i];          SCM l = SCM_HASHTABLE_BUCKETS (scm_gc_registered_roots)[i];
126          for (; !SCM_NULLP (l); l = SCM_CDR (l))          for (; !SCM_NULLP (l); l = SCM_CDR (l))
127            {            {
128              SCM *p = (SCM *) (scm_num2long (SCM_CAAR (l), 0, NULL));              SCM *p = (SCM *) (scm_num2long (SCM_CAAR (l), 0, NULL));
# Line 313  scm_gc_mark_dependencies (SCM p) Line 313  scm_gc_mark_dependencies (SCM p)
313            int weak_values;            int weak_values;
314    
315            len = SCM_VECTOR_LENGTH (ptr);            len = SCM_VECTOR_LENGTH (ptr);
316            weak_keys = SCM_IS_WHVEC (ptr) || SCM_IS_WHVEC_B (ptr);            weak_keys = SCM_WVECT_WEAK_KEY_P (ptr);
317            weak_values = SCM_IS_WHVEC_V (ptr) || SCM_IS_WHVEC_B (ptr);            weak_values = SCM_WVECT_WEAK_VALUE_P (ptr);
318    
319            for (x = 0; x < len; ++x)            for (x = 0; x < len; ++x)
320              {              {

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26