OpenEuphoria

Re: EU 3.0.1 -- there's probably a bug in there somewhere

• Posted by Matt Lewis <matthewwalkerlewis at gmail.com> Feb 02, 2007
• 703 views

Andy Serpa wrote:
> 
> 
> Ok, I got it.  Recursion does cause the problem.  Get yourself a copy of
> kanarie
> v1.8b and try this:
> 
> [I'm using exw.exe here on an Athlon XP Pro system, btw.]
> 

Here's some simpler code that causes a crash.  However, after rebuilding
from source, I wasn't getting the crash (with the vanilla rds source, nor
with ooeu source).  Also, the traceback only goes to 100 levels before it 
quits...and looking at the source, I see:

#define MAX_TRACEBACK 100 /* maximum number of levels of traceback to show */

However, I suspect that it's not checking entirely correctly very well to 
make sure we don't go past this (I don't think this was an issue with
Andy's stuff, since he didn't go as deep).

puts(1, "Starting\n")
integer count
count = 0
procedure recurse(integer r )
	count += 1
	if r = 0 then
		? count
		return
	else
		recurse( r - 1 )
	end if
end procedure

recurse( 12000 )

puts(1,"Done\n")
if getc(0) then
	
end if