From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Fri, 25 Mar 1988 20:36:03 +0000 (+0000)
Subject: Fixed direction of branch in rule.
X-Git-Tag: 20090517-FFI~12848
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e247c1a059ee593e93ab89d80d91cc9500d74f7f;p=mit-scheme.git

Fixed direction of branch in rule.
It was backwards.
---

diff --git a/v7/src/compiler/machines/vax/rules3.scm b/v7/src/compiler/machines/vax/rules3.scm
index 44978fa2f..b280522c3 100644
--- a/v7/src/compiler/machines/vax/rules3.scm
+++ b/v7/src/compiler/machines/vax/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules3.scm,v 4.5 1988/03/21 21:45:31 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules3.scm,v 4.6 1988/03/25 20:36:03 bal Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -191,7 +191,7 @@ MIT in each case. |#
     (let ((temp-ref (register-reference temp)))
       (LAP (MOVA L ,(indirect-reference! base offset) ,temp-ref)
 	   (CMP L ,temp-ref (R 10))
-	   (B B GEQU (@PCR ,label))
+	   (B B LSSU (@PCR ,label))
 	   (MOV L (R 10) ,temp-ref)
 	   (LABEL ,label)
 	   ,@(generate/move-frame-up* frame-size temp)))))