From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Dec 2001 02:37:21 +0000 (+0000)
Subject: Remove unused definitions of DEFINE-EARLY-TRANSFORMER.  Move bindings
X-Git-Tag: 20090517-FFI~2349
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fd55f4d6e9b95c01159bedc33bc5f0238a13b868;p=mit-scheme.git

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 023619976..1bba1c0ca 100644
--- 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.
 
 ;;;; 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 be2472eba..c8d366e15 100644
--- 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 b5b1f1389..f73d0df78 100644
--- 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
 
 ;;;; 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 cd49f7b83..0bbc81560 100644
--- 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 37f7ca9d6..5da4a43ed 100644
--- 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 3eb3edd8f..837916398 100644
--- 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 30e64ff31..675434a56 100644
--- 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 3c010fa0b..a9458736a 100644
--- 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
 
 ;;;; Instruction macros
 
-(define early-instructions '())
-(define early-transformers '())
 (define early-ea-database '())
 
 (syntax-table/define (->environment '(COMPILER))