steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

char-rename
Björn Lindqvist 2016-08-01 06:05:38 +02:00
parent b864d49e8c
commit 9bbe8a8c29
3 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cpu/architecture/architecture.factor
View File

@ -518,8 +518,6 @@ HOOK: %compare-float-unordered-branch cpu ( label cc src1 src2 -- )
HOOK: %spill cpu ( src rep dst -- ) HOOK: %spill cpu ( src rep dst -- )
HOOK: %reload cpu ( dst rep src -- ) HOOK: %reload cpu ( dst rep src -- )
HOOK: %loop-entry cpu ( -- )
HOOK: fused-unboxing? cpu ( -- ? ) HOOK: fused-unboxing? cpu ( -- ? )
HOOK: immediate-arithmetic? cpu ( n -- ? ) HOOK: immediate-arithmetic? cpu ( n -- ? )

1
basis/cpu/ppc/ppc.factor
View File

@ -1054,7 +1054,6 @@ M: ppc %reload ( dst rep src -- )
{ scalar-rep [ scratch-reg swap LI 1 scratch-reg LVX ] } { scalar-rep [ scratch-reg swap LI 1 scratch-reg LVX ] }
} case ; } case ;
M: ppc %loop-entry ( -- ) ;
M: ppc immediate-arithmetic? ( n -- ? ) -32768 32767 between? ; M: ppc immediate-arithmetic? ( n -- ? ) -32768 32767 between? ;
M: ppc immediate-bitwise? ( n -- ? ) 0 65535 between? ; M: ppc immediate-bitwise? ( n -- ? ) 0 65535 between? ;
M: ppc immediate-store? ( n -- ? ) immediate-comparand? ; M: ppc immediate-store? ( n -- ? ) immediate-comparand? ;

2
basis/cpu/x86/x86.factor
View File

@ -692,8 +692,6 @@ M: x86 %callback-outputs ( reg-inputs -- )
%end-callback %end-callback
[ first3 %store-reg-param ] each ; [ first3 %store-reg-param ] each ;
M: x86 %loop-entry 16 alignment [ NOP ] times ;
M:: x86 %save-context ( temp1 temp2 -- ) M:: x86 %save-context ( temp1 temp2 -- )
! Save Factor stack pointers in case the C code calls a ! Save Factor stack pointers in case the C code calls a
! callback which does a GC, which must reliably trace ! callback which does a GC, which must reliably trace