cvsuser 03/12/10 12:50:26
Modified: imcc pcc.c
Log:
Switch the order of tests to avoid a segfault
Revision Changes Path
1.38 +2 -1 parrot/imcc/pcc.c
Index: pcc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/pcc.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -w -r1.37 -r1.38
--- pcc.c 6 Dec 2003 15:22:45 -0000 1.37
+++ pcc.c 10 Dec 2003 20:50:26 -0000 1.38
@@ -1016,8 +1016,9 @@
* locate return label,
* we must have one or the parser would have failed
*/
- if (ins->next->type == ITLABEL && sub->pcc_sub->label)
+ if (sub->pcc_sub->label && ins->next->type == ITLABEL) {
ins = ins->next;
+ }
ins = insINS(interp, unit, ins, "restoretop", regs, 0);
/*
* handle return results
