1 /* BEGIN INCLUDE FILE ... pl1_cg_dcls.incl.pl1 */
  2 
  3 /* format: style3,idind30 */
  4 
  5 declare   adjust_ref_count              entry (ptr, fixed bin);
  6 declare   aq_man$check_strings          entry (fixed bin);
  7 declare   aq_man$clear_q                entry ();
  8 declare   aq_man$fix_scale              entry (ptr, fixed bin, fixed bin);
  9 declare   aq_man$left_shift             entry (fixed bin (8), bit (1) aligned);
 10 declare   aq_man$load_any_const         entry (fixed bin (24), fixed bin (2));
 11 declare   aq_man$load_any_var           entry (ptr, fixed bin (2), fixed bin (24));
 12 declare   aq_man$load_any_var_and_lock  entry (ptr, fixed bin (2));
 13 declare   aq_man$load_var               entry (ptr, fixed bin (2));
 14 declare   aq_man$lock                   entry (ptr, fixed bin (2));
 15 declare   aq_man$pad_aq                 entry (fixed bin, fixed bin);
 16 declare   aq_man$right_shift            entry (fixed bin (8), bit (1) aligned);
 17 declare   aq_man$save_aq                entry (ptr, fixed bin);
 18 declare   aq_man$trim_aq                entry (fixed bin);
 19 declare   arith_op                      entry (ptr, (3) ptr, (3) bit (1) aligned);
 20 declare   assign_desc_op                entry (ptr) returns (ptr);
 21 declare   assign_op                     entry (ptr);
 22 declare   assign_op$fix_dec_scaled      entry (ptr);
 23 declare   assign_op$length_of_varying   entry (ptr, ptr);
 24 declare   assign_op$to_dec_scaled       entry (ptr, ptr);
 25 declare   assign_storage                entry (ptr);
 26 declare   base_man$load_any_var         entry (fixed bin, ptr, bit (3) aligned);
 27 declare   base_man$load_any_var_and_lock
 28                                         entry (fixed bin, ptr, bit (3) aligned);
 29 declare   base_man$load_arg             entry (fixed bin, ptr, bit (3) aligned);
 30 declare   base_man$load_arg_ptr         entry (fixed bin, ptr, fixed bin, bit (3) aligned);
 31 declare   base_man$load_controlled      entry (fixed bin, fixed bin, bit (3) aligned);
 32 declare   base_man$load_display         entry (fixed bin, bit (3) aligned);
 33 declare   base_man$load_link_indirect   entry (fixed bin, bit (12) aligned, bit (3) aligned);
 34 declare   base_man$load_linkage         entry (bit (3) aligned);
 35 declare   base_man$load_packed          entry (ptr, fixed bin);
 36 declare   base_man$load_stack_indirect  entry (fixed bin, bit (3) aligned);
 37 declare   base_man$load_static          entry (bit (3) aligned);
 38 declare   base_man$load_var             entry (fixed bin, ptr, fixed bin);
 39 declare   base_man$load_var_and_lock    entry (fixed bin, ptr, fixed bin);
 40 declare   base_man$lock                 entry (fixed bin);
 41 declare   base_man$store_ptr_to         entry (ptr, ptr);
 42 declare   base_man$unlock               entry (fixed bin);
 43 declare   base_man$update_base          entry (fixed bin, ptr, fixed bin);
 44 declare   base_to_core                  entry (fixed bin, ptr);
 45 declare   c_a                           entry (fixed bin (15), fixed bin) returns (ptr);
 46 declare   call_op                       entry (ptr) returns (ptr);
 47 declare   cat_op                        entry (ptr, (3) ptr, fixed bin);
 48 declare   cg_error                      entry (fixed bin, fixed bin);
 49 declare   check_o_and_s                 entry (ptr) returns (ptr);
 50 declare   code_gen_                     entry (char (32) var, char (3) var, char (132) var, ptr, ptr, ptr, ptr, ptr, ptr,
 51                                         fixed bin (71), fixed bin, bit (1) aligned, bit (1) aligned, bit (1) aligned,
 52                                         bit (1) aligned, bit (1) aligned, bit (1) aligned, bit (1) aligned, entry, entry,
 53                                         fixed bin (22), fixed bin, fixed bin (71), bit (1) aligned, ptr, bit (1) aligned,
 54                                         fixed bin, fixed bin (71), bit (1) aligned);
 55 declare   code_gen_$return_bit_count    entry (fixed bin, fixed bin, fixed bin (71), fixed bin, fixed bin (71));
 56 declare   code_generator$clean_up       entry ();
 57 declare   combine_tests                 entry (ptr, ptr);
 58 declare   compile_block                 entry (ptr);
 59 declare   compile_block$begin_block     entry (ptr);
 60 declare   compile_entry                 entry (ptr, fixed bin (18));
 61 declare   compile_exp                   entry (ptr);
 62 declare   compile_exp$for_test          entry (ptr);
 63 declare   compile_exp$save              entry (ptr, ptr);
 64 declare   compile_exp$save_exp          entry (ptr, ptr);
 65 declare   compile_exp$save_fix_scaled   entry (ptr, fixed bin, fixed bin) returns (ptr);
 66 declare   compile_exp$save_float_2      entry (ptr) returns (ptr);
 67 declare   compile_formats               entry ();
 68 declare   compile_link                  entry (char (*) aligned, bit (18) aligned, fixed bin (15)) returns (fixed bin (18));
 69 declare   compile_statement             entry (ptr);
 70 declare   compile_statement$recover     entry ();
 71 declare   compile_tree                  entry (ptr);
 72 declare   constant_zero                 entry (ptr) returns (bit (1));
 73 declare   convert_arithmetic            entry (ptr, ptr, bit (1) aligned, bit (1) aligned);
 74 declare   convert_chars                 entry (ptr, ptr, bit (1) aligned, bit (1) aligned);
 75 declare   copy_temp                     entry (ptr) returns (ptr);
 76 declare   decimal_op                    entry (ptr, (3) ptr, (3) bit (1) aligned);
 77 declare   decimal_op$change_target      entry (ptr) returns (bit (1) aligned);
 78 declare   decimal_op$get_float_temp     entry (fixed bin (24), bit (1) aligned) returns (ptr);
 79 declare   e_v                           entry (ptr, fixed bin, ptr, fixed bin, fixed bin, bit (36) aligned);
 80 declare   e_v$l_v                       entry (ptr, fixed bin, ptr, fixed bin, fixed bin, bit (36) aligned);
 81 declare   eval_exp                      entry (ptr, bit (1) aligned) returns (ptr);
 82 declare   exp_op                        entry (ptr, (3) ptr, (3) bit (1) aligned);
 83 declare   expmac                        entry (fixed bin, ptr);
 84 declare   expmac$abs                    entry (ptr, fixed bin);
 85 declare   expmac$conditional            entry (fixed bin, ptr, (4) ptr, (4) bit (1) aligned);
 86 declare   expmac$eis                    entry (fixed bin, ptr);
 87 declare   expmac$fill_usage             entry (fixed bin, fixed bin);
 88 declare   expmac$interpret              entry (fixed bin, ptr, (4) ptr, (4) bit (1) aligned);
 89 declare   expmac$many                   entry (fixed bin, ptr, fixed bin);
 90 declare   expmac$many_eis               entry (fixed bin, ptr, fixed bin);
 91 declare   expmac$one                    entry (fixed bin, ptr, fixed bin);
 92 declare   expmac$one_eis                entry (fixed bin, ptr);
 93 declare   expmac$two_eis                entry (fixed bin, ptr, ptr);
 94 declare   expmac$zero                   entry (fixed bin);
 95 declare   expmac_test                   entry (fixed bin, ptr, (3) ptr, (3) bit (1) aligned) returns (bit (1));
 96 declare   fixed_to_float                entry (ptr);
 97 declare   float_to_fixed                entry (ptr);
 98 declare   gen_arithmetic_builtin        entry (ptr, (3) ptr, (3) bit (1) aligned, fixed bin);
 99 declare   gen_arithmetic_call           entry (ptr, (3) ptr, (3) bit (1) aligned);
