Add a couple of fg optimizer phases:

	- compute call graph
	- side effect analysis

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index d49a2c9e642756fd19829d1689f35176b329798d..4ae730acf9ec64dd9339aa1becc86c0a75a3c0aa 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.11 1988/11/07 13:57:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.12 1988/12/06 18:49:43 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -80,6 +80,7 @@ MIT in each case. |#
         )
   (parent ())
   (export ()
+         compiler:analyze-side-effects?
          compiler:cache-free-variables?
          compiler:code-compression?
          compiler:cse?
@@ -211,6 +212,7 @@ MIT in each case. |#
         "fgopt/closan"                 ;closure analysis
         "fgopt/envopt"                 ;environment optimization
         "fgopt/blktyp"                 ;environment type assignment
+        "fgopt/sideff"                 ;side effect analysis
         "fgopt/contan"                 ;continuation analysis
         "fgopt/simple"                 ;simplicity analysis
         "fgopt/order"                  ;subproblem ordering
@@ -220,6 +222,8 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler top-level)
+         clear-call-graph!
+         compute-call-graph!
          compute-node-offsets
          connectivity-analysis
          continuation-analysis
@@ -230,6 +234,7 @@ MIT in each case. |#
          outer-analysis
          optimize-environments!
          setup-block-types!
+         side-effect-analysis
          simplicity-analysis
          simulate-application
          subproblem-ordering))