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

Save and restore r31

db4
Slava Pestov 2008-12-16 02:06:53 -06:00
parent 425c70caa9
commit 00212bb626
1 changed files with 35 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
vm/cpu-ppc.S
View File

@ -5,44 +5,44 @@ in the public domain. */
#define DS_REG r29 #define DS_REG r29
DEF(void,primitive_fixnum_add,(void)): DEF(void,primitive_fixnum_add,(void)):
lwz r3,0(DS_REG) lwz r3,0(DS_REG)
lwz r4,-4(DS_REG) lwz r4,-4(DS_REG)
subi DS_REG,DS_REG,4 subi DS_REG,DS_REG,4
li r0,0 li r0,0
mtxer r0 mtxer r0
addo. r5,r3,r4 addo. r5,r3,r4
bso add_overflow bso add_overflow
stw r5,0(DS_REG) stw r5,0(DS_REG)
blr blr
add_overflow: add_overflow:
b MANGLE(overflow_fixnum_add) b MANGLE(overflow_fixnum_add)
DEF(void,primitive_fixnum_subtract,(void)): DEF(void,primitive_fixnum_subtract,(void)):
lwz r3,-4(DS_REG) lwz r3,-4(DS_REG)
lwz r4,0(DS_REG) lwz r4,0(DS_REG)
subi DS_REG,DS_REG,4 subi DS_REG,DS_REG,4
li r0,0 li r0,0
mtxer r0 mtxer r0
subfo. r5,r4,r3 subfo. r5,r4,r3
bso sub_overflow bso sub_overflow
stw r5,0(DS_REG) stw r5,0(DS_REG)
blr blr
sub_overflow: sub_overflow:
b MANGLE(overflow_fixnum_subtract) b MANGLE(overflow_fixnum_subtract)
DEF(void,primitive_fixnum_multiply,(void)): DEF(void,primitive_fixnum_multiply,(void)):
lwz r3,0(DS_REG) lwz r3,0(DS_REG)
lwz r4,-4(DS_REG) lwz r4,-4(DS_REG)
subi DS_REG,DS_REG,4 subi DS_REG,DS_REG,4
srawi r3,r3,3 srawi r3,r3,3
mullwo. r5,r3,r4 mullwo. r5,r3,r4
bso multiply_overflow bso multiply_overflow
stw r5,0(DS_REG) stw r5,0(DS_REG)
blr blr
multiply_overflow: multiply_overflow:
srawi r4,r4,3 srawi r4,r4,3
b MANGLE(overflow_fixnum_multiply) b MANGLE(overflow_fixnum_multiply)
/* Note that the XT is passed to the quotation in r11 */ /* Note that the XT is passed to the quotation in r11 */
#define CALL_OR_JUMP_QUOT \ #define CALL_OR_JUMP_QUOT \
lwz r11,9(r3) /* load quotation-xt slot */ XX \ lwz r11,9(r3) /* load quotation-xt slot */ XX \
@ -116,8 +116,9 @@ DEF(void,c_to_factor,(CELL quot)):
SAVE_INT(r26,13) SAVE_INT(r26,13)
SAVE_INT(r27,14) SAVE_INT(r27,14)
SAVE_INT(r28,15) SAVE_INT(r28,15)
SAVE_INT(r31,16)
SAVE_FP(f14,20) /* save FPRs */ SAVE_FP(f14,20) /* save FPRs */
SAVE_FP(f15,22) SAVE_FP(f15,22)
SAVE_FP(f16,24) SAVE_FP(f16,24)
SAVE_FP(f17,26) SAVE_FP(f17,26)
@ -141,7 +142,7 @@ DEF(void,c_to_factor,(CELL quot)):
mr r3,r1 /* pass call stack pointer as an argument */ mr r3,r1 /* pass call stack pointer as an argument */
bl MANGLE(save_callstack_bottom) bl MANGLE(save_callstack_bottom)
RESTORE_INT(r3,19) /* restore quotation */ RESTORE_INT(r3,19) /* restore quotation */
CALL_QUOT CALL_QUOT
RESTORE_FP(f31,54) RESTORE_FP(f31,54)
@ -161,9 +162,10 @@ DEF(void,c_to_factor,(CELL quot)):
RESTORE_FP(f17,26) RESTORE_FP(f17,26)
RESTORE_FP(f16,24) RESTORE_FP(f16,24)
RESTORE_FP(f15,22) RESTORE_FP(f15,22)
RESTORE_FP(f14,20) /* save FPRs */ RESTORE_FP(f14,20) /* save FPRs */
RESTORE_INT(r28,15) /* restore GPRs */ RESTORE_INT(r31,16) /* restore GPRs */
RESTORE_INT(r28,15)
RESTORE_INT(r27,14) RESTORE_INT(r27,14)
RESTORE_INT(r26,13) RESTORE_INT(r26,13)
RESTORE_INT(r25,12) RESTORE_INT(r25,12)