mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Fix compilation of `gcc_os_dep.c' on Tru64.

Browse source 
* libguile/gc_os_dep.c [OSF1](_end): Specify the type.
  (scm_get_stack_base): Suitably cast RESULT.  Reported by Didier
  Godefroy <ldg@ulysium.net>.
This commit is contained in:
Ludovic Courtès 2009-04-21 22:34:54 +02:00
parent f5851b8942
commit 452e13f311
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc_os_dep.c
View file

@ -1127,7 +1127,7 @@ scm_get_stack_base ()
# ifdef OSF1 # ifdef OSF1
# define OS_TYPE "OSF1" # define OS_TYPE "OSF1"
# define DATASTART ((ptr_t) 0x140000000) # define DATASTART ((ptr_t) 0x140000000)
extern _end; extern int _end;
# define DATAEND ((ptr_t) &_end) # define DATAEND ((ptr_t) &_end)
# define HEURISTIC2 # define HEURISTIC2
/* Normally HEURISTIC2 is too conervative, since */ /* Normally HEURISTIC2 is too conervative, since */
@ -1912,7 +1912,7 @@ void *scm_get_stack_base()
# if STACK_GROWS_DOWN # if STACK_GROWS_DOWN
result = GC_find_limit((ptr_t)(&dummy), TRUE); result = GC_find_limit((ptr_t)(&dummy), TRUE);
# ifdef HEURISTIC2_LIMIT # ifdef HEURISTIC2_LIMIT
if (result > HEURISTIC2_LIMIT if ((ptr_t)result > HEURISTIC2_LIMIT
&& (ptr_t)(&dummy) < HEURISTIC2_LIMIT) { && (ptr_t)(&dummy) < HEURISTIC2_LIMIT) {
result = HEURISTIC2_LIMIT; result = HEURISTIC2_LIMIT;
} }