summaryrefslogtreecommitdiff
path: root/libguile/unif.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
commitbab246f3345d6fa97ccd698ad66ada18abede481 (patch)
treed1cee66aa51371cba73f55baa86ebc7ce2025175 /libguile/unif.h
parentdcb410ec079dcb20e6589461803fa99e3a3d8dd7 (diff)
downloadguile-bab246f3345d6fa97ccd698ad66ada18abede481.tar.gz
* Fixed some bugs, some reported by Matthias Koeppe.
Diffstat (limited to 'libguile/unif.h')
-rw-r--r--libguile/unif.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/unif.h b/libguile/unif.h
index 1a7b1b46f..867c04427 100644
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -109,7 +109,7 @@ extern scm_bits_t scm_tc16_array;
#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_BITVECTOR_BASE(x) ((unsigned long *) (SCM_CELL_WORD_1 (x)))
#define SCM_SET_BITVECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))
#define SCM_BITVECTOR_MAX_LENGTH SCM_I_MAX_LENGTH
#define SCM_BITVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)