From 8c9228557e35b6deedd24000ba2bec5eaa5472a0 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 6 Dec 1988 18:49:43 +0000
Subject: [PATCH] Add a couple of fg optimizer phases: 	- compute call graph 
 - side effect analysis

---
 v7/src/compiler/machines/bobcat/compiler.pkg | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index d49a2c9e6..4ae730acf 100644
--- 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))
-- 
2.25.1