From: Guillermo J. Rozas Date: Thu, 25 Feb 1993 02:18:00 +0000 (+0000) Subject: Export available-machine-registers and remove the disassembler. X-Git-Tag: 20090517-FFI~8466 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1a71bb44d20185f6442e61ae8ac0d316530c58cc;p=mit-scheme.git 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 30c60340f..f56e65717 100644 --- 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 4344bde22..556119691 100644 --- 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 5b9b475ff..552f6a5ba 100644 --- 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 02c618a39..7a1e7bf33 100644 --- 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 2ed581430..1f66a6cac 100644 --- 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 f9e6ecb36..b33084622 100644 --- 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