197 |
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH); |
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH); |
198 |
v = scm_gc_malloc (n * sizeof (CTYPE), "uvect"); |
v = scm_gc_malloc (n * sizeof (CTYPE), "uvect"); |
199 |
memcpy (v, data, n * sizeof (CTYPE)); |
memcpy (v, data, n * sizeof (CTYPE)); |
200 |
return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v); |
return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v); |
201 |
} |
} |
202 |
#undef FUNC_NAME |
#undef FUNC_NAME |
203 |
|
|
212 |
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH); |
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH); |
213 |
v = scm_gc_malloc (n * sizeof (unsigned CTYPE) * n, "uvect"); |
v = scm_gc_malloc (n * sizeof (unsigned CTYPE) * n, "uvect"); |
214 |
memcpy (v, data, n * sizeof (unsigned CTYPE)); |
memcpy (v, data, n * sizeof (unsigned CTYPE)); |
215 |
return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL), |
return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL), |
216 |
(scm_t_bits) v); |
(scm_t_bits) v); |
217 |
} |
} |
218 |
#undef FUNC_NAME |
#undef FUNC_NAME |
219 |
#endif /* UVECTTYPE_OPTIONAL */ |
#endif /* UVECTTYPE_OPTIONAL */ |