From 15ae4620e22a0a7aff0eebcd29f07adfd63fe3f0 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sat, 14 May 2005 02:24:01 +0000 Subject: [PATCH] Oops. OTHER-POINTER-TYPE is supposed to be LOWTAG. --- compiler/ppc/macros.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/compiler/ppc/macros.lisp b/compiler/ppc/macros.lisp index 93269502a..6ba25fa91 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.8 2005/04/16 02:03:22 rtoy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.9 2005/05/14 02:24:01 rtoy Exp $ ;;; ;;; This file contains various useful macros for generating PC code. ;;; @@ -175,14 +175,15 @@ Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly used by the body.) The body is placed inside the PSEUDO-ATOMIC, and presumably initializes the object." - (once-only ((result-tn result-tn) (temp-tn temp-tn) (flag-tn flag-tn) - (type-code type-code) (size size)) + (once-only ((result-tn result-tn) (temp-tn temp-tn) + (type-code type-code) (size size) + (lowtag lowtag) (flag-tn flag-tn)) `(pseudo-atomic (,flag-tn) (allocation ,result-tn (pad-data-block ,size) ,lowtag :temp-tn temp-tn) (when ,type-code (inst lr ,temp-tn (logior (ash (1- ,size) type-bits) ,type-code)) - (storew ,temp-tn ,result-tn 0 other-pointer-type)) + (storew ,temp-tn ,result-tn 0 ,lowtag)) ,@body))) -- GitLab