From 3ddf617144760ab5c98c92cb0aef6338267245b0 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sat, 12 Feb 2005 03:08:51 +0000 Subject: [PATCH] Oops. Bad commit. Revert to rev 1.4. --- compiler/ppc/macros.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/ppc/macros.lisp b/compiler/ppc/macros.lisp index 36d8e8dde..bd0a9459f 100644 --- a/compiler/ppc/macros.lisp +++ b/compiler/ppc/macros.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.5 2005/02/12 01:44:50 rtoy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.6 2005/02/12 03:08:51 rtoy Exp $ ;;; ;;; This file contains various useful macros for generating PC code. ;;; @@ -489,12 +489,12 @@ (progn (inst andi. ,flag-tn alloc-tn 7) (inst twi :ne ,flag-tn 0)) - (inst lr ,flag-tn 4) + (inst lr ,flag-tn (- ,n-extra 4)) (inst addi alloc-tn alloc-tn 4)) ,@forms (without-scheduling () - (inst subi ,flag-tn ,flag-tn 4) - (inst twi :ne ,flag-tn 0)) + (inst add alloc-tn alloc-tn ,flag-tn) + (inst twi :lt alloc-tn 0)) #+debug (progn (inst andi. ,flag-tn alloc-tn 7) -- GitLab