From 0b0cf6ca90709b3f040ff3c9f80c58afc22a0f2b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 7 May 1993 07:34:12 +0000
Subject: [PATCH] Changed the fasl file version to 7 when #+gengc.  Tweeked
 static symbols for gengc system.

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

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index 3c33e184c..abf4d4e1b 100644
--- a/compiler/mips/parms.lisp
+++ b/compiler/mips/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/mips/parms.lisp,v 1.107 1993/02/26 08:49:06 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.108 1993/05/07 07:34:12 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -35,7 +35,7 @@
 (setf (backend-fasl-file-type *target-backend*) "pmaxf")
 (setf (backend-fasl-file-implementation *target-backend*)
       pmax-fasl-file-implementation)
-(setf (backend-fasl-file-version *target-backend*) 6)
+(setf (backend-fasl-file-version *target-backend*) #-gengc 6 #+gengc 7)
 (setf (backend-register-save-penalty *target-backend*) 3)
 (setf (backend-byte-order *target-backend*) :little-endian)
 (setf (backend-page-size *target-backend*) 4096)
@@ -226,15 +226,17 @@
     ;; Random stuff needed for initialization.
     lisp::lisp-environment-list
     lisp::lisp-command-line-list
-    lisp::*initial-fdefn-objects*
 
     ;; Functions that the C code needs to call
-    lisp::%initial-function
     kernel::internal-error
+    mach::handle-exception
     di::handle-breakpoint
     di::handle-function-end-breakpoint
     lisp::fdefinition-object
     apply
+
+    ;; Holds a pointer to the sigcontext chain.
+    kernel::*saved-state-chain*
     ))
 
 (defparameter static-functions
-- 
GitLab