Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
952c3759
by Raymond Toy at 2021-01-03T15:33:35-08:00
-
852e455b
by Raymond Toy at 2021-01-04T09:18:59-08:00
-
18a3be34
by Raymond Toy at 2021-01-04T17:41:32+00:00
4 changed files:
- src/code/x86-vm.lisp
- src/compiler/generic/new-genesis.lisp
- src/compiler/x86/float-sse2.lisp
- src/compiler/x86/parms.lisp
Changes:
| ... | ... | @@ -430,18 +430,8 @@ |
| 430 | 430 |
;;; cases. Note these are initialise by genesis as they are needed
|
| 431 | 431 |
;;; early.
|
| 432 | 432 |
;;;
|
| 433 |
-(defvar *fp-constant-0s0*)
|
|
| 434 |
-(defvar *fp-constant-1s0*)
|
|
| 433 |
+(defvar *fp-constant-0f0*)
|
|
| 435 | 434 |
(defvar *fp-constant-0d0*)
|
| 436 |
-(defvar *fp-constant-1d0*)
|
|
| 437 |
-;;; The long-float constants.
|
|
| 438 |
-(defvar *fp-constant-0l0*)
|
|
| 439 |
-(defvar *fp-constant-1l0*)
|
|
| 440 |
-(defvar *fp-constant-pi*)
|
|
| 441 |
-(defvar *fp-constant-l2t*)
|
|
| 442 |
-(defvar *fp-constant-l2e*)
|
|
| 443 |
-(defvar *fp-constant-lg2*)
|
|
| 444 |
-(defvar *fp-constant-ln2*)
|
|
| 445 | 435 |
|
| 446 | 436 |
;;; The current alien stack pointer; saved/restored for non-local
|
| 447 | 437 |
;;; exits.
|
| ... | ... | @@ -914,22 +914,8 @@ |
| 914 | 914 |
(macrolet ((frob (name pkg value)
|
| 915 | 915 |
`(cold-setq (cold-intern (intern ,name ,pkg)) ,value)))
|
| 916 | 916 |
(frob "*FP-CONSTANT-0D0*" "X86" (number-to-core 0d0))
|
| 917 |
- (frob "*FP-CONSTANT-1D0*" "X86" (number-to-core 1d0))
|
|
| 918 |
- (frob "*FP-CONSTANT-0S0*" "X86" (number-to-core 0s0))
|
|
| 919 |
- (frob "*FP-CONSTANT-1S0*" "X86" (number-to-core 1s0))
|
|
| 920 |
- #+long-float
|
|
| 921 |
- (when (c:backend-featurep :long-float)
|
|
| 922 |
- (frob "*FP-CONSTANT-0L0*" "X86" (number-to-core 0l0))
|
|
| 923 |
- (frob "*FP-CONSTANT-1L0*" "X86" (number-to-core 1l0))
|
|
| 924 |
- (frob "*FP-CONSTANT-PI*" "X86" (number-to-core pi))
|
|
| 925 |
- (frob "*FP-CONSTANT-L2T*" "X86" (number-to-core (log 10l0 2l0)))
|
|
| 926 |
- (frob "*FP-CONSTANT-L2E*" "X86"
|
|
| 927 |
- (number-to-core
|
|
| 928 |
- (log 2.718281828459045235360287471352662L0 2l0)))
|
|
| 929 |
- (frob "*FP-CONSTANT-LG2*" "X86" (number-to-core (log 2l0 10l0)))
|
|
| 930 |
- (frob "*FP-CONSTANT-LN2*" "X86"
|
|
| 931 |
- (number-to-core
|
|
| 932 |
- (log 2l0 2.718281828459045235360287471352662L0))))
|
|
| 917 |
+ (frob "*FP-CONSTANT-0F0*" "X86" (number-to-core 0f0))
|
|
| 918 |
+ |
|
| 933 | 919 |
(when (c:backend-featurep :gencgc)
|
| 934 | 920 |
(frob "*SCAVENGE-READ-ONLY-SPACE*" "X86" (cold-intern nil)))))
|
| 935 | 921 |
|
| ... | ... | @@ -449,7 +449,7 @@ |
| 449 | 449 |
(:results (y :scs (descriptor-reg)))
|
| 450 | 450 |
(:generator 2
|
| 451 | 451 |
(ecase (c::constant-value (c::tn-leaf x))
|
| 452 |
- (0f0 (load-symbol-value y *fp-constant-0s0*))
|
|
| 452 |
+ (0f0 (load-symbol-value y *fp-constant-0f0*))
|
|
| 453 | 453 |
#+nil
|
| 454 | 454 |
(1f0 (load-symbol-value y *fp-constant-1s0*))
|
| 455 | 455 |
(0d0 (load-symbol-value y *fp-constant-0d0*))
|
| ... | ... | @@ -351,17 +351,7 @@ |
| 351 | 351 |
|
| 352 | 352 |
;; The FP constants
|
| 353 | 353 |
*fp-constant-0d0*
|
| 354 |
- *fp-constant-1d0*
|
|
| 355 |
- *fp-constant-0s0*
|
|
| 356 |
- *fp-constant-1s0*
|
|
| 357 |
- ;; Following are all long-floats.
|
|
| 358 |
- *fp-constant-0l0*
|
|
| 359 |
- *fp-constant-1l0*
|
|
| 360 |
- *fp-constant-pi*
|
|
| 361 |
- *fp-constant-l2t*
|
|
| 362 |
- *fp-constant-l2e*
|
|
| 363 |
- *fp-constant-lg2*
|
|
| 364 |
- *fp-constant-ln2*
|
|
| 354 |
+ *fp-constant-0f0*
|
|
| 365 | 355 |
|
| 366 | 356 |
;; Multi-process support.
|
| 367 | 357 |
*control-stacks*
|