mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Attempts to become host when $DEBUG is first detected.
Instead of waiting for F5.
This commit is contained in:
parent
6d696aed4d
commit
f204d5685b
2 changed files with 12 additions and 1 deletions
|
@ -11,6 +11,7 @@ DIM SHARED IDEBuildModeChanged
|
||||||
DIM SHARED IdeInfo AS STRING
|
DIM SHARED IdeInfo AS STRING
|
||||||
DIM SHARED IdeContextHelpSF AS _BYTE
|
DIM SHARED IdeContextHelpSF AS _BYTE
|
||||||
|
|
||||||
|
DIM SHARED host&
|
||||||
|
|
||||||
DIM SHARED IdeSystem AS LONG
|
DIM SHARED IdeSystem AS LONG
|
||||||
'1=Entering text into the main IDE window
|
'1=Entering text into the main IDE window
|
||||||
|
|
|
@ -674,6 +674,14 @@ FUNCTION ide2 (ignore)
|
||||||
IF ideautorun THEN ideautorun = 0: GOTO idemrunspecial
|
IF ideautorun THEN ideautorun = 0: GOTO idemrunspecial
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
STATIC attemptToHost AS _BYTE
|
||||||
|
IF vWatchOn = 1 AND attemptToHost = 0 THEN
|
||||||
|
IF host& = 0 THEN
|
||||||
|
host& = _OPENHOST("TCP/IP:9000")
|
||||||
|
attemptToHost = -1
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
|
||||||
IF c$ = CHR$(254) THEN
|
IF c$ = CHR$(254) THEN
|
||||||
'$DEBUG mode on
|
'$DEBUG mode on
|
||||||
idecompiling = 0
|
idecompiling = 0
|
||||||
|
@ -5968,9 +5976,10 @@ FUNCTION ide2 (ignore)
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
SUB DebugMode
|
SUB DebugMode
|
||||||
STATIC host&
|
|
||||||
DIM PauseMode AS _BYTE
|
DIM PauseMode AS _BYTE
|
||||||
|
|
||||||
|
_KEYCLEAR
|
||||||
|
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
clearStatusWindow
|
clearStatusWindow
|
||||||
|
@ -6040,6 +6049,7 @@ SUB DebugMode
|
||||||
'Waiting for line number...
|
'Waiting for line number...
|
||||||
a$ = "": b$ = ""
|
a$ = "": b$ = ""
|
||||||
DO UNTIL INSTR(a$, endc$) > 0
|
DO UNTIL INSTR(a$, endc$) > 0
|
||||||
|
k& = _KEYHIT
|
||||||
IF k& = 27 THEN
|
IF k& = 27 THEN
|
||||||
a$ = "free" + endc$
|
a$ = "free" + endc$
|
||||||
PUT #client&, , a$
|
PUT #client&, , a$
|
||||||
|
|
Loading…
Reference in a new issue