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

(GC_noop1): Move before `GC_find_limit' where it is used; nfc.

Browse source 
Thanks to Bill Schottstaedt.
This commit is contained in:
Thien-Thi Nguyen 2001-08-25 18:20:56 +00:00
parent b573e74455
commit 9ec1e7705c
1 changed files with 27 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/gc_os_dep.c
View file

@ -1727,6 +1727,15 @@ void *scm_get_stack_base()
# endif # endif
} }
/* Single argument version, robust against whole program analysis. */
static void
GC_noop1(x)
word x;
{
static VOLATILE word sink;
sink = x;
}
/* Return the first nonaddressible location > p (up) or */ /* Return the first nonaddressible location > p (up) or */
/* the smallest location q s.t. [q,p] is addressible (!up). */ /* the smallest location q s.t. [q,p] is addressible (!up). */
static ptr_t GC_find_limit(p, up) static ptr_t GC_find_limit(p, up)
@ -1760,15 +1769,6 @@ void *scm_get_stack_base()
return(result); return(result);
} }
/* Single argument version, robust against whole program analysis. */
static void
GC_noop1(x)
word x;
{
static VOLATILE word sink;
sink = x;
}
# endif # endif
#ifdef LINUX_STACKBOTTOM #ifdef LINUX_STACKBOTTOM