[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile gc_os_dep.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile gc_os_dep.c |
Date: |
Wed, 18 Oct 2000 11:27:56 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 00/10/18 11:27:55
Modified files:
guile-core/libguile: gc_os_dep.c
Log message:
* gc_os_dep.c (GC_noop1, GC_bool, TRUE, FALSE, VOLATILE):
Definitions copied from Boehm collector.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/gc_os_dep.c.diff?r1=1.2&r2=1.3
Patches:
Index: guile/guile-core/libguile/gc_os_dep.c
diff -u guile/guile-core/libguile/gc_os_dep.c:1.2
guile/guile-core/libguile/gc_os_dep.c:1.3
--- guile/guile-core/libguile/gc_os_dep.c:1.2 Wed Oct 11 12:23:52 2000
+++ guile/guile-core/libguile/gc_os_dep.c Wed Oct 18 11:27:55 2000
@@ -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.
*/
@@ -44,6 +44,32 @@
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. */