Move some back-end-dependent stuff to back/asutl.

The C back end has its own replacement.

diff --git a/v7/src/compiler/machines/alpha/compiler.pkg b/v7/src/compiler/machines/alpha/compiler.pkg
index d8d6361d87839d22d276b069156617b7273a5b40..a52d28f142893cf8c47df5445312aedde481438c 100644 (file)
--- a/v7/src/compiler/machines/alpha/compiler.pkg
+++ b/v7/src/compiler/machines/alpha/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.3 1992/11/14 17:24:28 gjr Exp $
+$Id: compiler.pkg,v 1.4 1992/11/18 03:52:52 gjr Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -48,6 +48,7 @@ case.
         "base/scode"                   ;SCode abstraction
         "rtlbase/valclass"             ;RTL: value classes
         "machines/alpha/machin"        ;machine dependent stuff
+        "back/asutl"                   ;back-end odds and ends
         "base/utils"                   ;odds and ends
 
         "base/cfg1"                    ;control flow graph

diff --git a/v7/src/compiler/machines/alpha/decls.scm b/v7/src/compiler/machines/alpha/decls.scm
index 8750e9377f57b5db35ea6eb2df63e2fbd0667355..d7ab987a44255755ea828d7abfe638494209565c 100644 (file)
--- a/v7/src/compiler/machines/alpha/decls.scm
+++ b/v7/src/compiler/machines/alpha/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.2 1992/10/19 20:13:46 jinx Exp $
+$Id: decls.scm,v 1.3 1992/11/18 03:53:38 gjr Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -399,7 +399,8 @@ case.
                           "object" "proced" "rvalue"
                           "scode" "subprb" "utils"))
         (alpha-base
-         (filename/append "machines/alpha" "machin"))
+         (append (filename/append "machines/alpha" "machin")
+                 (filename/append "back" "asutl")))
         (rtl-base
          (filename/append "rtlbase"
                           "regset" "rgraph" "rtlcfg" "rtlobj"
@@ -449,6 +450,7 @@ case.
        (string-append directory "/" name)
        (apply filename/append directory* names)))
 
+    (define-integration-dependencies "machines/alpha" "machin" "back" "asutl")
     (define-integration-dependencies "base" "object" "base" "enumer")
     (define-integration-dependencies "base" "enumer" "base" "object")
     (define-integration-dependencies "base" "utils" "base" "scode")

diff --git a/v7/src/compiler/machines/alpha/machin.scm b/v7/src/compiler/machines/alpha/machin.scm
index 2c0532ed5fce8a9cf8ddc29fc6aa8f175561140f..daaf10687a845a8a135acc653ffdbec5c4b06268 100644 (file)
--- a/v7/src/compiler/machines/alpha/machin.scm
+++ b/v7/src/compiler/machines/alpha/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.2 1992/11/08 04:12:22 jinx Exp $
+$Id: machin.scm,v 1.3 1992/11/18 03:52:32 gjr Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -119,12 +119,6 @@ case.
 (define (closure-environment-adjustment nentries entry)
   nentries entry                       ; ignored
   0)
-
-(define-integrable (byte-offset:zero? obj)
-  (zero? obj))
-
-(define-integrable (byte-offset:- x y)
-  (- x y))
 \f
 ;;;; Machine Registers
 

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index 0d11b58997f4fb664111dd0f3ac626e88d892c01..4344bde226caa7fa716d669d5dbafca7474e7233 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.41 1992/11/14 17:22:55 gjr Exp $
+$Id: compiler.pkg,v 1.42 1992/11/18 03:46:42 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -45,6 +45,7 @@ MIT in each case. |#
         "base/mvalue"                  ;multiple-value support
         "base/scode"                   ;SCode abstraction
         "machines/bobcat/machin"       ;machine dependent stuff
+        "back/asutl"                   ;back-end odds and ends
         "base/utils"                   ;odds and ends
 
         "base/cfg1"                    ;control flow graph

diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm
index ac18e687a8751a3585a660fe79f7e5e542007662..eece03a2d1d89069c3010e0d011b48390a7a9d5f 100644 (file)
--- a/v7/src/compiler/machines/bobcat/decls.scm
+++ b/v7/src/compiler/machines/bobcat/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 4.32 1992/10/19 20:13:01 jinx Exp $
+$Id: decls.scm,v 4.33 1992/11/18 03:47:33 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -397,7 +397,8 @@ MIT in each case. |#
                          "object" "proced" "rvalue"
                          "scode" "subprb" "utils"))
        (bobcat-base
-        (filename/append "machines/bobcat" "machin"))
+        (append (filename/append "machines/spectrum" "machin")
+                 (filename/append "back" "asutl")))
        (rtl-base
         (filename/append "rtlbase"
                          "rgraph" "rtlcfg" "rtlobj" "rtlreg" "rtlty1"
@@ -447,6 +448,7 @@ MIT in each case. |#
        (string-append directory "/" name)
        (apply filename/append directory* names)))
 
+    (define-integration-dependencies "machines/bobcat" "machin" "back" "asutl")
     (define-integration-dependencies "base" "object" "base" "enumer")
     (define-integration-dependencies "base" "enumer" "base" "object")
     (define-integration-dependencies "base" "utils" "base" "scode")

diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm
index 8f5e38d4e079ab25d122090fce56dea560d78a4e..64fd64d1d1e02a66a104bb531223a0e4135a414c 100644 (file)
--- a/v7/src/compiler/machines/bobcat/machin.scm
+++ b/v7/src/compiler/machines/bobcat/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 4.27 1992/11/08 04:10:31 jinx Exp $
+$Id: machin.scm,v 4.28 1992/11/18 03:47:54 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -213,12 +213,6 @@ MIT in each case. |#
 
 (define/format-dependent closure-environment-adjustment)
 )
-
-(define-integrable (byte-offset:zero? obj)
-  (zero? obj))
-
-(define-integrable (byte-offset:- x y)
-  (- x y))
 \f
 (define-integrable d0 0)
 (define-integrable d1 1)

diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg
index d0ab9f785f06d4e0da4ac8c0fde1070d1f1d0876..5b9b475ff1b3771e581a539cee4be43322839378 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.pkg
+++ b/v7/src/compiler/machines/i386/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.13 1992/11/14 17:23:19 gjr Exp $
+$Id: compiler.pkg,v 1.14 1992/11/18 03:50:07 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -45,6 +45,7 @@ MIT in each case. |#
         "base/mvalue"                  ;multiple-value support
         "base/scode"                   ;SCode abstraction
         "machines/i386/machin"         ;machine dependent stuff
+        "back/asutl"                   ;back-end odds and ends
         "base/utils"                   ;odds and ends
 
         "base/cfg1"                    ;control flow graph

diff --git a/v7/src/compiler/machines/i386/decls.scm b/v7/src/compiler/machines/i386/decls.scm
index e62ac4e5b2fd29e92631f0918d24cd63faee6557..de95968f10e53aaa8627b07df24f40e72fce4ca2 100644 (file)
--- a/v7/src/compiler/machines/i386/decls.scm
+++ b/v7/src/compiler/machines/i386/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.3 1992/10/19 20:13:24 jinx Exp $
+$Id: decls.scm,v 1.4 1992/11/18 03:50:59 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -396,7 +396,8 @@ MIT in each case. |#
                           "object" "proced" "rvalue"
                           "scode" "subprb" "utils"))
         (i386-base
-         (filename/append "machines/i386" "machin"))
+         (append (filename/append "machines/i386" "machin")
+                 (filename/append "back" "asutl")))
         (rtl-base
          (filename/append "rtlbase"
                           "rgraph" "rtlcfg" "rtlobj" "rtlreg" "rtlty1"
@@ -446,6 +447,7 @@ MIT in each case. |#
        (string-append directory "/" name)
        (apply filename/append directory* names)))
 
