diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 23a9a4ce7208dae0147cc0bcf89207f89a1425e8..fca6557fe9918db7339f71b9ecdd1bc47efee7ed 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 e78a7fe737121191f6d9915dfc26affabc52a030..913461e9092d849088c1390049826f04495e20bf 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 40e4d4e723da718d2a534e5dc623c47129e2d483..6c9ed2315b228d9070b0551482e51b20100ef1c0 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