0.7.2.6:

[sbcl.git] / src / runtime / gc.c

diff --git a/src/runtime/gc.c b/src/runtime/gc.c
index 06b8d26..ee6a2da 100644 (file)
--- a/src/runtime/gc.c
+++ b/src/runtime/gc.c
@@ -28,9 +28,8 @@
 #include "interr.h"
 
 /* So you need to debug? */
-#define PRINTNOISE
-#define DEBUG_SPACE_PREDICATES
 #if 0
+#define PRINTNOISE
 #define DEBUG_SPACE_PREDICATES
 #define DEBUG_SCAVENGE_VERBOSE
 #define DEBUG_COPY_VERBOSE
@@ -511,7 +510,9 @@ scavenge_interrupt_context(os_context_t *context)
 #ifdef ARCH_HAS_NPC_REGISTER
        unsigned long npc_code_offset;
 #endif
+#ifdef DEBUG_SCAVENGE_VERBOSE
        fprintf(stderr, "Scavenging interrupt context at 0x%x\n",context);
+#endif
        /* Find the LIP's register pair and calculate its offset */
        /* before we scavenge the context. */
 #ifdef reg_LIP
@@ -535,7 +536,7 @@ scavenge_interrupt_context(os_context_t *context)
                        }
                }
        }
-#endif reg_LIP
+#endif /* reg_LIP */
 
        /* Compute the PC's offset from the start of the CODE */
        /* register. */
@@ -574,7 +575,7 @@ scavenge_interrupt_context(os_context_t *context)
        /* Fix the LIP */
        *os_context_register_addr(context, reg_LIP) =
            *os_context_register_addr(context, lip_register_pair) + lip_offset;
-#endif reg_LIP
+#endif /* reg_LIP */
        
        /* Fix the PC if it was in from space */
        if (from_space_p(*os_context_pc_addr(context)))
@@ -603,7 +604,9 @@ void scavenge_interrupt_contexts(void)
 
     index = fixnum_value(SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX));
 
+#ifdef DEBUG_SCAVENGE_VERBOSE
     fprintf(stderr, "%d interrupt contexts to scan\n",index);
+#endif
     for (i = 0; i < index; i++) {
        context = lisp_interrupt_contexts[i];
        scavenge_interrupt_context(context);