summaryrefslogtreecommitdiff
path: root/libguile/weaks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r--libguile/weaks.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c
index 1432ae264..4bfe975a0 100644
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -90,7 +90,7 @@ SCM_DEFINE (scm_weak_vector, "weak-vector", 0, 0, 1,
{
SCM res;
SCM *data;
- scm_bits_t i;
+ long i;
/* Dirk:FIXME:: In case of multiple threads, the list might get corrupted
while the vector is being created. */
@@ -235,7 +235,8 @@ scm_mark_weak_vector_spines (void *dummy1, void *dummy2, void *dummy3)
{
SCM *ptr;
SCM obj;
- scm_bits_t j, n;
+ long j;
+ long n;
obj = w;
ptr = SCM_VELTS (w);
@@ -279,8 +280,8 @@ scm_scan_weak_vectors (void *dummy1, void *dummy2, void *dummy3)
else /* if (SCM_IS_WHVEC_ANY (scm_weak_vectors[i])) */
{
SCM obj = w;
- register scm_bits_t n = SCM_VECTOR_LENGTH (w);
- register scm_bits_t j;
+ register long n = SCM_VECTOR_LENGTH (w);
+ register long j;
int weak_keys = SCM_IS_WHVEC (obj) || SCM_IS_WHVEC_B (obj);
int weak_values = SCM_IS_WHVEC_V (obj) || SCM_IS_WHVEC_B (obj);