projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.107:
[sbcl.git]
/
src
/
runtime
/
globals.h
diff --git
a/src/runtime/globals.h
b/src/runtime/globals.h
index
6989820
..
13a0447
100644
(file)
--- a/
src/runtime/globals.h
+++ b/
src/runtime/globals.h
@@
-14,9
+14,12
@@
#ifndef LANGUAGE_ASSEMBLY
#ifndef LANGUAGE_ASSEMBLY
+#include <sys/types.h>
+#include <unistd.h>
#include "runtime.h"
extern int foreign_function_call_active;
#include "runtime.h"
extern int foreign_function_call_active;
+extern boolean stop_the_world;
extern lispobj *current_control_stack_pointer;
extern lispobj *current_control_frame_pointer;
extern lispobj *current_control_stack_pointer;
extern lispobj *current_control_frame_pointer;
@@
-31,10
+34,12
@@
extern lispobj *current_auto_gc_trigger;
#endif
extern lispobj *current_dynamic_space;
#endif
extern lispobj *current_dynamic_space;
+extern pid_t parent_pid;
+extern boolean stop_the_world;
extern void globals_init(void);
extern void globals_init(void);
-#else LANGUAGE_ASSEMBLY
+#else /* LANGUAGE_ASSEMBLY */
#ifdef mips
#define EXTERN(name,bytes) .extern name bytes
#ifdef mips
#define EXTERN(name,bytes) .extern name bytes
@@
-53,6
+58,9
@@
extern void globals_init(void);
#define EXTERN(name,bytes) .globl name
#endif
#endif
#define EXTERN(name,bytes) .globl name
#endif
#endif
+#ifdef ppc
+#define EXTERN(name,bytes) .globl name
+#endif
#ifdef __i386__
#ifdef __linux__
/* I'm very dubious about this. Linux hasn't used _ on external names
#ifdef __i386__
#ifdef __linux__
/* I'm very dubious about this. Linux hasn't used _ on external names
@@
-63,6
+71,11
@@
extern void globals_init(void);
#endif
#endif
#endif
#endif
+/* FIXME : these sizes are, incidentally, bogus on Alpha. But the
+ * EXTERN macro doesn't use its second arg anyway, so no immediate harm
+ * done -dan 2002.05.07
+ */
+
EXTERN(foreign_function_call_active, 4)
EXTERN(current_control_stack_pointer, 4)
EXTERN(foreign_function_call_active, 4)
EXTERN(current_control_stack_pointer, 4)
@@
-75,6
+88,6
@@
EXTERN(current_dynamic_space, 4)
EXTERN(current_flags_register, 4)
#endif
EXTERN(current_flags_register, 4)
#endif
-#endif LANGUAGE_ASSEMBLY
+#endif /* LANGUAGE_ASSEMBLY */
-#endif _INCLUDED_GLOBALS_H_
+#endif /* _INCLUDED_GLOBALS_H_ */