diff options
author | Stefan Jahn <stefan@lkcc.org> | 2004-09-03 19:45:37 +0000 |
---|---|---|
committer | Stefan Jahn <stefan@lkcc.org> | 2004-09-03 19:45:37 +0000 |
commit | edea856ce5ace366441ca91484f69c307e629f96 (patch) | |
tree | 0d9506601659d0f8f3ca9ca91ef37163e3a3262f /libguile/threads.c | |
parent | 23311fb045a0dae78571c270a927e73c7c193060 (diff) | |
download | guile-edea856ce5ace366441ca91484f69c307e629f96.tar.gz |
2004-09-03 Stefan Jahn <stefan@lkcc.org>
* configure.in (isinf): Let configure find the isinf() function
on MinGW32 systems.
2004-09-03 Stefan Jahn <stefan@lkcc.org>
* threads.c (scm_threads_mark_stacks): Fixed local variable
definitions.
* strings.c (scm_i_substring_copy, s_scm_string_append): Fixed
local variable definitions.
* stime.c (_POSIX_C_SOURCE): Do not define this item on
MinGW32 because it conflicts with its pthread headers.
(s_scm_mktime): Consider the HAVE_STRUCT_TM_TM_ZONE define.
(s_scm_strftime): Using scm_from_locale_string() instead of
scm_makfrom0str().
* posix.c (s_scm_putenv): Fixed typo in the !HAVE_UNSETENV
part.
* numbers.c (scm_init_numbers): Removed check_sanity() call
inside GUILE_DEBUG. The function has been removed somewhen...
* filesys.c (_POSIX_C_SOURCE): Do not define this item on
MinGW32 because it conflicts with its pthread headers.
2004-09-03 Stefan Jahn <stefan@lkcc.org>
* srfi-1.c, srfi-1.h: Renamed any 'lst1' into 'list1' because
lst1 is a #define on Win32 systems.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index d32156eb2..3bb39f10c 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -954,13 +954,15 @@ scm_threads_mark_stacks (void) abort (); } + { #if SCM_STACK_GROWS_UP - long stack_len = t->top - t->base; - scm_mark_locations (t->base, stack_len); + long stack_len = t->top - t->base; + scm_mark_locations (t->base, stack_len); #else - long stack_len = t->base - t->top; - scm_mark_locations (t->top, stack_len); + long stack_len = t->base - t->top; + scm_mark_locations (t->top, stack_len); #endif + } scm_mark_locations ((SCM_STACKITEM *) t->regs, ((size_t) sizeof(t->regs) / sizeof (SCM_STACKITEM))); |