Fix bug introduced in last edit.

diff --git a/v7/src/compiler/machines/spectrum/instr2.scm b/v7/src/compiler/machines/spectrum/instr2.scm
index d5e0493e6dd71ff9f2ad72939e4d0825a34cf27f..c0a44ff3ebfacd9b0b596d882b666637b4c5e7dd 100644 (file)
--- 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)