From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 5 Dec 1994 21:34:20 +0000 (+0000)
Subject: Added compiler:debug.
X-Git-Tag: 20090517-FFI~6895
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d006b0143e159bf77ce4fac50f2f4ad29042f3ac;p=mit-scheme.git

Added compiler:debug.
---

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 9fb1115e2..3ea9791c3 100644
--- a/v8/src/compiler/midend/midend.scm
+++ b/v8/src/compiler/midend/midend.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: midend.scm,v 1.4 1994/11/25 23:05:40 adams Exp $
+$Id: midend.scm,v 1.5 1994/12/05 21:34:20 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -87,7 +87,7 @@ MIT in each case. |#
 	(if *announce-phases?*
 	    (begin
 	      (newline)
-	      (write-string ";; Phase ")
+	      (write-string "    Phase ")
 	      (write this-phase)
 	      (if (memq this-phase *phases-to-omit*)
 		  (write-string " omitted (see *phases-to-omit*)"))))
@@ -380,4 +380,24 @@ MIT in each case. |#
   (internal-error "Free variable found" name))
 
 (define (unimplemented name)
-  (internal-error "Unimplemented procedure" name))
\ No newline at end of file
+  (internal-error "Unimplemented procedure" name))
+
+
+(define (compiler:debug #!optional what)
+  "
+ (compiler:debug #F)
+ (compiler:debug)
+ (compiler:debug '(phase-names...))"
+
+  (set! compiler:generate-kmp-files? #T)
+  (set! compiler:generate-rtl-files? #T)
+  (set! compiler:generate-lap-files? #T)
+
+  (cond ((default-object? what))
+        ((equal? what '#F)
+	 (set! compiler:generate-kmp-files? #F)
+	 (set! compiler:generate-rtl-files? #F)
+	 (set! compiler:generate-lap-files? #F))
+        (else
+	 (set! *phases-to-show* what))))
+