summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-05-19 00:04:16 +0000
committerKevin Ryde <user42@zip.com.au>2004-05-19 00:04:16 +0000
commit659998043d9e97ea54eecd732b0b7054a8d8ad53 (patch)
tree789307d3bee21320b97bfb34463f20a73b025437
parent6123c3bcac40626e5a9d24890051f668b56ec671 (diff)
downloadguile-659998043d9e97ea54eecd732b0b7054a8d8ad53.tar.gz
(scm_threads_mark_stacks) [SCM_STACK_GROWS_UP]: Correction
to stack marking call, two parameters and no cast on t->base.
-rw-r--r--libguile/threads.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/threads.c b/libguile/threads.c
index 34a60827d..32d7daad2 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -973,8 +973,7 @@ scm_threads_mark_stacks (void)
((size_t) sizeof scm_save_regs_gc_mark
/ sizeof (SCM_STACKITEM)));
- scm_mark_locations (((size_t) t->base,
- (size_t) stack_len));
+ scm_mark_locations (t->base, (size_t) stack_len);
#else
stack_len = t->base - SCM_STACK_PTR (&t);