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

* Added SCM_SET_VECTOR_LENGTH as one replacement for SCM_SETLENGTH.

Browse source
This commit is contained in:
Dirk Herrmann 2000-11-22 14:45:41 +00:00
parent 34f0f2b8af
commit bc0eaf7b78
5 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NEWS
View file

@ -243,6 +243,10 @@ SCM_BITVECTOR_LENGTH, SCM_VECTOR_LENGTH.
Use these instead of SCM_LENGTH.
** New macros: SCM_SET_VECTOR_LENGTH
Use these instead of SCM_SETLENGTH
** New macros: SCM_STRING_CHARS, SCM_SYMBOL_CHARS, SCM_CCLO_BASE,
SCM_VECTOR_BASE, SCM_UVECTOR_BASE, SCM_BITVECTOR_BASE, SCM_COMPLEX_MEM,
SCM_ARRAY_MEM

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-11-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* vectors.c (scm_make_vector), weaks.c (scm_make_weak_vector):
Use SCM_SET_VECTOR_LENGTH instead of SCM_SETLENGTH.
* vectors.h (SCM_SET_VECTOR_LENGTH): Added.
2000-11-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* dynl.c (scm_make_argv_from_stringlist), filesys.c (scm_dirname,

2
libguile/vectors.c
View file

@ -293,7 +293,7 @@ SCM_DEFINE (scm_make_vector, "make-vector", 1, 1, 0,
velts[j] = SCM_UNPACK (fill);
SCM_SETCHARS (v, velts);
SCM_SETLENGTH (v, i, scm_tc7_vector);
SCM_SET_VECTOR_LENGTH (v, i, scm_tc7_vector);
}
SCM_ALLOW_INTS;

1
libguile/vectors.h
View file

@ -54,6 +54,7 @@
#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector))
#define SCM_VECTOR_BASE(x) ((scm_bits_t *) SCM_CELL_WORD_1 (x))
#define SCM_VECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
#define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), ((l) << 8) + (t)))
#define SCM_VELTS(x) ((SCM *) SCM_CELL_WORD_1 (x))
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x))

3
libguile/weaks.c
View file

@ -63,10 +63,11 @@ SCM_DEFINE (scm_make_weak_vector, "make-weak-vector", 1, 1, 0,
"@var{fill}. The default value for @var{fill} is the empty list.")
#define FUNC_NAME s_scm_make_weak_vector
{
/* Dirk:FIXME:: We should probably rather use a double cell for weak vectors. */
SCM v;
v = scm_make_vector (scm_sum (k, SCM_MAKINUM (2)), fill);
SCM_DEFER_INTS;
SCM_SETLENGTH(v, SCM_INUM (k), scm_tc7_wvect);
SCM_SET_VECTOR_LENGTH (v, SCM_INUM (k), scm_tc7_wvect);
SCM_SETVELTS(v, SCM_VELTS(v) + 2);
SCM_VELTS(v)[-2] = SCM_EOL;
SCM_UNPACK (SCM_VELTS (v)[-1]) = 0;