Now fixed in r33193:
$ cat 58392
sub f($l) {
return() if $l <= 0;
say "entering $l";
for 1..3 {
f($l-1);
say "looping in $l";
}
}
f(2);
$ ./parrot perl6.pbc 58392
entering 2
entering 1
looping in 1
looping in 1
looping in 1
looping in 2
entering 1
looping in 1
loopi
Илья wrote:
> Hi there!
> First of all, please, excuse my bad English. Again :)
>
> This bug still there, in spate of two stable realize of the Parrot.
> It`s block our progress on the HTML::Template porting in November
> project and correct realization of is_deeply in our Test.pm :(
> Unfortunate
Hi there!
First of all, please, excuse my bad English. Again :)
This bug still there, in spate of two stable realize of the Parrot.
It`s block our progress on the HTML::Template porting in November
project and correct realization of is_deeply in our Test.pm :(
Unfortunately I am not pir or C or an
Hi,
Here is a pure PIR example that doesn't depend on Rakudo at all.
.sub main :main
$P0 = new 'Integer'
$P0 = 2
'f'($P0)
.end
.sub 'f'
.param pmc l
.lex "$l", l
$P0 = find_lex "$l"
if $P0 <= 0 goto ret
print "entering "
$P1 = find_lex "$l"
say $P1
$
On Thu, Sep 04, 2008 at 02:25:45PM -0500, Patrick R. Michaud wrote:
> As of r37064, it's now possible to do this using the --target=pir
> option to rakudo:
>
> [...]
Also, it may be worth adding judicious calls to parrot_trace(1)
(a rakudo built-in function) to enable/disable tracing at
appropria
On Wed, Sep 03, 2008 at 11:22:42AM -0700, chromatic wrote:
> On Wednesday 27 August 2008 07:26:00 Moritz Lenz wrote:
> > Carl MXXsak (via RT) wrote:
>
> > > r30589:
> > > $ cat for-loop-recursion.bug
> > > sub f($l) {
> > > return() if $l <= 0;
> > > say "entering $l";
> > > for 1..3 {
On Wednesday 27 August 2008 07:26:00 Moritz Lenz wrote:
> Carl MXXsak (via RT) wrote:
> > r30589:
> > $ cat for-loop-recursion.bug
> > sub f($l) {
> > return() if $l <= 0;
> > say "entering $l";
> > for 1..3 {
> > f($l-1);
> > say "looping in $l";
> > }
> > }
> > f(2);
Carl MXXsak (via RT) wrote:
> r30589:
> $ cat for-loop-recursion.bug
> sub f($l) {
> return() if $l <= 0;
> say "entering $l";
> for 1..3 {
> f($l-1);
> say "looping in $l";
> }
> }
> f(2);
I re-worked that as a test and added it to t/spec/S04-statements/for.t
Moritz
-
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #58392]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=58392 >
r30589:
$ cat for-loop-recursion.bug
sub f($l) {
return() if $l <= 0;
say "enter
