From d670533c058a9ab881e9f0e44b3dabdd69c69776 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 27 Feb 1995 00:51:49 +0000 Subject: [PATCH] Added a hack to allocate-vector to make sure the zero byte of a string is paged in. --- assembly/sparc/array.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/assembly/sparc/array.lisp b/assembly/sparc/array.lisp index b2ee183df..738dd0a5a 100644 --- a/assembly/sparc/array.lisp +++ b/assembly/sparc/array.lisp @@ -5,11 +5,11 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/array.lisp,v 1.4 1994/10/31 04:57:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/array.lisp,v 1.5 1995/02/27 00:51:49 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/array.lisp,v 1.4 1994/10/31 04:57:20 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/array.lisp,v 1.5 1995/02/27 00:51:49 wlott Exp $ ;;; ;;; This file contains the support routines for arrays and vectors. ;;; @@ -39,6 +39,9 @@ (inst srl ndescr type vm:word-shift) (storew ndescr vector 0 vm:other-pointer-type) (storew length vector vm:vector-length-slot vm:other-pointer-type)) + ;; This makes sure the zero byte at the end of a string is paged in so + ;; the kernel doesn't bitch if we pass it the string. + (storew zero-tn alloc-tn 0) (move result vector)) -- GitLab