Parent Directory | Revision Log | Patch
revision 1.60 by ossau, Tue Jan 22 23:31:39 2002 UTC | revision 1.61 by mvo, Mon Feb 11 18:06:49 2002 UTC | |
---|---|---|
# | Line 208 scm_c_make_vector (unsigned long int k, | Line 208 scm_c_make_vector (unsigned long int k, |
208 | ||
209 | SCM_ASSERT_RANGE (1, scm_ulong2num (k), k <= SCM_VECTOR_MAX_LENGTH); | SCM_ASSERT_RANGE (1, scm_ulong2num (k), k <= SCM_VECTOR_MAX_LENGTH); |
210 | ||
211 | base = scm_must_malloc (k * sizeof (scm_t_bits), FUNC_NAME); | base = scm_gc_malloc (k * sizeof (scm_t_bits), "vector"); |
212 | for (j = 0; j != k; ++j) | for (j = 0; j != k; ++j) |
213 | base[j] = SCM_UNPACK (fill); | base[j] = SCM_UNPACK (fill); |
214 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |