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

Tweaking fixnum-shift-fast

db4
Slava Pestov 2008-01-12 22:57:13 -05:00
parent d54fc8172d
commit 4fb8380578
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/cpu/ppc/intrinsics/intrinsics.factor
View File

@ -185,22 +185,21 @@ IN: cpu.ppc.intrinsics
{
[
{ "positive" "end" } [ define-label ] each
{ "x" "y" } %untag-fixnums
"y" operand "out" operand swap %untag-fixnum
0 "y" operand 0 CMPI
"positive" get BGE
"y" operand dup NEG
"out" operand "x" operand "y" operand SRAW
"out" operand "x" operand "out" operand SRAW
"end" get B
"positive" resolve-label
"out" operand "x" operand "y" operand SLW
"out" operand "x" operand "out" operand SLW
"end" resolve-label
! Mask off low bits
"out" operand dup %tag-fixnum
"out" operand dup %untag
] H{
{ +input+ { { f "x" } { f "y" } } }
{ +scratch+ { { f "out" } } }
{ +output+ { "out" } }
{ +clobber+ { "x" "y" } }
}
}
} define-intrinsics