1 /* BEGIN INCLUDE FILE ... probe_seg_info.incl.pl1
 2 
 3    25 June 79 JRDavis
 4 
 5    Modified  7 April 1983, TO - Add fields for character offset/line
 6           correction per file.
 7 */
 8 
 9 dcl 1 seg_info based aligned,                               /* place to remember information about object seg */
10     2 language_type fixed bin,                              /* language of source program */
11     2 bits aligned,
12       3 ignore_case bit (1) unal,
13       3 bound_segment bit (1) unaligned,
14       3 component bit (1) unaligned,
15       3 pad bit (33) unal,
16     2 names,                                                /* where to find it */
17       3 directory_name character (168) unal,                /* what directory */
18       3 entry_name character (32) unal,                     /* what segment */
19       3 segname character (32) unal,                        /* procedure segname definition */
20     2 identifier fixed bin (71),                            /* time of object creation */
21     2 pointers,                                             /* location of various parts of segment */
22       3 symbol_header_ptr ptr unal,                         /* to symbol section */
23       3 original_source_ptr ptr unal,                       /* to segment source map */
24       3 statement_map_ptr ptr unal,                         /* to segment statement map */
25       3 break_info ptr unal,                                /* for unbound segments, and start of chain for
26                                                                bound ones, -> break_map !obsolete, I think! */
27       3 chain ptr unal,                                     /* to entry for next component if bound */
28       3 linkage_ptr ptr unal,                               /* to linkage section */
29     2 bounds aligned,                                       /* structure of bounds information */
30       3 text_bounds,
31         4 start fixed bin (35),
32         4 end fixed bin (35),
33       3 symbol_bounds,
34         4 start fixed bin (35),
35         4 end fixed bin (35),
36     2 map_size fixed bin,                                   /* size of statement map */
37     2 error_code fixed bin (35),                            /* errors encoutered while getting info, are recorded here */
38     2 bound_create_time fixed bin (71),                     /* time seg containing was bound or compiled. */
39     2 bound_sym_header ptr unal,                            /* to sym. section header for bound seg */
40     2 pad (1) fixed bin (35),
41 
42     2 nfiles fixed bin,
43     2 per_file (seg_info_nfiles refer (seg_info.nfiles)),
44       3 file_pointers ptr unal,
45       3 break_line (0:3) fixed bin (18) unsigned unaligned;
46 
47 dcl  seg_info_nfiles fixed bin;                             /* for allocation purposes */
48 
49 
50 /* END INCLUDE FILE ... probe_seg_info.incl.pl1 */