mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* unif.c (scm_make_ra, array_free), unif.h (SCM_ARRAY_DIMS):

Browse source 
Changed use of scm_array->scm_array_t and
	scm_array_dim->scm_array_dim_t to enable build with
	--disable-deprecated.
This commit is contained in:
Martin Grabmüller 2001-05-24 06:53:26 +00:00
parent 90d892e32e
commit 880a7d1379
3 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/unif.c
View file

@ -546,7 +546,8 @@ scm_make_ra (int ndim)
SCM_NEWCELL (ra);
SCM_DEFER_INTS;
SCM_NEWSMOB(ra, ((scm_bits_t) ndim << 17) + scm_tc16_array,
scm_must_malloc ((sizeof (scm_array) + ndim * sizeof (scm_array_dim)),
scm_must_malloc ((sizeof (scm_array_t) +
ndim * sizeof (scm_array_dim_t)),
"array"));
SCM_ARRAY_V (ra) = scm_nullvect;
SCM_ALLOW_INTS;
@ -2635,7 +2636,8 @@ static size_t
array_free (SCM ptr)
{
scm_must_free (SCM_ARRAY_MEM (ptr));
return sizeof (scm_array) + SCM_ARRAY_NDIM (ptr) * sizeof (scm_array_dim);
return sizeof (scm_array_t) +
SCM_ARRAY_NDIM (ptr) * sizeof (scm_array_dim_t);
}
void