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