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

(GC_noop1): Moved into the same #if/#endif context where it is needed.

Browse source
This commit is contained in:
Marius Vollmer 2001-07-26 16:57:27 +00:00
parent 914c9f842a
commit 429e955781
1 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/gc_os_dep.c
View file

@ -62,20 +62,6 @@ typedef int GC_bool;
# define VOLATILE # define VOLATILE
#endif #endif
#if 0 /* currently unused (as of 2001-07-12) */
/* Single argument version, robust against whole program analysis. */
static void
GC_noop1(x)
word x;
{
static VOLATILE word sink;
sink = x;
}
#endif
/* Machine dependent parameters. Some tuning parameters can be found */ /* Machine dependent parameters. Some tuning parameters can be found */
/* near the top of gc_private.h. */ /* near the top of gc_private.h. */
@ -1773,6 +1759,16 @@ 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