From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 20 Jul 1996 18:08:46 +0000 (+0000)
Subject: Added switch compiler:rtl-instruction-scheduling?
X-Git-Tag: 20090517-FFI~5471
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=111a94772b70dd3973f0b91fd05f01e651620308;p=mit-scheme.git

Added switch compiler:rtl-instruction-scheduling?
---

diff --git a/v8/src/compiler/base/switch.scm b/v8/src/compiler/base/switch.scm
index 7e51df6a7..fd93bd807 100644
--- a/v8/src/compiler/base/switch.scm
+++ b/v8/src/compiler/base/switch.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: switch.scm,v 1.5 1995/08/08 16:17:59 adams Exp $
+$Id: switch.scm,v 1.6 1996/07/20 18:08:36 adams Exp $
 
-Copyright (c) 1988-1994  Massachusetts Institute of Technology
+Copyright (c) 1988-1996  Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -55,6 +55,7 @@ MIT in each case. |#
 (define compiler:optimize-environments? true)
 (define compiler:analyze-side-effects? true)
 (define compiler:cse? true)
+(define compiler:rtl-instruction-scheduling? false)
 (define compiler:open-code-primitives? true)
 (define compiler:generate-kmp-files? false)
 (define compiler:kmp-output-abbreviated? true)
diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm
index 8075ef01f..4fd7c6821 100644
--- a/v8/src/compiler/base/toplev.scm
+++ b/v8/src/compiler/base/toplev.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 1.11 1995/08/08 16:20:33 adams Exp $
+$Id: toplev.scm,v 1.12 1996/07/20 18:08:46 adams Exp $
 
-Copyright (c) 1988-1995 Massachusetts Institute of Technology
+Copyright (c) 1988-1996 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -779,6 +779,24 @@ MIT in each case. |#
 				 false))
       (if compiler:code-compression?
 	  (phase/code-compression))
+      (if (and *rtl-output-all-phases?* *rtl-output-port*)
+	  (phase/rtl-file-output "Post Code-Compression"
+				 false
+				 false
+				 false
+				 *rtl-output-port*
+				 false))
+      (if compiler:rtl-instruction-scheduling?
+	  (begin
+	    (phase/rtl-instruction-scheduling)
+	    (phase/lifetime-analysis)
+	    (if (and *rtl-output-all-phases?* *rtl-output-port*)
+		(phase/rtl-file-output "Post Instruction-Scheduling"
+				       false
+				       false
+				       false
+				       *rtl-output-port*
+				       false))))
       (phase/register-allocation)
       (phase/rtl-optimization-cleanup))))
 
@@ -817,6 +835,11 @@ MIT in each case. |#
     (lambda ()
       (code-compression *rtl-graphs*))))
 
+(define (phase/rtl-instruction-scheduling)
+  (compiler-subphase "Instruction Scheduling"
+    (lambda ()
+      (rtl-instruction-scheduling *rtl-graphs*))))
+
 (define (phase/linearization-analysis)
   (compiler-subphase "Linearization Analysis"
     (lambda ()