OpenEuphoria

Re: Strange machine-level exception

• Posted by Juergen Luethje <j.lue at gmx.de> Jun 18, 2007
• 729 views

Now I've mamaged to write somewhat simpler code that still crashes:

integer n
n = 1000

procedure process (sequence s)
   for i = n-1 to n-5 by -1 do
      if find_from(s[2], s, i+1) = 0 then  -- Machine-level exception here
         s[1] = "x"
      end if
   end for
end procedure

sequence r, s

s = {}
for i = 1 to n do
   r = repeat(0, 3)
   for k = 1 to 4 do
      r[remainder(i,3)+1] += 1
   end for
   s = append(s, r)
end for

process(s)

puts(1, "Finished.")
if getc(0) then end if

Regards,
   Juergen