Split `front-end/rtl' into two files to aid compilation.

diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm
index 67b138e4e3cc7c098e9d91e149a55e6253563ec4..2ed6a341e88d56742cf5b466db1a25ad41d22a47 100644 (file)
--- a/v7/src/compiler/machines/bobcat/decls.scm
+++ b/v7/src/compiler/machines/bobcat/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 1.2 1987/04/17 10:50:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 1.3 1987/04/21 23:51:09 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -68,7 +68,7 @@ MIT in each case. |#
 (define filenames/dependency-chain/base
   (filename/append "base"
                   "object" "cfg" "ctypes" "dtypes" "bblock" "dfg" "rtltyp"
-                  "rtlreg" "rtlcfg" "rtl" "emodel" "rtypes"))
+                  "rtlreg" "rtlcfg" "emodel" "rtypes"))
 
 (define filenames/dependency-chain/rcse
   (filename/append "front-end" "rcseht" "rcserq" "rcsesr" "rcseep" "rcse"))
@@ -92,8 +92,8 @@ MIT in each case. |#
 (file-dependency/syntax/join
  (append (filename/append "base"
                          "bblock" "cfg" "ctypes" "dfg" "dtypes" "emodel"
-                         "linear" "object" "queue" "rtl" "rtlcfg" "rtlreg"
-                         "rtltyp" "rtypes" "sets" "toplev" "utils")
+                         "linear" "object" "queue" "rtlcfg" "rtlcon" "rtlexp"
+                         "rtlreg" "rtltyp" "rtypes" "sets" "toplev" "utils")
         (filename/append "alpha" "dflow" "graphc")
         (filename/append "front-end"
                          "ralloc" "rcse" "rcseep" "rcseht" "rcserq" "rcsesa"

diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index 39e5aae54b0a580f5f4e7f9bade5d2dde45a088b..d7aba7eb0010e1becee7742b8287c4993cf694f0 100644 (file)
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.13 1987/04/17 10:55:42 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.14 1987/04/21 23:51:35 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -67,7 +67,8 @@ MIT in each case. |#
                "base/bblock"           ;Basic block datatype
                "base/dfg"              ;data flow graph
                "base/rtltyp"           ;RTL: type definitions
-               "base/rtl"              ;RTL: expression operations
+               "base/rtlexp"           ;RTL: expression operations
+               "base/rtlcon"           ;RTL: complex constructors
                "base/rtlreg"           ;RTL: registers
                "base/rtlcfg"           ;RTL: CFG types
                "base/emodel"           ;environment model
@@ -139,7 +140,7 @@ MIT in each case. |#
       (define :version)
       (define :modification)
 
-      (parse-rcs-header "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.13 1987/04/17 10:55:42 cph Exp $"
+      (parse-rcs-header "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.14 1987/04/21 23:51:35 cph Exp $"
        (lambda (filename version date time author state)
          (set! :version (car version))
          (set! :modification (cadr version))))))