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@
                             
///////////////////////////////////////////////////////////////////////////////