Add definition of DEFINE-TRIVIAL-INSTRUCTION.

diff --git a/v7/src/compiler/machines/vax/instr2.scm b/v7/src/compiler/machines/vax/instr2.scm
index 70458f2e2dcc1f94609496e7ab964cbdbf199d4e..7af34c6b154ad9a6317c798eb9fb1102d7f579c4 100644 (file)
--- 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)))))
 \f
 (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 e63b3853c7366b659c65385b731ad520ff222330..8e2f878a1dd145bce740b9e97dba5545d24fb5be 100644 (file)
--- 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)))))
 \f
 (define-instruction ASH
   ((L (? cnt ea-r-b) (? src ea-r-l) (? dst ea-w-l))