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