OpenEuphoria

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

• Posted by Andy Serpa <ac at onehorseshy.com> Feb 02, 2007
• 679 views

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.]

include kanarie.e -- kanarie version 1.8b (gotta be that version cause its got
recursion)
include machine.e

without warning
clear_screen()

integer D, L1, L2

set_rand(11) -- with rand seeding at 11, I get a crash on iteration 20
for crashtrycount = 1 to 25 do

	? crashtrycount

	D = createData()

	setValue(D,"value1",sprint(rand(10000)))
	setValue(D,"value2",sprint(rand(10000)))

	-- make some lists, ensuring recursion later
	for i = 1 to rand(100) do
		L1 = addListItem(D,"list1")
		setValue(L1,"listval1",sprint(rand(10000)))
		setValue(L1,"listval2",sprint(rand(10000)))
		setValue(L1,"listval3",sprint(rand(10000)))
		setValue(L1,"listval4",sprint(rand(10000)))
		setValue(L1,"listval5",sprint(rand(10000)))
		setValue(L1,"listval6",sprint(rand(10000)))

		for j = 1 to rand(20) do -- add list inside list to cause further recursion
			L2 = addListItem(L1,"list2_nested")
			setValue(L2,"list2val1",sprint(rand(10000)))
			setValue(L2,"list2val1",sprint(rand(10000)))
			setValue(L2,"list2val1",sprint(rand(10000)))
			setValue(L2,"list2val1",sprint(rand(10000)))
		end for
	end for

	setValue(D,"value3",sprint(rand(10000)))
	setValue(D,"value4",sprint(rand(10000)))

	closeData(D) -- this will close D recursively

end for