mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-09 00:15:14 +00:00
Fixes "double pause" in $DEBUG mode.
When a breakpoint was reached, it'd be necessary to hit F8 twice to step into the next line.
This commit is contained in:
parent
99e31018c5
commit
ca11243112
|
@ -6103,9 +6103,11 @@ SUB DebugMode
|
||||||
|
|
||||||
IF startPaused THEN
|
IF startPaused THEN
|
||||||
cmd$ = "break"
|
cmd$ = "break"
|
||||||
|
PauseMode = -1
|
||||||
setStatusMessage 2, "Paused.", 2
|
setStatusMessage 2, "Paused.", 2
|
||||||
ELSE
|
ELSE
|
||||||
cmd$ = "run"
|
cmd$ = "run"
|
||||||
|
PauseMode = 0
|
||||||
setStatusMessage 2, "Running...", 10
|
setStatusMessage 2, "Running...", 10
|
||||||
END IF
|
END IF
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
|
@ -6176,6 +6178,7 @@ SUB DebugMode
|
||||||
ELSE
|
ELSE
|
||||||
setStatusMessage 2, "Paused.", 2
|
setStatusMessage 2, "Paused.", 2
|
||||||
END IF
|
END IF
|
||||||
|
PauseMode = -1
|
||||||
CASE "error"
|
CASE "error"
|
||||||
clearStatusWindow 1
|
clearStatusWindow 1
|
||||||
setStatusMessage 1, "Debug session aborted.", 7
|
setStatusMessage 1, "Debug session aborted.", 7
|
||||||
|
|
Loading…
Reference in a new issue