1 /* Begin include file checker_dcls_.incl.pl1 BIM 7/82 */
  2 /* Modified for loaded by Keith Loepere, December 1983 */
  3 /* format: style3,idind30 */
  4 
  5 dcl       checker_data_$temp_ptrs       (4) ptr external static;
  6 dcl       checker_data_$slt_ptr         ptr external static;
  7 dcl       checker_data_$area_ptr        ptr external static;
  8 dcl       checker_area                  area (sys_info$max_seg_size) based (checker_data_$area_ptr);
  9 
 10 dcl       checker_data_$name_table_ptr  ptr external static;
 11 dcl       checker_data_$buffer_ptr      ptr external static;
 12 dcl       checker_data_$meter_ptr       ptr external static;
 13 
 14 dcl       checker_data_$input_iocbp     ptr ext static;
 15 dcl       checker_data_$output_iocbp    ptr ext static;
 16 
 17 
 18 dcl       checker_data_$last_wired_collection
 19                                         fixed bin external static;
 20 dcl       checker_data_$last_text_wired_collection
 21                                         fixed bin external static;
 22 dcl       checker_data_$last_supervisor_collection
 23                                         fixed bin external static;
 24 
 25 dcl       1 checker_data_$collection_names (0:10) external static,
 26           2 major fixed bin,
 27           2 minor fixed bin;
 28 
 29 dcl       checker_data_$loaded          (0:10) external static bit (1) aligned;
 30 
 31 dcl       checker_data_$n_temp_ptrs     fixed bin external static;
 32 
 33 dcl       checker_data_$severity        fixed bin external static;
 34 
 35 dcl       1 meters                      aligned based (checker_data_$meter_ptr),
 36             2 sizes                     aligned,
 37               3 wired_ai_linkage_size   fixed bin,
 38               3 paged_ai_linkage_size   fixed bin,
 39               3 wired_wi_linkage_size   fixed bin,
 40               3 paged_wi_linkage_size   fixed bin,
 41               3 wired_as_linkage_size   fixed bin,
 42               3 paged_as_linkage_size   fixed bin,
 43               3 wired_ws_linkage_size   fixed bin,
 44               3 paged_ws_linkage_size   fixed bin,
 45               3 wired_definitions_size  fixed bin,
 46               3 paged_definitions_size  fixed bin,
 47             2 wired_nt_size             fixed bin,
 48             2 paged_nt_size             fixed bin,
 49             2 overflown aligned,
 50               3 (wired_ai_linkage, paged_ai_linkage, wired_wi_linkage,
 51                  paged_wi_linkage, wired_as_linkage, paged_as_linkage,
 52                  wired_ws_linkage, paged_ws_linkage,
 53                  wired_definitions, paged_definitions,
 54                  wired_nt, paged_nt,
 55                  wired_storage) bit (1) unaligned,
 56             2 counts                    aligned,
 57               3 wired_sdw_count         fixed bin,
 58               3 paged_sdw_count         fixed bin,
 59               3 wired_slte_count        fixed bin,
 60               3 paged_slte_count        fixed bin,
 61             2 wired_nt_used             fixed bin,
 62             2 paged_nt_used             fixed bin,
 63             2 used                      aligned,
 64               3 wired_ai_linkage_used   fixed bin,
 65               3 paged_ai_linkage_used   fixed bin,
 66               3 wired_wi_linkage_used   fixed bin,
 67               3 paged_wi_linkage_used   fixed bin,
 68               3 wired_as_linkage_used   fixed bin,
 69               3 paged_as_linkage_used   fixed bin,
 70               3 wired_ws_linkage_used   fixed bin,
 71               3 paged_ws_linkage_used   fixed bin,
 72               3 wired_definitions_used  fixed bin,
 73               3 paged_definitions_used  fixed bin,
 74             2 per_collection            (0:10) aligned,
 75               3 read                    bit (1) aligned,
 76               3 mark                    aligned,
 77                 4 major                 fixed bin,
 78                 4 minor                 fixed bin,
 79               3 first_segment           fixed bin (18),
 80               3 last_segment            fixed bin (18),
 81               3 segment_count           fixed bin (17),
 82               3 words_used              fixed bin (35),     /* for wired */
 83               3 pages_used              fixed bin (35),     /* for paged */
 84               3 wired_pages_used        fixed bin (35),     /* for both! */
 85               3 perm_segment_count      fixed bin,          /* stay forever */
 86               3 temp_segment_count      fixed bin,          /* one collection */
 87               3 init_segment_count      fixed bin,          /* all of initialization */
 88               3 user_ring_segment_count fixed bin,
 89               3 user_ring_segment_pages fixed bin,
 90               3 ai_linkage_used         fixed bin,
 91               3 wi_linkage_used         fixed bin,
 92               3 as_linkage_used         fixed bin,
 93               3 ws_linkage_used         fixed bin,
 94               3 definitions_used        fixed bin,
 95               3 name_table_used         fixed bin,
 96             2 per_segment               (0:1024) aligned,
 97               3 collection              fixed bin,
 98               3 next                    fixed bin (18),
 99               3 link_ptr                pointer unaligned,
100               3 defs_ptr                pointer unaligned;
101 
102 declare   segment_links_ptr             pointer;
103 declare   1 segment_links               aligned based (segment_links_ptr),
104             2 n_links                   fixed bin,
105             2 per_link (a_n_links refer (segment_links.n_links)) aligned,
106               3 expression_relps        fixed bin (18) uns unal,
107               3 modifiers               bit (6) unal;
108 
109                                                             /* rel pointers into def section stored in area */
110 
111 declare   a_n_links                     fixed bin;
112 
113 declare   segment_defs_ptr              pointer;
114 declare   1 segment_defs                based (segment_defs_ptr) aligned,
115             2 length                    fixed bin,
116             2 definitions               (a_defs_length refer (segment_defs.length)) bit (36) aligned;
117 
118 declare   a_defs_length                 fixed bin;
119 
120 declare (CHECKER_WARNING init (1), /* */
121          CHECKER_ERROR   init (2), /* */
122          CHECKER_SEVERE  init (3), /* */
123          CHECKER_FATAL   init (4)) fixed bin int static options (constant);
124 
125 declare ERROR_NAMES (1:4) char (16) init ("WARNING", "ERROR", "SEVERE ERROR", "FATAL ERROR") int static options (constant);
126 
127 /* End include file checker_dcls_.incl.pl1 */