1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
--- 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
|
