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, |