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