From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Dec 2017 06:23:52 +0000 (-0500)
Subject: Eliminate unused inerly files.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~424^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df35c91ddd778b8499df41d1c98300d69bd36db7;p=mit-scheme.git

Eliminate unused inerly files.
---

diff --git a/src/compiler/machines/i386/inerly.scm b/src/compiler/machines/i386/inerly.scm
deleted file mode 100644
index 64d5ac674..000000000
--- a/src/compiler/machines/i386/inerly.scm
+++ /dev/null
@@ -1,51 +0,0 @@
-#| -*-Scheme-*-
-
-Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
-    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
-    2017 Massachusetts Institute of Technology
-
-This file is part of MIT/GNU Scheme.
-
-MIT/GNU Scheme is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-MIT/GNU Scheme is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with MIT/GNU Scheme; if not, write to the Free Software
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
-USA.
-
-|#
-
-;;; i386 Instruction Set Macros.  Early version
-;;; NOPs for now.
-
-(declare (usual-integrations))
-
-(define-syntax define-instruction
-  (non-hygienic-macro-transformer
-   (lambda (opcode . patterns)
-     `(SET! EARLY-INSTRUCTIONS
-	    (CONS
-	     (LIST ',opcode
-		   ,@(map (lambda (pattern)
-			    `(early-parse-rule
-			      ',(car pattern)
-			      (lambda (pat vars)
-				(early-make-rule
-				 pat
-				 vars
-				 (scode-quote
-				  (instruction->instruction-sequence
-				   ,(parse-instruction (cadr pattern)
-						       (cddr pattern)
-						       #t)))))))
-			  patterns))
-		  EARLY-INSTRUCTIONS)))))
\ No newline at end of file
diff --git a/src/compiler/machines/x86-64/inerly.scm b/src/compiler/machines/x86-64/inerly.scm
deleted file mode 100644
index b9bd850df..000000000
--- a/src/compiler/machines/x86-64/inerly.scm
+++ /dev/null
@@ -1,51 +0,0 @@
-#| -*-Scheme-*-
-
-Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
-    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
-    2017 Massachusetts Institute of Technology
-
-This file is part of MIT/GNU Scheme.
-
-MIT/GNU Scheme is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-MIT/GNU Scheme is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with MIT/GNU Scheme; if not, write to the Free Software
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
-USA.
-
-|#
-
-;;; AMD x86-64 Instruction Set Macros.  Early version
-;;; NOPs for now.
-
-(declare (usual-integrations))
-
-(define-syntax define-instruction
-  (non-hygienic-macro-transformer
-   (lambda (opcode . patterns)
-     `(SET! EARLY-INSTRUCTIONS
-	    (CONS
-	     (LIST ',opcode
-		   ,@(map (lambda (pattern)
-			    `(early-parse-rule
-			      ',(car pattern)
-			      (lambda (pat vars)
-				(early-make-rule
-				 pat
-				 vars
-				 (scode-quote
-				  (instruction->instruction-sequence
-				   ,(parse-instruction (cadr pattern)
-						       (cddr pattern)
-						       #t)))))))
-			  patterns))
-		  EARLY-INSTRUCTIONS)))))
\ No newline at end of file