From: Guillermo J. Rozas Date: Wed, 18 Nov 1992 03:55:27 +0000 (+0000) Subject: Move some back-end-dependent stuff to back/asutl. X-Git-Tag: 20090517-FFI~8750 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61f4a8d317ced665d370e4b08c3e7bd6164f54cd;p=mit-scheme.git 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 d8d6361d8..a52d28f14 100644 --- 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 8750e9377..d7ab987a4 100644 --- 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 2c0532ed5..daaf10687 100644 --- 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)) ;;;; Machine Registers diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg index 0d11b5899..4344bde22 100644 --- 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 ac18e687a..eece03a2d 100644 --- 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 8f5e38d4e..64fd64d1d 100644 --- 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)) (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 d0ab9f785..5b9b475ff 100644 --- 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 e62ac4e5b..de95968f1 100644 --- 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 189f1d154..17f9bf411 100644 --- 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. |# ;;;; 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)) ;;;; Machine registers diff --git a/v7/src/compiler/machines/mips/compiler.pkg b/v7/src/compiler/machines/mips/compiler.pkg index 9f242502f..02c618a39 100644 --- 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 ff54ab358..7bf22d200 100644 --- 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 810c57ef4..864abea14 100644 --- 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)) ;;;; Machine Registers diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg index 477acdb9d..f9e6ecb36 100644 --- 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 2b5d9eba6..0cea7d64d 100644 --- 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 b8739cad2..cf3f9625c 100644 --- 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)) (define-integrable r0 0) ; return value (define-integrable r1 1)