From b2f467683f8bc7593960a3aa279db775c2e55c1a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 9 Jun 1992 23:46:32 +0000 Subject: [PATCH] Fill in the new page-size slot in the backend structure. --- compiler/mips/parms.lisp | 5 +++-- compiler/rt/params.lisp | 3 ++- compiler/sparc/parms.lisp | 4 +++- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 23a9a4ce7..fca6557fe 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.101 1992/05/21 16:30:47 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.102 1992/06/09 23:46:07 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.101 1992/05/21 16:30:47 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.102 1992/06/09 23:46:07 wlott Exp $ ;;; ;;; This file contains some parameterizations of various VM ;;; attributes for the MIPS. This file is separate from other stuff so @@ -45,6 +45,7 @@ (setf (backend-fasl-file-version *target-backend*) 4) (setf (backend-register-save-penalty *target-backend*) 3) (setf (backend-byte-order *target-backend*) :little-endian) +(setf (backend-page-size *target-backend*) 4096) ); eval-when diff --git a/compiler/rt/params.lisp b/compiler/rt/params.lisp index e78a7fe73..913461e90 100644 --- a/compiler/rt/params.lisp +++ b/compiler/rt/params.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.12 1992/03/10 08:57:55 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.13 1992/06/09 23:46:32 wlott Exp $ ;;; ;;; This file contains some parameterizations of various VM attributes for the ;;; IBM RT. This file is separate from other stuff, so we can compile and @@ -66,6 +66,7 @@ (setf (backend-fasl-file-version *target-backend*) 1) (setf (backend-register-save-penalty *target-backend*) 3) (setf (backend-byte-order *target-backend*) :big-endian) +(setf (backend-page-size *target-backend*) 4096) ) ;eval-when diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 40e4d4e72..6c9ed2315 100644 --- a/compiler/sparc/parms.lisp +++ b/compiler/sparc/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.17 1992/05/24 15:57:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.18 1992/06/09 23:46:19 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -36,6 +36,8 @@ (setf (backend-fasl-file-version *target-backend*) 4) (setf (backend-register-save-penalty *target-backend*) 3) (setf (backend-byte-order *target-backend*) :big-endian) +(setf (backend-page-size *target-backend*) + #+mach 4096 #+sunos 8192) ); eval-when -- GitLab