e2f2a0f2c1
GUILE, GNU's Ubiquitous Intelligent Language for Extension, is a library that implements the Scheme language plus various convenient facilities. It's designed so that you can link it into an application or utility to make it extensible. Our plan is to link this library into all GNU programs that call for extensibility. WWW: http://www.gnu.org/software/guile/ - Repo-Copied from lang/guile in preperation of 3.X.X
168 lines
4.1 KiB
C
168 lines
4.1 KiB
C
--- libguile/gc_os_dep.c.orig 2010-12-13 17:25:01 UTC
|
|
+++ libguile/gc_os_dep.c
|
|
@@ -115,6 +115,12 @@ typedef int GC_bool;
|
|
# define NETBSD
|
|
# define mach_type_known
|
|
# endif
|
|
+# if defined(__FreeBSD__) && defined(__sparc__)
|
|
+# define SPARC
|
|
+# define FREEBSD
|
|
+# include <machine/frame.h>
|
|
+# define mach_type_known
|
|
+# endif
|
|
# if defined(__NetBSD__) && defined(__powerpc__)
|
|
# define POWERPC
|
|
# define NETBSD
|
|
@@ -249,7 +255,21 @@ typedef int GC_bool;
|
|
# define ARM32
|
|
# define mach_type_known
|
|
# endif
|
|
-# if defined(__alpha) || defined(__alpha__)
|
|
+# if defined(__FreeBSD__) && defined(__ia64__)
|
|
+# define FREEBSD
|
|
+# define IA64
|
|
+# define mach_type_known
|
|
+# endif
|
|
+# if defined(__FreeBSD__) && defined(__amd64__)
|
|
+# define FREEBSD
|
|
+# define AMD64
|
|
+# define mach_type_known
|
|
+# endif
|
|
+# if defined(__FreeBSD__) && defined(__alpha__)
|
|
+# define FREEBSD
|
|
+# define ALPHA
|
|
+# define mach_type_known
|
|
+# elif defined(__alpha) || defined(__alpha__)
|
|
# define ALPHA
|
|
# if !defined(LINUX) && !defined (NETBSD)
|
|
# define OSF1 /* a.k.a Digital Unix */
|
|
@@ -701,8 +721,6 @@ scm_get_stack_base ()
|
|
|
|
# ifdef SPARC
|
|
# define MACH_TYPE "SPARC"
|
|
-# define ALIGNMENT 4 /* Required by hardware */
|
|
-# define ALIGN_DOUBLE
|
|
extern int etext;
|
|
# ifdef SUNOS5
|
|
# define OS_TYPE "SUNOS5"
|
|
@@ -757,7 +775,6 @@ scm_get_stack_base ()
|
|
# define DYNAMIC_LOADING
|
|
# endif
|
|
# ifdef DRSNX
|
|
-# define CPP_WORDSZ 32
|
|
# define OS_TYPE "DRSNX"
|
|
extern char * GC_SysVGetDataStart();
|
|
extern int etext;
|
|
@@ -1172,6 +1189,13 @@ scm_get_stack_base ()
|
|
# endif
|
|
# endif
|
|
|
|
+# ifdef AMD64
|
|
+# define MACH_TYPE "AMD64"
|
|
+# define ALIGN_DOUBLE
|
|
+# define ALIGNMENT 8
|
|
+# define USE_GENERIC_PUSH_REGS
|
|
+# endif
|
|
+
|
|
# ifdef IA64
|
|
# define MACH_TYPE "IA64"
|
|
# define ALIGN_DOUBLE
|
|
@@ -1517,8 +1541,15 @@ scm_get_stack_base ()
|
|
# include <setjmp.h>
|
|
#endif
|
|
|
|
-#ifdef FREEBSD
|
|
+#if defined(FREEBSD) && defined(I386)
|
|
# include <machine/trap.h>
|
|
+# define ALIGNMENT 4
|
|
+# define CPP_WORDSZ 32
|
|
+#endif
|
|
+
|
|
+#if defined(FREEBSD) && defined(SPARC)
|
|
+# define ALIGNMENT 8
|
|
+# define ALIGN_DOUBLE
|
|
#endif
|
|
|
|
#ifdef AMIGA
|
|
@@ -1550,7 +1581,7 @@ scm_get_stack_base ()
|
|
#endif
|
|
|
|
#ifdef SUNOS5SIGS
|
|
-# include <sys/siginfo.h>
|
|
+/*# include <sys/siginfo.h>*/
|
|
# undef setjmp
|
|
# undef longjmp
|
|
# define setjmp(env) sigsetjmp(env, 1)
|
|
@@ -1729,11 +1760,13 @@ void *scm_get_stack_base()
|
|
/* static */ jmp_buf GC_jmp_buf;
|
|
|
|
/*ARGSUSED*/
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
static void GC_fault_handler(sig)
|
|
int sig;
|
|
{
|
|
longjmp(GC_jmp_buf, 1);
|
|
}
|
|
+#endif
|
|
|
|
# ifdef __STDC__
|
|
typedef void (*handler)(int);
|
|
@@ -1741,6 +1774,7 @@ void *scm_get_stack_base()
|
|
typedef void (*handler)();
|
|
# endif
|
|
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
# if defined(SUNOS5SIGS) || defined(IRIX5) || defined(OSF1)
|
|
static struct sigaction old_segv_act;
|
|
# if defined(_sigargs) || defined(HPUX) /* !Irix6.x */
|
|
@@ -1749,7 +1783,9 @@ void *scm_get_stack_base()
|
|
# else
|
|
static handler old_segv_handler, old_bus_handler;
|
|
# endif
|
|
+#endif
|
|
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
static void GC_setup_temporary_fault_handler()
|
|
{
|
|
# if defined(SUNOS5SIGS) || defined(IRIX5) || defined(OSF1)
|
|
@@ -1786,7 +1822,9 @@ void *scm_get_stack_base()
|
|
# endif
|
|
# endif
|
|
}
|
|
+#endif
|
|
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
static void GC_reset_fault_handler()
|
|
{
|
|
# if defined(SUNOS5SIGS) || defined(IRIX5) || defined(OSF1)
|
|
@@ -1802,8 +1840,10 @@ void *scm_get_stack_base()
|
|
# endif
|
|
# endif
|
|
}
|
|
+#endif
|
|
|
|
/* Single argument version, robust against whole program analysis. */
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
static void
|
|
GC_noop1(x)
|
|
word x;
|
|
@@ -1811,9 +1851,11 @@ void *scm_get_stack_base()
|
|
static VOLATILE word sink;
|
|
sink = x;
|
|
}
|
|
+#endif
|
|
|
|
/* Return the first nonaddressible location > p (up) or */
|
|
/* the smallest location q s.t. [q,p] is addressible (!up). */
|
|
+#if !(defined(FREEBSD) && defined(SPARC))
|
|
static ptr_t GC_find_limit(p, up)
|
|
ptr_t p;
|
|
GC_bool up;
|
|
@@ -1844,6 +1886,7 @@ void *scm_get_stack_base()
|
|
}
|
|
return(result);
|
|
}
|
|
+#endif
|
|
|
|
# endif
|
|
|