170 |
SCM_ASSERT_RANGE (1, |
SCM_ASSERT_RANGE (1, |
171 |
scm_long2num (k), k <= SCM_BITVECTOR_MAX_LENGTH); |
scm_long2num (k), k <= SCM_BITVECTOR_MAX_LENGTH); |
172 |
i = sizeof (long) * ((k + SCM_LONG_BIT - 1) / SCM_LONG_BIT); |
i = sizeof (long) * ((k + SCM_LONG_BIT - 1) / SCM_LONG_BIT); |
173 |
v = scm_alloc_cell (SCM_MAKE_BITVECTOR_TAG (k), |
v = scm_cell (SCM_MAKE_BITVECTOR_TAG (k), |
174 |
(scm_t_bits) scm_gc_malloc (i, "vector")); |
(scm_t_bits) scm_gc_malloc (i, "vector")); |
175 |
} |
} |
176 |
else |
else |
177 |
v = scm_alloc_cell (SCM_MAKE_BITVECTOR_TAG (0), 0); |
v = scm_cell (SCM_MAKE_BITVECTOR_TAG (0), 0); |
178 |
return v; |
return v; |
179 |
} |
} |
180 |
else if (SCM_CHARP (prot) && (SCM_CHAR (prot) == '\0')) |
else if (SCM_CHARP (prot) && (SCM_CHAR (prot) == '\0')) |
239 |
|
|
240 |
SCM_ASSERT_RANGE (1, scm_long2num (k), k <= SCM_UVECTOR_MAX_LENGTH); |
SCM_ASSERT_RANGE (1, scm_long2num (k), k <= SCM_UVECTOR_MAX_LENGTH); |
241 |
|
|
242 |
return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (k, type), |
return scm_cell (SCM_MAKE_UVECTOR_TAG (k, type), |
243 |
(scm_t_bits) scm_gc_malloc (i, "vector")); |
(scm_t_bits) scm_gc_malloc (i, "vector")); |
244 |
} |
} |
245 |
#undef FUNC_NAME |
#undef FUNC_NAME |
246 |
|
|