cvsuser 03/02/28 06:32:09
Modified: languages/imcc cfg.c
Log:
imcc-cfg-sigsegv: fixed perl6 SIGSEGV or -
All untested tests will fail.
Revision Changes Path
1.22 +2 -1 parrot/languages/imcc/cfg.c
Index: cfg.c
===================================================================
RCS file: /cvs/public/parrot/languages/imcc/cfg.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- cfg.c 28 Feb 2003 14:21:43 -0000 1.21
+++ cfg.c 28 Feb 2003 14:32:09 -0000 1.22
@@ -211,7 +211,8 @@
debug(DEBUG_CFG, "register branch %s ",
ins_string(from->end));
for (ins = from->end; ins; ins = ins->prev) {
- if ((ins->type & ITBRANCH) && !strcmp(ins->op, "set_addr")) {
+ if ((ins->type & ITBRANCH) && !strcmp(ins->op, "set_addr") &&
+ ins->r[1]->first_ins) {
bb_add_edge(from, bb_list[ins->r[1]->first_ins->bbindex]);
debug(DEBUG_CFG, "(%s) ", ins->r[1]->name);
break;
