cpu.*: float-on-stack? word never used

diff --git a/basis/cpu/architecture/architecture-docs.factor b/basis/cpu/architecture/architecture-docs.factor
index abaed8e185c810f41918ac31d6b21864f3ea8b32..f02b69e78fcfda88ad670c4d07271626cc129860 100644 (file)
--- 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 2d9bf8f0a3ec048dc0083e72214f72eb8fdb1be8..6d75910b7299d9eebd1775cff531901f019fd62f 100644 (file)
--- 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 477b949dc31bdd1304e74ddf54511f61df12ab56..04a05897f2223f4a547e3332e3c086d2a2ac48e2 100644 (file)
--- 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 312b6cc2f93ef8dfaebe3608f9e162f08616139e..6d9a92d9aa6656137c4a75ae4691d87346944ff1 100755 (executable)
--- 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 916768f0585353da2cdc2ffa857c770e289d915f..4df2ef61d9c3c268fd1db4982cc70cce91d728ed 100644 (file)
--- 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 -- )