+    (define-integration-dependencies "machines/i386" "machin" "back" "asutl")
     (define-integration-dependencies "base" "object" "base" "enumer")
     (define-integration-dependencies "base" "enumer" "base" "object")
     (define-integration-dependencies "base" "utils" "base" "scode")

diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm
index 189f1d15449c28797ae988938d4e56d419706a0c..17f9bf4117b39df42ade2183bd3224174dee084a 100644 (file)
--- a/v7/src/compiler/machines/i386/machin.scm
+++ b/v7/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.14 1992/11/08 04:12:02 jinx Exp $
+$Id: machin.scm,v 1.15 1992/11/18 03:49:35 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -39,7 +39,6 @@ MIT in each case. |#
 \f
 ;;;; Architecture Parameters
 
-;; **** Does this apply to the stack as well? ****
 (define use-pre/post-increment? false)
 (define-integrable endianness 'LITTLE)
 (define-integrable addressing-granularity 8)
@@ -120,12 +119,6 @@ MIT in each case. |#
 (define (closure-environment-adjustment nentries entry)
   (declare (integrate-operator closure-entry-distance))
   (closure-entry-distance nentries entry 0))
-
-(define-integrable (byte-offset:zero? obj)
-  (zero? obj))
-
-(define-integrable (byte-offset:- x y)
-  (- x y))
 \f
 ;;;; Machine registers
 

diff --git a/v7/src/compiler/machines/mips/compiler.pkg b/v7/src/compiler/machines/mips/compiler.pkg
index 9f242502f42b86cb87b56080b5215badd513cb2b..02c618a39bcc363a5bae611f076e5b3c25a47809 100644 (file)
--- a/v7/src/compiler/machines/mips/compiler.pkg
+++ b/v7/src/compiler/machines/mips/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.11 1992/11/14 17:23:44 gjr Exp $
+$Id: compiler.pkg,v 1.12 1992/11/18 03:52:03 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -46,6 +46,7 @@ MIT in each case. |#
         "base/scode"                   ;SCode abstraction
         "rtlbase/valclass"             ;RTL: value classes
         "machines/mips/machin"         ;machine dependent stuff
+        "back/asutl"                   ;back-end odds and ends
         "base/utils"                   ;odds and ends
 
         "base/cfg1"                    ;control flow graph

diff --git a/v7/src/compiler/machines/mips/decls.scm b/v7/src/compiler/machines/mips/decls.scm
index ff54ab358691eb1c0cdab4218350ec7aac9cf39c..7bf22d200970f88ba0b28f10c778ba819378d0ab 100644 (file)
--- a/v7/src/compiler/machines/mips/decls.scm
+++ b/v7/src/compiler/machines/mips/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.6 1992/10/19 20:12:50 jinx Exp $
+$Id: decls.scm,v 1.7 1992/11/18 03:51:47 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -397,7 +397,8 @@ MIT in each case. |#
                           "object" "proced" "rvalue"
                           "scode" "subprb" "utils"))
         (mips-base
-         (filename/append "machines/mips" "machin"))
+         (append (filename/append "machines/mips" "machin")
+                 (filename/append "back" "asutl")))
         (rtl-base
          (filename/append "rtlbase"
                           "regset" "rgraph" "rtlcfg" "rtlobj"
@@ -447,6 +448,7 @@ MIT in each case. |#
        (string-append directory "/" name)
        (apply filename/append directory* names)))
 
+    (define-integration-dependencies "machines/mips" "machin" "back" "asutl")
     (define-integration-dependencies "base" "object" "base" "enumer")
     (define-integration-dependencies "base" "enumer" "base" "object")
     (define-integration-dependencies "base" "utils" "base" "scode")

