COMPILATION LISTING OF SEGMENT !BBBJNKKKxWqMlp Compiled by: Multics PL/I Compiler, Release 28d, of September 14, 1983 Compiled at: Honeywell LCPD Phoenix, System M Compiled on: 10/04/83 1026.1 mst Tue Options: table map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 pl1_nodes_template_: 12 procedure; 13 14 /* Written April 1977 by R.Schoeman to use cds templates for node templates. */ 15 /* Modified: 27 March 1980 by PCK to implement by name assignment */ 16 17 18 dcl 1 my_cds_args aligned like cds_args; 19 20 dcl create_data_segment_ entry (ptr, fixed bin (35)); 21 22 dcl (addr, binary, length, null, rel, size, unspec) builtin; 23 24 dcl p ptr; 25 dcl code fixed bin (35) init (0); 26 27 dcl 1 auto_pl1_nodes_template_ aligned, 28 2 array_template like array aligned, 29 2 block_template like block aligned, 30 2 bound_template like bound aligned, 31 2 by_name_agg_template like by_name_agg aligned, 32 2 default_template like default aligned, 33 2 label_template like label aligned, 34 2 reference_template like reference aligned, 35 2 symbol_template like symbol aligned; 36 37 38 dcl com_err_ entry options(variable); 39 40 1 1 /* BEGIN INCLUDE FILE cds_args.incl.pl1 */ 1 2 1 3 dcl 1 cds_args based aligned, 1 4 2 sections (2), 1 5 3 p ptr, /* pointer to data for text/static section */ 1 6 3 len fixed bin (18), /* size of text/static section */ 1 7 3 struct_name char (32), /* name of declared structure for this section */ 1 8 2 seg_name char (32), /* name to create segment by */ 1 9 2 num_exclude_names fixed bin, /* number of names in exclude array */ 1 10 2 exclude_array_ptr ptr, /* pointer to array of exclude names */ 1 11 2 switches, /* control switches */ 1 12 3 defs_in_link bit (1) unal, /* says put defs in linkage */ 1 13 3 separate_static bit (1) unal, /* says separate static section is wanted */ 1 14 3 have_text bit (1) unal, /* ON if text section given */ 1 15 3 have_static bit (1) unal, /* ON if static section given */ 1 16 3 pad bit (32) unal; 1 17 1 18 dcl exclude_names (1) char (32) based; /* pointed to be cds_args.exclude_array_ptr */ 1 19 1 20 /* END INCLUDE FILE cds_args.incl.pl1 */ 41 2 1 /* BEGIN INCLUDE FILE ... nodes.incl.pl1 */ 2 2 2 3 /* Modified: 26 Dec 1979 by PCK to implement by name assignment */ 2 4 2 5 dcl ( block_node initial("000000001"b), 2 6 statement_node initial("000000010"b), 2 7 operator_node initial("000000011"b), 2 8 reference_node initial("000000100"b), 2 9 token_node initial("000000101"b), 2 10 symbol_node initial("000000110"b), 2 11 context_node initial("000000111"b), 2 12 array_node initial("000001000"b), 2 13 bound_node initial("000001001"b), 2 14 format_value_node initial("000001010"b), 2 15 list_node initial("000001011"b), 2 16 default_node initial("000001100"b), 2 17 machine_state_node initial("000001101"b), 2 18 source_node initial("000001110"b), 2 19 label_node initial("000001111"b), 2 20 cross_reference_node initial("000010000"b), 2 21 sf_par_node initial("000010001"b), 2 22 temporary_node initial("000010010"b), 2 23 label_array_element_node initial("000010011"b), 2 24 by_name_agg_node initial("000010100"b)) 2 25 bit(9) internal static aligned options(constant); 2 26 2 27 dcl 1 node based aligned, 2 28 2 type unal bit(9), 2 29 2 source_id unal structure, 2 30 3 file_number bit(8), 2 31 3 line_number bit(14), 2 32 3 statement_number bit(5); 2 33 2 34 /* END INCLUDE FILE ... nodes.incl.pl1 */ 42 3 1 dcl 1 array based aligned, 3 2 2 node_type bit(9) unaligned, 3 3 2 reserved bit(34) unaligned, 3 4 2 number_of_dimensions fixed(7) unaligned, 3 5 2 own_number_of_dimensions fixed(7) unaligned, 3 6 2 element_boundary fixed(3) unaligned, 3 7 2 size_units fixed(3) unaligned, 3 8 2 offset_units fixed(3) unaligned, 3 9 2 interleaved bit(1) unaligned, 3 10 2 c_element_size fixed(24), 3 11 2 c_element_size_bits fixed(24), 3 12 2 c_virtual_origin fixed(24), 3 13 2 element_size ptr unaligned, 3 14 2 element_size_bits ptr unaligned, 3 15 2 virtual_origin ptr unaligned, 3 16 2 symtab_virtual_origin ptr unaligned, 3 17 2 symtab_element_size ptr unaligned, 3 18 2 bounds ptr unaligned, 3 19 2 element_descriptor ptr unaligned; 3 20 3 21 dcl 1 bound based aligned, 3 22 2 node_type bit(9), 3 23 2 c_lower fixed(24), 3 24 2 c_upper fixed(24), 3 25 2 c_multiplier fixed(24), 3 26 2 c_desc_multiplier fixed(24), 3 27 2 lower ptr unaligned, 3 28 2 upper ptr unaligned, 3 29 2 multiplier ptr unaligned, 3 30 2 desc_multiplier ptr unaligned, 3 31 2 symtab_lower ptr unaligned, 3 32 2 symtab_upper ptr unaligned, 3 33 2 symtab_multiplier ptr unaligned, 3 34 2 next ptr unaligned; 43 4 1 /* BEGIN INCLUDE FILE ... block.incl.pl1 */ 4 2 /* Modified 22 Ocober 1980 by M. N. Davidoff to increase max block.number to 511 */ 4 3 /* format: style3,idind30 */ 4 4 4 5 declare 1 block aligned based, 4 6 2 node_type bit (9) unaligned, 4 7 2 source_id structure unaligned, 4 8 3 file_number bit (8), 4 9 3 line_number bit (14), 4 10 3 statement_number bit (5), 4 11 2 father ptr unaligned, 4 12 2 brother ptr unaligned, 4 13 2 son ptr unaligned, 4 14 2 declaration ptr unaligned, 4 15 2 end_declaration ptr unaligned, 4 16 2 default ptr unaligned, 4 17 2 end_default ptr unaligned, 4 18 2 context ptr unaligned, 4 19 2 prologue ptr unaligned, 4 20 2 end_prologue ptr unaligned, 4 21 2 main ptr unaligned, 4 22 2 end_main ptr unaligned, 4 23 2 return_values ptr unaligned, 4 24 2 return_count ptr unaligned, 4 25 2 plio_ps ptr unaligned, 4 26 2 plio_fa ptr unaligned, 4 27 2 plio_ffsb ptr unaligned, 4 28 2 plio_ssl ptr unaligned, 4 29 2 plio_fab2 ptr unaligned, 4 30 2 block_type bit (9) unaligned, 4 31 2 prefix bit (12) unaligned, 4 32 2 like_attribute bit (1) unaligned, 4 33 2 no_stack bit (1) unaligned, 4 34 2 get_data bit (1) unaligned, 4 35 2 flush_at_call bit (1) unaligned, 4 36 2 processed bit (1) unaligned, 4 37 2 text_displayed bit (1) unaligned, 4 38 2 number fixed bin (9) unsigned unaligned, 4 39 2 free_temps dimension (3) ptr, /* these fields are used by the code generator */ 4 40 2 temp_list ptr, 4 41 2 entry_list ptr, 4 42 2 o_and_s ptr, 4 43 2 why_nonquick aligned, 4 44 3 auto_adjustable_storage bit (1) unaligned, 4 45 3 returns_star_extents bit (1) unaligned, 4 46 3 stack_extended_by_args bit (1) unaligned, 4 47 3 invoked_by_format bit (1) unaligned, 4 48 3 format_statement bit (1) unaligned, 4 49 3 io_statements bit (1) unaligned, 4 50 3 assigned_to_entry_var bit (1) unaligned, 4 51 3 condition_statements bit (1) unaligned, 4 52 3 no_owner bit (1) unaligned, 4 53 3 recursive_call bit (1) unaligned, 4 54 3 options_non_quick bit (1) unaligned, 4 55 3 options_variable bit (1) unaligned, 4 56 3 never_referenced bit (1) unaligned, 4 57 3 pad_nonquick bit (5) unaligned, 4 58 2 prologue_flag bit (1) unaligned, 4 59 2 options_main bit (1) unaligned, 4 60 2 pad bit (16) unaligned, 4 61 2 number_of_entries fixed bin (17), 4 62 2 level fixed bin (17), 4 63 2 last_auto_loc fixed bin (17), 4 64 2 symbol_block fixed bin (17), 4 65 2 entry_info fixed bin (18), 4 66 2 enter structure unaligned, 4 67 3 start fixed bin (17), 4 68 3 end fixed bin (17), 4 69 2 leave structure unaligned, 4 70 3 start fixed bin (17), 4 71 3 end fixed bin (17), 4 72 2 owner ptr; 4 73 4 74 declare max_block_number fixed bin internal static options (constant) initial (511); 4 75 4 76 /* END INCLUDE FILE ... block.incl.pl1 */ 44 5 1 /* BEGIN INCLUDE FILE .. by_name_agg.incl.pl1 */ 5 2 5 3 dcl 1 by_name_agg based aligned, 5 4 2 node_type bit(9) unal, 5 5 2 pad bit(26) unal, 5 6 2 ok_to_free bit(1) unal, 5 7 2 token ptr unal, 5 8 2 father ptr unal, 5 9 2 left_brother ptr unal, 5 10 2 right_brother ptr unal, 5 11 2 son ptr unal, 5 12 2 next ptr unal; 5 13 5 14 /* END INCLUDE FILE ... by_name_agg.incl.pl1 */ 45 6 1 6 2 dcl 1 default based aligned, 6 3 2 node_type bit(9) unaligned, 6 4 2 source_id structure unaligned, 6 5 3 file_number bit(8), 6 6 3 line_number bit(14), 6 7 3 statement_number bit(5), 6 8 2 next ptr unaligned, 6 9 2 predicate ptr unaligned, 6 10 2 symbol ptr unaligned, 6 11 2 system bit(1) unaligned, 6 12 2 error bit(1) unaligned, 6 13 2 no_defaults bit(1) unaligned, 6 14 2 reserved bit(29) unaligned; 46 7 1 dcl 1 label based aligned, 7 2 2 node_type bit(9) unaligned, 7 3 2 source_id structure unaligned, 7 4 3 file_number bit(8), 7 5 3 line_number bit(14), 7 6 3 statement_number bit(5), 7 7 2 location fixed(17) unaligned, 7 8 2 allocated bit(1) unaligned, 7 9 2 dcl_type bit(3) unaligned, 7 10 2 reserved bit(29) unaligned, 7 11 2 array bit(1) unaligned, 7 12 2 used_as_format bit(1) unaligned, 7 13 2 used_in_goto bit(1) unaligned, 7 14 2 symbol_table bit(18) unaligned, 7 15 2 low_bound fixed(17) unaligned, 7 16 2 high_bound fixed(17) unaligned, 7 17 2 block_node ptr unaligned, 7 18 2 token ptr unaligned, 7 19 2 next ptr unaligned, 7 20 2 multi_use ptr unaligned, 7 21 2 cross_reference ptr unaligned, 7 22 2 statement ptr unaligned; 47 8 1 /* BEGIN INCLUDE FILE ... reference.incl.pl1 */ 8 2 8 3 dcl 1 reference based aligned, 8 4 2 node_type bit(9) unaligned, 8 5 2 array_ref bit(1) unaligned, 8 6 2 varying_ref bit(1) unaligned, 8 7 2 shared bit(1) unaligned, 8 8 2 put_data_sw bit(1) unaligned, 8 9 2 processed bit(1) unaligned, 8 10 2 units fixed(3) unaligned, 8 11 2 ref_count fixed(17) unaligned, 8 12 2 c_offset fixed(24), 8 13 2 c_length fixed(24), 8 14 2 symbol ptr unaligned, 8 15 2 qualifier ptr unaligned, 8 16 2 offset ptr unaligned, 8 17 2 length ptr unaligned, 8 18 2 subscript_list ptr unaligned, 8 19 /* these fields are used by the 645 code generator */ 8 20 2 address structure unaligned, 8 21 3 base bit(3), 8 22 3 offset bit(15), 8 23 3 op bit(9), 8 24 3 no_address bit(1), 8 25 3 inhibit bit(1), 8 26 3 ext_base bit(1), 8 27 3 tag bit(6), 8 28 2 info structure unaligned, 8 29 3 address_in structure, 8 30 4 b dimension(0:7) bit(1), 8 31 4 storage bit(1), 8 32 3 value_in structure, 8 33 4 a bit(1), 8 34 4 q bit(1), 8 35 4 aq bit(1), 8 36 4 string_aq bit(1), 8 37 4 complex_aq bit(1), 8 38 4 decimal_aq bit(1), 8 39 4 b dimension(0:7) bit(1), 8 40 4 storage bit(1), 8 41 4 indicators bit(1), 8 42 4 x dimension(0:7) bit(1), 8 43 3 other structure, 8 44 4 big_offset bit(1), 8 45 4 big_length bit(1), 8 46 4 modword_in_offset bit(1), 8 47 2 data_type fixed(5) unaligned, 8 48 2 bits structure unaligned, 8 49 3 padded_ref bit(1), 8 50 3 aligned_ref bit(1), 8 51 3 long_ref bit(1), 8 52 3 forward_ref bit(1), 8 53 3 ic_ref bit(1), 8 54 3 temp_ref bit(1), 8 55 3 defined_ref bit(1), 8 56 3 evaluated bit(1), 8 57 3 allocate bit(1), 8 58 3 allocated bit(1), 8 59 3 aliasable bit(1), 8 60 3 even bit(1), 8 61 3 perm_address bit(1), 8 62 3 aggregate bit(1), 8 63 3 hit_zero bit(1), 8 64 3 dont_save bit(1), 8 65 3 fo_in_qual bit(1), 8 66 3 hard_to_load bit(1), 8 67 2 relocation bit(12) unaligned, 8 68 2 more_bits structure unaligned, 8 69 3 substr bit(1), 8 70 3 padded_for_store_ref bit(1), 8 71 3 aligned_for_store_ref bit(1), 8 72 3 mbz bit(15), 8 73 2 store_ins bit(18) unaligned; 8 74 8 75 /* END INCLUDE FILE ... reference.incl.pl1 */ 48 9 1 /* BEGIN INCLUDE FILE ... symbol.incl.pl1 */ 9 2 9 3 dcl 1 symbol based aligned, 9 4 2 node_type bit(9) unal, 9 5 2 source_id structure unal, 9 6 3 file_number bit(8), 9 7 3 line_number bit(14), 9 8 3 statement_number bit(5), 9 9 2 location fixed(18) unal unsigned, 9 10 2 allocated bit(1) unal, 9 11 2 dcl_type bit(3) unal, 9 12 2 reserved bit(6) unal, 9 13 2 pix unal, 9 14 3 pic_fixed bit(1) unal, 9 15 3 pic_float bit(1) unal, 9 16 3 pic_char bit(1) unal, 9 17 3 pic_scale fixed(7) unal, 9 18 3 pic_size fixed(7) unal, 9 19 2 level fixed(8) unal, 9 20 2 boundary fixed(3) unal, 9 21 2 size_units fixed(3) unal, 9 22 2 scale fixed(7) unal, 9 23 2 runtime bit(18) unal, 9 24 2 runtime_offset bit(18) unal, 9 25 2 block_node ptr unal, 9 26 2 token ptr unal, 9 27 2 next ptr unal, 9 28 2 multi_use ptr unal, 9 29 2 cross_references ptr unal, 9 30 2 initial ptr unal, 9 31 2 array ptr unal, 9 32 2 descriptor ptr unal, 9 33 2 equivalence ptr unal, 9 34 2 reference ptr unal, 9 35 2 general ptr unal, 9 36 2 father ptr unal, 9 37 2 brother ptr unal, 9 38 2 son ptr unal, 9 39 2 word_size ptr unal, 9 40 2 bit_size ptr unal, 9 41 2 dcl_size ptr unal, 9 42 2 symtab_size ptr unal, 9 43 2 c_word_size fixed(24), 9 44 2 c_bit_size fixed(24), 9 45 2 c_dcl_size fixed(24), 9 46 9 47 2 attributes structure aligned, 9 48 3 data_type structure unal, 9 49 4 structure bit(1) , 9 50 4 fixed bit(1), 9 51 4 float bit(1), 9 52 4 bit bit(1), 9 53 4 char bit(1), 9 54 4 ptr bit(1), 9 55 4 offset bit(1), 9 56 4 area bit(1), 9 57 4 label bit(1), 9 58 4 entry bit(1), 9 59 4 file bit(1), 9 60 4 arg_descriptor bit(1), 9 61 4 storage_block bit(1), 9 62 4 explicit_packed bit(1), /* options(packed) */ 9 63 4 condition bit(1), 9 64 4 format bit(1), 9 65 4 builtin bit(1), 9 66 4 generic bit(1), 9 67 4 picture bit(1), 9 68 9 69 3 misc_attributes structure unal, 9 70 4 dimensioned bit(1), 9 71 4 initialed bit(1), 9 72 4 aligned bit(1), 9 73 4 unaligned bit(1), 9 74 4 signed bit(1), 9 75 4 unsigned bit(1), 9 76 4 precision bit(1), 9 77 4 varying bit(1), 9 78 4 local bit(1), 9 79 4 decimal bit(1), 9 80 4 binary bit(1), 9 81 4 real bit(1), 9 82 4 complex bit(1), 9 83 4 variable bit(1), 9 84 4 reducible bit(1), 9 85 4 irreducible bit(1), 9 86 4 returns bit(1), 9 87 4 position bit(1), 9 88 4 internal bit(1), 9 89 4 external bit(1), 9 90 4 like bit(1), 9 91 4 member bit(1), 9 92 4 non_varying bit(1), 9 93 4 options bit(1), 9 94 4 variable_arg_list bit(1), /* options(variable) */ 9 95 4 alloc_in_text bit(1), /* options(constant) */ 9 96 9 97 3 storage_class structure unal, 9 98 4 auto bit(1), 9 99 4 based bit(1), 9 100 4 static bit(1), 9 101 4 controlled bit(1), 9 102 4 defined bit(1), 9 103 4 parameter bit(1), 9 104 4 param_desc bit(1), 9 105 4 constant bit(1), 9 106 4 temporary bit(1), 9 107 4 return_value bit(1), 9 108 9 109 3 file_attributes structure unal, 9 110 4 print bit(1), 9 111 4 input bit(1), 9 112 4 output bit(1), 9 113 4 update bit(1), 9 114 4 stream bit(1), 9 115 4 reserved_1 bit(1), 9 116 4 record bit(1), 9 117 4 sequential bit(1), 9 118 4 direct bit(1), 9 119 4 interactive bit(1), /* env(interactive) */ 9 120 4 reserved_2 bit(1), 9 121 4 reserved_3 bit(1), 9 122 4 stringvalue bit(1), /* env(stringvalue) */ 9 123 4 keyed bit(1), 9 124 4 reserved_4 bit(1), 9 125 4 environment bit(1), 9 126 9 127 3 compiler_developed structure unal, 9 128 4 aliasable bit(1), 9 129 4 packed bit(1), 9 130 4 passed_as_arg bit(1), 9 131 4 allocate bit(1), 9 132 4 set bit(1), 9 133 4 exp_extents bit(1), 9 134 4 refer_extents bit(1), 9 135 4 star_extents bit(1), 9 136 4 isub bit(1), 9 137 4 put_in_symtab bit(1), 9 138 4 contiguous bit(1), 9 139 4 put_data bit(1), 9 140 4 overlayed bit(1), 9 141 4 error bit(1), 9 142 4 symtab_processed bit(1), 9 143 4 overlayed_by_builtin bit(1), 9 144 4 defaulted bit(1), 9 145 4 connected bit(1); 9 146 9 147 /* END INCLUDE FILE ... symbol.incl.pl1 */ 49 50 51 52 unspec (my_cds_args) = "0"b; 53 54 unspec (auto_pl1_nodes_template_) = "0"b; 55 56 57 58 my_cds_args.have_text = "1"b; 59 my_cds_args.num_exclude_names = 0; 60 my_cds_args.exclude_array_ptr = null; 61 62 my_cds_args.seg_name = "pl1_nodes_template_"; 63 my_cds_args.sections(1).struct_name = "auto_pl1_nodes_template_"; 64 my_cds_args.sections (1).len = size (auto_pl1_nodes_template_) ; 65 my_cds_args.sections (1).p = addr (auto_pl1_nodes_template_); 66 67 68 69 70 array_template.node_type = array_node; 71 array_template.interleaved = "0"b; 72 73 array_template.number_of_dimensions, 74 array_template.offset_units, 75 array_template.own_number_of_dimensions, 76 array_template.size_units, 77 array_template.element_boundary, 78 array_template.c_element_size, 79 array_template.c_element_size_bits, 80 array_template.c_virtual_origin = 0; 81 82 array_template.element_size, 83 array_template.element_size_bits, 84 array_template.virtual_origin, 85 array_template.bounds, 86 array_template.symtab_virtual_origin, 87 array_template.symtab_element_size, 88 array_template.element_descriptor = null; 89 90 /* BLOCK NODE. The following fields are initialized in create_block: */ 91 /* block.node_type, block.number, block.owner, block.father, */ 92 /* block.source_id, block.no_stack */ 93 94 block_template.node_type = block_node; 95 block_template.brother, 96 block_template.son, 97 block_template.declaration, 98 block_template.end_declaration, 99 block_template.default, 100 block_template.end_default, 101 block_template.context, 102 block_template.prologue, 103 block_template.end_prologue, 104 block_template.return_values, 105 block_template.return_count, 106 block_template.main, 107 block_template.end_main, 108 block_template.free_temps (1), 109 block_template.free_temps (2), 110 block_template.free_temps (3), 111 block_template.entry_list, 112 block_template.temp_list, 113 block_template.o_and_s, 114 block_template.plio_ps, 115 block_template.plio_fa, 116 block_template.plio_ffsb, 117 block_template.plio_ssl, 118 block_template.plio_fab2 = null; 119 120 block_template.level, 121 block_template.symbol_block, 122 block_template.entry_info, 123 block_template.last_auto_loc, 124 block_template.number_of_entries, 125 block_template.enter.start, 126 block_template.enter.end, 127 block_template.leave.start, 128 block_template.leave.end = 0; 129 130 block_template.prefix = "111110000000"b; /* default conditions */ 131 string(block_template.why_nonquick) = "0"b; 132 133 block_template.like_attribute, 134 block_template.get_data, 135 block_template.flush_at_call, 136 block_template.processed, 137 block_template.text_displayed = "0"b; 138 139 block_template.prologue_flag = "0"b; 140 block_template.pad = "0"b; 141 142 /* BOUND NODE. */ 143 144 bound_template.node_type = bound_node; 145 bound_template.c_lower, 146 bound_template.c_upper, 147 bound_template.c_multiplier, 148 bound_template.c_desc_multiplier = 0; 149 150 bound_template.next, 151 bound_template.lower, 152 bound_template.upper, 153 bound_template.desc_multiplier, 154 bound_template.symtab_lower, 155 bound_template.symtab_upper, 156 bound_template.symtab_multiplier, 157 bound_template.multiplier = null; 158 159 by_name_agg_template.node_type = by_name_agg_node; 160 by_name_agg_template.pad = "0"b; 161 by_name_agg_template.ok_to_free = "1"b; 162 by_name_agg_template.token, 163 by_name_agg_template.father, 164 by_name_agg_template.left_brother, 165 by_name_agg_template.right_brother, 166 by_name_agg_template.son, 167 by_name_agg_template.next = null; 168 169 default_template.node_type = default_node; 170 default_template.next, 171 default_template.predicate, 172 default_template.symbol = null; 173 default_template.system, 174 default_template.error, 175 default_template.no_defaults = "0"b; 176 177 178 label_template.node_type = label_node; 179 label_template.next = null; 180 181 label_template.used_as_format, 182 label_template.used_in_goto, 183 label_template.array, 184 label_template.allocated, 185 label_template.symbol_table = "0"b; 186 187 label_template.cross_reference, 188 label_template.statement = null; 189 190 label_template.location, 191 label_template.low_bound, 192 label_template.high_bound = 0; 193 194 195 reference_template.node_type = reference_node; 196 197 reference_template.subscript_list, 198 reference_template.qualifier, 199 200 /* The following reference must be FULLY qualified to avoid an 201* apparent ambiguity with reference_template.address.offset. */ 202 203 auto_pl1_nodes_template_.reference_template.offset, 204 reference_template.length = null; 205 206 reference_template.ref_count, 207 reference_template.units, 208 reference_template.data_type, 209 reference_template.c_offset, 210 reference_template.c_length = 0; 211 212 reference_template.store_ins = "0"b; 213 214 reference_template.put_data_sw, 215 reference_template.relocation, 216 reference_template.array_ref, 217 reference_template.varying_ref, 218 reference_template.processed, 219 220 string (reference_template.bits), 221 string (reference_template.more_bits), 222 string (reference_template.info) = "0"b; 223 string (reference_template.address) = "0000000000000000000000000001"b; /* no_address */ 224 225 reference_template.shared = "1"b; 226 227 228 symbol_template.node_type = symbol_node; /* identify this node */ 229 230 symbol_template.runtime, 231 symbol_template.runtime_offset = (18)"0"b; 232 string (symbol_template.source_id) = (27)"0"b; 233 234 symbol_template.cross_references, 235 symbol_template.initial, 236 symbol_template.array, 237 symbol_template.descriptor, 238 symbol_template.equivalence, 239 symbol_template.general, 240 symbol_template.father, 241 symbol_template.brother, 242 symbol_template.son, 243 symbol_template.next, 244 symbol_template.word_size, 245 symbol_template.bit_size, 246 symbol_template.symtab_size, 247 symbol_template.dcl_size = null; 248 249 symbol_template.pix.pic_scale, 250 symbol_template.pix.pic_size, 251 symbol_template.level, 252 symbol_template.location, 253 symbol_template.scale, 254 symbol_template.boundary, 255 symbol_template.size_units, 256 symbol_template.c_word_size, 257 symbol_template.c_bit_size, 258 symbol_template.c_dcl_size = 0; 259 260 symbol_template.reserved, 261 symbol_template.pix.pic_fixed, 262 symbol_template.pix.pic_float, 263 symbol_template.pix.pic_char, 264 symbol_template.allocated = "0"b; 265 266 string (symbol_template.attributes) = "0"b; 267 268 269 270 call create_data_segment_ (addr (my_cds_args), code); 271 272 if code ^= 0 273 then call com_err_(code, "pl1_nodes_template_"); 274 275 end; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 10/04/83 1025.4 !BBBJNKKKxWqMlp.pl1 >spec>on>pl128d>pl1_nodes_template_.cds 41 1 04/01/76 2209.5 cds_args.incl.pl1 >ldd>include>cds_args.incl.pl1 42 2 07/21/80 1546.3 nodes.incl.pl1 >ldd>include>nodes.incl.pl1 43 3 05/06/74 1741.6 array.incl.pl1 >ldd>include>array.incl.pl1 44 4 08/13/81 2043.5 block.incl.pl1 >ldd>include>block.incl.pl1 45 5 07/21/80 1546.3 by_name_agg.incl.pl1 >ldd>include>by_name_agg.incl.pl1 46 6 05/06/74 1742.2 default.incl.pl1 >ldd>include>default.incl.pl1 47 7 05/06/74 1742.1 label.incl.pl1 >ldd>include>label.incl.pl1 48 8 07/21/80 1546.3 reference.incl.pl1 >ldd>include>reference.incl.pl1 49 9 10/02/83 0828.4 symbol.incl.pl1 >spec>on>pl128d>symbol.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. addr builtin function dcl 22 ref 65 270 270 address 145 000152 automatic structure level 3 packed unaligned dcl 27 set ref 223* allocated 124(18) 000152 automatic bit(1) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 181* allocated 152(18) 000152 automatic bit(1) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 260* array based structure level 1 dcl 3-1 in procedure "pl1_nodes_template_" array 163 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 234* array 125(15) 000152 automatic bit(1) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 181* array_node 000004 constant bit(9) initial dcl 2-5 ref 70 array_ref 135(09) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 214* array_template 000152 automatic structure level 2 dcl 27 attributes 202 000152 automatic structure level 3 dcl 27 set ref 266* auto_pl1_nodes_template_ 000152 automatic structure level 1 dcl 27 set ref 54* 64 65 bit_size 174 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* bits 147(06) 000152 automatic structure level 3 packed unaligned dcl 27 set ref 214* block based structure level 1 dcl 4-5 block_node 000007 constant bit(9) initial dcl 2-5 ref 94 block_template 14 000152 automatic structure level 2 dcl 27 bound based structure level 1 dcl 3-21 bound_node 000003 constant bit(9) initial dcl 2-5 ref 144 bound_template 72 000152 automatic structure level 2 dcl 27 boundary 153(20) 000152 automatic fixed bin(3,0) level 3 packed unaligned dcl 27 set ref 249* bounds 12 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* brother 16 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 95* brother 171 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 234* by_name_agg based structure level 1 dcl 5-3 by_name_agg_node 000000 constant bit(9) initial dcl 2-5 ref 159 by_name_agg_template 107 000152 automatic structure level 2 dcl 27 c_bit_size 200 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 249* c_dcl_size 201 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 249* c_desc_multiplier 76 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 145* c_element_size 2 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 73* c_element_size_bits 3 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 73* c_length 137 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 206* c_lower 73 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 145* c_multiplier 75 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 145* c_offset 136 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 206* c_upper 74 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 145* c_virtual_origin 4 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 73* c_word_size 177 000152 automatic fixed bin(24,0) level 3 dcl 27 set ref 249* cds_args based structure level 1 dcl 1-3 code 000150 automatic fixed bin(35,0) initial dcl 25 set ref 25* 270* 272 272* com_err_ 000014 constant entry external dcl 38 ref 272 context 24 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* create_data_segment_ 000012 constant entry external dcl 20 ref 270 cross_reference 133 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 187* cross_references 161 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* data_type 147 000152 automatic fixed bin(5,0) level 3 packed unaligned dcl 27 set ref 206* dcl_size 175 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* declaration 20 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* default 22 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 95* default based structure level 1 dcl 6-2 in procedure "pl1_nodes_template_" default_node 000002 constant bit(9) initial dcl 2-5 ref 169 default_template 116 000152 automatic structure level 2 dcl 27 desc_multiplier 102 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* descriptor 164 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* element_boundary 1(23) 000152 automatic fixed bin(3,0) level 3 packed unaligned dcl 27 set ref 73* element_descriptor 13 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* element_size 5 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* element_size_bits 6 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* end 66(18) 000152 automatic fixed bin(17,0) level 4 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 120* end 65(18) 000152 automatic fixed bin(17,0) level 4 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 120* end_declaration 21 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* end_default 23 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* end_main 30 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* end_prologue 26 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* enter 65 000152 automatic structure level 3 packed unaligned dcl 27 entry_info 64 000152 automatic fixed bin(18,0) level 3 dcl 27 set ref 120* entry_list 52 000152 automatic pointer level 3 dcl 27 set ref 95* equivalence 165 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* error 122(01) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 173* exclude_array_ptr 42 000100 automatic pointer level 2 dcl 18 set ref 60* father 170 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 234* father 111 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 162* flush_at_call 40(24) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 133* free_temps 42 000152 automatic pointer array level 3 dcl 27 set ref 95* 95* 95* general 167 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* get_data 40(23) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 133* have_text 44(02) 000100 automatic bit(1) level 3 packed unaligned dcl 18 set ref 58* high_bound 126(18) 000152 automatic fixed bin(17,0) level 3 packed unaligned dcl 27 set ref 190* info 146 000152 automatic structure level 3 packed unaligned dcl 27 set ref 214* initial 162 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* interleaved 1(35) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 71* label based structure level 1 dcl 7-1 label_node 000001 constant bit(9) initial dcl 2-5 ref 178 label_template 123 000152 automatic structure level 2 dcl 27 last_auto_loc 62 000152 automatic fixed bin(17,0) level 3 dcl 27 set ref 120* leave 66 000152 automatic structure level 3 packed unaligned dcl 27 left_brother 112 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 162* len 2 000100 automatic fixed bin(18,0) array level 3 dcl 18 set ref 64* length 143 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 197* level 61 000152 automatic fixed bin(17,0) level 3 in structure "auto_pl1_nodes_template_" dcl 27 in procedure "pl1_nodes_template_" set ref 120* level 153(11) 000152 automatic fixed bin(8,0) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 249* like_attribute 40(21) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 133* location 152 000152 automatic fixed bin(18,0) level 3 in structure "auto_pl1_nodes_template_" packed unsigned unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 249* location 124 000152 automatic fixed bin(17,0) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 190* low_bound 126 000152 automatic fixed bin(17,0) level 3 packed unaligned dcl 27 set ref 190* lower 77 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* main 27 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* more_bits 150 000152 automatic structure level 3 packed unaligned dcl 27 set ref 214* multiplier 101 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* my_cds_args 000100 automatic structure level 1 dcl 18 set ref 52* 270 270 next 106 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 150* next 117 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 170* next 157 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 234* next 131 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 179* next 115 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 162* no_defaults 122(02) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 173* node_type 135 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 195* node_type 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 70* node_type 151 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 228* node_type 107 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 159* node_type 72 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" dcl 27 in procedure "pl1_nodes_template_" set ref 144* node_type 116 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 169* node_type 14 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 94* node_type 123 000152 automatic bit(9) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 178* null builtin function dcl 22 ref 60 82 95 150 162 170 179 187 197 234 num_exclude_names 40 000100 automatic fixed bin(17,0) level 2 dcl 18 set ref 59* number_of_dimensions 1(07) 000152 automatic fixed bin(7,0) level 3 packed unaligned dcl 27 set ref 73* number_of_entries 60 000152 automatic fixed bin(17,0) level 3 dcl 27 set ref 120* o_and_s 54 000152 automatic pointer level 3 dcl 27 set ref 95* offset 142 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 197* offset_units 1(31) 000152 automatic fixed bin(3,0) level 3 packed unaligned dcl 27 set ref 73* ok_to_free 107(35) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 161* own_number_of_dimensions 1(15) 000152 automatic fixed bin(7,0) level 3 packed unaligned dcl 27 set ref 73* p 000100 automatic pointer array level 3 dcl 18 set ref 65* pad 107(09) 000152 automatic bit(26) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 160* pad 57(02) 000152 automatic bit(16) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 140* pic_char 152(30) 000152 automatic bit(1) level 4 packed unaligned dcl 27 set ref 260* pic_fixed 152(28) 000152 automatic bit(1) level 4 packed unaligned dcl 27 set ref 260* pic_float 152(29) 000152 automatic bit(1) level 4 packed unaligned dcl 27 set ref 260* pic_scale 152(31) 000152 automatic fixed bin(7,0) level 4 packed unaligned dcl 27 set ref 249* pic_size 153(03) 000152 automatic fixed bin(7,0) level 4 packed unaligned dcl 27 set ref 249* pix 152(28) 000152 automatic structure level 3 packed unaligned dcl 27 plio_fa 34 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* plio_fab2 37 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* plio_ffsb 35 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* plio_ps 33 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* plio_ssl 36 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* predicate 120 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 170* prefix 40(09) 000152 automatic bit(12) level 3 packed unaligned dcl 27 set ref 130* processed 40(25) 000152 automatic bit(1) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 133* processed 135(13) 000152 automatic bit(1) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 214* prologue 25 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* prologue_flag 57 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 139* put_data_sw 135(12) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 214* qualifier 141 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 197* ref_count 135(18) 000152 automatic fixed bin(17,0) level 3 packed unaligned dcl 27 set ref 206* reference based structure level 1 dcl 8-3 reference_node 000006 constant bit(9) initial dcl 2-5 ref 195 reference_template 135 000152 automatic structure level 2 dcl 27 relocation 147(24) 000152 automatic bit(12) level 3 packed unaligned dcl 27 set ref 214* reserved 152(22) 000152 automatic bit(6) level 3 packed unaligned dcl 27 set ref 260* return_count 32 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* return_values 31 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 95* right_brother 113 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 162* runtime 154 000152 automatic bit(18) level 3 packed unaligned dcl 27 set ref 230* runtime_offset 154(18) 000152 automatic bit(18) level 3 packed unaligned dcl 27 set ref 230* scale 153(28) 000152 automatic fixed bin(7,0) level 3 packed unaligned dcl 27 set ref 249* sections 000100 automatic structure array level 2 dcl 18 seg_name 30 000100 automatic char(32) level 2 dcl 18 set ref 62* shared 135(11) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 225* size builtin function dcl 22 ref 64 size_units 153(24) 000152 automatic fixed bin(3,0) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 249* size_units 1(27) 000152 automatic fixed bin(3,0) level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 73* son 114 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 162* son 17 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 95* son 172 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 234* source_id 151(09) 000152 automatic structure level 3 packed unaligned dcl 27 set ref 232* start 66 000152 automatic fixed bin(17,0) level 4 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 120* start 65 000152 automatic fixed bin(17,0) level 4 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 120* statement 134 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 187* store_ins 150(18) 000152 automatic bit(18) level 3 packed unaligned dcl 27 set ref 212* struct_name 3 000100 automatic char(32) array level 3 dcl 18 set ref 63* subscript_list 144 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 197* switches 44 000100 automatic structure level 2 dcl 18 symbol 121 000152 automatic pointer level 3 in structure "auto_pl1_nodes_template_" packed unaligned dcl 27 in procedure "pl1_nodes_template_" set ref 170* symbol based structure level 1 dcl 9-3 in procedure "pl1_nodes_template_" symbol_block 63 000152 automatic fixed bin(17,0) level 3 dcl 27 set ref 120* symbol_node 000005 constant bit(9) initial dcl 2-5 ref 228 symbol_table 125(18) 000152 automatic bit(18) level 3 packed unaligned dcl 27 set ref 181* symbol_template 151 000152 automatic structure level 2 dcl 27 symtab_element_size 11 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* symtab_lower 103 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* symtab_multiplier 105 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* symtab_size 176 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* symtab_upper 104 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* symtab_virtual_origin 10 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* system 122 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 173* temp_list 50 000152 automatic pointer level 3 dcl 27 set ref 95* text_displayed 40(26) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 133* token 110 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 162* units 135(14) 000152 automatic fixed bin(3,0) level 3 packed unaligned dcl 27 set ref 206* unspec builtin function dcl 22 set ref 52* 54* upper 100 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 150* used_as_format 125(16) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 181* used_in_goto 125(17) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 181* varying_ref 135(10) 000152 automatic bit(1) level 3 packed unaligned dcl 27 set ref 214* virtual_origin 7 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 82* why_nonquick 56 000152 automatic structure level 3 dcl 27 set ref 131* word_size 173 000152 automatic pointer level 3 packed unaligned dcl 27 set ref 234* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. binary builtin function dcl 22 context_node constant bit(9) initial dcl 2-5 cross_reference_node constant bit(9) initial dcl 2-5 exclude_names based char(32) array unaligned dcl 1-18 format_value_node constant bit(9) initial dcl 2-5 label_array_element_node constant bit(9) initial dcl 2-5 length builtin function dcl 22 list_node constant bit(9) initial dcl 2-5 machine_state_node constant bit(9) initial dcl 2-5 max_block_number constant fixed bin(17,0) initial dcl 4-74 node based structure level 1 dcl 2-27 operator_node constant bit(9) initial dcl 2-5 p 000146 automatic pointer dcl 24 rel builtin function dcl 22 sf_par_node constant bit(9) initial dcl 2-5 source_node constant bit(9) initial dcl 2-5 statement_node constant bit(9) initial dcl 2-5 temporary_node constant bit(9) initial dcl 2-5 token_node constant bit(9) initial dcl 2-5 NAME DECLARED BY EXPLICIT CONTEXT. pl1_nodes_template_ 000030 constant entry external dcl 11 NAME DECLARED BY CONTEXT OR IMPLICATION. string builtin function set ref 131 214* 214* 214* 223* 232* 266* STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 642 660 566 652 Length 14760 566 16 14064 54 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME pl1_nodes_template_ 258 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME pl1_nodes_template_ 000100 my_cds_args pl1_nodes_template_ 000146 p pl1_nodes_template_ 000150 code pl1_nodes_template_ 000152 auto_pl1_nodes_template_ pl1_nodes_template_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ create_data_segment_ NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 11 000027 25 000035 52 000036 54 000041 58 000044 59 000046 60 000047 62 000051 63 000054 64 000057 65 000061 70 000063 71 000065 73 000067 82 000116 94 000126 95 000130 120 000161 130 000176 131 000202 133 000203 139 000215 140 000217 144 000221 145 000223 150 000227 159 000240 160 000242 161 000244 162 000246 169 000255 170 000257 173 000263 178 000271 179 000273 181 000275 187 000307 190 000312 195 000317 197 000321 206 000326 212 000340 214 000342 223 000361 225 000363 228 000365 230 000367 232 000373 234 000375 249 000414 260 000452 266 000464 270 000467 272 000501 275 000526 Object Segment >spec>on>pl128d>pl1_nodes_template_ Created on 10/04/83 1026.4 mst Tue by GJohnson.SysMaint.a using create_data_segment_, Version II of Monday, August 15, 1983 Object Text Defs Link Symb Static Start 0 0 206 324 334 334 Length 655 206 116 10 305 0 10 Definitions: segname: pl1_nodes_template_ text|0 array_template text|14 block_template text|72 bound_template text|107 by_name_agg_template text|116 default_template text|123 label_template text|135 reference_template symb|0 symbol_table text|151 symbol_template No Links. ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved