QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-20 09:04:43 +00:00
Code Issues Releases Wiki Activity

Improves path resolution for $DEBUG mode.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-13 21:19:53 -03:00
parent 243094c160
commit 3e90e7ff45
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
source/ide/ide_methods.bas
View file

@ -6056,14 +6056,23 @@ SUB DebugMode
SELECT CASE cmd$ SELECT CASE cmd$
CASE "me" CASE "me"
program$ = value$ program$ = value$
expected$ = lastBinaryGenerated$
IF LEFT$(program$, 2) = "./" THEN program$ = MID$(program$, 3) IF LEFT$(program$, 2) = "./" THEN program$ = MID$(program$, 3)
IF program$ <> lastBinaryGenerated$ THEN IF INSTR(_OS$, "WIN") THEN
IF INSTR(expected$, "/") = 0 AND INSTR(expected$, "\") = 0 THEN
expected$ = getfilepath$(COMMAND$(0)) + expected$
END IF
END IF
IF program$ <> expected$ THEN
dummy = DarkenFGBG(0) dummy = DarkenFGBG(0)
clearStatusWindow 1 clearStatusWindow 1
setStatusMessage 1, "Failed to initiate debug session.", 7 setStatusMessage 1, "Failed to initiate debug session.", 7
setStatusMessage 2, LEFT$("Expected: " + lastBinaryGenerated$, idewx - 2), 2 setStatusMessage 2, LEFT$("Expected: " + expected$, idewx - 2), 2
setStatusMessage 3, LEFT$("Received: " + program$, idewx - 2), 2 setStatusMessage 3, LEFT$("Received: " + program$, idewx - 2), 2
cmd$ = "vwatch:file mismatch"
GOSUB SendCommand
CLOSE #client& CLOSE #client&
EXIT SUB EXIT SUB
ELSE ELSE