From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Apr 1990 21:21:01 +0000 (+0000)
Subject: Fix broken movb and movib instruction definitions.
X-Git-Tag: 20090517-FFI~11449
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b48315e8be680e6237c25d7eb921f206fe8538e9;p=mit-scheme.git

Fix broken movb and movib instruction definitions.
---

diff --git a/v7/src/compiler/machines/spectrum/instr2.scm b/v7/src/compiler/machines/spectrum/instr2.scm
index af82e5483..041cfde12 100644
--- a/v7/src/compiler/machines/spectrum/instr2.scm
+++ b/v7/src/compiler/machines/spectrum/instr2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/instr2.scm,v 1.1 1990/01/25 16:36:42 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/instr2.scm,v 1.2 1990/04/09 21:21:01 cph Exp $
 
 Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 
@@ -608,8 +608,8 @@ branch-extend-nullify in instr1.
 
   (defmovb&bb BVB	#x30 (reg)		    () 		#b00000)
   (defmovb&bb BB	#x31 (reg)		    ((? pos))	pos)
-  (defmovb&bb MOVB	#x32 (reg-1)		    (? reg-2)	reg-2)
-  (defmovb&bb MOVIB	#x33 (immed-5 right-signed) (? reg-2)	reg-2))
+  (defmovb&bb MOVB	#x32 (reg-1)		    ((? reg-2))	reg-2)
+  (defmovb&bb MOVIB	#x33 (immed-5 right-signed) ((? reg-2))	reg-2))
 
 ;;;; Assembler pseudo-ops