From 43239cd71479e8b69b25fa9addf15ca64a881327 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 8 Mar 1996 17:19:00 +0000
Subject: [PATCH] Moved functionality of *PHASES-TO-SHOW* into
 COMPILER:GENERATE-KMP-FILES?  COMPILER:GENERATE-KMP-FILES? can now be set to
 a list of KMP phases or 'ALL, which both enables .kmp file output and
 specifies the contents.

---
 v8/src/compiler/midend/midend.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 2828827aa..0709ed801 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.19 1995/09/05 21:45:17 adams Exp $
+$Id: midend.scm,v 1.20 1996/03/08 17:19:00 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -36,7 +36,6 @@ MIT in each case. |#
 
 ;;;; Phase structure
 
-(define *phases-to-show* '())
 (define *phases-to-omit* '())
 (define *debugging?* true)
 (define *current-phase-input* false)
@@ -71,9 +70,10 @@ MIT in each case. |#
     
       (define (show? phase)
 	(and phase
-	     (let ((switch *phases-to-show*))
+	     (let ((switch compiler:generate-kmp-files?))
 	       (or (eq? switch 'ALL)
-		   (memq phase switch)))))
+		   (and (pair? switch)
+			(memq phase switch))))))
 
       (define (run-phase program)
 	(if (memq this-phase *phases-to-omit*)
@@ -475,5 +475,5 @@ Example:
 	 (set! compiler:generate-rtl-files? #F)
 	 (set! compiler:generate-lap-files? #F))
         (else
-	 (set! *phases-to-show* what))))
+	 (set! compiler:generate-kmp-files? what))))
 
-- 
2.25.1