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 6da8a7e8513d66a36d79be8ee9325402cca73a51..766d82df3a9b38f2e33970ad7435770e9c112363 100644 (file)
--- 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 9a918ef418c47c61545a1dbf17aa56f0cffd55f4..a9cccadbf06d9117b853b9295c6bd323223bac38 100644 (file)
--- 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")