/[guile]/guile/guile-core/libguile/weaks.c
ViewVC logotype

Diff of /guile/guile-core/libguile/weaks.c

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

revision 1.46 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.47 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 81  allocate_weak_vector (scm_t_bits type, S Line 81  allocate_weak_vector (scm_t_bits type, S
81              fill = SCM_UNSPECIFIED;              fill = SCM_UNSPECIFIED;
82    
83            SCM_ASSERT_RANGE (1, size, c_size <= SCM_VECTOR_MAX_LENGTH);            SCM_ASSERT_RANGE (1, size, c_size <= SCM_VECTOR_MAX_LENGTH);
84            base = scm_must_malloc (c_size * sizeof (scm_t_bits), FUNC_NAME);            base = scm_gc_malloc (c_size * sizeof (scm_t_bits), "weak vector");
85            for (j = 0; j != c_size; ++j)            for (j = 0; j != c_size; ++j)
86              base[j] = SCM_UNPACK (fill);              base[j] = SCM_UNPACK (fill);
87            v = scm_alloc_double_cell (SCM_MAKE_VECTOR_TAG (c_size,            v = scm_alloc_double_cell (SCM_MAKE_VECTOR_TAG (c_size,

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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