From 61b22a4bdc8b8eebdb237e2585877f89d36f8ecd Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 22 Apr 2005 02:28:57 +0000
Subject: [PATCH] Don't clear out the last word of the allocated array.  It
 seems to have been causing bad things like random sigills.

---
 assembly/ppc/array.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/assembly/ppc/array.lisp b/assembly/ppc/array.lisp
index 7516acba2..fdec7a2a9 100644
--- a/assembly/ppc/array.lisp
+++ b/assembly/ppc/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/array.lisp,v 1.5 2005/04/16 14:42:19 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/array.lisp,v 1.6 2005/04/22 02:28:57 rtoy Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -39,7 +39,9 @@
     (storew length vector vm:vector-length-slot vm:other-pointer-type))
   ;; Like the sparc port, we need to touch the last word to make sure
   ;; this page is paged in.  Do we need to touch all pages?
-  (storew zero-tn alloc-tn -1)
+  ;;
+  ;; FIXME: This seems to cause some problems.  Turn it off for now.
+  ;; (storew zero-tn alloc-tn -1)
   (move result vector))
 
 
-- 
GitLab