From ca1124311236fa04c1b40bbfc85b8268527db218 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 14 Jul 2021 00:08:20 -0300
Subject: [PATCH] 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.
---
 source/ide/ide_methods.bas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index cbb586f23..3bc9fecc6 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6103,9 +6103,11 @@ SUB DebugMode
 
     IF startPaused THEN
         cmd$ = "break"
+        PauseMode = -1
         setStatusMessage 2, "Paused.", 2
     ELSE
         cmd$ = "run"
+        PauseMode = 0
         setStatusMessage 2, "Running...", 10
     END IF
     GOSUB SendCommand
@@ -6176,6 +6178,7 @@ SUB DebugMode
                 ELSE
                     setStatusMessage 2, "Paused.", 2
                 END IF
+                PauseMode = -1
             CASE "error"
                 clearStatusWindow 1
                 setStatusMessage 1, "Debug session aborted.", 7