Commit 852e455b authored by Raymond Toy's avatar Raymond Toy

Rename *fp-constant-0s0* to *fp-constant-0f0*

Besides the obvious, we need to update genesis to fill in the slot
with the correct value.
parent 952c3759
......@@ -430,7 +430,7 @@
;;; cases. Note these are initialise by genesis as they are needed
;;; early.
(defvar *fp-constant-0s0*)
(defvar *fp-constant-0f0*)
(defvar *fp-constant-0d0*)
;;; The current alien stack pointer; saved/restored for non-local
......@@ -914,22 +914,8 @@
(macrolet ((frob (name pkg value)
`(cold-setq (cold-intern (intern ,name ,pkg)) ,value)))
(frob "*FP-CONSTANT-0D0*" "X86" (number-to-core 0d0))
(frob "*FP-CONSTANT-1D0*" "X86" (number-to-core 1d0))
(frob "*FP-CONSTANT-0S0*" "X86" (number-to-core 0s0))
(frob "*FP-CONSTANT-1S0*" "X86" (number-to-core 1s0))
(when (c:backend-featurep :long-float)
(frob "*FP-CONSTANT-0L0*" "X86" (number-to-core 0l0))
(frob "*FP-CONSTANT-1L0*" "X86" (number-to-core 1l0))
(frob "*FP-CONSTANT-PI*" "X86" (number-to-core pi))
(frob "*FP-CONSTANT-L2T*" "X86" (number-to-core (log 10l0 2l0)))
(frob "*FP-CONSTANT-L2E*" "X86"
(log 2.718281828459045235360287471352662L0 2l0)))
(frob "*FP-CONSTANT-LG2*" "X86" (number-to-core (log 2l0 10l0)))
(frob "*FP-CONSTANT-LN2*" "X86"
(log 2l0 2.718281828459045235360287471352662L0))))
(frob "*FP-CONSTANT-0F0*" "X86" (number-to-core 0f0))
(when (c:backend-featurep :gencgc)
(frob "*SCAVENGE-READ-ONLY-SPACE*" "X86" (cold-intern nil)))))
......@@ -449,7 +449,7 @@
(:results (y :scs (descriptor-reg)))
(:generator 2
(ecase (c::constant-value (c::tn-leaf x))
(0f0 (load-symbol-value y *fp-constant-0s0*))
(0f0 (load-symbol-value y *fp-constant-0f0*))
(1f0 (load-symbol-value y *fp-constant-1s0*))
(0d0 (load-symbol-value y *fp-constant-0d0*))
......@@ -351,7 +351,7 @@
;; The FP constants
;; Multi-process support.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment