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

Add fixnum>float intrinsic for PowerPC; speeds up spectral norm

db4
Slava Pestov 2008-01-13 00:56:31 -05:00
parent b71e07affe
commit 3fd394d06e
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -360,9 +360,10 @@ IN: cpu.ppc.intrinsics
} define-intrinsic } define-intrinsic
: define-float-op ( word op -- ) : define-float-op ( word op -- )
[ "x" operand "x" operand "y" operand ] swap add H{ [ "z" operand "x" operand "y" operand ] swap add H{
{ +input+ { { float "x" } { float "y" } } } { +input+ { { float "x" } { float "y" } } }
{ +output+ { "x" } } { +scratch+ { { float "z" } } }
{ +output+ { "z" } }
} define-intrinsic ; } define-intrinsic ;
{ {
@ -399,6 +400,23 @@ IN: cpu.ppc.intrinsics
{ +output+ { "out" } } { +output+ { "out" } }
} define-intrinsic } define-intrinsic
\ fixnum>float [
HEX: 4330 "scratch" operand LIS
"scratch" operand 1 0 param@ STW
"scratch" operand "in" operand %untag-fixnum
"scratch" operand dup HEX: 8000 XORIS
"scratch" operand 1 cell param@ STW
"f1" operand 1 0 param@ LFD
4503601774854144.0 "scratch" operand load-indirect
"f2" operand "scratch" operand float-offset LFD
"f1" operand "f1" operand "f2" operand FSUB
] H{
{ +input+ { { f "in" } } }
{ +scratch+ { { f "scratch" } { float "f1" } { float "f2" } } }
{ +output+ { "f1" } }
} define-intrinsic
\ tag [ \ tag [
"out" operand "in" operand tag-mask get ANDI "out" operand "in" operand tag-mask get ANDI
"out" operand dup %tag-fixnum "out" operand dup %tag-fixnum