mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-30 05:10:37 +00:00
Stop importing breakpoint/skip line data if > ubound(arrays)
This commit is contained in:
parent
005697e115
commit
a5b2727de4
|
@ -17256,6 +17256,7 @@ SUB IdeImportBookmarks (f2$)
|
||||||
IF x THEN
|
IF x THEN
|
||||||
FOR i = 1 TO x
|
FOR i = 1 TO x
|
||||||
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(i)))
|
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(i)))
|
||||||
|
IF j > UBOUND(IdeBreakpoints) THEN EXIT FOR
|
||||||
IdeBreakpoints(j) = -1
|
IdeBreakpoints(j) = -1
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
@ -17264,6 +17265,7 @@ SUB IdeImportBookmarks (f2$)
|
||||||
IF x THEN
|
IF x THEN
|
||||||
FOR i = 1 TO x
|
FOR i = 1 TO x
|
||||||
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "skip" + STR$(i)))
|
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "skip" + STR$(i)))
|
||||||
|
IF j > UBOUND(IdeSkipLines) THEN EXIT FOR
|
||||||
IdeSkipLines(j) = -1
|
IdeSkipLines(j) = -1
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue