Export available-machine-registers and remove the disassembler.

diff --git a/v7/src/compiler/machines/alpha/compiler.pkg b/v7/src/compiler/machines/alpha/compiler.pkg
index 30c60340f8719e8f53f9f2984ad3eca9a636e02e..f56e65717c0435b6f71e82f5dd2b48f21b15d0d4 100644 (file)
--- a/v7/src/compiler/machines/alpha/compiler.pkg
+++ b/v7/src/compiler/machines/alpha/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.5 1992/12/01 22:07:02 gjr Exp $
+$Id: compiler.pkg,v 1.6 1993/02/25 02:18:00 gjr Exp $
 
-Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
+Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
 
 This software was developed at the Digital Equipment Corporation
 Cambridge Research Laboratory.  Permission to copy this software, to
@@ -599,6 +599,7 @@ case.
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          fits-in-16-bits-signed?
          fits-in-16-bits-unsigned?
          top-16-of-32-bits-only?

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index 4344bde226caa7fa716d669d5dbafca7474e7233..556119691385c36b5185b2a46a3b58dd338ba3df 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.42 1992/11/18 03:46:42 gjr Exp $
+$Id: compiler.pkg,v 1.43 1993/02/25 02:16:04 gjr Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -606,6 +606,7 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          lap-generator/match-rtl-instruction
          lap:make-entry-point
          lap:make-label-statement
@@ -659,6 +660,7 @@ MIT in each case. |#
   (export (compiler top-level)
          assemble))
 
+#|
 (define-package (compiler disassembler)
   (files "machines/bobcat/dassm1"
         "machines/bobcat/dassm2"
@@ -674,4 +676,5 @@ MIT in each case. |#
          dbg-info/labels
          dbg-label/external?
          dbg-label/name
-         dbg-labels/find-offset))
\ No newline at end of file
+         dbg-labels/find-offset))
+|#
\ No newline at end of file

diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg
index 5b9b475ff1b3771e581a539cee4be43322839378..552f6a5baebd1b8a81e7b367e5d67e8f7135e76e 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.pkg
+++ b/v7/src/compiler/machines/i386/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.14 1992/11/18 03:50:07 gjr Exp $
+$Id: compiler.pkg,v 1.15 1993/02/25 02:15:14 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -603,6 +603,7 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          lap-generator/match-rtl-instruction
          lap:make-entry-point
          lap:make-label-statement
@@ -656,6 +657,7 @@ MIT in each case. |#
   (export (compiler top-level)
          assemble))
 
+#|
 (define-package (compiler disassembler)
   (files "machines/i386/dassm1"
         "machines/i386/dassm2"
@@ -671,4 +673,5 @@ MIT in each case. |#
          dbg-info/labels
          dbg-label/external?
          dbg-label/name
-         dbg-labels/find-offset))
\ No newline at end of file
+         dbg-labels/find-offset))
+|#
\ No newline at end of file

diff --git a/v7/src/compiler/machines/mips/compiler.pkg b/v7/src/compiler/machines/mips/compiler.pkg
index 02c618a39bcc363a5bae611f076e5b3c25a47809..7a1e7bf332e7271d5af9e3d13d3233b6efe4bb9f 100644 (file)
--- a/v7/src/compiler/machines/mips/compiler.pkg
+++ b/v7/src/compiler/machines/mips/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.12 1992/11/18 03:52:03 gjr Exp $
+$Id: compiler.pkg,v 1.13 1993/02/25 02:16:39 gjr Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -604,6 +604,7 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          fits-in-16-bits-signed?
          fits-in-16-bits-unsigned?
          top-16-bits-only?
@@ -660,6 +661,7 @@ MIT in each case. |#
   (export (compiler top-level)
          assemble))
 
+#|
 (define-package (compiler disassembler)
   (files "machines/mips/mips"
         "machines/mips/dassm1"
@@ -676,4 +678,5 @@ MIT in each case. |#
          dbg-info/labels
          dbg-label/external?
          dbg-label/name
-         dbg-labels/find-offset))
\ No newline at end of file
+         dbg-labels/find-offset))
+|#
\ No newline at end of file

diff --git a/v7/src/compiler/machines/spectrum/compiler.pkg b/v7/src/compiler/machines/spectrum/compiler.pkg
index 2ed5814308542016beb5ac16bfa23eca740ed445..1f66a6cac33bc49cdfe8fa7c7f98d2bee625c79e 100644 (file)
--- a/v7/src/compiler/machines/spectrum/compiler.pkg
+++ b/v7/src/compiler/machines/spectrum/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.40 1992/11/18 00:46:37 gjr Exp $
+$Id: compiler.pkg,v 1.41 1993/02/25 02:13:10 gjr Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -603,6 +603,7 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          fits-in-5-bits-signed?
          lap-generator/match-rtl-instruction
          lap:make-entry-point
@@ -657,6 +658,7 @@ MIT in each case. |#
   (export (compiler top-level)
          assemble))
 
+#|
 (define-package (compiler disassembler)
   (files "machines/spectrum/dassm1"
         "machines/spectrum/dassm2"
@@ -672,4 +674,5 @@ MIT in each case. |#
          dbg-info/labels
          dbg-label/external?
          dbg-label/name
-         dbg-labels/find-offset))
\ No newline at end of file
+         dbg-labels/find-offset))
+|#
\ No newline at end of file

diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg
index f9e6ecb36f3d915ca6dd5144f41d5c96f62cceab..b3308462233262a1052d7adaf5797f2215a07132 100644 (file)
--- a/v7/src/compiler/machines/vax/compiler.pkg
+++ b/v7/src/compiler/machines/vax/compiler.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.15 1992/11/18 03:55:27 gjr Exp $
+$Id: compiler.pkg,v 1.16 1993/02/25 02:17:31 gjr Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -598,6 +598,7 @@ MIT in each case. |#
         )
   (parent (compiler))
   (export (compiler)
+         available-machine-registers
          lap-generator/match-rtl-instruction
          lap:make-entry-point
          lap:make-label-statement
@@ -672,10 +673,12 @@ MIT in each case. |#
          dbg-label/name
          dbg-labels/find-offset))
 
+#|
 (define-package (compiler disassembler macros)
   (files "machines/vax/dsyn"
         )
   (parent (compiler disassembler))
   (export (compiler)
          disassembler-syntax-table)
-  (initialization (initialize-package!)))
\ No newline at end of file
+  (initialization (initialize-package!)))
+|#
\ No newline at end of file