mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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

@ -670,18 +670,26 @@ scm_array_handle_uniform_element_size (scm_t_array_handle *h)
return uvec_sizes[SCM_UVEC_TYPE(vec)];
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
found. */
size_t
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))
return uvec_sizes[SCM_UVEC_TYPE(obj)];
else
return 0;
}
#endif
const void *
scm_array_handle_uniform_elements (scm_t_array_handle *h)
{