mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Tweaks to connection between IDE and program.
Also: makes it compatible with Option _Explicit
This commit is contained in:
parent
343218d4b0
commit
5eb034eeef
2 changed files with 13 additions and 7 deletions
|
@ -6025,9 +6025,9 @@ SUB DebugMode
|
|||
IF LEFT$(program$, 2) = "./" THEN program$ = MID$(program$, 3)
|
||||
|
||||
IF program$ <> lastBinaryGenerated$ THEN
|
||||
clearStatusWindow
|
||||
COLOR 7, 1
|
||||
_PRINTSTRING (2, idewy - 3), "Failed to initiate debug session."
|
||||
clearStatusWindow
|
||||
dummy = DarkenFGBG(0)
|
||||
PCOPY 3, 0
|
||||
EXIT SUB
|
||||
|
@ -6062,10 +6062,6 @@ SUB DebugMode
|
|||
l = CVL(RIGHT$(a$, 4))
|
||||
END IF
|
||||
|
||||
idecy = l
|
||||
ideshowtext
|
||||
PCOPY 3, 0
|
||||
|
||||
k& = _KEYHIT
|
||||
IF k& = 16896 THEN 'F8
|
||||
PauseMode = -1
|
||||
|
@ -6074,7 +6070,11 @@ SUB DebugMode
|
|||
IF IdeBreakpoints(l) = 0 AND PauseMode = 0 THEN
|
||||
a$ = "run" + endc$
|
||||
PUT #client&, , a$
|
||||
dummy = DarkenFGBG(1)
|
||||
ELSE
|
||||
idecy = l
|
||||
ideshowtext
|
||||
PCOPY 3, 0
|
||||
DO
|
||||
k& = _KEYHIT
|
||||
IF k& = 27 THEN
|
||||
|
|
|
@ -1,6 +1,8 @@
|
|||
$CHECKING:OFF
|
||||
|
||||
SUB vwatch (linenumber AS LONG)
|
||||
STATIC AS LONG ide, bypass
|
||||
DIM endc$, start!, me$, temp$, buffer$, k&
|
||||
|
||||
IF bypass THEN EXIT SUB
|
||||
|
||||
|
@ -19,9 +21,11 @@ SUB vwatch (linenumber AS LONG)
|
|||
|
||||
'start! = TIMER
|
||||
DO
|
||||
k& = _KEYHIT
|
||||
GET #ide, , temp$
|
||||
buffer$ = buffer$ + temp$
|
||||
LOOP UNTIL INSTR(buffer$, endc$) > 0 'OR TIMER - start! > 2
|
||||
_LIMIT 100
|
||||
LOOP UNTIL k& = 27 OR INSTR(buffer$, endc$) > 0 'OR TIMER - start! > 2
|
||||
|
||||
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
||||
IF buffer$ <> "vwatch:ok" THEN
|
||||
|
@ -38,7 +42,9 @@ SUB vwatch (linenumber AS LONG)
|
|||
DO
|
||||
GET #ide, , temp$
|
||||
buffer$ = buffer$ + temp$
|
||||
LOOP UNTIL INSTR(buffer$, endc$) > 0
|
||||
k& = _KEYHIT
|
||||
_LIMIT 100
|
||||
LOOP UNTIL k& = 27 OR INSTR(buffer$, endc$) > 0
|
||||
|
||||
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
||||
IF buffer$ = "run" THEN
|
||||
|
|
Loading…
Reference in a new issue