mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

* Removed some more references to SCM_CHARS.

Browse source 
* Provided SCM_U?VECTOR_BASE as replacements for SCM_VELTS.
This commit is contained in:
Dirk Herrmann 2000-09-26 19:20:39 +00:00
parent a002f1a2cb
commit 3db4adfced
4 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.h
View file

@ -85,6 +85,8 @@ extern long scm_tc16_array;
#define SCM_ARRAY_BASE(a) (((scm_array *) SCM_CELL_WORD_1 (a))->base)
#define SCM_ARRAY_DIMS(a) ((scm_array_dim *)(SCM_CHARS(a)+sizeof(scm_array)))
#define SCM_UVECTOR_BASE(x) ((void *) (SCM_CELL_WORD_1 (x)))
/* apparently it's possible to have more than SCM_LENGTH_MAX elements
in an array: if the length is SCM_LENGTH_MAX then the SCM_VELTS
block begins with the true length (a long int). I wonder if it