diff options
Diffstat (limited to 'libguile/jit.c')
-rw-r--r-- | libguile/jit.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index 6c7399a75..0996c6152 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -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; |