Re: [perl #56508] [BUG] :lexid interferes with string constants

[NotFound]

On Tue, Jul 1, 2008 at 4:44 PM, Patrick R. Michaud (via RT)
<[EMAIL PROTECTED]> wrote:

>   $ cat x.pir
>   .sub 'main'
>       'foo'()
>       'bar'()
>   .end
>
>   .sub 'foo'
>       new $P0, "String"
>       assign $P0, "abc"
>       say $P0
>   .end
>
>   .sub 'bar'  :lexid("abc")
>       new $P0, "String"
>       assign $P0, "abc"
>       say $P0
>   .end
>
>   $ ./parrot x.pir
>   abc
>   abc"
>   $
>
> Subs 'foo' and 'bar' are identical except for the :lexid
> attribute, yet they produce different output results.

This patch solves the issue, the lexid string was stored before truncating it.

-- 
Salu2

Index: compilers/imcc/pbc.c
===================================================================
--- compilers/imcc/pbc.c	(revisión: 28897)
+++ compilers/imcc/pbc.c	(copia de trabajo)
@@ -1161,8 +1161,8 @@
         unit->lexid->name = str_dup(unit->lexid->name + 1);
 
         /* Otherwise, create string constant for it. */
+        unit->lexid->name[strlen(unit->lexid->name) - 1] = 0;
         unit->lexid->color = add_const_str(interp, unit->lexid);
-        unit->lexid->name[strlen(unit->lexid->name) - 1] = 0;
     }
     sub->lexid = ct->constants[unit->lexid->color]->u.string;