From 9bbe8a8c292815dbc6a9398063024fa33f28440e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Mon, 1 Aug 2016 06:05:38 +0200 Subject: [PATCH] cpu.*: the %loop-entry word is unused --- basis/cpu/architecture/architecture.factor | 2 -- basis/cpu/ppc/ppc.factor | 1 - basis/cpu/x86/x86.factor | 2 -- 3 files changed, 5 deletions(-) diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor index 7ab49574aa..8c1ac6d314 100644 --- 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 a277e0c725..9302f4e5b8 100644 --- 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 7b5e52db52..ad82f33623 100644 --- 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