Fix cut-to-width in the presence of bad constants in dead code.

[sbcl.git] / src / runtime / cheneygc-internal.h

diff --git a/src/runtime/cheneygc-internal.h b/src/runtime/cheneygc-internal.h
index a5aa1d7..64b8a7c 100644 (file)
--- a/src/runtime/cheneygc-internal.h
+++ b/src/runtime/cheneygc-internal.h
@@ -1,3 +1,16 @@
+/*
+ * This software is part of the SBCL system. See the README file for
+ * more information.
+ *
+ * This software is derived from the CMU CL system, which was
+ * written at Carnegie Mellon University and released into the
+ * public domain. The software is in the public domain and is
+ * provided with absolutely no warranty. See the COPYING and CREDITS
+ * files for more information.
+ */
+
+#include "os.h" /* for os_context_t */
+
 extern lispobj *from_space;
 extern lispobj *from_space_free_pointer;
 
@@ -13,15 +26,15 @@ from_space_p(lispobj object)
 {
     lispobj *ptr;
 
-    /* this can be called for untagged pointers as well as for 
+    /* this can be called for untagged pointers as well as for
        descriptors, so this assertion's not applicable
        gc_assert(is_lisp_pointer(object));
     */
     ptr = (lispobj *) native_pointer(object);
 
     return ((from_space <= ptr) &&
-           (ptr < from_space_free_pointer));
-}          
+            (ptr < from_space_free_pointer));
+}
 
 boolean
 new_space_p(lispobj object)
@@ -31,20 +44,21 @@ new_space_p(lispobj object)
     /*    gc_assert(is_lisp_pointer(object)); */
 
     ptr = (lispobj *) native_pointer(object);
-               
+
     return ((new_space <= ptr) &&
-           (ptr < new_space_free_pointer));
-}          
+            (ptr < new_space_free_pointer));
+}
 
 #else
 
 #define from_space_p(ptr) \
-       ((from_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
-        (((lispobj *) ((pointer_sized_uint_t) ptr))< from_space_free_pointer))
+        ((from_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
+         (((lispobj *) ((pointer_sized_uint_t) ptr))< from_space_free_pointer))
 
 #define new_space_p(ptr) \
-       ((new_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
-        (((lispobj *) ((pointer_sized_uint_t) ptr)) < new_space_free_pointer))
+        ((new_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
+         (((lispobj *) ((pointer_sized_uint_t) ptr)) < new_space_free_pointer))
 
 #endif
 
+extern boolean cheneygc_handle_wp_violation(os_context_t*, void*);