mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Clear frame size after subr-call, return-values

Browse source 
* libguile/jit.c (compile_return_values, compile_subr_call): Clear frame
  size.
This commit is contained in:
Andy Wingo 2018-08-24 11:43:50 +02:00
parent 270147cf88
commit 5603079995
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/jit.c
View file

@ -1066,6 +1066,8 @@ compile_return_values (scm_jit_state *j)
emit_load_vra (j, ra, old_fp);
emit_store_ip (j, ra);
emit_exit (j);
j->frame_size = -1;
}
static void
@ -1103,6 +1105,8 @@ compile_subr_call (scm_jit_state *j, uint32_t idx)
emit_store_sp (j);
jit_str (SP, ret);
jit_patch (k);
j->frame_size = -1;
}
static void