From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Thu, 15 Apr 2004 09:19:17 +0000 (+0000)
Subject: 0.8.9.43:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=43b4fa80d2db2af986feafc08797917ab591806c;p=sbcl.git

0.8.9.43:
	Normalize QSHOW (Perry Metzger sbcl-devel 2004-04-04)
	... #ifdef, not #if
---

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index c9d31c2..9400f8c 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -94,7 +94,11 @@ unsigned large_object_size = 4 * PAGE_BYTES;
 
 /* the verbosity level. All non-error messages are disabled at level 0;
  * and only a few rare messages are printed at level 1. */
-unsigned gencgc_verbose = (QSHOW ? 1 : 0);
+#ifdef QSHOW
+unsigned gencgc_verbose = 1;
+#else
+unsigned gencgc_verbose = 0;
+#endif
 
 /* FIXME: At some point enable the various error-checking things below
  * and see what they say. */
@@ -295,7 +299,7 @@ count_generation_pages(int generation)
     return count;
 }
 
-#if QSHOW
+#ifdef QSHOW
 static int
 count_dont_move_pages(void)
 {
@@ -1429,7 +1433,7 @@ sniff_code_object(struct code *code, unsigned displacement)
 	unsigned d2 = *((unsigned char *)p - 2);
 	unsigned d3 = *((unsigned char *)p - 3);
 	unsigned d4 = *((unsigned char *)p - 4);
-#if QSHOW
+#ifdef QSHOW
 	unsigned d5 = *((unsigned char *)p - 5);
 	unsigned d6 = *((unsigned char *)p - 6);
 #endif
@@ -3535,7 +3539,7 @@ garbage_collect_generation(int generation, int raise)
 	}
     }
 
-#if QSHOW
+#ifdef QSHOW
     if (gencgc_verbose > 1) {
 	int num_dont_move_pages = count_dont_move_pages();
 	fprintf(stderr,
@@ -4128,7 +4132,7 @@ gencgc_handle_wp_violation(void* fault_addr)
 {
     int  page_index = find_page_index(fault_addr);
 
-#if defined QSHOW_SIGNALS
+#ifdef QSHOW_SIGNALS
     FSHOW((stderr, "heap WP violation? fault_addr=%x, page_index=%d\n",
 	   fault_addr, page_index));
 #endif
diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index aebf164..519b46f 100644
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -298,7 +298,7 @@ interrupt_internal_error(int signal, siginfo_t *info, os_context_t *context,
 
     if (internal_errors_enabled) {
         SHOW("in interrupt_internal_error");
-#if QSHOW
+#ifdef QSHOW
 	/* Display some rudimentary debugging information about the
 	 * error, so that even if the Lisp error handler gets badly
 	 * confused, we have a chance to determine what's going on. */
diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h
index 91e205c..105dbbb 100644
--- a/src/runtime/runtime.h
+++ b/src/runtime/runtime.h
@@ -15,8 +15,9 @@
 #ifndef _SBCL_RUNTIME_H_
 #define _SBCL_RUNTIME_H_
 
-#define QSHOW 0 /* Enable low-level debugging output? */
-#if QSHOW
+/*#define QSHOW */ /* Enable low-level debugging output? */
+
+#ifdef QSHOW
 #define FSHOW(args) fprintf args
 #define SHOW(string) FSHOW((stderr, "/%s\n", string))
 #else
diff --git a/version.lisp-expr b/version.lisp-expr
index 629bd11..414e31a 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.9.42"
+"0.8.9.43"