mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
* gc_os_dep.c (GC_noop1, GC_bool, TRUE, FALSE, VOLATILE):
Definitions copied from Boehm collector.
This commit is contained in:
parent
b4ad0dda06
commit
a3487916d0
1 changed files with 27 additions and 1 deletions
|
@ -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.
|
||||
*/
|
||||
|
||||
|
@ -45,6 +45,32 @@ typedef long GC_signed_word;
|
|||
typedef GC_word 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 */
|
||||
/* near the top of gc_private.h. */
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue