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

Fixing PowerPC intrinsics

db4
Slava Pestov 2008-09-01 18:34:16 -05:00
parent c26d2fb345
commit 4be346cd9c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/cpu/ppc/intrinsics/intrinsics.factor
View File

@ -514,8 +514,8 @@ IN: cpu.ppc.intrinsics
! Alien intrinsics ! Alien intrinsics
: %alien-accessor ( quot -- ) : %alien-accessor ( quot -- )
"offset" operand dup %untag-fixnum "offset" operand dup %untag-fixnum
"offset" operand dup "alien" operand ADD "scratch" operand "offset" operand "alien" operand ADD
"value" operand "offset" operand 0 roll call ; inline "value" operand "scratch" operand 0 roll call ; inline
: alien-integer-get-template : alien-integer-get-template
H{ H{
@ -539,6 +539,7 @@ IN: cpu.ppc.intrinsics
{ unboxed-c-ptr "alien" c-ptr } { unboxed-c-ptr "alien" c-ptr }
{ f "offset" fixnum } { f "offset" fixnum }
} } } }
{ +scratch+ { "scratch" } }
{ +clobber+ { "value" "offset" } } { +clobber+ { "value" "offset" } }
} ; } ;