On Thursday 04 September 2008 17:43:55 chromatic wrote:
> Run it through GDB, and it looks like Parrot runs out of stack space
> recursively throwing exceptions. If someone modifies Rakudo not to catch
> the topmost exception, I bet we could track this down faster.
... and here's what I think the problem might be. At least this seems to fix
it for me.
Just don't ask me *why* things to pear-shaped, unless this really is a silly
off-by-one error I haven't traced on paper yet to prove.
-- c
=== languages/perl6/src/builtins/guts.pir
==================================================================
--- languages/perl6/src/builtins/guts.pir (revision 30796)
+++ languages/perl6/src/builtins/guts.pir (local)
@@ -91,7 +91,7 @@
push_eh outer_err
null value
loop:
- unless max >= min goto done
+ unless max > min goto done
$P0 = getinterp
lexpad = $P0['outer', depth]
unless lexpad goto next
