From 8caa3371980a9ba193547d3d2ba6a18f86e3b75b Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 11 Jan 2002 16:27:12 +0000 Subject: [PATCH] From Eric Marsden: - the fix to the PPC backend previously discussed here in <Pine.LNX.4.30.0110261852310.13665-100000@clozure.com>: correct the calculation of which offsets can be used in an ADDI instruction --- compiler/ppc/insts.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ppc/insts.lisp b/compiler/ppc/insts.lisp index 5d554c0e3..7a393e169 100644 --- a/compiler/ppc/insts.lisp +++ b/compiler/ppc/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/ppc/insts.lisp,v 1.2 2001/02/11 16:43:19 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/insts.lisp,v 1.3 2002/01/11 16:27:12 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2003,7 +2003,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 (typep delta '(signed-byte 16)) (emit-back-patch segment 4 #'(lambda (segment posn) (assemble (segment vop) -- GitLab