diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp index bdcdaaabc34625d7bdef1b8b085dfdfabce494c9..777be8bc2c78280cc05f5e9b35eba2e21aa9a8d3 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)