diff --git a/assembly/ppc/array.lisp b/assembly/ppc/array.lisp index 7516acba2ddbae4a3b6a2dde2284a836b395c1cf..fdec7a2a9a63e478cb62e2abfa60f50b83e0295b 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))