summaryrefslogtreecommitdiff
path: root/libguile/threads.c
diff options
context:
space:
mode:
authorStefan Jahn <stefan@lkcc.org>2004-09-03 19:45:37 +0000
committerStefan Jahn <stefan@lkcc.org>2004-09-03 19:45:37 +0000
commitedea856ce5ace366441ca91484f69c307e629f96 (patch)
tree0d9506601659d0f8f3ca9ca91ef37163e3a3262f /libguile/threads.c
parent23311fb045a0dae78571c270a927e73c7c193060 (diff)
downloadguile-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.c10
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)));