From 952c3759e8e66952f2e23a44faffea9f19dc6d1c Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 3 Jan 2021 15:33:35 -0800 Subject: [PATCH] Fix #90: Remove unused FP static symbols on x86 We no longer support x87, so the static symbols for the long float constants aren't used anymore. And we don't use `*fp-constant-1d0*` anywhere, so we can remove the constants for 1f0 and 1d0. --- src/code/x86-vm.lisp | 10 ---------- src/compiler/x86/parms.lisp | 10 ---------- 2 files changed, 20 deletions(-) diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp index 3fd8a5f8a..3adae9862 100644 --- a/src/code/x86-vm.lisp +++ b/src/code/x86-vm.lisp @@ -431,17 +431,7 @@ ;;; early. ;;; (defvar *fp-constant-0s0*) -(defvar *fp-constant-1s0*) (defvar *fp-constant-0d0*) -(defvar *fp-constant-1d0*) -;;; The long-float constants. -(defvar *fp-constant-0l0*) -(defvar *fp-constant-1l0*) -(defvar *fp-constant-pi*) -(defvar *fp-constant-l2t*) -(defvar *fp-constant-l2e*) -(defvar *fp-constant-lg2*) -(defvar *fp-constant-ln2*) ;;; The current alien stack pointer; saved/restored for non-local ;;; exits. diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index e8837a6df..bb293e398 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -351,17 +351,7 @@ ;; The FP constants *fp-constant-0d0* - *fp-constant-1d0* *fp-constant-0s0* - *fp-constant-1s0* - ;; Following are all long-floats. - *fp-constant-0l0* - *fp-constant-1l0* - *fp-constant-pi* - *fp-constant-l2t* - *fp-constant-l2e* - *fp-constant-lg2* - *fp-constant-ln2* ;; Multi-process support. *control-stacks* -- GitLab