From: Christophe R. <cr...@us...> - 2006-03-16 12:01:46
|
Update of /cvsroot/sbcl/sbcl/src/compiler/hppa In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/hppa Modified Files: parms.lisp Log Message: 0.9.10.39: Implement and document SB-EXT:*CORE-PATHNAME*. ... communicate from runtime via SB-INT:*CORE-STRING*, rather than constructing a pathname in C. Related refactoring. ... since OS-COLD-INIT-OR-REINIT has exactly the same functionality on all currently supported platforms, move it into a common file; ... define common *common-static-symbols* and *c-callable-static-symbols* for use in constructing the per-backend *static-symbols* list, and to remove the need for maintaining a separate list of callable symbols in genesis. Index: parms.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/parms.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- parms.lisp 11 Aug 2005 14:44:16 -0000 1.10 +++ parms.lisp 16 Mar 2006 12:01:08 -0000 1.11 @@ -110,41 +110,11 @@ ;;; The fdefn objects for the static functions are loaded into static ;;; space directly after the static symbols. That way, the raw-addr ;;; can be loaded directly out of them by indirecting relative to NIL. -;;; (defparameter *static-symbols* - '(t - - ;; The C startup code must fill these in. - *posix-argv* - - ;; Functions that the C code needs to call - sb!impl::sub-gc - sb!kernel::internal-error - sb!kernel::control-stack-exhausted-error - sb!kernel::undefined-alien-variable-error - sb!kernel::undefined-alien-function-error - sb!di::handle-breakpoint - sb!impl::fdefinition-object - - ;; Free Pointers. - *read-only-space-free-pointer* - *static-space-free-pointer* - *initial-dynamic-space-free-pointer* - - ;; Things needed for non-local-exit. - *current-catch-block* - *current-unwind-protect-block* - - *binding-stack-start* - *control-stack-start* - *control-stack-end* - - ;; Interrupt Handling - *free-interrupt-context-index* - sb!unix::*interrupts-enabled* - sb!unix::*interrupt-pending* - *gc-inhibit* - *gc-pending*)) + (append + *common-static-symbols* + *c-callable-static-symbols* + '())) (defparameter *static-funs* '(length |