[Gambas-user] Bug: FEditor

[ron]

Hallo Benoit

I had several times an error in FEditor with fatal result and closing all
without it is saved. :(

Function is IsCurrentProc()
line 598
------------------
 FOR iPos = 0 TO aLine.Count - 1
.....
    IF aLine[iPos] = "FUNCTION" THEN
      bProc = TRUE
      BREAK
    ENDIF
 ...
  NEXT

  IF bProc THEN $sName = aLine[iPos + 1]  '<----------- 598
  
  RETURN bProc
END
------------------
I do not know when exactly this function runs but asuming FUNCTION can be the 
last line then iPos is already at the last line 
With the BREAK in continues after NEXT
bProc=True and then iPos + 1  is out of bounds !
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: out_bound_error.png
Type: image/png
Size: 7683 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20040318/e7c4e6dc/attachment.png>