diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-05-19 00:04:16 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-05-19 00:04:16 +0000 |
commit | 659998043d9e97ea54eecd732b0b7054a8d8ad53 (patch) | |
tree | 789307d3bee21320b97bfb34463f20a73b025437 | |
parent | 6123c3bcac40626e5a9d24890051f668b56ec671 (diff) | |
download | guile-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.c | 3 |
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); |