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
basis
compiler/tests
cpu/ppc

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
: callback-8 ( -- callback )
void { } "cdecl" [
[ continue ] callcc0
] alien-callback ;
void { } "cdecl" [ [ ] in-thread yield ] alien-callback ;
[ ] [ 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
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-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-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
1 1 0 LWZ
@ -366,7 +366,7 @@ CONSTANT: ctx-reg 16
jit-restore-context
! We have changed the stack; load return address again
0 1 stack-frame lr-save + LWZ
0 1 lr-save LWZ
0 MTLR
! Call quotation