1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 01:50:25 +00:00

Handles the call stack data sent after a program closes.

This commit is contained in:
FellippeHeitor 2021-07-19 17:23:02 -03:00
parent bb032b6b75
commit 328c5ec668

View file

@ -6543,9 +6543,20 @@ SUB DebugMode
COLOR , 4
setStatusMessage 1, "Error occurred on line" + STR$(l), 13
PauseMode = -1
CASE "call stack"
'call stack gets sent automatically when the
'program is about to end.
CASE "call stack size"
'call stack is only received without having been
'requested when the program is about to quit
callStackLength = CVL(value$)
start! = TIMER
DO
GOSUB GetCommand
_LIMIT 100
LOOP UNTIL cmd$ = "call stack" OR TIMER - start! > timeout
IF cmd$ = "call stack" THEN
'store call stack
callstacklist$ = value$
END IF
END SELECT
_LIMIT 100