diff --git a/v7/src/compiler/machines/mips/machin.scm b/v7/src/compiler/machines/mips/machin.scm
index 810c57ef4af8005595a15f6a8d4dfb25fc7cdbce..864abea14acc0cfd48a0b7c1d8035c45e518a95e 100644 (file)
--- a/v7/src/compiler/machines/mips/machin.scm
+++ b/v7/src/compiler/machines/mips/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.8 1992/11/08 04:11:28 jinx Exp $
+$Id: machin.scm,v 1.9 1992/11/18 03:52:14 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -115,12 +115,6 @@ MIT in each case. |#
 (define (closure-environment-adjustment nentries entry)
   nentries entry                       ; ignored
   0)
-
-(define-integrable (byte-offset:zero? obj)
-  (zero? obj))
-
-(define-integrable (byte-offset:- x y)
-  (- x y))
 \f
 ;;;; Machine Registers
 

diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg
index 477acdb9dd8bf10c4a5d0840f2d9a2359d820477..f9e6ecb36f3d915ca6dd5144f41d5c96f62cceab 100644 (file)
--- a/v7/src/compiler/machines/vax/compiler.pkg
+++ b/v7/src/compiler/machines/vax/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.14 1992/11/14 17:24:05 gjr Exp $
+$Id: compiler.pkg,v 1.15 1992/11/18 03:55:27 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -45,6 +45,7 @@ MIT in each case. |#
         "base/mvalue"                  ;multiple-value support
         "base/scode"                   ;SCode abstraction
         "machines/vax/machin"          ;machine dependent stuff
+        "back/asutl"                   ;back-end odds and ends
         "base/utils"                   ;odds and ends
 
         "base/cfg1"                    ;control flow graph

diff --git a/v7/src/compiler/machines/vax/decls.scm b/v7/src/compiler/machines/vax/decls.scm
index 2b5d9eba65423ac0ded08ffda2e1cc1ab57ee938..0cea7d64d80c13649b829b0b00ec5e40a3aad236 100644 (file)
--- a/v7/src/compiler/machines/vax/decls.scm
+++ b/v7/src/compiler/machines/vax/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 4.9 1992/10/19 20:13:10 jinx Exp $
+$Id: decls.scm,v 4.10 1992/11/18 03:54:51 gjr Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -400,7 +400,8 @@ MIT in each case. |#
                          "object" "proced" "rvalue"
                          "scode" "subprb" "utils"))
        (vax-base
-        (filename/append "machines/vax" "machin"))
+        (append (filename/append "machines/vax" "machin")
+                 (filename/append "back" "asutl")))
        (rtl-base
         (filename/append "rtlbase"
                          "rgraph" "rtlcfg" "rtlobj" "rtlreg" "rtlty1"
@@ -449,6 +450,7 @@ MIT in each case. |#
        (string-append directory "/" name)
        (apply filename/append directory* names)))
 
+    (define-integration-dependencies "machines/vax" "machin" "back" "asutl")
     (define-integration-dependencies "base" "object" "base" "enumer")
     (define-integration-dependencies "base" "enumer" "base" "object")
     (define-integration-dependencies "base" "utils" "base" "scode")

diff --git a/v7/src/compiler/machines/vax/machin.scm b/v7/src/compiler/machines/vax/machin.scm
index b8739cad2012858f7edbf9f0f821df778488562a..cf3f9625cc168503d0a8938c592275e30d2fac8d 100644 (file)
--- a/v7/src/compiler/machines/vax/machin.scm
+++ b/v7/src/compiler/machines/vax/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 4.9 1992/11/08 04:11:05 jinx Exp $
+$Id: machin.scm,v 4.10 1992/11/18 03:55:03 gjr Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -119,12 +119,6 @@ MIT in each case. |#
 (define (closure-environment-adjustment nentries entry)
   (declare (integrate-operator closure-entry-distance))
   (closure-entry-distance nentries entry 0))
-
-(define-integrable (byte-offset:zero? obj)
-  (zero? obj))
-
-(define-integrable (byte-offset:- x y)
-  (- x y))
 \f
 (define-integrable r0 0)               ; return value
 (define-integrable r1 1)