From 1b6e6915acd170aafa0426b586f04da4477639c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 8 Aug 2016 10:29:17 +0200
Subject: [PATCH] cpu.*: float-on-stack? word never used

---
 basis/cpu/architecture/architecture-docs.factor | 1 -
 basis/cpu/architecture/architecture.factor      | 3 ---
 basis/cpu/ppc/ppc.factor                        | 3 ---
 basis/cpu/x86/32/32.factor                      | 2 --
 basis/cpu/x86/64/64.factor                      | 2 --
 5 files changed, 11 deletions(-)

diff --git a/basis/cpu/architecture/architecture-docs.factor b/basis/cpu/architecture/architecture-docs.factor
index abaed8e185..f02b69e78f 100644
--- a/basis/cpu/architecture/architecture-docs.factor
+++ b/basis/cpu/architecture/architecture-docs.factor
@@ -371,7 +371,6 @@ $nl
 "Architecture support checks:"
 { $subsections
   complex-addressing?
-  float-on-stack?
   float-right-align-on-stack?
   fused-unboxing?
   test-instruction?
diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor
index 2d9bf8f0a3..6d75910b72 100644
--- a/basis/cpu/architecture/architecture.factor
+++ b/basis/cpu/architecture/architecture.factor
@@ -571,9 +571,6 @@ HOOK: long-long-on-stack? cpu ( -- ? )
 ! (r3, r5, etc) register.
 HOOK: long-long-odd-register? cpu ( -- ? )
 
-! If t, floats are never passed in param regs
-HOOK: float-on-stack? cpu ( -- ? )
-
 ! If t, put floats in the second word of a double word on the stack
 HOOK: float-right-align-on-stack? cpu ( -- ? )
 
diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index 477b949dc3..04a05897f2 100644
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -355,9 +355,6 @@ M: ppc return-regs ( -- regs )
 M: ppc return-struct-in-registers? ( c-type -- ? )
     lookup-c-type return-in-registers?>> ;
 
-! If t, floats are never passed in param regs
-M: ppc float-on-stack? ( -- ? ) f ;
-
 ! If t, the struct return pointer is never passed in a param reg
 M: ppc struct-return-on-stack? ( -- ? ) f ;
 
diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor
index 312b6cc2f9..6d9a92d9aa 100755
--- a/basis/cpu/x86/32/32.factor
+++ b/basis/cpu/x86/32/32.factor
@@ -219,8 +219,6 @@ M: x86.32 dummy-fp-params? f ;
 
 M: x86.32 long-long-on-stack? t ;
 
-M: x86.32 float-on-stack? t ;
-
 M: x86.32 flatten-struct-type
     call-next-method [ first t f 3array ] map ;
 
diff --git a/basis/cpu/x86/64/64.factor b/basis/cpu/x86/64/64.factor
index 916768f058..4df2ef61d9 100644
--- a/basis/cpu/x86/64/64.factor
+++ b/basis/cpu/x86/64/64.factor
@@ -120,8 +120,6 @@ M: x86.64 %safepoint
 
 M: x86.64 long-long-on-stack? f ;
 
-M: x86.64 float-on-stack? f ;
-
 M: x86.64 struct-return-on-stack? f ;
 
 M: x86.64 (cpuid) ( rax rcx regs -- )