projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.13.4:
[sbcl.git]
/
src
/
runtime
/
globals.c
diff --git
a/src/runtime/globals.c
b/src/runtime/globals.c
index
9c1010e
..
3d0139a
100644
(file)
--- a/
src/runtime/globals.c
+++ b/
src/runtime/globals.c
@@
-32,7
+32,7
@@
lispobj *current_binding_stack_pointer;
/* ALLOCATION_POINTER is x86 or RT. Anyone want to do an RT port? */
/* ALLOCATION_POINTER is x86 or RT. Anyone want to do an RT port? */
-#ifndef ALLOCATION_POINTER
+# if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64)
/* The Object Formerly Known As current_dynamic_space_free_pointer */
lispobj *dynamic_space_free_pointer;
#endif
/* The Object Formerly Known As current_dynamic_space_free_pointer */
lispobj *dynamic_space_free_pointer;
#endif
@@
-60,7
+60,7
@@
void globals_init(void)
* validate() and coreparse(). */
current_control_frame_pointer = (lispobj *)0;
* validate() and coreparse(). */
current_control_frame_pointer = (lispobj *)0;
-#ifndef LISP_FEATURE_GENCGC
+#ifndef LISP_FEATURE_GENCGC
/* no GC trigger yet */
current_auto_gc_trigger = NULL;
#endif
/* no GC trigger yet */
current_auto_gc_trigger = NULL;
#endif
@@
-69,5
+69,5
@@
void globals_init(void)
foreign_function_call_active = 1;
#if defined(LISP_FEATURE_SB_THREAD)
pthread_key_create(&specials,0);
foreign_function_call_active = 1;
#if defined(LISP_FEATURE_SB_THREAD)
pthread_key_create(&specials,0);
-#endif
+#endif
}
}