mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(scm_uniform_element_size): Deprecated implementation

Browse source 
as well.
This commit is contained in:
Marius Vollmer 2005-01-09 17:43:14 +00:00
parent cd5d55c76c
commit 7c2ef9a87b
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/srfi-4.c
View file

@ -671,17 +671,25 @@ scm_array_handle_uniform_element_size (scm_t_array_handle *h)
scm_wrong_type_arg_msg (NULL, 0, h->array, "uniform array"); scm_wrong_type_arg_msg (NULL, 0, h->array, "uniform array");
} }
#if SCM_ENABLE_DEPRECATED
/* return the size of an element in a uniform array or 0 if type not /* return the size of an element in a uniform array or 0 if type not
found. */ found. */
size_t size_t
scm_uniform_element_size (SCM obj) scm_uniform_element_size (SCM obj)
{ {
scm_c_issue_deprecation_warning
("scm_uniform_element_size is deprecated. "
"Use scm_array_handle_uniform_element_size instead.");
if (SCM_IS_UVEC (obj)) if (SCM_IS_UVEC (obj))
return uvec_sizes[SCM_UVEC_TYPE(obj)]; return uvec_sizes[SCM_UVEC_TYPE(obj)];
else else
return 0; return 0;
} }
#endif
const void * const void *
scm_array_handle_uniform_elements (scm_t_array_handle *h) scm_array_handle_uniform_elements (scm_t_array_handle *h)
{ {