From 98b7cfc5756d505e5395a396de0775741dbcabc4 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 14 Feb 1993 00:53:30 +0000
Subject: [PATCH] Fix bug introduced in last edit.
---
v7/src/compiler/machines/spectrum/instr2.scm | 26 ++++++++++----------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/v7/src/compiler/machines/spectrum/instr2.scm b/v7/src/compiler/machines/spectrum/instr2.scm
index d5e0493e6..c0a44ff3e 100644
--- a/v7/src/compiler/machines/spectrum/instr2.scm
+++ b/v7/src/compiler/machines/spectrum/instr2.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: instr2.scm,v 1.4 1993/02/13 05:37:27 gjr Exp $
+$Id: instr2.scm,v 1.5 1993/02/14 00:53:30 gjr Exp $
Copyright (c) 1987-1993 Massachusetts Institute of Technology
@@ -598,11 +598,21 @@ Note: Only those currently used by the code generator are implemented.
((defccbranch
(macro (keyword completer opcode1 opcode2 opr1)
`(define-instruction ,keyword
- ;; No @PCO form. It is a pseudo-instruction generated by the assembler
-
+ ;; No @PCO form.
+ ;; This is a pseudo-instruction used by the code-generator
(((? compl ,completer) (? ,(car opr1)) (? reg-2) (@PCR (? l)))
(VARIABLE-WIDTH
(disp `(- ,l (+ *PC* 8)))
+ ((0 #x1FFF)
+ ;; Forward branch. Nullify.
+ (LONG (6 ,opcode1) ; COMB,cc,n
+ (5 reg-2)
+ (5 ,@opr1)
+ (3 (car compl))
+ (11 disp ASSEMBLE12:X)
+ (1 1)
+ (1 disp ASSEMBLE12:Y)))
+
((#x-2000 -1)
;; Backward branch. No nullification, insert NOP.
(LONG (6 ,opcode1) ; COMB,cc
@@ -620,16 +630,6 @@ Note: Only those currently used by the code generator are implemented.
(7 #x12)
(5 #b00000)))
- ((0 #x1FFF)
- ;; Forward branch. Nullify.
- (LONG (6 ,opcode1) ; COMB,cc,n
- (5 reg-2)
- (5 ,@opr1)
- (3 (car compl))
- (11 disp ASSEMBLE12:X)
- (1 1)
- (1 disp ASSEMBLE12:Y)))
-
((() ())
(LONG (6 ,opcode2) ; COMB!,n
(5 reg-2)
--
2.25.1