cvsuser 04/04/09 02:21:25
Modified: imcc pcc.c
Log:
[BUG] same method name in two different namespaces
Revision Changes Path
1.64 +6 -6 parrot/imcc/pcc.c
Index: pcc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/pcc.c,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -w -r1.63 -r1.64
--- pcc.c 3 Apr 2004 15:59:21 -0000 1.63
+++ pcc.c 9 Apr 2004 09:21:25 -0000 1.64
@@ -380,7 +380,7 @@
/* subroutine can handle both */
i0 = get_pasm_reg("I0");
regs[0] = i0;
- sprintf(buf, "_%csub_%s_p1", IMCC_INTERNAL_CHAR, sub->name);
+ sprintf(buf, "%csub_%s_p1", IMCC_INTERNAL_CHAR, sub->name);
regs[1] = label1 = mk_address(str_dup(buf), U_add_uniq_label);
ins = insINS(interpreter, unit, ins, "if", regs, 2);
@@ -392,7 +392,7 @@
if (ps != pe) {
if (!proto) {
/* branch to the end */
- sprintf(buf, "_%csub_%s_p0", IMCC_INTERNAL_CHAR, sub->name);
+ sprintf(buf, "%csub_%s_p0", IMCC_INTERNAL_CHAR, sub->name);
regs[0] = label2 = mk_address(str_dup(buf), U_add_uniq_label);
ins = insINS(interpreter, unit, ins, "branch", regs, 1);
tmp = INS_LABEL(unit, label1, 0);
@@ -683,13 +683,13 @@
ins = insINS(interpreter, unit, ins, "set", regs, 2);
}
++lin;
- sprintf(buf, "_%carg_loop_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
+ sprintf(buf, "%carg_loop_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
loop = mk_address(str_dup(buf), U_add_uniq_label);
- sprintf(buf, "_%cnext_arg_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
+ sprintf(buf, "%cnext_arg_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
next = mk_address(str_dup(buf), U_add_uniq_label);
- sprintf(buf, "_%cover_flow_%d_1_%d", IMCC_INTERNAL_CHAR, lin, i);
+ sprintf(buf, "%cover_flow_%d_1_%d", IMCC_INTERNAL_CHAR, lin, i);
over1 = mk_address(str_dup(buf), U_add_uniq_label);
- sprintf(buf, "_%cover_flow_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
+ sprintf(buf, "%cover_flow_%d_%d", IMCC_INTERNAL_CHAR, lin, i);
over = mk_address(str_dup(buf), U_add_uniq_label);
if (arg->type & VT_FLATTEN) {
