1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
|
#ifndef VOID
# ifdef THINK_C
# define VOID void
# else
# define VOID
# endif
#endif
#ifndef LONG
# define LONG long
#endif
#ifndef ULONG
# define ULONG unsigned long
#endif
void code_acosR (VOID);
void code_add_args (int source_offset,int n_arguments,int destination_offset);
void code_addI (VOID);
#ifndef M68000
void code_addIo (VOID);
#endif
void code_addR (VOID);
void code_andB (VOID);
void code_and (VOID);
void code_array (VOID);
void code_asinR (VOID);
void code_atanR (VOID);
void code_build (char descriptor_name[],int arity,char *code_name);
void code_buildh (char descriptor_name[],int arity);
void code_buildB (int value);
void code_buildC (int value);
void code_buildI (LONG value);
void code_buildR (double value);
void code_buildAC (char *string,int string_length);
void code_buildB_b (int b_offset);
void code_buildC_b (int b_offset);
void code_buildF_b (int b_offset);
void code_buildI_b (int b_offset);
void code_buildR_b (int b_offset);
void code_build_r (char descriptor_name[],int a_size,int b_size,int a_offset,int b_offset);
void code_build_u (char descriptor_name[],int a_size,int b_size,char *code_name);
void code_CtoI (VOID);
void code_catS (int source_offset_1,int source_offset_2,int destination_offset);
#if defined (M68000) || defined (G_POWER)
void code_call (char *s1,int length,char *label);
#endif
void code_ccall (char *label,char *s,int length);
void code_centry (char *c_function_name,char *clean_function_label,char *s,int length);
void code_channelP (int a_offset);
void code_cmpS (int a_offset_1,int a_offset_2);
void code_copy_graph (int a_offset);
void code_CtoAC (VOID);
void code_currentP (VOID);
void code_cosR (VOID);
void code_create (int n_arguments);
void code_create_array (char *element_descriptor,int a_size,int b_size);
void code_create_array_ (char *element_descriptor,int a_size,int b_size);
void code_create_channel (char *label_name);
void code_decI (VOID);
void code_del_args (int source_offset,int n_arguments,int destination_offset);
void code_divI (VOID);
void code_divR (VOID);
void code_entierR (VOID);
void code_eqB (VOID);
void code_eqB_a (int value,int a_offset);
void code_eqB_b (int value,int b_offset);
void code_eqC (VOID);
void code_eqC_a (int value,int a_offset);
void code_eqC_b (int value,int b_offset);
void code_eqD_b (char descriptor_name[],int arity);
void code_eqI (VOID);
void code_eqI_a (LONG value,int a_offset);
void code_eqI_b (LONG value,int b_offset);
void code_eqR (VOID);
void code_eqR_a (double value,int a_offset);
void code_eqR_b (double value,int b_offset);
void code_eqAC_a (char *string,int string_length);
void code_eq_desc (char descriptor_name[],int arity,int a_offset);
void code_eq_desc_b (char descriptor_name[],int arity);
void code_eq_nulldesc (char descriptor_name[],int a_offset);
void code_eq_symbol (int a_offset_1,int a_offset_2);
void code_exit_false (char label_name[]);
void code_expR (VOID);
void code_fill (char *,int,char *,int);
void code_fillh (char *,int,int);
void code_fill1 (char descriptor_name[],int arity,int a_offset,char bits[]);
void code_fill2 (char descriptor_name[],int arity,int a_offset,char bits[]);
void code_fill3 (char descriptor_name[],int arity,int a_offset,char bits[]);
void code_fill1_r (char descriptor_name[],int a_size,int b_size,int root_offset,char bits[]);
void code_fill2_r (char descriptor_name[],int a_size,int b_size,int root_offset,char bits[]);
void code_fill3_r (char descriptor_name[],int a_size,int b_size,int root_offset,char bits[]);
void code_fill_r (char descriptor_name[],int n1,int n2,int n3,int n4,int n5);
void code_fillcaf (char *label_name,int a_size,int b_size);
void code_fillcp (char *,int,char *,int,char bits[]);
void code_fillcp_u (char descriptor_name[],int a_size,int b_size,char *code_name,int a_offset,char bits[]);
void code_fill_u (char descriptor_name[],int a_size,int b_size,char *code_name,int a_offset);
void code_fillA_a (char *descriptor,int a_offset_1,int a_offset_2);
void code_fillB (int value,int a_offset);
void code_fillB_b (int b_offset,int a_offset);
void code_fillC (int value,int a_offset);
void code_fillC_b (int b_offset,int a_offset);
void code_fillF_b (int b_offset,int a_offset);
void code_fillI (LONG value,int a_offset);
void code_fillI_b (int b_offset,int a_offset);
void code_fillR (double value,int a_offset);
void code_fillR_b (int b_offset,int a_offset);
void code_fill_a (int from_offset,int to_offset);
void code_get_desc_arity (int a_offset);
void code_get_node_arity (int a_offset);
void code_gtC (VOID);
void code_gtI (VOID);
void code_gtR (VOID);
void code_halt (VOID);
void code_in (char parameters[]);
void code_incI (VOID);
void code_instruction (int i);
void code_is_record (int a_offset);
void code_ItoC (VOID);
void code_ItoP (VOID);
void code_ItoR (VOID);
void code_jmp (char label_name[]);
void code_jmp_eval (VOID);
void code_jmp_eval_upd (VOID);
void code_jmp_false (char label_name[]);
void code_jmp_true (char label_name[]);
void code_jsr (char label_name[]);
void code_jsr_eval (int a_offset);
void code_lnR (VOID);
void code_log10R (VOID);
void code_ltC (VOID);
void code_ltI (VOID);
void code_ltR (VOID);
void code_remI (VOID);
void code_mulI (VOID);
#ifndef M68000
void code_mulIo (VOID);
#endif
void code_mulR (VOID);
void code_negR (VOID);
void code_new_ext_reducer (char descriptor_name[],int a_offset);
void code_new_int_reducer (char label_name[],int a_offset);
void code_newP (VOID);
void code_no_op (VOID);
void code_notB (VOID);
void code_not (VOID);
void code_orB (VOID);
void code_or (VOID);
void code_out (char parameters[]);
void code_parallel (VOID);
void code_pause (VOID);
void code_pop_a (int n);
void code_pop_b (int n);
void code_powR (VOID);
void code_print (char *string,int length);
void code_print_char (VOID);
void code_print_int (VOID);
void code_print_real (VOID);
#if 0
void code_print_r_arg (int a_offset);
#endif
void code_print_sc (char *string,int length);
void code_print_symbol (int a_offset);
void code_print_symbol_sc (int a_offset);
void code_printD (VOID);
#ifdef FINALIZERS
void code_push_finalizers(VOID);
#endif
void code_push_r_args (int n1,int n2,int n3);
void code_push_r_args_a (int n1,int n2,int n3,int n4,int n5);
void code_push_r_args_b (int n1,int n2,int n3,int n4,int n5);
void code_push_r_args_u (int n1,int n2,int n3);
void code_repl_r_args (int n1,int n2);
void code_repl_r_args_a (int n1,int n2,int n3,int n4);
void code_repl_r_args_b (int n1,int n2,int n3,int n4);
void code_pushA_a (int a_offset);
void code_pushB (int b);
void code_pushB_a (int a_offset);
void code_pushC (int c);
void code_pushC_a (int a_offset);
void code_pushD (char *descriptor);
void code_pushD_a (int a_offset);
void code_pushF_a (int a_offset);
void code_pushI (LONG i);
void code_pushI_a (int a_offset);
void code_pushL (char *label_name);
void code_pushR (double r);
void code_pushR_a (int a_offset);
void code_pushzs (char *string,int length);
void code_push_a (int a_offset);
void code_push_b (int b_offset);
void code_push_a_b (int a_offset);
void code_push_a_r_args (VOID);
void code_push_b_a (int b_offset);
void code_push_t_r_a (int a_offset);
void code_push_t_r_args (VOID);
void code_push_arg (int a_offset,int arity,int argument_number);
void code_push_arg_b (int a_offset);
void code_push_args (int a_offset,int arity,int n_arguments);
void code_push_args_u (int a_offset,int arity,int n_arguments);
void code_push_arraysize (char *element_descriptor,int a_size,int b_size);
void code_pushcaf (char *label_name,int a_size,int b_size);
void code_push_node (char *label_name,int n_arguments);
void code_push_node_u (char *label_name,int a_size,int b_size);
void code_push_r_arg_t (VOID);
void code_push_r_arg_u (int a_offset,int a_size,int b_size,int a_arg_offset,int a_arg_size,int b_arg_offset,int b_arg_size);
void code_release (VOID);
void code_randomP (VOID);
void code_replace (char element_descriptor[],int a_size,int b_size);
void code_repl_arg (int arity,int argument_n);
void code_repl_args (int arity,int n_arguments);
void code_repl_args_b (VOID);
void code_rtn (VOID);
void code_RtoI (VOID);
void code_select (char *element_descriptor,int a_size,int b_size);
void code_send_graph (char descriptor_name[],int a_offset_1,int a_offset_2);
void code_send_request (int a_offset);
void code_set_continue (int a_offset);
void code_set_defer (int a_offset);
void code_set_entry (char *label_name,int a_offset);
#ifdef FINALIZERS
void code_set_finalizers(VOID);
#endif
void code_shiftl (VOID);
void code_shiftr (VOID);
void code_shiftrU (VOID);
void code_sinR (VOID);
void code_sliceS (int source_offset,int destination_offset);
void code_sqrtR (VOID);
void code_stop_reducer (VOID);
void code_subI (VOID);
#ifndef M68000
void code_subIo (VOID);
#endif
void code_subR (VOID);
void code_suspend (VOID);
void code_tanR (VOID);
void code_testcaf (char *label_name);
void code_update (char *element_descriptor,int a_size,int b_size);
void code_update_a (int a_offset_1,int a_offset_2);
void code_updatepop_a (int a_offset_1,int a_offset_2);
void code_update_b (int b_offset_1,int b_offset_2);
void code_updatepop_b (int b_offset_1,int b_offset_2);
void code_updateS (int source_offset,int destination_offset);
void code_xor (VOID);
void code_caf (char *label_name,int a_size,int b_size);
void code_comp (int version,char *options);
void code_d (int da,int db,ULONG vector[]);
void code_desc (char *s1,char *s2,char *s3,int n,int lazy_record_flag,char *s4,int l);
void code_descn (char label_name[],char node_entry_label_name[],int arity,int lazy_record_flag,char descriptor_name[],int descriptor_name_length);
void code_descexp (char *s1,char *s2,char *s3,int n,int lazy_record_flag,char *s4,int l);
void code_record (char *s1,char *s2,int n1,int n2,char *s3,int s3_length);
void code_depend (char *module_name,int module_name_length);
void code_export (char *label_name);
void code_impdesc (char *label_name);
void code_implab_node_entry (char *label_name,char *ea_label_name);
void code_implab (char *label_name);
void code_keep (int a_offset_1,int a_offset_2);
void code_n (int number_of_arguments,char *descriptor_name,char *ea_label_name);
void code_nu (int a_size,int b_size,char *descriptor_name,char *ea_label_name);
void code_n_string (char *s1,int l);
void code_o (int oa,int ob,ULONG vector[]);
void code_pb (char string[],int string_length);
void code_pd (void);
void code_pe (void);
void code_pl (void);
void code_pld (void);
void code_pn (void);
void code_pt (void);
void code_module (char *s1,char *s2,int l);
void code_start (char *label_name);
void code_string (char *s1,char *s2,int l);
void code_dummy (VOID);
void code_label (char *label);
void code_newlocallabel (char *label_name);
void initialize_coding (VOID);
|
