1 /* Include file comptbl.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(85-09-24,Elhard), approve(85-09-24,MCR7198), 6 audit(86-06-30,Weaver), install(86-07-16,MR12.0-1094): 7 added link_regeneration_table pointer (clrtp) to component structure. 8 END HISTORY COMMENTS */ 9 10 declare (ctp, ctep) pointer; 11 12 declare comp_tbl(1000) pointer based(ctp); 13 14 15 16 declare 1 comp aligned based(ctep), /* declaration of a component entry */ 17 2 filename char(32) aligned, /* object segment's file name */ 18 2 compiler char(8) aligned, /* name of compiler which produced this object */ 19 2 format char(8) aligned, /* format of object code (PL/1, ALM etc.) */ 20 21 2 ctxtp pointer, /* pointer to base of text section */ 22 2 cdefp pointer, /* pointer to definitions */ 23 2 cstatp pointer, /* pointer to static section */ 24 2 clnkp pointer, /* pointer to head of linkage section */ 25 2 csymp pointer, /* pointer to symbol table */ 26 2 cfrtp pointer, /* pointer to first ref trap array */ 27 2 crltp pointer, /* pointer to rel-text */ 28 2 crllp pointer, /* pointer to rel-link */ 29 2 crlsp pointer, /* pointer to rel-symb */ 30 2 insymentp pointer, /* pointer to this component's insym table entry */ 31 2 clrtp pointer, /* pointer to link_regeneration_table */ 32 2 unused_1 pointer, /* reserve */ 33 2 unused_2 pointer, /* reserve */ 34 2 unused_3 fixed bin, /* reserve */ 35 2 cindex fixed bin, /* this entry's index in table */ 36 2 standard_object fixed bin, /* 1 -> this object has standard format */ 37 2 defthread fixed bin, /* beginning of comp's definition block */ 38 2 fn_lng fixed bin, /* length of filename string */ 39 2 ignore fixed bin, /* 1->ignore erroneous entry */ 40 2 io_table fixed bin, /* 1 -> symbol table needed for io */ 41 2 table_deleted fixed bin, /* 1 -> symbol table is being deleted */ 42 2 separate_static fixed bin, /* 1 -> component has nonzero separate static */ 43 (2 defblockp, /* rel pointer to component's definition block */ 44 2 current_def) bit(18) unaligned, /* rel pointer to component's current def */ 45 2 cbitcount fixed bin(24), /* bitcount of component segment */ 46 2 clngt fixed bin(18), /* length of pure text section */ 47 2 cpadt fixed bin, /* number of added padwords for text */ 48 2 clngd fixed bin(18), /* length of definition section */ 49 2 clngi fixed bin, /* length of internal static */ 50 2 cpadi fixed bin, /* number of added padwords for internal static */ 51 2 clngs fixed bin(18), /* length of original symbol table */ 52 2 clngns fixed bin(18), /* length of new symb section stripped of relbits */ 53 2 clngss fixed bin(18), /* length of symbol section minus relbits and table */ 54 2 cpads fixed bin, /* padding length if section length is odd */ 55 2 n_sym_blks fixed bin, /* number of symbol blocks */ 56 57 2 crelt fixed bin, /* relocation value for text */ 58 2 creli fixed bin, /* relocation value for internal static */ 59 2 crels fixed bin, /* relocation value for symbol section */ 60 2 last_item fixed bin; /*** MUST ALWAYS BE LAST IN STRUCTURE ***/ 61 62 63