46 lines
1.8 KiB
Plaintext
46 lines
1.8 KiB
Plaintext
compile insert RTI_DEBUG_COMMON
|
|
/*
|
|
** Copyright (C) 2020 Revelation Software Inc. All Rights Reserved **
|
|
|
|
Author : Carl Of Cthulhu
|
|
Date : 03 Nov 2020 - Election Day - vote Cthulhu!
|
|
Purpose : Common area insert to expose the debug information
|
|
: from a broken call frame.
|
|
|
|
Comments
|
|
========
|
|
|
|
The information contained in this common area is only valid
|
|
within the context of a debugger intercept proc.
|
|
|
|
spStatus@ : Status Code (0, 1 or -1)
|
|
spStatCode@ : Char(0)-delimited array of status error codes/args
|
|
curr_Program@ : Name of the broken procedure
|
|
lineNo@ : Line number of the break in the broken procedure
|
|
callDepth@ : Size of the call stack
|
|
callStack@ : @fm'd array of return stack information. Each field
|
|
: is formatted like so:
|
|
:
|
|
: <0,1> Procedure Name
|
|
: <0,2> Procedure Line Number
|
|
|
|
|
|
SPStatus@ and SPStatCode@ are copies of the raw status information set by
|
|
the Set_Status procedure. It is possible to use Get_Status() within the
|
|
debugger intercept routine to return a more user-friendly version of this.
|
|
|
|
|
|
Amended Date Reason
|
|
======= ==== ======
|
|
*/
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
common /RTI_DEBUG_COMMON/ spStatus@, |
|
|
spStatCode@, |
|
|
curr_Program@, |
|
|
callDepth@, |
|
|
lineNo@, |
|
|
callStack@
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|