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

2
libguile/unif.h
View file

@ -98,7 +98,7 @@ extern scm_bits_t scm_tc16_array;
#define SCM_ARRAY_MEM(a) ((scm_array_t *) SCM_CELL_WORD_1 (a))
#define SCM_ARRAY_V(a) (SCM_ARRAY_MEM (a)->v)
#define SCM_ARRAY_BASE(a) (SCM_ARRAY_MEM (a)->base)
#define SCM_ARRAY_DIMS(a) ((scm_array_dim_t *)((char *) SCM_ARRAY_MEM (a) + sizeof (scm_array)))
#define SCM_ARRAY_DIMS(a) ((scm_array_dim_t *)((char *) SCM_ARRAY_MEM (a) + sizeof (scm_array_t)))
#define SCM_I_MAX_LENGTH ((scm_ubits_t)((scm_bits_t)-1) >> 8)