Skip to content
Snippets Groups Projects
Commit c0b50de5 authored by hallgren's avatar hallgren
Browse files

Fixed bounds check in emit-compute-inst for branch disp.

parent 0680f034
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment