From 28cc7db454ebb15293959d992ba6de33749ed61c Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 12 Feb 2005 01:44:50 +0000
Subject: [PATCH] Update to add :linkage-table and :modular-arith the the new
 backend features, since they're available on ppc now.

---
 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 06947a754..36d8e8dde 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.4 2004/08/09 03:34:54 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.5 2005/02/12 01:44:50 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 (- ,n-extra 4))
+	(inst lr ,flag-tn 4)
 	(inst addi alloc-tn alloc-tn 4))
       ,@forms
       (without-scheduling ()
-       (inst add alloc-tn alloc-tn ,flag-tn)
-       (inst twi :lt alloc-tn 0))
+       (inst subi ,flag-tn ,flag-tn 4)
+       (inst twi :ne ,flag-tn 0))
       #+debug
       (progn
 	(inst andi. ,flag-tn alloc-tn 7)
-- 
GitLab