mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 10:10:21 +02:00
Code Activity

Correct misplaced check for already visited blocks

Browse source
This commit is contained in:
pcpa 2013-10-01 13:51:01 -03:00
parent 1bd169cfa3
commit f42a251ff1
3 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/jit_print.c
View file

@ -396,14 +396,14 @@ _jit_print(jit_state_t *_jit)
continue;
case jit_code_name:
print_chr(' ');
if (node->v.p)
if (node->v.p && _jitc->emit)
print_str(node->v.n->u.p);
break;
case jit_code_note:
print_chr(' ');
if (node->v.p)
if (node->v.p && _jitc->emit)
print_str(node->v.n->u.p);
if (node->v.p && node->w.w)
if (node->v.p && _jitc->emit && node->w.w)
print_chr(':');
if (node->w.w)
print_dec(node->w.w);