mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Improve JIT cleanup a bit

Browse source 
* libguile/jit.c (initialize_jit): Improve cleanup a bit.
This commit is contained in:
Andy Wingo 2018-09-05 16:35:00 +02:00
parent babd4118c2
commit cf712c0eb1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/jit.c
View file

@ -4497,12 +4497,13 @@ compute_mcode (scm_thread *thread, uint32_t *entry_ip,
} }
free (j->op_attrs); free (j->op_attrs);
j->op_attrs = NULL;
free (j->labels); free (j->labels);
j->labels = NULL; j->labels = NULL;
jit_clear_state (); jit_clear_state ();
j->jit = NULL; j->jit = NULL;
j->start = j->end = j->ip = NULL; j->start = j->end = j->ip = j->entry = NULL;
j->frame_size = -1; j->frame_size = -1;
return entry_mcode; return entry_mcode;