From c2bc222dd45e22115e052d5b9a4a76b103337786 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Wed, 28 Mar 1990 23:03:20 +0000
Subject: [PATCH] Frobbed for GC.

---
 compiler/mips/parms.lisp | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index 88b1e22b2..1ffd558ca 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.34 1990/03/26 22:53:34 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.35 1990/03/28 23:03:20 ch Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the MIPS.  This file is separate from other stuff so 
@@ -95,19 +95,11 @@
 
 ;;;; Description of the target address space.
 
-;;; Where to put the different spaces and stacks.
+;;; Where to put the different spaces.
 ;;; 
 (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.
-;;; 
-(defparameter target-heap-address-space
-  '((#x20000000 . #x50000000)))
-
 
 
 ;;;; Type definitions:
@@ -492,14 +484,10 @@
     lisp::%initial-function
     lisp::*the-undefined-function*
 
-    ;; Values needed for interfacing C and LISP.
-    lisp::*foreign-function-call-active*
-    lisp::*saved-global-pointer*
-    lisp::*saved-control-stack-pointer*
-    lisp::*saved-binding-stack-pointer*
-    lisp::*saved-allocation-pointer*
-    lisp::*saved-flags-register*
-    lisp::*static-space-allocation-pointer*
+    ;; Free Pointers
+    lisp::*read-only-space-free-pointer*
+    lisp::*static-space-free-pointer*
+    lisp::*initial-dynamic-space-free-pointer*
 
     ;; Things needed for non-local-exit.
     lisp::*current-catch-block*
-- 
GitLab