diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index 80eb5d1ecd9af178daf6083be3a40e293f1e3bed..7a0523df98c78302ea59916ba17ba1d6efe0ee03 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.13 1990/02/22 23:41:47 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.14 1990/02/23 17:58:21 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM attributes for
 ;;; the MIPS.  This file is separate from other stuff so that it can be compiled
@@ -22,8 +22,11 @@
 
 
 (export '(sc-number-limit most-positive-cost word-bits byte-bits word-shift
-	  word-bytes target-byte-order lowtag-bits lowtag-mask lowtag-limit
-	  type-bits type-mask pad-data-block even-fixnum-type
+	  word-bytes target-byte-order target-read-only-space-start
+	  target-static-space-start target-dynamic-space-start
+	  target-control-stack-start target-binding-stack-start
+	  target-heap-start target-heap-length lowtag-bits lowtag-mask
+	  lowtag-limit type-bits type-mask pad-data-block even-fixnum-type
 	  function-pointer-type other-immediate-type list-pointer-type
 	  odd-fixnum-type structure-pointer-type other-pointer-type
 	  bignum-type ratio-type single-float-type double-float-type
@@ -36,12 +39,13 @@
 	  simple-array-unsigned-byte-32-type simple-array-single-float-type
 	  simple-array-double-float-type complex-string-type
 	  complex-bit-vector-type complex-vector-type complex-array-type
-	  code-header-type function-header-type closure-function-header-type
-	  return-pc-header-type closure-header-type value-cell-header-type
-	  symbol-header-type character-type SAP-type unbound-marker-type
-	  atomic-flag interrupted-flag fixnum initial-symbols
-	  initial-symbol-offset offset-initial-symbol
-	  *assembly-unit-length* target-fasl-code-format vm-version))
+	  code-header-type function-header-type
+	  closure-function-header-type return-pc-header-type
+	  closure-header-type value-cell-header-type symbol-header-type
+	  character-type SAP-type unbound-marker-type atomic-flag
+	  interrupted-flag fixnum initial-symbols initial-symbol-offset
+	  offset-initial-symbol *assembly-unit-length*
+	  target-fasl-code-format vm-version))
 	  
 
 (eval-when (compile load eval)
@@ -80,6 +84,21 @@
   and :little-endian has the MSB last (VAX).")
 
 
+
+;;;; Description of the target address space.
+
+;;; 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)
+
+;;; How much memory to validate for lisp.
+(defconstant target-heap-start #x20000000)
+(defconstant target-heap-length #x50000000)
+
+
 
 ;;;; Type definitions: