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

* gc_os_dep.c (GC_noop1, GC_bool, TRUE, FALSE, VOLATILE):

Browse source 
Definitions copied from Boehm collector.
This commit is contained in:
Marius Vollmer 2000-10-18 18:27:55 +00:00
parent b4ad0dda06
commit a3487916d0
1 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/gc_os_dep.c
View file

@ -17,7 +17,7 @@
*/ */
/* /*
* Copied from gc5.2, files "os_dep.c", "gc_priv.h"and "gcconfig.h", * Copied from gc5.2, files "os_dep.c", "gc_priv.h", "mark.c" and "gcconfig.h",
* and modified for Guile by Marius Vollmer. * and modified for Guile by Marius Vollmer.
*/ */
@ -45,6 +45,32 @@ typedef long GC_signed_word;
typedef GC_word word; typedef GC_word word;
typedef GC_signed_word signed_word; typedef GC_signed_word signed_word;
typedef int GC_bool;
# define TRUE 1
# define FALSE 0
#if defined(__STDC__)
# include <stdlib.h>
# if !(defined( sony_news ) )
# include <stddef.h>
# endif
# define VOLATILE volatile
#else
# ifdef MSWIN32
# include <stdlib.h>
# endif
# define VOLATILE
#endif
/* Single argument version, robust against whole program analysis. */
static void GC_noop1(x)
word x;
{
static VOLATILE word sink;
sink = x;
}
/* 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. */