From b2f12cf04d0044fd49ed900446f2f01e71191628 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 20 Aug 1987 19:33:30 +0000 Subject: [PATCH] Add definition of DEFINE-TRIVIAL-INSTRUCTION. --- v7/src/compiler/machines/vax/instr2.scm | 7 ++++++- v7/src/compiler/machines/vax/instr3.scm | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/vax/instr2.scm b/v7/src/compiler/machines/vax/instr2.scm index 70458f2e2..7af34c6b1 100644 --- a/v7/src/compiler/machines/vax/instr2.scm +++ b/v7/src/compiler/machines/vax/instr2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr2.scm,v 1.3 1987/08/20 18:21:57 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr2.scm,v 1.4 1987/08/20 19:33:30 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -37,6 +37,11 @@ MIT in each case. |# ;;; The ordering is essentially that in "Vax Architecture Handbook" 1981. (declare (usual-integrations)) + +(define-macro (define-trivial-instruction mnemonic opcode) + `(define-instruction ,mnemonic + (() + (BYTE (8 ,opcode))))) (define-instruction CVT ((B W (? src ea-r-b) (? dst ea-w-w)) diff --git a/v7/src/compiler/machines/vax/instr3.scm b/v7/src/compiler/machines/vax/instr3.scm index e63b3853c..8e2f878a1 100644 --- a/v7/src/compiler/machines/vax/instr3.scm +++ b/v7/src/compiler/machines/vax/instr3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr3.scm,v 1.4 1987/08/18 21:19:42 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr3.scm,v 1.5 1987/08/20 19:32:40 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -37,6 +37,11 @@ MIT in each case. |# ;;; The ordering is essentially that in "Vax Architecture Handbook" 1981. (declare (usual-integrations)) + +(define-macro (define-trivial-instruction mnemonic opcode) + `(define-instruction ,mnemonic + (() + (BYTE (8 ,opcode))))) (define-instruction ASH ((L (? cnt ea-r-b) (? src ea-r-l) (? dst ea-w-l)) -- 2.25.1