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

More PowerPC non-optimizing compiler backend fixes

db4
Slava Pestov 2010-01-13 03:09:43 +13:00
parent 85a45d63d9
commit 988c8d0601
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tests/alien.factor
View File

@ -377,9 +377,7 @@ FUNCTION: ulonglong ffi_test_38 ( ulonglong x, ulonglong y ) ;
[ f ] [ namespace global eq? ] unit-test [ f ] [ namespace global eq? ] unit-test
: callback-8 ( -- callback ) : callback-8 ( -- callback )
void { } "cdecl" [ void { } "cdecl" [ [ ] in-thread yield ] alien-callback ;
[ continue ] callcc0
] alien-callback ;
[ ] [ callback-8 callback_test_1 ] unit-test [ ] [ callback-8 callback_test_1 ] unit-test

6
basis/cpu/ppc/bootstrap.factor
View File

@ -60,7 +60,7 @@ CONSTANT: ctx-reg 16
1 1 callback-frame-size neg STWU 1 1 callback-frame-size neg STWU
0 1 callback-frame-size lr-save + STW 0 1 callback-frame-size lr-save + STW
nv-int-regs [ cells save-int ] each-index nv-int-regs [ 4 * save-int ] each-index
nv-fp-regs [ 8 * 80 + save-fp ] each-index nv-fp-regs [ 8 * 80 + save-fp ] each-index
nv-vec-regs [ 16 * 224 + save-vec ] each-index nv-vec-regs [ 16 * 224 + save-vec ] each-index
@ -72,7 +72,7 @@ CONSTANT: ctx-reg 16
nv-vec-regs [ 16 * 224 + restore-vec ] each-index nv-vec-regs [ 16 * 224 + restore-vec ] each-index
nv-fp-regs [ 8 * 80 + restore-fp ] each-index nv-fp-regs [ 8 * 80 + restore-fp ] each-index
nv-int-regs [ cells restore-int ] each-index nv-int-regs [ 4 * restore-int ] each-index
0 1 callback-frame-size lr-save + LWZ 0 1 callback-frame-size lr-save + LWZ
1 1 0 LWZ 1 1 0 LWZ
@ -366,7 +366,7 @@ CONSTANT: ctx-reg 16
jit-restore-context jit-restore-context
! We have changed the stack; load return address again ! We have changed the stack; load return address again
0 1 stack-frame lr-save + LWZ 0 1 lr-save LWZ
0 MTLR 0 MTLR
! Call quotation ! Call quotation