From: Guillermo J. Rozas Date: Sun, 14 Feb 1993 00:53:30 +0000 (+0000) Subject: Fix bug introduced in last edit. X-Git-Tag: 20090517-FFI~8525 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98b7cfc5756d505e5395a396de0775741dbcabc4;p=mit-scheme.git 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 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)