1 /* BEGIN INCLUDE FILE ... probe_source_info.incl.pl1
 2 
 3   James R. Davis 2 July 79 */
 4 
 5 dcl 1 source_info based aligned,
 6       2 stmnt_map_entry_index fixed bin,                    /* index in stmnt map for this stmnt */
 7       2 instruction_ptr ptr,                                /* to last instruction executed  */
 8       2 block_ptr ptr,                                      /* to runtime_block node */
 9       2 stack_ptr ptr,                                      /* to a stack frame */
10       2 entry_ptr ptr,                                      /* to entry seq. for this proc */
11       2 seg_info_ptr ptr;                                   /* to seg_info */
12 
13 dcl 1 current_source aligned like source_info based (probe_info.ptr_to_current_source);
14 dcl 1 initial_source aligned like source_info based (probe_info.ptr_to_initial_source);
15 
16 /* END INCLUDE FILE ... probe_source_info.incl.pl1 */