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 LEFT$(program$, 2) = "./" THEN program$ = MID$(program$, 3)
|
||||||
|
|
||||||
IF program$ <> lastBinaryGenerated$ THEN
|
IF program$ <> lastBinaryGenerated$ THEN
|
||||||
|
clearStatusWindow
|
||||||
COLOR 7, 1
|
COLOR 7, 1
|
||||||
_PRINTSTRING (2, idewy - 3), "Failed to initiate debug session."
|
_PRINTSTRING (2, idewy - 3), "Failed to initiate debug session."
|
||||||
clearStatusWindow
|
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
@ -6062,10 +6062,6 @@ SUB DebugMode
|
||||||
l = CVL(RIGHT$(a$, 4))
|
l = CVL(RIGHT$(a$, 4))
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
idecy = l
|
|
||||||
ideshowtext
|
|
||||||
PCOPY 3, 0
|
|
||||||
|
|
||||||
k& = _KEYHIT
|
k& = _KEYHIT
|
||||||
IF k& = 16896 THEN 'F8
|
IF k& = 16896 THEN 'F8
|
||||||
PauseMode = -1
|
PauseMode = -1
|
||||||
|
@ -6074,7 +6070,11 @@ SUB DebugMode
|
||||||
IF IdeBreakpoints(l) = 0 AND PauseMode = 0 THEN
|
IF IdeBreakpoints(l) = 0 AND PauseMode = 0 THEN
|
||||||
a$ = "run" + endc$
|
a$ = "run" + endc$
|
||||||
PUT #client&, , a$
|
PUT #client&, , a$
|
||||||
|
dummy = DarkenFGBG(1)
|
||||||
ELSE
|
ELSE
|
||||||
|
idecy = l
|
||||||
|
ideshowtext
|
||||||
|
PCOPY 3, 0
|
||||||
DO
|
DO
|
||||||
k& = _KEYHIT
|
k& = _KEYHIT
|
||||||
IF k& = 27 THEN
|
IF k& = 27 THEN
|
||||||
|
|
|
@ -1,6 +1,8 @@
|
||||||
$CHECKING:OFF
|
$CHECKING:OFF
|
||||||
|
|
||||||
SUB vwatch (linenumber AS LONG)
|
SUB vwatch (linenumber AS LONG)
|
||||||
STATIC AS LONG ide, bypass
|
STATIC AS LONG ide, bypass
|
||||||
|
DIM endc$, start!, me$, temp$, buffer$, k&
|
||||||
|
|
||||||
IF bypass THEN EXIT SUB
|
IF bypass THEN EXIT SUB
|
||||||
|
|
||||||
|
@ -19,9 +21,11 @@ SUB vwatch (linenumber AS LONG)
|
||||||
|
|
||||||
'start! = TIMER
|
'start! = TIMER
|
||||||
DO
|
DO
|
||||||
|
k& = _KEYHIT
|
||||||
GET #ide, , temp$
|
GET #ide, , temp$
|
||||||
buffer$ = buffer$ + 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)
|
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
||||||
IF buffer$ <> "vwatch:ok" THEN
|
IF buffer$ <> "vwatch:ok" THEN
|
||||||
|
@ -38,7 +42,9 @@ SUB vwatch (linenumber AS LONG)
|
||||||
DO
|
DO
|
||||||
GET #ide, , temp$
|
GET #ide, , temp$
|
||||||
buffer$ = buffer$ + 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)
|
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
||||||
IF buffer$ = "run" THEN
|
IF buffer$ = "run" THEN
|
||||||
|
|
Loading…
Reference in a new issue