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

Fix ppc alien intrinsics

release
Slava Pestov 2007-09-29 21:09:10 -04:00
parent 7f7b92b4b2
commit fe780421fa
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

@ -612,14 +612,14 @@ IN: cpu.ppc.intrinsics
{ unboxed-c-ptr "alien" simple-c-ptr }
{ f "offset" fixnum }
} }
{ +scratch+ { { f "value" } { f "address" } } }
{ +scratch+ { { f "value" } } }
{ +output+ { "value" } }
{ +clobber+ { "offset" } }
} ;
: %alien-integer-get ( quot -- )
%alien-accessor
"output" operand dup %tag-fixnum ; inline
"value" operand dup %tag-fixnum ; inline
: alien-integer-set-template
H{
@ -628,7 +628,6 @@ IN: cpu.ppc.intrinsics
{ unboxed-c-ptr "alien" simple-c-ptr }
{ f "offset" fixnum }
} }
{ +scratch+ { { f "address" } } }
{ +clobber+ { "value" "offset" } }
} ;
@ -669,8 +668,8 @@ define-alien-integer-intrinsics
{ unboxed-c-ptr "alien" simple-c-ptr }
{ f "offset" fixnum }
} }
{ +scratch+ { { unboxed-alien "output" } } }
{ +output+ { "output" } }
{ +scratch+ { { unboxed-alien "value" } } }
{ +output+ { "value" } }
{ +clobber+ { "offset" } }
} define-intrinsic