cpu.*: the %loop-entry word is unused

diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor
index 7ab49574aa8423bcceb5b75966564a5d5d03bff9..8c1ac6d3146c33763d028c630d491d67922f352f 100644 (file)
--- a/basis/cpu/architecture/architecture.factor
+++ b/basis/cpu/architecture/architecture.factor
@@ -518,8 +518,6 @@ HOOK: %compare-float-unordered-branch cpu ( label cc src1 src2 -- )
 HOOK: %spill cpu ( src rep dst -- )
 HOOK: %reload cpu ( dst rep src -- )
 
-HOOK: %loop-entry cpu ( -- )
-
 HOOK: fused-unboxing? cpu ( -- ? )
 
 HOOK: immediate-arithmetic? cpu ( n -- ? )

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index a277e0c725fed3e67d4770a81d1cbbdd383de03d..9302f4e5b84a4834b18fa779e4c0de0b46306407 100644 (file)
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -1054,7 +1054,6 @@ M: ppc %reload ( dst rep src -- )
         { scalar-rep [ scratch-reg swap LI 1 scratch-reg LVX ] }
     } case ;
 
-M: ppc %loop-entry           ( -- ) ;
 M: ppc immediate-arithmetic? ( n -- ? ) -32768 32767 between? ;
 M: ppc immediate-bitwise?    ( n -- ? ) 0 65535 between? ;
 M: ppc immediate-store?      ( n -- ? ) immediate-comparand? ;

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 7b5e52db5217a4a66dcdf1d637ac5acc8a95cef1..ad82f3362343762191d3ee22fb62421fd03948c5 100644 (file)
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -692,8 +692,6 @@ M: x86 %callback-outputs ( reg-inputs -- )
     %end-callback
     [ first3 %store-reg-param ] each ;
 
-M: x86 %loop-entry 16 alignment [ NOP ] times ;
-
 M:: x86 %save-context ( temp1 temp2 -- )
     ! Save Factor stack pointers in case the C code calls a
     ! callback which does a GC, which must reliably trace