From df35c91ddd778b8499df41d1c98300d69bd36db7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 26 Dec 2017 01:23:52 -0500 Subject: [PATCH] Eliminate unused inerly files. --- src/compiler/machines/i386/inerly.scm | 51 ------------------------- src/compiler/machines/x86-64/inerly.scm | 51 ------------------------- 2 files changed, 102 deletions(-) delete mode 100644 src/compiler/machines/i386/inerly.scm delete mode 100644 src/compiler/machines/x86-64/inerly.scm 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 -- 2.25.1