From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 2 Dec 1994 03:01:24 +0000 (+0000)
Subject: Removed old CFG datatypes and associated variables *expressions and
X-Git-Tag: 20090517-FFI~6908
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7bc945ff94aee906edc1e011a39531fcaa324f8a;p=mit-scheme.git

Removed old CFG datatypes and associated variables *expressions and
*procedures*
---

diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm
index 6da8a7e85..766d82df3 100644
--- a/v8/src/compiler/base/toplev.scm
+++ b/v8/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 1.4 1994/11/29 02:34:07 adams Exp $
+$Id: toplev.scm,v 1.5 1994/12/02 03:00:56 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -629,9 +629,7 @@ MIT in each case. |#
 	      (*dbg-expression*)
 	      (*dbg-procedures*)
 	      (*dbg-continuations*)
-	      (*lap*)
-	      (*expressions*)
-	      (*procedures*))
+	      (*lap*))
     (fluid-let ((*input-scode*)
 		(*scode*)
 		(*kmp-program*)
@@ -666,8 +664,6 @@ MIT in each case. |#
   (set! *dbg-procedures*)
   (set! *dbg-continuations*)
   (set! *lap*)
-  (set! *expressions*)
-  (set! *procedures*)
   (set! *input-scode*)
   (set! *scode*)
   (set! *kmp-program*)
@@ -1002,7 +998,7 @@ MIT in each case. |#
 		   rtl-port
 		   lap-port))))
      
-(define cbf (make-cbf compile-bin-file/new))
-(define cf  (make-cf compile-bin-file/new))
+(define cbf (make-cbf compile-bin-file))
+(define cf  (make-cf compile-bin-file))
 (define compile-expression (make-compile-expression compile-scode/%new))
 (define compile-procedure  (make-compile-procedure compile-scode/%new))
diff --git a/v8/src/compiler/machines/spectrum/decls.scm b/v8/src/compiler/machines/spectrum/decls.scm
index 9a918ef41..a9cccadbf 100644
--- a/v8/src/compiler/machines/spectrum/decls.scm
+++ b/v8/src/compiler/machines/spectrum/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.1 1994/11/19 02:08:04 adams Exp $
+$Id: decls.scm,v 1.2 1994/12/02 03:01:24 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -334,10 +334,17 @@ MIT in each case. |#
     (file-dependency/syntax/join
      (append (filename/append "base"
 			      "toplev" "asstop" "crstop"
-			      "blocks" "cfg1" "cfg2" "cfg3" "constr"
-			      "contin" "ctypes" "debug" "enumer"
-			      "infnew" "lvalue" "object" "pmerly" "proced"
-			      "refctx" "rvalue" "scode" "sets" "subprb"
+			      ;;"blocks" 
+			      "cfg1" "cfg2" "cfg3" "constr"
+			      ;;"contin" "ctypes" 
+			      "debug" "enumer"
+			      "infnew"
+			      ;;"lvalue"
+			      "object" "pmerly"
+			      ;;"proced"
+			      ;;"refctx" "rvalue"
+			      "scode" "sets" 
+			      ;;"subprb"
 			      "switch" "utils")
 	     (filename/append "back"
 			      "asmmac" "bittop" "bitutl" "insseq" "lapgn1"
@@ -403,10 +410,15 @@ MIT in each case. |#
 
   (let* ((front-end-base
 	  (filename/append "base"
-			   "blocks" "cfg1" "cfg2" "cfg3"
-			   "contin" "ctypes" "enumer" "lvalue"
-			   "object" "proced" "rvalue"
-			   "scode" "subprb" "utils"))
+			   ;;"blocks" 
+			   "cfg1" "cfg2" "cfg3"
+			   ;;"contin" "ctypes"
+			   "enumer" "lvalue"
+			   "object"
+			   ;;"proced" "rvalue"
+			   "scode"
+			   ;;"subprb"
+			   "utils"))
 	 (midend-base
 	  (filename/append "midend"
 			   "fakeprim"  "utils"))
@@ -471,20 +483,25 @@ MIT in each case. |#
       "cfg1" "cfg3" "object")
     (define-integration-dependencies "base" "cfg3" "base" "cfg1" "cfg2")
     (define-integration-dependencies "base" "ctypes" "base"
-      "blocks" "cfg1" "cfg2" "cfg3" "contin" "lvalue" "object" "subprb")
-    (define-integration-dependencies "base" "rvalue" "base"
-      "blocks" "cfg1" "cfg2" "cfg3" "enumer" "lvalue" "object" "utils")
-    (define-integration-dependencies "base" "lvalue" "base"
-      "blocks" "object" "proced" "rvalue" "utils")
-    (define-integration-dependencies "base" "blocks" "base"
-      "enumer" "lvalue" "object" "proced" "rvalue" "scode")
-    (define-integration-dependencies "base" "proced" "base"
-      "blocks" "cfg1" "cfg2" "cfg3" "contin" "enumer" "lvalue" "object"
-      "rvalue" "utils")
-    (define-integration-dependencies "base" "contin" "base"
-      "blocks" "cfg3" "ctypes")
-    (define-integration-dependencies "base" "subprb" "base"
-      "cfg3" "contin" "enumer" "object" "proced")
+      ;;"blocks"
+      "cfg1" "cfg2" "cfg3"
+      ;;"contin" "lvalue"
+      "object"
+      ;;"subprb"
+      )
+    ;;(define-integration-dependencies "base" "rvalue" "base"
+    ;; "blocks" "cfg1" "cfg2" "cfg3" "enumer" "lvalue" "object" "utils")
+    ;;(define-integration-dependencies "base" "lvalue" "base"
+    ;;  "blocks" "object" "proced" "rvalue" "utils")
+    ;;(define-integration-dependencies "base" "blocks" "base"
+    ;;  "enumer" "lvalue" "object" "proced" "rvalue" "scode")
+    ;;(define-integration-dependencies "base" "proced" "base"
+    ;;  "blocks" "cfg1" "cfg2" "cfg3" "contin" "enumer" "lvalue" "object"
+    ;;  "rvalue" "utils")
+    ;;(define-integration-dependencies "base" "contin" "base"
+    ;;  "blocks" "cfg3" "ctypes")
+    ;;(define-integration-dependencies "base" "subprb" "base"
+    ;;  "cfg3" "contin" "enumer" "object" "proced")
 
     (define-integration-dependencies "machines/spectrum" "machin" "rtlbase"
       "rtlreg" "rtlty1" "rtlty2")