cvsuser 03/11/18 23:25:52
Modified: imcc imcc.y
Log:
Sorry, no more labels that look like comments.
Revision Changes Path
1.111 +5 -5 parrot/imcc/imcc.y
Index: imcc.y
===================================================================
RCS file: /cvs/public/parrot/imcc/imcc.y,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -w -r1.110 -r1.111
--- imcc.y 17 Nov 2003 00:48:37 -0000 1.110
+++ imcc.y 19 Nov 2003 07:25:51 -0000 1.111
@@ -455,7 +455,7 @@
SymReg * r;
Instruction *i;
- sprintf(name, "#pcc_sub_call_%d", line - 1);
+ sprintf(name, "_#pcc_sub_call_%d", line - 1);
$<sr>$ = r = mk_pcc_sub(str_dup(name), 0);
r->pcc_sub->prototyped = $2;
/* this mid rule action has the semantic value of the
@@ -527,7 +527,7 @@
if (!ins || !ins->r[1] || ins->r[1]->type != VT_PCC_SUB)
fataly(EX_SOFTWARE, sourcefile, line,
"pcc_return not inside pcc subroutine\n");
- sprintf(name, "#pcc_sub_ret_%d", line - 1);
+ sprintf(name, "_#pcc_sub_ret_%d", line - 1);
$<sr>$ = r = mk_pcc_sub(str_dup(name), 0);
i = iLABEL(cur_unit, r);
i->type = ITPCCSUB | ITLABEL;
@@ -545,7 +545,7 @@
fataly(EX_SOFTWARE, sourcefile, line,
"pcc_yield not inside pcc subroutine\n");
ins->r[1]->pcc_sub->calls_a_sub = 1;
- sprintf(name, "#pcc_sub_yield_%d", line - 1);
+ sprintf(name, "_#pcc_sub_yield_%d", line - 1);
$<sr>$ = r = mk_pcc_sub(str_dup(name), 0);
i = iLABEL(cur_unit, r);
i->type = ITPCCSUB | ITLABEL | ITPCCYIELD;
@@ -712,7 +712,7 @@
char name[128];
SymReg * r;
Instruction *i;
- sprintf(name, "#pcc_sub_call_%d", line - 1);
+ sprintf(name, "_#pcc_sub_call_%d", line - 1);
r = mk_pcc_sub(str_dup(name), 0);
current_call = i = iLABEL(cur_unit, r);
i->type = ITCALL | ITPCCSUB;
@@ -735,7 +735,7 @@
char name[128];
SymReg * r;
Instruction *i;
- sprintf(name, "#pcc_sub_call_%d", line - 1);
+ sprintf(name, "_#pcc_sub_call_%d", line - 1);
r = mk_pcc_sub(str_dup(name), 0);
current_call = i = iLABEL(cur_unit, r);
i->type = ITCALL | ITPCCSUB;
