(svref *!load-time-values* (third toplevel-thing)))))
#!+(and x86 gencgc)
(:load-time-code-fixup
- (sb!vm::!do-load-time-code-fixup (second toplevel-thing)
- (third toplevel-thing)
- (fourth toplevel-thing)
- (fifth toplevel-thing)))
+ (sb!vm::!envector-load-time-code-fixup (second toplevel-thing)
+ (third toplevel-thing)
+ (fourth toplevel-thing)
+ (fifth toplevel-thing)))
(t
(!cold-lose "bogus fixup code in *!REVERSED-COLD-TOPLEVELS*"))))
(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))
;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
#!+alpha
(set-floating-point-modes :traps '(:overflow
- #!-x86 :underflow
+ #!+alpha :underflow
:invalid
:divide-by-zero))
;; disabled by default. Joe User can
;; explicitly enable them if
;; desired.
- #!-x86 :underflow))
+ #!+alpha :underflow))
;; Clear pseudo atomic in case this core wasn't compiled with
;; support.
;;
#!+sb-show
(defun hexstr (thing)
(/noshow0 "entering HEXSTR")
- (let ((addr (sb!kernel:get-lisp-obj-address thing))
+ (let ((addr (get-lisp-obj-address thing))
(str (make-string 10)))
(/noshow0 "ADDR and STR calculated")
(setf (char str 0) #\0