Skip to content

Commit

Permalink
0.6.12.29:
Browse files Browse the repository at this point in the history
	cleanups pending from flaky2_branch and SB!FASL-package
		adventures, part II (more deleting)..
	..!COLD-INIT doesn't need to be a static symbol.
	..Does FDEFINITION-OBJECT need to be a static symbol? No.
	..Do we need the mysterious COLD-SETs of function
		values at the beginning of FINISH-SYMBOLS
		in genesis.lisp? No.
	..fasl version number change since !COLD-INIT is gone from
		*STATIC-SYMBOLS*
  • Loading branch information
William Harold Newman committed Jun 11, 2001
2 parents 6cbe4d8 + 30d3955 commit 0a7e5d5
Show file tree
Hide file tree
Showing 5 changed files with 6 additions and 9 deletions.
5 changes: 3 additions & 2 deletions src/code/early-fasl.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -38,7 +38,7 @@

;;; This value should be incremented when the system changes in such
;;; a way that it will no longer work reliably with old fasl files.
(defconstant +fasl-file-version+ 13)
(defconstant +fasl-file-version+ 14)
;;; 2 = sbcl-0.6.4 uses COMPILE-OR-LOAD-DEFGENERIC.
;;; 3 = sbcl-0.6.6 uses private symbol, not :EMPTY, for empty HASH-TABLE slot.
;;; 4 = sbcl-0.6.7 uses HAIRY-DATA-VECTOR-REF and HAIRY-DATA-VECTOR-SET
Expand All @@ -62,7 +62,8 @@
;;; OpenBSD port was broken from sometime before 0.6.12.11
;;; until the address space was changed)
;;; 12 = sbcl-0.6.12.22 added new SB-FASL package
;;; 13 = sbcl-0.6.12.x removed some elements from *STATIC-SYMBOLS*
;;; 13 = sbcl-0.6.12.28 removed some elements from *STATIC-SYMBOLS*
;;; 14 = sbcl-0.6.12.29 removed more elements from *STATIC-SYMBOLS*

;;; the conventional file extension for fasl files on this
;;; architecture, e.g. "x86f"
Expand Down
1 change: 0 additions & 1 deletion src/compiler/alpha/parms.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -173,7 +173,6 @@
sb!kernel::internal-error
sb!di::handle-breakpoint
sb!di::handle-function-end-breakpoint
fdefinition-object

;; free Pointers
*read-only-space-free-pointer*
Expand Down
6 changes: 2 additions & 4 deletions src/compiler/generic/genesis.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -1137,18 +1137,16 @@
;; the function values for these things?? I.e. why do we need this
;; section at all? Is it because all the FDEFINITION stuff gets in
;; the way of reading function values and is too hairy to rely on at
;; cold boot? FIXME: 5/6 of these are in *STATIC-SYMBOLS* in
;; cold boot? FIXME: Most of these are in *STATIC-SYMBOLS* in
;; parms.lisp, but %HANDLE-FUNCTION-END-BREAKPOINT is not. Why?
;; Explain.
(macrolet ((frob (symbol)
`(cold-set ',symbol
(cold-fdefinition-object (cold-intern ',symbol)))))
(frob !cold-init)
(frob maybe-gc)
(frob internal-error)
(frob sb!di::handle-breakpoint)
(frob sb!di::handle-function-end-breakpoint)
(frob fdefinition-object))
(frob sb!di::handle-function-end-breakpoint))

(cold-set '*current-catch-block* (make-fixnum-descriptor 0))
(cold-set '*current-unwind-protect-block* (make-fixnum-descriptor 0))
Expand Down
1 change: 0 additions & 1 deletion src/compiler/x86/parms.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -236,7 +236,6 @@
sb!impl::*!initial-fdefn-objects*

;; functions that the C code needs to call
sb!impl::!cold-init
maybe-gc
sb!kernel::internal-error
sb!di::handle-breakpoint
Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Original file line number Diff line number Diff line change
Expand Up @@ -15,4 +15,4 @@
;;; versions, and a string like "0.6.5.12" is used for versions which
;;; aren't released but correspond only to CVS tags or snapshots.

"0.6.12.28"
"0.6.12.29"

0 comments on commit 0a7e5d5

Please sign in to comment.