From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 19 Aug 1987 04:40:53 +0000 (+0000)
Subject: Separate opcode from operand in BUG instruction.
X-Git-Tag: 20090517-FFI~13142
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8e912a0aecd3e4f0115346640cbce65c8079290;p=mit-scheme.git

Separate opcode from operand in BUG instruction.
---

diff --git a/v7/src/compiler/machines/vax/instr1.scm b/v7/src/compiler/machines/vax/instr1.scm
index 74911b4af..bd30fdc1f 100644
--- a/v7/src/compiler/machines/vax/instr1.scm
+++ b/v7/src/compiler/machines/vax/instr1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr1.scm,v 1.3 1987/08/18 19:17:01 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/instr1.scm,v 1.4 1987/08/19 04:40:53 jinx Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -145,12 +145,12 @@ opcodes are
 
 (define-instruction BUG
   ((W (? message))
-   (BYTE (16 #xFEFF)
-	 (16 message)))
+   (BYTE (16 #xFEFF))
+   (BYTE (16 message)))
 
   ((L (? message))
-   (BYTE (16 #xFDFF)
-	 (32 message))))
+   (BYTE (16 #xFDFF))
+   (BYTE (32 message))))
 
 (define-trivial-instruction HALT #x00)