mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
Fix again the unknown-filling of alloc-frame
* libguile/jit.c (compile_alloc_frame): Yet another fix, because I am an idiot.
This commit is contained in:
parent
d0c9d20626
commit
9574245676
1 changed files with 1 additions and 2 deletions
|
@ -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);
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue