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

Fix PPC intrinsics

db4
Slava Pestov 2008-05-09 18:50:31 -05:00
parent 06f79d5f26
commit f0fda2f48f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,13 +18,13 @@ IN: cpu.ppc.intrinsics
"obj" get operand-tag - ; "obj" get operand-tag - ;
: %slot-literal-any-tag : %slot-literal-any-tag
"obj" operand "scratch" operand %untag "obj" operand "scratch1" operand %untag
"val" operand "scratch" operand "n" get cells ; "val" operand "scratch1" operand "n" get cells ;
: %slot-any : %slot-any
"obj" operand "scratch" operand %untag "obj" operand "scratch1" operand %untag
"offset" operand "n" operand 1 SRAWI "offset" operand "n" operand 1 SRAWI
"scratch" operand "val" operand "offset" operand ; "scratch1" operand "val" operand "offset" operand ;
\ slot { \ slot {
! Slot number is literal and the tag is known ! Slot number is literal and the tag is known
@ -39,7 +39,7 @@ IN: cpu.ppc.intrinsics
{ {
[ %slot-literal-any-tag LWZ ] H{ [ %slot-literal-any-tag LWZ ] H{
{ +input+ { { f "obj" } { [ small-slot? ] "n" } } } { +input+ { { f "obj" } { [ small-slot? ] "n" } } }
{ +scratch+ { { f "scratch" } { f "val" } } } { +scratch+ { { f "scratch1" } { f "val" } } }
{ +output+ { "val" } } { +output+ { "val" } }
} }
} }
@ -47,7 +47,7 @@ IN: cpu.ppc.intrinsics
{ {
[ %slot-any LWZX ] H{ [ %slot-any LWZX ] H{
{ +input+ { { f "obj" } { f "n" } } } { +input+ { { f "obj" } { f "n" } } }
{ +scratch+ { { f "val" } { f "scratch" } { f "offset" } } } { +scratch+ { { f "val" } { f "scratch1" } { f "offset" } } }
{ +output+ { "val" } } { +output+ { "val" } }
} }
} }