1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 10:01:21 +00:00

Improves path resolution for $DEBUG mode.

This commit is contained in:
FellippeHeitor 2021-07-13 21:19:53 -03:00
parent 243094c160
commit 3e90e7ff45

View file

@ -6056,14 +6056,23 @@ SUB DebugMode
SELECT CASE cmd$
CASE "me"
program$ = value$
expected$ = lastBinaryGenerated$
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)
clearStatusWindow 1
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
cmd$ = "vwatch:file mismatch"
GOSUB SendCommand
CLOSE #client&
EXIT SUB
ELSE