OpenEuphoria

Re: Strange machine-level exception

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

I've again simplified the code that shows the crash:

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] = {}
      end if
   end for
end procedure

sequence s
integer r

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

process(s)

puts(1, "If you see this message, there was no crash.")
if getc(0) then end if

Regards,
   Juergen