Remove unused definitions of DEFINE-EARLY-TRANSFORMER. Move bindings

for EARLY-TRANSFORMERS and EARLY-INSTRUCTIONS to "back/syerly.scm".

diff --git a/v7/src/compiler/back/syerly.scm b/v7/src/compiler/back/syerly.scm
index 02361997648f066f2983f6a79f18e04a1ca06413..1bba1c0ca884435adede23d802a14e06a0ba8354 100644 (file)
--- a/v7/src/compiler/back/syerly.scm
+++ b/v7/src/compiler/back/syerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syerly.scm,v 1.11 1999/01/02 06:06:43 cph Exp $
+$Id: syerly.scm,v 1.12 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -26,6 +26,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 \f
 ;;;; Early instruction assembly
 
+(define early-instructions '())
+(define early-transformers '())
+
 (define lap:syntax-instruction-expander
   (scode->scode-expander
    (lambda (operands if-expanded if-not-expanded)

diff --git a/v7/src/compiler/machines/alpha/inerly.scm b/v7/src/compiler/machines/alpha/inerly.scm
index be2472ebab1efacef681dc0445bcfe564aa8752d..c8d366e1506a9365ab5c410ea2364672ed9560e7 100644 (file)
--- a/v7/src/compiler/machines/alpha/inerly.scm
+++ b/v7/src/compiler/machines/alpha/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
+$Id: inerly.scm,v 1.5 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1992-1999, 2001 Massachusetts Institute of Technology
 
@@ -25,20 +25,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-;;;; Transformers and utilities
-
-;;; NOPs for now.
-
-(define early-instructions '())
-(define early-transformers '())
-
-(define (define-early-transformer name transformer)
-  (set! early-transformers
-       (cons (cons name transformer)
-             early-transformers)))
-
-;;; Instruction and addressing mode macros
-
 (syntax-table/define (->environment '(COMPILER))
                     'DEFINE-INSTRUCTION
   (lambda (opcode . patterns)

diff --git a/v7/src/compiler/machines/bobcat/inerly.scm b/v7/src/compiler/machines/bobcat/inerly.scm
index b5b1f1389e676ff6c56633bf3d5bd32abbebc7e8..f73d0df7827d8152ea33eb40c3714771bf7c5138 100644 (file)
--- a/v7/src/compiler/machines/bobcat/inerly.scm
+++ b/v7/src/compiler/machines/bobcat/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.9 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.10 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -26,14 +26,13 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 \f
 ;;;; Transformers and utilities
 
-(define early-instructions '())
-(define early-transformers '())
 (define early-ea-database)
 
 (define (define-early-transformer name transformer)
   (set! early-transformers
        (cons (cons name transformer)
-             early-transformers)))
+             early-transformers))
+  unspecific)
 
 (define (make-ea-transformer #!optional modes keywords)
   (make-database-transformer

diff --git a/v7/src/compiler/machines/i386/inerly.scm b/v7/src/compiler/machines/i386/inerly.scm
index cd49f7b837cdb63fdf4e2015db79176bbf94ff78..0bbc81560d72e2644bc15de8dd5d1c7fd0920ba5 100644 (file)
--- a/v7/src/compiler/machines/i386/inerly.scm
+++ b/v7/src/compiler/machines/i386/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.5 2001/12/20 02:03:21 cph Exp $
+$Id: inerly.scm,v 1.6 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1992, 1999, 2001 Massachusetts Institute of Technology
 
@@ -25,18 +25,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-;;;; Transformers and utilities
-
-(define early-instructions '())
-(define early-transformers '())
-
-(define (define-early-transformer name transformer)
-  (set! early-transformers
-       (cons (cons name transformer)
-             early-transformers)))
-
-;;; Instruction and addressing mode macros
-
 (syntax-table/define (->environment '(COMPILER LAP-SYNTAXER))
                     'DEFINE-INSTRUCTION
   (lambda (opcode . patterns)

diff --git a/v7/src/compiler/machines/mips/inerly.scm b/v7/src/compiler/machines/mips/inerly.scm
index 37f7ca9d6209ab7c204f89a0931d152febb83794..5da4a43ed82fbfed317200f2ff1d6e452e45145a 100644 (file)
--- a/v7/src/compiler/machines/mips/inerly.scm
+++ b/v7/src/compiler/machines/mips/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
+$Id: inerly.scm,v 1.5 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -25,18 +25,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-;;;; Transformers and utilities
-
-(define early-instructions '())
-(define early-transformers '())
-
-(define (define-early-transformer name transformer)
-  (set! early-transformers
-       (cons (cons name transformer)
-             early-transformers)))
-
-;;; Instruction and addressing mode macros
-
 (syntax-table/define (->environment '(COMPILER))
                     'DEFINE-INSTRUCTION
   (lambda (opcode . patterns)

diff --git a/v7/src/compiler/machines/sparc/inerly.scm b/v7/src/compiler/machines/sparc/inerly.scm
index 3eb3edd8f143623d087b9b3878420d86f35a7c8b..837916398730be5d55d8778ccb9d87c86ecb8d15 100644 (file)
--- a/v7/src/compiler/machines/sparc/inerly.scm
+++ b/v7/src/compiler/machines/sparc/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
+$Id: inerly.scm,v 1.5 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -25,18 +25,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-;;;; Transformers and utilities
-
-(define early-instructions '())
-(define early-transformers '())
-
-(define (define-early-transformer name transformer)
-  (set! early-transformers
-       (cons (cons name transformer)
-             early-transformers)))
-
-;;; Instruction and addressing mode macros
-
 (syntax-table/define (->environment '(COMPILER))
                     'DEFINE-INSTRUCTION
   (lambda (opcode . patterns)

diff --git a/v7/src/compiler/machines/spectrum/inerly.scm b/v7/src/compiler/machines/spectrum/inerly.scm
index 30e64ff31f70a5b3293f6d303a8d2ad616b17516..675434a5680ee5133301351a54ea2b77e59fbcb6 100644 (file)
--- a/v7/src/compiler/machines/spectrum/inerly.scm
+++ b/v7/src/compiler/machines/spectrum/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
+$Id: inerly.scm,v 1.5 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -25,18 +25,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-;;;; Transformers and utilities
-
-(define early-instructions '())
-(define early-transformers '())
-
-(define (define-early-transformer name transformer)
-  (set! early-transformers
-       (cons (cons name transformer)
-             early-transformers)))
-
-;;; Instruction and addressing mode macros
-
 (syntax-table/define (->environment '(COMPILER))
                     'DEFINE-INSTRUCTION
   (lambda (opcode . patterns)

diff --git a/v7/src/compiler/machines/vax/inerly.scm b/v7/src/compiler/machines/vax/inerly.scm
index 3c010fa0b28bffc8d1279dd5864ae35af2a79270..a9458736a3bd5d6bf7e928cbf5efe3324c55a0c8 100644 (file)
--- a/v7/src/compiler/machines/vax/inerly.scm
+++ b/v7/src/compiler/machines/vax/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.8 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.9 2001/12/20 02:37:21 cph Exp $
 
 Copyright (c) 1987-1999, 2001 Massachusetts Institute of Technology
 
@@ -26,8 +26,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 \f
 ;;;; Instruction macros
 
-(define early-instructions '())
-(define early-transformers '())
 (define early-ea-database '())
 
 (syntax-table/define (->environment '(COMPILER))