From 22c06d21b1a5eb2ac52061f9af6cdfa6a78d7e8a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 18 Mar 1990 23:46:06 +0000
Subject: [PATCH] Changed a few constants to parameters.

Expanded the heap to #x40000 bytes.
---
 compiler/mips/parms.lisp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index 6495d3cf2..9c9a1c611 100644
--- a/compiler/mips/parms.lisp
+++ b/compiler/mips/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.27 1990/03/08 21:38:05 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.28 1990/03/18 23:46:06 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the MIPS.  This file is separate from other stuff so 
@@ -80,7 +80,7 @@
 (defconstant word-bytes (/ word-bits byte-bits)
   "Number of bytes in a word.")
 
-(defconstant target-byte-order :little-endian
+(defparameter target-byte-order :little-endian
   "The byte order of the target machine.  Should either be :big-endian
   which has the MSB first (RT) or :little-endian which has the MSB last
   (VAX).")
@@ -91,16 +91,16 @@
 
 ;;; Where to put the different spaces and stacks.
 ;;; 
-(defconstant target-read-only-space-start #x20000000)
-(defconstant target-static-space-start #x30000000)
-(defconstant target-dynamic-space-start #x40000000)
-(defconstant target-control-stack-start #x50000000)
-(defconstant target-binding-stack-start #x60000000)
+(defparameter target-read-only-space-start #x20000000)
+(defparameter target-static-space-start #x30000000)
+(defparameter target-dynamic-space-start #x40000000)
+(defparameter target-control-stack-start #x50000000)
+(defparameter target-binding-stack-start #x60000000)
 
 ;;; How much memory to validate for lisp.
 ;;; 
-(defconstant target-heap-address-space
-  '((#x40000000 . #x4000) ; Dynamic space
+(defparameter target-heap-address-space
+  '((#x40000000 . #x40000) ; Dynamic space
     (#x50000000 . #x4000) ; Control stack
     (#x60000000 . #x4000))) ; Binding stack
 
@@ -251,7 +251,7 @@
 
     ;; Static functions.
     c::two-arg-plus c::two-arg-minus c::two-arg-times c::two-arg-divide
-    c::negate
+    c::negate length
     ))
 
 (defun static-symbol-p (symbol)
-- 
GitLab