summaryrefslogtreecommitdiff
path: root/libguile/unif.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 13:54:49 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 13:54:49 +0000
commit6a0476fd113e72d94277b7fd59a72db9bff66b28 (patch)
tree5472165f476a193bf8236790e535e4180a8e5b84 /libguile/unif.h
parent9377887701ecd64970fb8c65929ab2e8516ca929 (diff)
downloadguile-6a0476fd113e72d94277b7fd59a72db9bff66b28.tar.gz
* SCM_SETCHARS deprecated.
Diffstat (limited to 'libguile/unif.h')
-rw-r--r--libguile/unif.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/unif.h b/libguile/unif.h
index 4a859ce23..3ac772d6f 100644
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -87,11 +87,13 @@ extern long scm_tc16_array;
#define SCM_ARRAY_DIMS(a) ((scm_array_dim *)((char *) SCM_ARRAY_MEM (a) + sizeof (scm_array)))
#define SCM_UVECTOR_BASE(x) ((void *) (SCM_CELL_WORD_1 (x)))
+#define SCM_SET_UVECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))
#define SCM_UVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
#define SCM_SET_UVECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), ((l) << 8) + (t)))
#define SCM_BITVECTOR_P(x) (!SCM_IMP (x) && (SCM_TYP7 (x) == scm_tc7_bvect))
#define SCM_BITVECTOR_BASE(x) ((void *) (SCM_CELL_WORD_1 (x)))
+#define SCM_SET_BITVECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))
#define SCM_BITVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
#define SCM_SET_BITVECTOR_LENGTH(v, l) (SCM_SET_CELL_WORD_0 ((v), ((l) << 8) + scm_tc7_bvect))