Split "rtypes" into two parts.

diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm
index 45d5275dd6876bc0b0960e91848da011b2220213..ba8d725fd3eae9dc0603e3645ae7ba5fb0ac9709 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.13 1987/06/24 04:50:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 1.14 1987/06/25 22:25:44 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -69,7 +69,7 @@ MIT in each case. |#
   (filename/append "base"
                   "object" "cfg1" "cfg2" "cfg3" "ctypes" "dtype1" "dtype2"
                   "dtype3" "bblock" "dfg" "rtlty1" "rtlty2" "rtlreg" "rtlcfg"
-                  "emodel" "rtypes"))
+                  "emodel" "rtypes" "regset"))
 
 (define filenames/dependency-chain/rcse
   (filename/append "front-end" "rcseht" "rcserq" "rcse1" "rcse2"))
@@ -104,8 +104,9 @@ MIT in each case. |#
  (append (filename/append "base"
                          "bblock" "cfg1" "cfg2" "cfg3" "ctypes" "dfg" "dtype1"
                          "dtype2" "dtype3" "emodel" "linear" "object" "queue"
-                         "rtlcfg" "rtlcon" "rtlexp" "rtlreg" "rtlty1" "rtlty2"
-                         "rtypes" "sets" "toplv1" "toplv2" "toplv3" "utils")
+                         "regset" "rtlcfg" "rtlcon" "rtlexp" "rtlreg" "rtlty1"
+                         "rtlty2" "rtypes" "sets" "toplv1" "toplv2" "toplv3"
+                         "utils")
         (filename/append "alpha" "dflow1" "dflow2" "dflow3" "dflow4" "dflow5"
                          "dflow6" "fggen1" "fggen2")
         (filename/append "front-end"

diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index 7845f024a6fe721288a5e75ebd5fe4b405a065e8..4cbd0c8250e241d38a1f777ce441d8e4ab15128e 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.27 1987/06/17 19:42:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.28 1987/06/25 22:29:10 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -50,7 +50,7 @@ MIT in each case. |#
       (define :files)
 
 ;      (parse-rcs-header
-;       "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.27 1987/06/17 19:42:27 cph Exp $"
+;       "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.28 1987/06/25 22:29:10 cph Exp $"
 ;       (lambda (filename version date time zone author state)
 ;       (set! :version (car version))
 ;       (set! :modification (cadr version))))
@@ -91,7 +91,8 @@ MIT in each case. |#
                 "base/rtlreg.bin"      ;RTL: registers
                 "base/rtlcfg.bin"      ;RTL: CFG types
                 "base/emodel.bin"      ;environment model
-                "base/rtypes.bin"      ;RTL analyzer datatypes
+                "base/rtypes.bin"      ;RTL Registers
+                "base/regset.bin"      ;RTL Register Sets
                 "base/pmlook.bin"      ;pattern matcher: lookup
                 "base/pmpars.bin"      ;pattern matcher: parser
                 ))