mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 18:55:13 +00:00
Handles the call stack data sent after a program closes.
This commit is contained in:
parent
bb032b6b75
commit
328c5ec668
|
@ -6543,9 +6543,20 @@ SUB DebugMode
|
||||||
COLOR , 4
|
COLOR , 4
|
||||||
setStatusMessage 1, "Error occurred on line" + STR$(l), 13
|
setStatusMessage 1, "Error occurred on line" + STR$(l), 13
|
||||||
PauseMode = -1
|
PauseMode = -1
|
||||||
CASE "call stack"
|
CASE "call stack size"
|
||||||
'call stack gets sent automatically when the
|
'call stack is only received without having been
|
||||||
'program is about to end.
|
'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
|
END SELECT
|
||||||
|
|
||||||
_LIMIT 100
|
_LIMIT 100
|
||||||
|
|
Loading…
Reference in a new issue