100 declare   gen_pl1_linkage               entry (ptr);
101 declare   gen_pl1_linkage$init_linkage  entry ();
102 declare   gen_pl1_symbol$beg_symbol     entry ();
103 declare   gen_pl1_symbol$end_symbol     entry ();
104 declare   generate_constant$bit_string  entry (bit (*) aligned, fixed bin) returns (ptr);
105 declare   generate_constant$char_string entry (char (*) aligned, fixed bin) returns (ptr);
106 declare   generate_constant$generate_constant
107                                         entry (bit (*) aligned, fixed bin) returns (ptr);
108 declare   generate_constant$real_fix_bin_1
109                                         entry (fixed bin) returns (ptr);
110 declare   generate_constant$relocatable entry (ptr, fixed bin, bit (1) aligned) returns (ptr);
111 declare   generate_definition           entry (char (*) aligned, fixed bin (3), bit (18) aligned);
112 declare   get_imaginary                 entry (ptr) returns (ptr);
113 declare   get_reference                 entry () returns (ptr);
114 declare   get_single_ref                entry (ptr) returns (ptr);
115 declare   get_variable                  entry (ptr) returns (ptr);
116 declare   initialize_ext_static         entry (ptr) returns (bit (18) aligned);
117 declare   initialize_int_static         entry (ptr, ptr);
118 declare   inline_operation              entry (ptr, (3) ptr, (3) bit (1) aligned) returns (bit (1) aligned);
119 declare   io_op                         entry (ptr);
120 declare   io_op$init_ps                 entry ();
121 declare   jump_op                       entry (ptr);
122 declare   jump_op$eval_primaries        entry (ptr);
123 declare   length_op                     entry (ptr) returns (ptr);
124 declare   load                          entry (ptr, fixed bin);
125 declare   load$for_save                 entry (ptr, fixed bin);
126 declare   load$for_store                entry (ptr, fixed bin);
127 declare   load$for_test                 entry (ptr, fixed bin);
128 declare   load$long_string              entry (ptr);
129 declare   load$short_string             entry (ptr, fixed bin);
130 declare   load_size                     entry (ptr);
131 declare   load_size$a_or_q              entry (ptr, fixed bin);
132 declare   load_size$xr_or_aq            entry (ptr, bit (4) aligned);
133 declare   long_op                       entry (ptr, fixed bin, fixed bin (15));
134 declare   long_op$c_or_b                entry (ptr, fixed bin, fixed bin (15));
135 declare   long_op$eis                   entry (ptr, fixed bin, fixed bin (15));
136 declare   long_op$eis_operator          entry (ptr, ptr, fixed bin (15));
137 declare   long_op$extend_stack          entry (ptr, fixed bin (15));
138 declare   long_op$io                    entry (ptr, fixed bin (15));
139 declare   long_op$no_size               entry (ptr, fixed bin (15));
140 declare   long_op$one_eis               entry (ptr, fixed bin, fixed bin (15));
141 declare   long_op$two_eis               entry (ptr, fixed bin, fixed bin (15), ptr);
142 declare   long_op$with_arg              entry (ptr, fixed bin, fixed bin (15), ptr);
143 declare   m_a                           entry (ptr, bit (2) aligned);
144 declare   make_both_addressable         entry (ptr, ptr, bit (1) aligned);
145 declare   make_n_addressable            entry (ptr, fixed bin);
146 declare   make_mod                      entry (fixed bin, fixed bin) returns (fixed bin);
147 declare   min_max                       entry (ptr);
148 declare   move_data                     entry (ptr);
149 declare   move_data$move_block          entry (ptr, ptr, fixed bin);
150 declare   mst$block_nodes               entry (ptr, fixed bin (18)) returns (fixed bin (18));
151 declare   mst$data_nodes                entry (ptr, fixed bin (18)) returns (fixed bin (18));
152 declare   name_assign                   entry (char (*) aligned) returns (bit (18) aligned);
153 declare   need_temp                     entry (ptr, bit (2) aligned);
154 declare   optimize_if                   entry (ptr);
155 declare   picture_op                    entry (ptr);
156 declare   pointer_builtins              entry (ptr, bit (1) aligned);
157 declare   power_of_two                  entry (fixed bin (18)) returns (fixed bin (18));
158 declare   prepare_operand               entry (ptr, fixed bin, bit (1) aligned) returns (ptr);
159 declare   save_value                    entry (ptr);
160 declare   set_indicators                entry (ptr, ptr, ptr, fixed bin) returns (fixed bin (1));
161 declare   stack_temp$assign_aggregate   entry (ptr);
162 declare   stack_temp$assign_block       entry (ptr, fixed bin);
163 declare   stack_temp$assign_return_value
164                                         entry (ptr);
165 declare   stack_temp$assign_temp        entry (ptr);
166 declare   stack_temp$free_aggregates    entry ();
167 declare   stack_temp$free_temp          entry (ptr);
168 declare   state_man$create_ms           entry (ptr);
169 declare   state_man$discard_ms          entry ();
170 declare   state_man$erase_reg           entry (bit (19) aligned);
171 declare   state_man$erase_temps         entry ();
172 declare   state_man$flush               entry ();
173 declare   state_man$flush_address       entry (ptr);
174 declare   state_man$flush_ref           entry (ptr);
175 declare   state_man$flush_sym           entry (ptr);
176 declare   state_man$merge_ms            entry (ptr);
177 declare   state_man$save_ms             entry (ptr, bit (1) aligned);
178 declare   state_man$set_aliasables      entry (ptr);
179 declare   state_man$unlock              entry ();
180 declare   state_man$update_ref          entry (ptr);
181 declare   state_man$update_reg          entry (ptr, bit (19) aligned);
182 declare   store                         entry (ptr);
183 declare   store$all_ones                entry (ptr);
184 declare   store$all_zeros               entry (ptr);
185 declare   store$force                   entry (ptr);
186 declare   store$save_string_temp        entry (ptr);
187 declare   store_bit_address             entry (ptr, ptr, fixed bin (18));
188 declare   string_op                     entry (ptr, (3) ptr, fixed bin (15));
189 declare   string_temp                   entry (ptr, ptr, ptr) returns (ptr);
190 declare   xr_man$add_any_const          entry (fixed bin (18), fixed bin, fixed bin);
191 declare   xr_man$load_any_const         entry (fixed bin (18), fixed bin);
192 declare   xr_man$load_any_var           entry (ptr, fixed bin, fixed bin (18));
193 declare   xr_man$load_any_var_and_lock  entry (ptr, fixed bin, fixed bin (18));
194 declare   xr_man$load_const             entry (fixed bin (18), fixed bin);
195 declare   xr_man$load_var               entry (ptr, fixed bin);
196 declare   xr_man$lock                   entry (ptr, fixed bin);
197 declare   xr_man$super_lock             entry (fixed bin);
198 declare   xr_man$super_unlock           entry (fixed bin);
199 declare   xr_man$unlock                 entry (fixed bin);
200 declare   xr_man$update_xr              entry (ptr, fixed bin);
201 
202 /* END INCLUDE FILE ... pl1_cg_dcls.incl.pl1 */