From c0b50de500335b9bda7561b6a991a65fcce8d671 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Thu, 9 Jul 1992 16:33:12 +0000 Subject: [PATCH] Fixed bounds check in emit-compute-inst for branch disp. --- compiler/mips/insts.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp index bdcdaaabc..777be8bc2 100644 --- a/compiler/mips/insts.lisp +++ b/compiler/mips/insts.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.40 1992/07/08 20:58:41 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.41 1992/07/09 16:33:12 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -709,7 +709,7 @@ segment 12 3 #'(lambda (segment posn delta-if-after) (let ((delta (funcall calc label posn delta-if-after))) - (when (<= (- (ash 1 16)) delta (1- (ash 1 16))) + (when (<= (- (ash 1 15)) delta (1- (ash 1 15))) (emit-back-patch segment 4 #'(lambda (segment posn) (assemble (segment vop) -- GitLab