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

Allow jit_end to fail

Browse source 
* libguile/jit.c (emit_code): Emitting a constant table might cause us
  to fail.
This commit is contained in:
Andy Wingo 2019-05-21 13:36:37 +02:00
parent 2876f054e8
commit e00936d46b
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/jit.c
View file

@ -1356,10 +1356,9 @@ emit_code (scm_jit_state *j, void (*emit) (scm_jit_state *))
emit (j);
if (!jit_has_overflow (j->jit))
size_t size;
if (!jit_has_overflow (j->jit) && jit_end (j->jit, &size))
{
size_t size;
jit_end (j->jit, &size);
ASSERT (size <= (arena->size - arena->used));
DEBUG ("mcode: %p,+%zu\n", ret, size);
arena->used += size;