mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

Update the correct fp offset and add assertions

Browse source
This commit is contained in:
pcpa 2015-04-30 10:17:17 -03:00
parent d639674549
commit e4fe5186e6
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/jit_x86-cpu.c
View file

@ -3656,6 +3656,8 @@ _vastart(jit_state_t *_jit, jit_int32_t r0)
{ {
jit_int32_t reg; jit_int32_t reg;
assert(_jitc->function->self.call & jit_call_varargs);
/* Return jit_va_list_t in the register argument */ /* Return jit_va_list_t in the register argument */
addi(r0, _RBP_REGNO, _jitc->function->vaoff); addi(r0, _RBP_REGNO, _jitc->function->vaoff);
reg = jit_get_reg(jit_class_gpr); reg = jit_get_reg(jit_class_gpr);
@ -3693,6 +3695,8 @@ _vaarg(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
jit_word_t lt_code; jit_word_t lt_code;
#endif #endif
assert(_jitc->function->self.call & jit_call_varargs);
rg0 = jit_get_reg(jit_class_gpr); rg0 = jit_get_reg(jit_class_gpr);
#if __X64 && !__CYGWIN__ #if __X64 && !__CYGWIN__
rg1 = jit_get_reg(jit_class_gpr); rg1 = jit_get_reg(jit_class_gpr);
@ -3756,6 +3760,8 @@ _vaarg_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_bool_t x87)
jit_word_t lt_code; jit_word_t lt_code;
#endif #endif
assert(_jitc->function->self.call & jit_call_varargs);
rg0 = jit_get_reg(jit_class_gpr); rg0 = jit_get_reg(jit_class_gpr);
#if __X64 && !__CYGWIN__ #if __X64 && !__CYGWIN__
rg1 = jit_get_reg(jit_class_gpr); rg1 = jit_get_reg(jit_class_gpr);
@ -3777,9 +3783,9 @@ _vaarg_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_bool_t x87)
else else
sse_ldxr_d(r0, rn(rg1), rn(rg0)); sse_ldxr_d(r0, rn(rg1), rn(rg0));
/* Update the gp (or fp) offset. */ /* Update the fp offset. */
addi(rn(rg0), rn(rg0), va_fp_increment); addi(rn(rg0), rn(rg0), va_fp_increment);
stxi_i(offsetof(jit_va_list_t, gpoff), r1, rn(rg0)); stxi_i(offsetof(jit_va_list_t, fpoff), r1, rn(rg0));
/* Will only need one temporary register below. */ /* Will only need one temporary register below. */
jit_unget_reg(rg1); jit_unget_reg(rg1);