From 452e13f3112f38c67d8652d284c8b96e0851c272 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 21 Apr 2009 22:34:54 +0200 Subject: [PATCH] Fix compilation of `gcc_os_dep.c' on Tru64. * libguile/gc_os_dep.c [OSF1](_end): Specify the type. (scm_get_stack_base): Suitably cast RESULT. Reported by Didier Godefroy . --- libguile/gc_os_dep.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/gc_os_dep.c b/libguile/gc_os_dep.c index d89f1cf10..7bc96447f 100644 --- a/libguile/gc_os_dep.c +++ b/libguile/gc_os_dep.c @@ -1127,7 +1127,7 @@ scm_get_stack_base () # ifdef OSF1 # define OS_TYPE "OSF1" # define DATASTART ((ptr_t) 0x140000000) - extern _end; + extern int _end; # define DATAEND ((ptr_t) &_end) # define HEURISTIC2 /* Normally HEURISTIC2 is too conervative, since */ @@ -1912,7 +1912,7 @@ void *scm_get_stack_base() # if STACK_GROWS_DOWN result = GC_find_limit((ptr_t)(&dummy), TRUE); # ifdef HEURISTIC2_LIMIT - if (result > HEURISTIC2_LIMIT + if ((ptr_t)result > HEURISTIC2_LIMIT && (ptr_t)(&dummy) < HEURISTIC2_LIMIT) { result = HEURISTIC2_LIMIT; }