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

Fix again the unknown-filling of alloc-frame

Browse source 
* libguile/jit.c (compile_alloc_frame): Yet another fix, because I am an
  idiot.
This commit is contained in:
Andy Wingo 2018-08-24 16:19:51 +02:00
parent d0c9d20626
commit 9574245676
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/jit.c
View file

@ -1308,10 +1308,9 @@ compile_alloc_frame (scm_jit_state *j, uint32_t nlocals)
jit_node_t *head, *k, *back; jit_node_t *head, *k, *back;
jit_movi (T0, SCM_UNPACK (SCM_UNDEFINED)); jit_movi (T0, SCM_UNPACK (SCM_UNDEFINED));
k = jit_bler (T3_PRESERVED, SP); k = jit_bler (T3_PRESERVED, SP);
jit_subi (T3_PRESERVED, T3_PRESERVED, sizeof (union scm_vm_stack_element));
head = jit_label (); head = jit_label ();
jit_str (T3_PRESERVED, T0);
jit_subi (T3_PRESERVED, T3_PRESERVED, sizeof (union scm_vm_stack_element)); jit_subi (T3_PRESERVED, T3_PRESERVED, sizeof (union scm_vm_stack_element));
jit_str (T3_PRESERVED, T0);
back = jit_bner (T3_PRESERVED, SP); back = jit_bner (T3_PRESERVED, SP);
jit_patch_at (back, head); jit_patch_at (back, head);
jit_patch (k); jit_patch (k);