1 #include <stdio.h>
2 #include <string.h>
3 #include <stdlib.h>
4 #include "prescheme.h"
5 #include "scheme48vm-prelude.h"
6 
7 struct image_location {
8   long new_descriptor;
9   long next;
10 };
11 struct table {
12   long *keys;
13   struct image_location **values;
14   long count;
15   long size;
16 };
17 struct event_type {
18   long uid;
19   char usedP;
20   struct event_type *next;
21 };
22 static char add_more_channels(long);
23 static char add_external_event_types(long);
24 static char encode_scalar_valueUutf_16le(long, char *, long, char*, long*);
25 static char encode_scalar_valueUutf_16be(long, char *, long, char*, long*);
26 static char encode_scalar_valueUutf_8(long, char *, long, char*, long*);
27 static char decode_scalar_valueUutf_16le(char *, long, char*, long*, long*);
28 static char decode_scalar_valueUutf_16be(char *, long, char*, long*, long*);
29 static char decode_scalar_valueUutf_8(char *, long, char*, long*, long*);
30 static char integerLE(long, long);
31 static char integerGE(long, long);
32 static char shared_binding_undefinedP(long);
33 static void enqueue_channelB(long, long, long);
34 static long make_blank_return_code(long, long, long, long, long);
35 static long close_channelB(long);
36 static void copy_vm_string_to_stringUlatin_1B(long, long, long, char*);
37 static void decodeUutf_8B(char *, long, long);
38 static void decodeUutf_16beB(char *, long, long);
39 static void decodeUutf_16leB(char *, long, long);
40 static char not_record_typeP(long);
41 static long enter_bignum(char *);
42 static char integerE(long, long);
43 static long add_log_entryAgc(long, long, long, long, long, char);
44 static long make_channel(long, long, long, long, long, long, long, long);
45 static long enter_stringAgc_n(char*, long);
46 static long write_vm_string(long, FILE *);
47 static long Haction5350(long);
48 static long current_code_vector(void);
49 static void channel_close_error(long, long, long);
50 static long integer_bit_count(long);
51 static long integer_add(long, long);
52 static long integer_subtract(long, long);
53 static long integer_multiply(long, long);
54 static char integer_divide(long, long, long*, long*, long*, long*);
55 static long integer_bitwise_not(long);
56 static long integer_bitwise_and(long, long);
57 static long integer_bitwise_ior(long, long);
58 static long integer_bitwise_xor(long, long);
59 static long Hinteger_op8731(long, long);
60 static long Hinteger_op8662(long, long);
61 static char for_each_imported_binding(char(*)(long));
62 static long really_preserve_continuation(long);
63 static void push_exception_setupB(long, long);
64 static long Hlookup853(long, long, long);
65 static long Hlookup834(long, long, long);
66 static void HtopD12305(char, char);
67 static void HtopD12316(void);
68 void s48_set_native_protocolB(long);
69 void s48_set_extension_valueB(long);
70 long s48_channel_count(void);
71 long *s48_channels(void);
72 long s48_imported_bindings(void);
73 long s48_exported_bindings(void);
74 char s48_os_signal_pending(void);
75 long s48_symbol_table(void);
76 char * s48_set_gc_roots_baseB(void);
77 char s48_release_gc_roots_baseB(char *);
78 void s48_reset_external_rootsB(void);
79 char s48_external_event_readyPUunsafe(void);
80 void s48_note_event(void);
81 void s48_reset_interruptsB(void);
82 void s48_disable_interruptsB(void);
83 void s48_add_os_signal(long);
84 void s48_push_gc_rootsB(char *, long);
85 char * s48_register_gc_rootB(char *);
86 char s48_external_event_pendingPUunsafe(void);
87 long s48_dequeue_external_eventBUunsafe(char*);
88 void s48_note_external_eventBUunsafe(long);
89 void s48_stack_setB(long, long);
90 long s48_stack_ref(long);
91 void s48_push(long);
92 long s48_resetup_external_exception(long, long);
93 char s48_pop_gc_rootsB(void);
94 void s48_unregister_gc_rootB(char *);
95 char * s48_shorten_bignum(char *, long);
96 long s48_allocate_bignum(long);
97 void s48_enable_interruptsB(void);
98 long s48_allocate_string(long);
99 long s48_set_channel_os_index(long, long);
100 long s48_integer_or_floanum_L(long, long);
101 long s48_integer_or_floanum_G(long, long);
102 long s48_integer_or_floanum_LE(long, long);
103 long s48_integer_or_floanum_GE(long, long);
104 long s48_make_blank_return_code(long, long, long, long);
105 long s48_enter_string_utf_8(char *);
106 long s48_enter_string_utf_8_n(char *, long);
107 long s48_enter_string_utf_16beU(char *);
108 long s48_enter_string_utf_16be_nU(char *, long);
109 long s48_enter_string_utf_16leU(char *);
110 long s48_enter_string_utf_16le_nU(char *, long);
111 long s48_integer_or_floanum_E(long, long);
112 void s48_close_channel(long);
113 long s48_enter_string_latin_1_n(char*, long);
114 void s48_string_set(long, long, long);
115 long s48_string_ref(long, long);
116 long s48_string_length(long);
117 void s48_copy_latin_1_to_string_n(char*, long, long);
118 void s48_copy_latin_1_to_string(char*, long);
119 void s48_copy_string_to_latin_1(long, char*);
120 void s48_copy_string_to_latin_1_n(long, long, long, char*);
121 long s48_string_utf_8_length(long);
122 long s48_string_utf_8_length_n(long, long, long);
123 long s48_copy_string_to_utf_8(long, char *);
124 long s48_copy_string_to_utf_8_n(long, long, long, char *);
125 long s48_string_utf_16be_length(long);
126 long s48_string_utf_16be_length_n(long, long, long);
127 long s48_copy_string_to_utf_16beU(long, char *);
128 long s48_copy_string_to_utf_16be_nU(long, long, long, char *);
129 long s48_string_utf_16le_length(long);
130 long s48_string_utf_16le_length_n(long, long, long);
131 long s48_copy_string_to_utf_16leU(long, char *);
132 long s48_copy_string_to_utf_16le_nU(long, long, long, char *);
133 void check_stack(void);
134 long s48_really_add_channel(long, long, long);
135 long s48_enter_string_latin_1(char*);
136 long s48_integer_bit_count(long);
137 long s48_enter_integer(long);
138 long s48_enter_unsigned_integer(unsigned long);
139 long s48_integer_or_floanum_add(long, long);
140 long s48_integer_or_floanum_sub(long, long);
141 long s48_integer_or_floanum_mul(long, long);
142 char s48_integer_divide(long, long, long*, long*, long*, long*);
143 long s48_integer_bitwise_not(long);
144 long s48_integer_bitwise_and(long, long);
145 long s48_integer_bitwise_ior(long, long);
146 long s48_integer_bitwise_xor(long, long);
147 void s48_setup_external_exception(long, long);
148 long message_element(long, FILE *);
149 long s48_integer_quotient(long, long);
150 long s48_integer_remainder(long, long);
151 void s48_copy_stack_into_heap(void);
152 long s48_get_imported_binding(char*);
153 long s48_define_exported_binding(char*, long);
154 void s48_initialize_vm(char *, long);
155 void s48_post_gc_cleanup(char, char);
156 void s48_gc_root(void);
157 long s48_restart(long, long);
158 long s48_call_startup_procedure(char**, long);
159 static long Spending_interruptsS;
160 static long Snumber_of_channelsS;
161 static long *Svm_channelsS;
162 static long Spending_channels_headS;
163 static long Spending_channels_tailS;
164 static long *Sutf_8_state_tableS;
165 static long *Sutf_8_masksS;
166 static long Stemp0S;
167 static long Stemp1S;
168 static char * Sstack_beginS;
169 static char * Sstack_endS;
170 static char * Sreal_stack_limitS;
171 static char * Sbottom_of_stackS;
172 static long Sheap_continuationS;
173 static char Sstack_warningPS;
174 static long Simported_bindingsS;
175 static long Sexported_bindingsS;
176 static long Snumber_of_event_typesS;
177 static struct event_type **Sevent_typesS;
178 static struct event_type *Spending_event_types_headS;
179 static struct event_type *Spending_event_types_tailS;
180 static struct event_type *Spending_event_types_readyS;
181 static struct event_type *Sunused_event_types_headS;
182 static long Sexception_handlersS;
183 static long Sinterrupt_handlersS;
184 static char * Slast_code_pointer_resumedS;
185 static long Scurrent_threadS;
186 static long Ssession_dataS;
187 static long Sfinalizer_alistS;
188 static long Sfinalize_theseS;
189 static char Sgc_in_troublePS;
190 static long Senabled_interruptsS;
191 static long Sinterrupted_templateS;
192 static long Sinterrupted_byte_opcode_return_codeS;
193 static long Sinterrupted_native_call_return_codeS;
194 static long Snative_poll_return_codeS;
195 static long Sexception_return_codeS;
196 static long Snative_exception_return_codeS;
197 static long Scall_with_values_return_codeS;
198 static long Ssaved_pcS;
199 static long *Sos_signal_ringS;
200 static long Sos_signal_ring_startS;
201 static long Sos_signal_ring_readyS;
202 static long Sos_signal_ring_endS;
203 static char Sexternal_exceptionPS;
204 static long Sexternal_exception_nargsS;
205 static long Sthe_symbol_tableS;
206 static char * Sexternal_root_stackS;
207 static char * Sexternal_root_stack_baseS;
208 static char * Spermanent_external_rootsS;
209 static long Sempty_logS;
210 static void (*Spost_gc_cleanupS)(char, char);
211 static void (*Sgc_root_procS)(void);
212 char * SstackS;
213 char * s48_Sstack_limitS;
214 char * ScontS;
215 char * Scode_pointerS;
216 long SvalS;
217 long Slast_code_calledS;
218 char s48_Spending_interruptPS;
219 long s48_Snc_templateS;
220 long Snative_exception_contS;
221 long s48_Snative_protocolS;
222 long s48_Sextension_valueS;
223 long s48_Scallback_return_stack_blockS;
224 char s48_Spending_eventsPS;
225 
add_more_channels(long index_7X)226 static char add_more_channels(long index_7X)
227 {
228   long arg0K0;
229   long i_13X;
230   long i_12X;
231   long *new_vm_channels_11X;
232   long new_count_10X;
233   long y_9X;
234   long x_8X;
235  {  x_8X = 1 + index_7X;
236   y_9X = 8 + (Snumber_of_channelsS);
237   if ((x_8X < y_9X)) {
238     arg0K0 = y_9X;
239     goto L3853;}
240   else {
241     arg0K0 = x_8X;
242     goto L3853;}}
243  L3853: {
244   new_count_10X = arg0K0;
245   new_vm_channels_11X = (long*)malloc(sizeof(long) * new_count_10X);
246   if ((NULL == new_vm_channels_11X)) {
247     return 0;}
248   else {
249     arg0K0 = 0;
250     goto L3865;}}
251  L3865: {
252   i_12X = arg0K0;
253   if ((i_12X == (Snumber_of_channelsS))) {
254     arg0K0 = (Snumber_of_channelsS);
255     goto L3938;}
256   else {
257     *(new_vm_channels_11X + i_12X) = (*((Svm_channelsS) + i_12X));
258     arg0K0 = (1 + i_12X);
259     goto L3865;}}
260  L3938: {
261   i_13X = arg0K0;
262   if ((i_13X == new_count_10X)) {
263     free((Svm_channelsS));
264     Svm_channelsS = new_vm_channels_11X;
265     Snumber_of_channelsS = new_count_10X;
266     return 1;}
267   else {
268     *(new_vm_channels_11X + i_13X) = 1;
269     arg0K0 = (1 + i_13X);
270     goto L3938;}}
271 }
add_external_event_types(long min_count_14X)272 static char add_external_event_types(long min_count_14X)
273 {
274   long arg0K0;
275   struct event_type *arg1K0;
276   struct event_type *t_21X;
277   struct event_type *event_type_20X;
278   struct event_type *next_19X;
279   long i_18X;
280   struct event_type **new_event_types_17X;
281   long old_count_16X;
282   struct event_type **old_event_types_15X;
283  {  old_event_types_15X = Sevent_typesS;
284   old_count_16X = Snumber_of_event_typesS;
285   new_event_types_17X = (struct event_type**)malloc(sizeof(struct event_type*) * min_count_14X);
286   if ((NULL == new_event_types_17X)) {
287     return 0;}
288   else {
289     arg0K0 = 0;
290     goto L5455;}}
291  L5455: {
292   i_18X = arg0K0;
293   if ((i_18X == min_count_14X)) {
294     Sevent_typesS = new_event_types_17X;
295     Snumber_of_event_typesS = min_count_14X;
296     free(old_event_types_15X);
297     return 1;}
298   else {
299     if ((i_18X < old_count_16X)) {
300       *(new_event_types_17X + i_18X) = (*(old_event_types_15X + i_18X));
301       arg0K0 = (1 + i_18X);
302       goto L5455;}
303     else {
304       next_19X = Sunused_event_types_headS;
305       event_type_20X = (struct event_type*)malloc(sizeof(struct event_type));
306       if ((NULL == event_type_20X)) {
307         arg1K0 = event_type_20X;
308         goto L5471;}
309       else {
310         event_type_20X->uid = i_18X;
311         event_type_20X->usedP = 0;
312         event_type_20X->next = next_19X;
313         arg1K0 = event_type_20X;
314         goto L5471;}}}}
315  L5471: {
316   t_21X = arg1K0;
317   if ((NULL == t_21X)) {
318     Sevent_typesS = new_event_types_17X;
319     Snumber_of_event_typesS = i_18X;
320     return 0;}
321   else {
322     *(new_event_types_17X + i_18X) = t_21X;
323     Sunused_event_types_headS = t_21X;
324     arg0K0 = (1 + i_18X);
325     goto L5455;}}
326 }
encode_scalar_valueUutf_16le(long value_22X,char * buffer_23X,long count_24X,char * TT0,long * TT1)327 static char encode_scalar_valueUutf_16le(long value_22X, char * buffer_23X, long count_24X, char *TT0, long *TT1)
328 {
329   long word_26X;
330   long word_25X;
331  {  if ((65535 < value_22X)) {
332     if ((count_24X < 4)) {
333       *TT0 = 1;
334       *TT1 = 4;
335       return 1;}
336     else {
337       word_25X = 55232 + (PS_SHIFT_RIGHT_LOGICAL_INLINE(value_22X, 10));
338       *((unsigned char *) buffer_23X) = (unsigned char) ((255 & word_25X));
339       *((unsigned char *) (buffer_23X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(word_25X, 8)));
340       word_26X = 56320 + (1023 & value_22X);
341       *((unsigned char *) (buffer_23X + 2)) = (unsigned char) ((255 & word_26X));
342       *((unsigned char *) (buffer_23X + 3)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(word_26X, 8)));
343       *TT0 = 0;
344       *TT1 = 4;
345       return 1;}}
346   else {
347     if ((count_24X < 2)) {
348       *TT0 = 1;
349       *TT1 = 2;
350       return 1;}
351     else {
352       *((unsigned char *) buffer_23X) = (unsigned char) ((255 & value_22X));
353       *((unsigned char *) (buffer_23X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_22X, 8)));
354       *TT0 = 0;
355       *TT1 = 2;
356       return 1;}}}
357 }
encode_scalar_valueUutf_16be(long value_27X,char * buffer_28X,long count_29X,char * TT0,long * TT1)358 static char encode_scalar_valueUutf_16be(long value_27X, char * buffer_28X, long count_29X, char *TT0, long *TT1)
359 {
360   long word_31X;
361   long word_30X;
362  {  if ((65535 < value_27X)) {
363     if ((count_29X < 4)) {
364       *TT0 = 1;
365       *TT1 = 4;
366       return 1;}
367     else {
368       word_30X = 55232 + (PS_SHIFT_RIGHT_LOGICAL_INLINE(value_27X, 10));
369       *((unsigned char *) buffer_28X) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(word_30X, 8)));
370       *((unsigned char *) (buffer_28X + 1)) = (unsigned char) ((255 & word_30X));
371       word_31X = 56320 + (1023 & value_27X);
372       *((unsigned char *) (buffer_28X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(word_31X, 8)));
373       *((unsigned char *) (buffer_28X + 3)) = (unsigned char) ((255 & word_31X));
374       *TT0 = 0;
375       *TT1 = 4;
376       return 1;}}
377   else {
378     if ((count_29X < 2)) {
379       *TT0 = 1;
380       *TT1 = 2;
381       return 1;}
382     else {
383       *((unsigned char *) buffer_28X) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_27X, 8)));
384       *((unsigned char *) (buffer_28X + 1)) = (unsigned char) ((255 & value_27X));
385       *TT0 = 0;
386       *TT1 = 2;
387       return 1;}}}
388 }
encode_scalar_valueUutf_8(long value_32X,char * buffer_33X,long count_34X,char * TT0,long * TT1)389 static char encode_scalar_valueUutf_8(long value_32X, char * buffer_33X, long count_34X, char *TT0, long *TT1)
390 {
391 
392  {  if ((127 < value_32X)) {
393     if ((2047 < value_32X)) {
394       if ((65535 < value_32X)) {
395         if ((count_34X < 4)) {
396           *TT0 = 1;
397           *TT1 = 4;
398           return 1;}
399         else {
400           *((unsigned char *) buffer_33X) = (unsigned char) ((240 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((1835008 & value_32X), 18))));
401           *((unsigned char *) (buffer_33X + 1)) = (unsigned char) ((128 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((258048 & value_32X), 12))));
402           *((unsigned char *) (buffer_33X + 2)) = (unsigned char) ((128 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((4032 & value_32X), 6))));
403           *((unsigned char *) (buffer_33X + 3)) = (unsigned char) ((128 + (63 & value_32X)));
404           *TT0 = 0;
405           *TT1 = 4;
406           return 1;}}
407       else {
408         if ((count_34X < 3)) {
409           *TT0 = 1;
410           *TT1 = 3;
411           return 1;}
412         else {
413           *((unsigned char *) buffer_33X) = (unsigned char) ((224 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((61440 & value_32X), 12))));
414           *((unsigned char *) (buffer_33X + 1)) = (unsigned char) ((128 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((4032 & value_32X), 6))));
415           *((unsigned char *) (buffer_33X + 2)) = (unsigned char) ((128 + (63 & value_32X)));
416           *TT0 = 0;
417           *TT1 = 3;
418           return 1;}}}
419     else {
420       if ((count_34X < 2)) {
421         *TT0 = 1;
422         *TT1 = 2;
423         return 1;}
424       else {
425         *((unsigned char *) buffer_33X) = (unsigned char) ((192 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((1984 & value_32X), 6))));
426         *((unsigned char *) (buffer_33X + 1)) = (unsigned char) ((128 + (63 & value_32X)));
427         *TT0 = 0;
428         *TT1 = 2;
429         return 1;}}}
430   else {
431     if ((count_34X < 1)) {
432       *TT0 = 1;
433       *TT1 = 1;
434       return 1;}
435     else {
436       *((unsigned char *) buffer_33X) = (unsigned char) (value_32X);
437       *TT0 = 0;
438       *TT1 = 1;
439       return 1;}}}
440 }
decode_scalar_valueUutf_16le(char * buffer_35X,long count_36X,char * TT0,long * TT1,long * TT2)441 static char decode_scalar_valueUutf_16le(char * buffer_35X, long count_36X, char *TT0, long *TT1, long *TT2)
442 {
443   long word1_38X;
444   long word0_37X;
445  {  if ((count_36X < 2)) {
446     *TT0 = 1;
447     *TT1 = 0;
448     *TT2 = 2;
449     return 1;}
450   else {
451     word0_37X = (*((unsigned char *) buffer_35X)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_35X + 1))), 8));
452     if ((word0_37X < 55296)) {
453       *TT0 = 0;
454       *TT1 = word0_37X;
455       *TT2 = 2;
456       return 1;}
457     else {
458       if ((57343 < word0_37X)) {
459         *TT0 = 0;
460         *TT1 = word0_37X;
461         *TT2 = 2;
462         return 1;}
463       else {
464         if ((count_36X < 4)) {
465           *TT0 = 1;
466           *TT1 = 0;
467           *TT2 = 4;
468           return 1;}
469         else {
470           if ((56319 < word0_37X)) {
471             *TT0 = 0;
472             *TT1 = 0;
473             *TT2 = 0;
474             return 0;}
475           else {
476             word1_38X = (*((unsigned char *) (buffer_35X + 2))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_35X + 3))), 8));
477             if ((word1_38X < 56320)) {
478               *TT0 = 0;
479               *TT1 = 0;
480               *TT2 = 0;
481               return 0;}
482             else {
483               if ((57343 < word1_38X)) {
484                 *TT0 = 0;
485                 *TT1 = 0;
486                 *TT2 = 0;
487                 return 0;}
488               else {
489                 *TT0 = 0;
490                 *TT1 = ((-56557568 + (PS_SHIFT_LEFT_INLINE(word0_37X, 10))) + (1023 & word1_38X));
491                 *TT2 = 4;
492                 return 1;}}}}}}}}
493 }
decode_scalar_valueUutf_16be(char * buffer_39X,long count_40X,char * TT0,long * TT1,long * TT2)494 static char decode_scalar_valueUutf_16be(char * buffer_39X, long count_40X, char *TT0, long *TT1, long *TT2)
495 {
496   long word1_42X;
497   long word0_41X;
498  {  if ((count_40X < 2)) {
499     *TT0 = 1;
500     *TT1 = 0;
501     *TT2 = 2;
502     return 1;}
503   else {
504     word0_41X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) buffer_39X)), 8)) + (*((unsigned char *) (buffer_39X + 1)));
505     if ((word0_41X < 55296)) {
506       *TT0 = 0;
507       *TT1 = word0_41X;
508       *TT2 = 2;
509       return 1;}
510     else {
511       if ((57343 < word0_41X)) {
512         *TT0 = 0;
513         *TT1 = word0_41X;
514         *TT2 = 2;
515         return 1;}
516       else {
517         if ((count_40X < 4)) {
518           *TT0 = 1;
519           *TT1 = 0;
520           *TT2 = 4;
521           return 1;}
522         else {
523           if ((56319 < word0_41X)) {
524             *TT0 = 0;
525             *TT1 = 0;
526             *TT2 = 0;
527             return 0;}
528           else {
529             word1_42X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_39X + 2))), 8)) + (*((unsigned char *) (buffer_39X + 3)));
530             if ((word1_42X < 56320)) {
531               *TT0 = 0;
532               *TT1 = 0;
533               *TT2 = 0;
534               return 0;}
535             else {
536               if ((57343 < word1_42X)) {
537                 *TT0 = 0;
538                 *TT1 = 0;
539                 *TT2 = 0;
540                 return 0;}
541               else {
542                 *TT0 = 0;
543                 *TT1 = ((-56557568 + (PS_SHIFT_LEFT_INLINE(word0_41X, 10))) + (1023 & word1_42X));
544                 *TT2 = 4;
545                 return 1;}}}}}}}}
546 }
decode_scalar_valueUutf_8(char * buffer_43X,long count_44X,char * TT0,long * TT1,long * TT2)547 static char decode_scalar_valueUutf_8(char * buffer_43X, long count_44X, char *TT0, long *TT1, long *TT2)
548 {
549   long arg0K3;
550   long arg0K2;
551   long arg0K1;
552   long arg0K0;
553   long v_52X;
554   long scalar_value_51X;
555   long state_50X;
556   long c_49X;
557   long scalar_value_48X;
558   long mask_47X;
559   long state_46X;
560   long q_45X;
561  {  arg0K0 = 0;
562   arg0K1 = 0;
563   arg0K2 = 0;
564   arg0K3 = 0;
565   goto L8097;}
566  L8097: {
567   q_45X = arg0K0;
568   state_46X = arg0K1;
569   mask_47X = arg0K2;
570   scalar_value_48X = arg0K3;
571   if ((q_45X < count_44X)) {
572     c_49X = *((unsigned char *) (buffer_43X + q_45X));
573     state_50X = *(Sutf_8_state_tableS + ((PS_SHIFT_LEFT_INLINE(state_46X, 5)) + (PS_SHIFT_RIGHT_INLINE(c_49X, 3))));
574     if ((state_50X == 0)) {
575       scalar_value_51X = scalar_value_48X + (127 & c_49X);
576       if ((scalar_value_51X < 0)) {
577         *TT0 = 0;
578         *TT1 = 0;
579         *TT2 = 0;
580         return 0;}
581       else {
582         if ((55295 < scalar_value_51X)) {
583           if ((scalar_value_51X < 57344)) {
584             *TT0 = 0;
585             *TT1 = 0;
586             *TT2 = 0;
587             return 0;}
588           else {
589             if ((1114111 < scalar_value_51X)) {
590               *TT0 = 0;
591               *TT1 = 0;
592               *TT2 = 0;
593               return 0;}
594             else {
595               goto L8112;}}}
596         else {
597           goto L8112;}}}
598     else {
599       if ((state_50X == 1)) {
600         goto L8123;}
601       else {
602         if ((state_50X == 2)) {
603           goto L8123;}
604         else {
605           if ((state_50X == 3)) {
606             goto L8123;}
607           else {
608             if ((state_50X == -2)) {
609               *TT0 = 0;
610               *TT1 = 0;
611               *TT2 = 0;
612               return 0;}
613             else {
614               if ((state_50X == -1)) {
615                 *TT0 = 0;
616                 *TT1 = 0;
617                 *TT2 = 0;
618                 return 0;}
619               else {
620                 *TT0 = 0;
621                 *TT1 = 0;
622                 *TT2 = 0;
623                 return 0;}}}}}}}
624   else {
625     *TT0 = 1;
626     *TT1 = 0;
627     *TT2 = (1 + q_45X);
628     return 1;}}
629  L8112: {
630   *TT0 = 0;
631   *TT1 = scalar_value_51X;
632   *TT2 = (1 + q_45X);
633   return 1;}
634  L8123: {
635   if ((0 == mask_47X)) {
636     arg0K0 = (*(Sutf_8_masksS + state_50X));
637     goto L8129;}
638   else {
639     arg0K0 = mask_47X;
640     goto L8129;}}
641  L8129: {
642   v_52X = arg0K0;
643   arg0K0 = (1 + q_45X);
644   arg0K1 = state_50X;
645   arg0K2 = 63;
646   arg0K3 = (PS_SHIFT_LEFT_INLINE((scalar_value_48X + (c_49X & v_52X)), 6));
647   goto L8097;}
648 }
integerLE(long x_53X,long y_54X)649 static char integerLE(long x_53X, long y_54X)
650 {
651   long v_57X;
652   long v_56X;
653   long v_55X;
654  {  if ((0 == (3 & y_54X))) {
655     if ((0 == (3 & x_53X))) {
656       if ((y_54X < x_53X)) {
657         return 0;}
658       else {
659         return 1;}}
660     else {
661       v_55X = s48_bignum_test((((char *) (-3 + x_53X))));
662       if ((1 == v_55X)) {
663         return 0;}
664       else {
665         return 1;}}}
666   else {
667     if ((0 == (3 & x_53X))) {
668       v_56X = s48_bignum_test((((char *) (-3 + y_54X))));
669       if ((1 == v_56X)) {
670         return 1;}
671       else {
672         return 0;}}
673     else {
674       v_57X = s48_bignum_compare((((char *) (-3 + y_54X))), (((char *) (-3 + x_53X))));
675       if ((-1 == v_57X)) {
676         return 0;}
677       else {
678         return 1;}}}}
679 }
integerGE(long x_58X,long y_59X)680 static char integerGE(long x_58X, long y_59X)
681 {
682   long v_62X;
683   long v_61X;
684   long v_60X;
685  {  if ((0 == (3 & x_58X))) {
686     if ((0 == (3 & y_59X))) {
687       if ((x_58X < y_59X)) {
688         return 0;}
689       else {
690         return 1;}}
691     else {
692       v_60X = s48_bignum_test((((char *) (-3 + y_59X))));
693       if ((1 == v_60X)) {
694         return 0;}
695       else {
696         return 1;}}}
697   else {
698     if ((0 == (3 & y_59X))) {
699       v_61X = s48_bignum_test((((char *) (-3 + x_58X))));
700       if ((1 == v_61X)) {
701         return 1;}
702       else {
703         return 0;}}
704     else {
705       v_62X = s48_bignum_compare((((char *) (-3 + x_58X))), (((char *) (-3 + y_59X))));
706       if ((-1 == v_62X)) {
707         return 0;}
708       else {
709         return 1;}}}}
710 }
shared_binding_undefinedP(long binding_63X)711 static char shared_binding_undefinedP(long binding_63X)
712 {
713 
714  {  return (17 == (255 & (*((long *) ((((char *) (-3 + binding_63X))) + 16)))));}
715 }
enqueue_channelB(long index_64X,long status_65X,long errorP_66X)716 static void enqueue_channelB(long index_64X, long status_65X, long errorP_66X)
717 {
718   char * addr_72X;
719   long x_71X;
720   char * addr_70X;
721   char * addr_69X;
722   long val_68X;
723   long channel_67X;
724  {  channel_67X = *((Svm_channelsS) + index_64X);
725   val_68X = PS_SHIFT_LEFT_INLINE(status_65X, 2);
726   addr_69X = (((char *) (-3 + channel_67X))) + 40;S48_WRITE_BARRIER(channel_67X, addr_69X, val_68X);
727   *((long *) addr_69X) = (long) (val_68X);
728   addr_70X = (((char *) (-3 + channel_67X))) + 48;S48_WRITE_BARRIER(channel_67X, addr_70X, errorP_66X);
729   *((long *) addr_70X) = (long) (errorP_66X);
730   if ((1 == (*((long *) ((((char *) (-3 + channel_67X))) + 32))))) {
731     if ((channel_67X == (Spending_channels_headS))) {
732       return;}
733     else {
734       if ((channel_67X == (Spending_channels_tailS))) {
735         return;}
736       else {
737         if ((1 == (Spending_channels_headS))) {
738           Spending_channels_headS = channel_67X;
739           Spending_channels_tailS = channel_67X;
740           return;}
741         else {
742           x_71X = Spending_channels_tailS;
743           addr_72X = (((char *) (-3 + x_71X))) + 32;S48_WRITE_BARRIER(x_71X, addr_72X, channel_67X);
744           *((long *) addr_72X) = (long) (channel_67X);
745           Spending_channels_tailS = channel_67X;
746           return;}}}}
747   else {
748     return;}}
749 }
make_blank_return_code(long protocol_73X,long template_74X,long frame_size_75X,long opcode_count_76X,long key_77X)750 static long make_blank_return_code(long protocol_73X, long template_74X, long frame_size_75X, long opcode_count_76X, long key_77X)
751 {
752   long code_80X;
753   char * addr_79X;
754   long length_78X;
755  {  length_78X = 15 + opcode_count_76X;
756   addr_79X = s48_allocate_small((8 + length_78X));
757   *((long *) addr_79X) = (long) ((70 + (PS_SHIFT_LEFT_INLINE(length_78X, 8))));
758   code_80X = 3 + (((long) (addr_79X + 8)));
759   *((unsigned char *) (((char *) (-3 + code_80X)))) = (unsigned char) (0);
760   *((unsigned char *) ((((char *) (-3 + code_80X))) + 1)) = (unsigned char) (protocol_73X);
761   *((unsigned char *) ((((char *) (-3 + code_80X))) + 2)) = (unsigned char) (0);
762   *((unsigned char *) ((((char *) (-3 + code_80X))) + 3)) = (unsigned char) (31);
763   *((unsigned char *) ((((char *) (-3 + code_80X))) + 4)) = (unsigned char) (0);
764   *((unsigned char *) ((((char *) (-3 + code_80X))) + 5)) = (unsigned char) (8);
765   *((unsigned char *) ((((char *) (-3 + code_80X))) + 6)) = (unsigned char) ((255 & (PS_SHIFT_RIGHT_INLINE(template_74X, 8))));
766   *((unsigned char *) ((((char *) (-3 + code_80X))) + 7)) = (unsigned char) ((255 & template_74X));
767   *((unsigned char *) ((((char *) (-3 + code_80X))) + 8)) = (unsigned char) (0);
768   *((unsigned char *) ((((char *) (-3 + code_80X))) + 9)) = (unsigned char) (13);
769   *((unsigned char *) ((((char *) (-3 + code_80X))) + 10)) = (unsigned char) (0);
770   *((unsigned char *) ((((char *) (-3 + code_80X))) + 11)) = (unsigned char) ((255 & (PS_SHIFT_RIGHT_INLINE(frame_size_75X, 8))));
771   *((unsigned char *) ((((char *) (-3 + code_80X))) + 12)) = (unsigned char) ((255 & frame_size_75X));
772   *((unsigned char *) ((((char *) (-3 + code_80X))) + 13)) = (unsigned char) (0);
773   *((unsigned char *) ((((char *) (-3 + code_80X))) + 14)) = (unsigned char) (protocol_73X);
774   return code_80X;}
775 }
close_channelB(long channel_81X)776 static long close_channelB(long channel_81X)
777 {
778   long arg0K0;
779   char * addr_89X;
780   long status_88X;
781   long v_87X;
782   long v_86X;
783   long v_85X;
784   long v_84X;
785   long x_83X;
786   long os_index_82X;
787  {  os_index_82X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_81X))) + 16))), 2);
788   x_83X = *((long *) ((((char *) (-3 + channel_81X))) + 40));
789   if ((5 == x_83X)) {
790     v_84X = ps_abort_fd_op(os_index_82X);enqueue_channelB(os_index_82X, v_84X, 1);
791     goto L17517;}
792   else {
793     goto L17517;}}
794  L17517: {
795   v_85X = *((long *) (((char *) (-3 + channel_81X))));
796   if ((4 == v_85X)) {
797     goto L17532;}
798   else {
799     if ((12 == (*((long *) (((char *) (-3 + channel_81X))))))) {
800       goto L17532;}
801     else {
802       v_86X = ps_close_fd(os_index_82X);
803       arg0K0 = v_86X;
804       goto L17539;}}}
805  L17532: {
806   v_87X = ps_close_fd(os_index_82X);
807   arg0K0 = v_87X;
808   goto L17539;}
809  L17539: {
810   status_88X = arg0K0;
811   *((Svm_channelsS) + os_index_82X) = 1;
812   addr_89X = ((char *) (-3 + channel_81X));S48_WRITE_BARRIER(channel_81X, addr_89X, 0);
813   *((long *) addr_89X) = (long) (0);
814   return status_88X;}
815 }
copy_vm_string_to_stringUlatin_1B(long vm_string_90X,long start_91X,long count_92X,char * string_93X)816 static void copy_vm_string_to_stringUlatin_1B(long vm_string_90X, long start_91X, long count_92X, char *string_93X)
817 {
818   char arg2K0;
819   long arg0K2;
820   long arg0K1;
821   long arg0K0;
822   char v_99X;
823   long x_98X;
824   long scalar_value_97X;
825   long j_96X;
826   long bits_95X;
827   long i_94X;
828  {  arg0K0 = 0;
829   goto L18310;}
830  L18310: {
831   i_94X = arg0K0;
832   if ((i_94X < count_92X)) {
833     arg0K0 = 0;
834     arg0K1 = 0;
835     arg0K2 = 0;
836     goto L18352;}
837   else {
838     return;}}
839  L18352: {
840   bits_95X = arg0K0;
841   j_96X = arg0K1;
842   scalar_value_97X = arg0K2;
843   if ((j_96X < 4)) {
844     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_90X))) + ((PS_SHIFT_LEFT_INLINE(i_94X, 2)) + j_96X)))), bits_95X, x_98X)
845     arg0K0 = (8 + bits_95X);
846     arg0K1 = (1 + j_96X);
847     arg0K2 = (x_98X + scalar_value_97X);
848     goto L18352;}
849   else {
850     if ((255 < scalar_value_97X)) {
851       arg2K0 = 63;
852       goto L18328;}
853     else {
854       arg2K0 = (((char) scalar_value_97X));
855       goto L18328;}}}
856  L18328: {
857   v_99X = arg2K0;
858   *(string_93X + (i_94X + start_91X)) = v_99X;
859   arg0K0 = (1 + i_94X);
860   goto L18310;}
861 }
decodeUutf_8B(char * p_100X,long s_101X,long size_102X)862 static void decodeUutf_8B(char * p_100X, long s_101X, long size_102X)
863 {
864   long arg0K2;
865   long arg0K1;
866   long arg0K0;
867   long shifted_113X;
868   long j_112X;
869   long bits_111X;
870   long shifted_110X;
871   long j_109X;
872   long bits_108X;
873   long count_107X;
874   long value_106X;
875   char incompleteP_105X;
876   long target_index_104X;
877   long index_103X;
878  {  arg0K0 = 0;
879   arg0K1 = 0;
880   goto L19107;}
881  L19107: {
882   index_103X = arg0K0;
883   target_index_104X = arg0K1;
884   if ((index_103X < size_102X)) {decode_scalar_valueUutf_8((p_100X + index_103X), (size_102X - index_103X), &incompleteP_105X, &value_106X, &count_107X);
885     if (incompleteP_105X) {
886       arg0K0 = 0;
887       arg0K1 = 0;
888       arg0K2 = 63;
889       goto L19238;}
890     else {
891       arg0K0 = 0;
892       arg0K1 = 0;
893       arg0K2 = value_106X;
894       goto L19255;}}
895   else {
896     return;}}
897  L19238: {
898   bits_108X = arg0K0;
899   j_109X = arg0K1;
900   shifted_110X = arg0K2;
901   if ((j_109X < 4)) {
902     *((unsigned char *) ((((char *) (-3 + s_101X))) + ((PS_SHIFT_LEFT_INLINE(target_index_104X, 2)) + j_109X))) = (unsigned char) ((255 & shifted_110X));
903     arg0K0 = (8 + bits_108X);
904     arg0K1 = (1 + j_109X);
905     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_110X, 8));
906     goto L19238;}
907   else {
908     return;}}
909  L19255: {
910   bits_111X = arg0K0;
911   j_112X = arg0K1;
912   shifted_113X = arg0K2;
913   if ((j_112X < 4)) {
914     *((unsigned char *) ((((char *) (-3 + s_101X))) + ((PS_SHIFT_LEFT_INLINE(target_index_104X, 2)) + j_112X))) = (unsigned char) ((255 & shifted_113X));
915     arg0K0 = (8 + bits_111X);
916     arg0K1 = (1 + j_112X);
917     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_113X, 8));
918     goto L19255;}
919   else {
920     arg0K0 = (index_103X + count_107X);
921     arg0K1 = (1 + target_index_104X);
922     goto L19107;}}
923 }
decodeUutf_16beB(char * p_114X,long s_115X,long size_116X)924 static void decodeUutf_16beB(char * p_114X, long s_115X, long size_116X)
925 {
926   long arg0K2;
927   long arg0K1;
928   long arg0K0;
929   long shifted_127X;
930   long j_126X;
931   long bits_125X;
932   long shifted_124X;
933   long j_123X;
934   long bits_122X;
935   long count_121X;
936   long value_120X;
937   char incompleteP_119X;
938   long target_index_118X;
939   long index_117X;
940  {  arg0K0 = 0;
941   arg0K1 = 0;
942   goto L19306;}
943  L19306: {
944   index_117X = arg0K0;
945   target_index_118X = arg0K1;
946   if ((index_117X < size_116X)) {decode_scalar_valueUutf_16be((p_114X + index_117X), (size_116X - index_117X), &incompleteP_119X, &value_120X, &count_121X);
947     if (incompleteP_119X) {
948       arg0K0 = 0;
949       arg0K1 = 0;
950       arg0K2 = 63;
951       goto L19437;}
952     else {
953       arg0K0 = 0;
954       arg0K1 = 0;
955       arg0K2 = value_120X;
956       goto L19454;}}
957   else {
958     return;}}
959  L19437: {
960   bits_122X = arg0K0;
961   j_123X = arg0K1;
962   shifted_124X = arg0K2;
963   if ((j_123X < 4)) {
964     *((unsigned char *) ((((char *) (-3 + s_115X))) + ((PS_SHIFT_LEFT_INLINE(target_index_118X, 2)) + j_123X))) = (unsigned char) ((255 & shifted_124X));
965     arg0K0 = (8 + bits_122X);
966     arg0K1 = (1 + j_123X);
967     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_124X, 8));
968     goto L19437;}
969   else {
970     return;}}
971  L19454: {
972   bits_125X = arg0K0;
973   j_126X = arg0K1;
974   shifted_127X = arg0K2;
975   if ((j_126X < 4)) {
976     *((unsigned char *) ((((char *) (-3 + s_115X))) + ((PS_SHIFT_LEFT_INLINE(target_index_118X, 2)) + j_126X))) = (unsigned char) ((255 & shifted_127X));
977     arg0K0 = (8 + bits_125X);
978     arg0K1 = (1 + j_126X);
979     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_127X, 8));
980     goto L19454;}
981   else {
982     arg0K0 = (index_117X + count_121X);
983     arg0K1 = (1 + target_index_118X);
984     goto L19306;}}
985 }
decodeUutf_16leB(char * p_128X,long s_129X,long size_130X)986 static void decodeUutf_16leB(char * p_128X, long s_129X, long size_130X)
987 {
988   long arg0K2;
989   long arg0K1;
990   long arg0K0;
991   long shifted_141X;
992   long j_140X;
993   long bits_139X;
994   long shifted_138X;
995   long j_137X;
996   long bits_136X;
997   long count_135X;
998   long value_134X;
999   char incompleteP_133X;
1000   long target_index_132X;
1001   long index_131X;
1002  {  arg0K0 = 0;
1003   arg0K1 = 0;
1004   goto L19505;}
1005  L19505: {
1006   index_131X = arg0K0;
1007   target_index_132X = arg0K1;
1008   if ((index_131X < size_130X)) {decode_scalar_valueUutf_16le((p_128X + index_131X), (size_130X - index_131X), &incompleteP_133X, &value_134X, &count_135X);
1009     if (incompleteP_133X) {
1010       arg0K0 = 0;
1011       arg0K1 = 0;
1012       arg0K2 = 63;
1013       goto L19636;}
1014     else {
1015       arg0K0 = 0;
1016       arg0K1 = 0;
1017       arg0K2 = value_134X;
1018       goto L19653;}}
1019   else {
1020     return;}}
1021  L19636: {
1022   bits_136X = arg0K0;
1023   j_137X = arg0K1;
1024   shifted_138X = arg0K2;
1025   if ((j_137X < 4)) {
1026     *((unsigned char *) ((((char *) (-3 + s_129X))) + ((PS_SHIFT_LEFT_INLINE(target_index_132X, 2)) + j_137X))) = (unsigned char) ((255 & shifted_138X));
1027     arg0K0 = (8 + bits_136X);
1028     arg0K1 = (1 + j_137X);
1029     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_138X, 8));
1030     goto L19636;}
1031   else {
1032     return;}}
1033  L19653: {
1034   bits_139X = arg0K0;
1035   j_140X = arg0K1;
1036   shifted_141X = arg0K2;
1037   if ((j_140X < 4)) {
1038     *((unsigned char *) ((((char *) (-3 + s_129X))) + ((PS_SHIFT_LEFT_INLINE(target_index_132X, 2)) + j_140X))) = (unsigned char) ((255 & shifted_141X));
1039     arg0K0 = (8 + bits_139X);
1040     arg0K1 = (1 + j_140X);
1041     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_141X, 8));
1042     goto L19653;}
1043   else {
1044     arg0K0 = (index_131X + count_135X);
1045     arg0K1 = (1 + target_index_132X);
1046     goto L19505;}}
1047 }
not_record_typeP(long thing_142X)1048 static char not_record_typeP(long thing_142X)
1049 {
1050   long obj_143X;
1051  {  if ((3 == (3 & thing_142X))) {
1052     if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_142X))))), 2))))) {
1053       obj_143X = *((long *) ((((char *) (-3 + thing_142X))) + 24));
1054       if ((3 == (3 & obj_143X))) {
1055         if ((1 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_143X))))), 2))))) {
1056           return ((PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + thing_142X))))), 8))), 3)) < 12);}
1057         else {
1058           return 1;}}
1059       else {
1060         return 1;}}
1061     else {
1062       return 1;}}
1063   else {
1064     return 1;}}
1065 }
enter_bignum(char * external_bignum_144X)1066 static long enter_bignum(char * external_bignum_144X)
1067 {
1068   long desc_145X;
1069  {  desc_145X = 3 + (((long) external_bignum_144X));
1070   if ((3 == (3 & desc_145X))) {
1071     if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + desc_145X))))), 2))))) {
1072       goto L20353;}
1073     else {
1074       goto L20367;}}
1075   else {
1076     goto L20367;}}
1077  L20353: {
1078   if ((3 == (3 & desc_145X))) {
1079     if ((0 == (128 & (*((long *) (((char *) (-11 + desc_145X)))))))) {
1080       *((long *) (((char *) (-11 + desc_145X)))) = (long) ((128 | (*((long *) (((char *) (-11 + desc_145X)))))));
1081       return desc_145X;}
1082     else {
1083       return desc_145X;}}
1084   else {
1085     return desc_145X;}}
1086  L20367: {
1087   ps_error("not a bignum", 1, desc_145X);
1088   goto L20353;}
1089 }
integerE(long x_146X,long y_147X)1090 static char integerE(long x_146X, long y_147X)
1091 {
1092 
1093  {  if ((0 == (3 & (x_146X | y_147X)))) {
1094     return (x_146X == y_147X);}
1095   else {
1096     if ((3 == (3 & x_146X))) {
1097       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_146X))))), 2))))) {
1098         if ((3 == (3 & y_147X))) {
1099           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_147X))))), 2))))) {
1100             return s48_bignum_equal_p((((char *) (-3 + x_146X))), (((char *) (-3 + y_147X))));}
1101           else {
1102             return 0;}}
1103         else {
1104           return 0;}}
1105       else {
1106         return 0;}}
1107     else {
1108       return 0;}}}
1109 }
add_log_entryAgc(long proposal_index_148X,long i_149X,long stob_150X,long index_151X,long value_152X,char verifyP_153X)1110 static long add_log_entryAgc(long proposal_index_148X, long i_149X, long stob_150X, long index_151X, long value_152X, char verifyP_153X)
1111 {
1112   long arg0K2;
1113   long arg0K1;
1114   long arg0K0;
1115   char * addr_178X;
1116   long value_177X;
1117   long v_176X;
1118   long value_175X;
1119   char * addr_174X;
1120   long i_173X;
1121   long stob_172X;
1122   long proposal_171X;
1123   long new_170X;
1124   char * addr_169X;
1125   char * addr_168X;
1126   long value_167X;
1127   long vector_166X;
1128   char * addr_165X;
1129   char * addr_164X;
1130   char * addr_163X;
1131   long log_162X;
1132   long value_161X;
1133   long stob_160X;
1134   long proposal_159X;
1135   char * addr_158X;
1136   long len_in_bytes_157X;
1137   long new_size_156X;
1138   long log_size_155X;
1139   long proposal_154X;
1140  {  proposal_154X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
1141   log_size_155X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + (*((long *) ((((char *) (-3 + proposal_154X))) + (PS_SHIFT_LEFT_INLINE(proposal_index_148X, 3)))))))))), 8))), 3);
1142   if ((i_149X == (-1 + log_size_155X))) {
1143     Stemp0S = stob_150X;
1144     Stemp1S = value_152X;
1145     if ((1 == log_size_155X)) {
1146       arg0K0 = 17;
1147       goto L16332;}
1148     else {
1149       arg0K0 = (-1 + (PS_SHIFT_LEFT_INLINE(log_size_155X, 1)));
1150       goto L16332;}}
1151   else {
1152     arg0K0 = proposal_154X;
1153     arg0K1 = stob_150X;
1154     arg0K2 = value_152X;
1155     goto L21624;}}
1156  L16332: {
1157   new_size_156X = arg0K0;
1158   len_in_bytes_157X = PS_SHIFT_LEFT_INLINE(new_size_156X, 3);
1159   addr_158X = s48_allocate_tracedAgc((8 + len_in_bytes_157X));
1160   if ((addr_158X == NULL)) {
1161     arg0K0 = 1;
1162     goto L16378;}
1163   else {
1164     *((long *) addr_158X) = (long) ((10 + (PS_SHIFT_LEFT_INLINE(len_in_bytes_157X, 8))));
1165     arg0K0 = (3 + (((long) (addr_158X + 8))));
1166     goto L16378;}}
1167  L21624: {
1168   proposal_159X = arg0K0;
1169   stob_160X = arg0K1;
1170   value_161X = arg0K2;
1171   log_162X = *((long *) ((((char *) (-3 + proposal_159X))) + (PS_SHIFT_LEFT_INLINE(proposal_index_148X, 3))));
1172   addr_163X = (((char *) (-3 + log_162X))) + (PS_SHIFT_LEFT_INLINE(i_149X, 3));S48_WRITE_BARRIER(log_162X, addr_163X, stob_160X);
1173   *((long *) addr_163X) = (long) (stob_160X);
1174   addr_164X = (((char *) (-3 + log_162X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_149X, 3)));S48_WRITE_BARRIER(log_162X, addr_164X, index_151X);
1175   *((long *) addr_164X) = (long) (index_151X);
1176   addr_165X = (((char *) (-3 + log_162X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_149X, 3)));S48_WRITE_BARRIER(log_162X, addr_165X, value_161X);
1177   *((long *) addr_165X) = (long) (value_161X);
1178   if (verifyP_153X) {
1179     arg0K0 = value_161X;
1180     goto L21645;}
1181   else {
1182     arg0K0 = 29;
1183     goto L21645;}}
1184  L16378: {
1185   vector_166X = arg0K0;
1186   if ((1 == vector_166X)) {
1187     ps_error("Out of space, unable to allocate", 0);
1188     arg0K0 = vector_166X;
1189     goto L16336;}
1190   else {
1191     arg0K0 = vector_166X;
1192     goto L16336;}}
1193  L21645: {
1194   value_167X = arg0K0;
1195   addr_168X = (((char *) (-3 + log_162X))) + (24 + (PS_SHIFT_LEFT_INLINE(i_149X, 3)));S48_WRITE_BARRIER(log_162X, addr_168X, value_167X);
1196   *((long *) addr_168X) = (long) (value_167X);
1197   addr_169X = (((char *) (-3 + log_162X))) + (32 + (PS_SHIFT_LEFT_INLINE(i_149X, 3)));S48_WRITE_BARRIER(log_162X, addr_169X, 1);
1198   *((long *) addr_169X) = (long) (1);
1199   return value_161X;}
1200  L16336: {
1201   new_170X = arg0K0;
1202   proposal_171X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
1203   if ((1 < log_size_155X)) {
1204     stob_172X = *((long *) ((((char *) (-3 + proposal_171X))) + 8));
1205     memmove((void *)(((char *) (-3 + new_170X))), (void *)(((char *) (-3 + stob_172X))),(-8 + (PS_SHIFT_LEFT_INLINE(log_size_155X, 3))));
1206     goto L16356;}
1207   else {
1208     goto L16356;}}
1209  L16356: {
1210   arg0K0 = (4 + log_size_155X);
1211   goto L16360;}
1212  L16360: {
1213   i_173X = arg0K0;
1214   if ((i_173X == new_size_156X)) {
1215     addr_174X = (((char *) (-3 + proposal_171X))) + (PS_SHIFT_LEFT_INLINE(proposal_index_148X, 3));S48_WRITE_BARRIER(proposal_171X, addr_174X, new_170X);
1216     *((long *) addr_174X) = (long) (new_170X);
1217     value_175X = Stemp0S;
1218     Stemp0S = 1;
1219     v_176X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
1220     value_177X = Stemp1S;
1221     Stemp1S = 1;
1222     arg0K0 = v_176X;
1223     arg0K1 = value_175X;
1224     arg0K2 = value_177X;
1225     goto L21624;}
1226   else {
1227     addr_178X = (((char *) (-3 + new_170X))) + (PS_SHIFT_LEFT_INLINE(i_173X, 3));S48_WRITE_BARRIER(new_170X, addr_178X, 0);
1228     *((long *) addr_178X) = (long) (0);
1229     arg0K0 = (1 + i_173X);
1230     goto L16360;}}
1231 }
make_channel(long a_179X,long b_180X,long c_181X,long d_182X,long e_183X,long f_184X,long g_185X,long key_186X)1232 static long make_channel(long a_179X, long b_180X, long c_181X, long d_182X, long e_183X, long f_184X, long g_185X, long key_186X)
1233 {
1234   long x_188X;
1235   char * addr_187X;
1236  {  addr_187X = s48_allocate_small(64);
1237   *((long *) addr_187X) = (long) (14362);
1238   x_188X = 3 + (((long) (addr_187X + 8)));
1239   *((long *) (((char *) (-3 + x_188X)))) = (long) (a_179X);
1240   *((long *) ((((char *) (-3 + x_188X))) + 8)) = (long) (b_180X);
1241   *((long *) ((((char *) (-3 + x_188X))) + 16)) = (long) (c_181X);
1242   *((long *) ((((char *) (-3 + x_188X))) + 24)) = (long) (d_182X);
1243   *((long *) ((((char *) (-3 + x_188X))) + 32)) = (long) (e_183X);
1244   *((long *) ((((char *) (-3 + x_188X))) + 40)) = (long) (f_184X);
1245   *((long *) ((((char *) (-3 + x_188X))) + 48)) = (long) (g_185X);
1246   return x_188X;}
1247 }
enter_stringAgc_n(char * string_189X,long len_190X)1248 static long enter_stringAgc_n(char *string_189X, long len_190X)
1249 {
1250   long arg0K2;
1251   long arg0K1;
1252   long arg0K0;
1253   long shifted_199X;
1254   long j_198X;
1255   long bits_197X;
1256   long c_196X;
1257   long i_195X;
1258   long s_194X;
1259   long string_193X;
1260   char * addr_192X;
1261   long len_191X;
1262  {  len_191X = PS_SHIFT_LEFT_INLINE(len_190X, 2);
1263   addr_192X = s48_allocate_untracedAgc((8 + len_191X));
1264   if ((addr_192X == NULL)) {
1265     arg0K0 = 1;
1266     goto L22373;}
1267   else {
1268     *((long *) addr_192X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_191X, 8))));
1269     arg0K0 = (3 + (((long) (addr_192X + 8))));
1270     goto L22373;}}
1271  L22373: {
1272   string_193X = arg0K0;
1273   if ((1 == string_193X)) {
1274     ps_error("Out of space, unable to allocate", 0);
1275     arg0K0 = string_193X;
1276     goto L22364;}
1277   else {
1278     arg0K0 = string_193X;
1279     goto L22364;}}
1280  L22364: {
1281   s_194X = arg0K0;
1282   arg0K0 = 0;
1283   goto L22396;}
1284  L22396: {
1285   i_195X = arg0K0;
1286   if ((i_195X < len_190X)) {
1287     c_196X = ((unsigned char) (*(string_189X + i_195X)));
1288     arg0K0 = 0;
1289     arg0K1 = 0;
1290     arg0K2 = c_196X;
1291     goto L22407;}
1292   else {
1293     return s_194X;}}
1294  L22407: {
1295   bits_197X = arg0K0;
1296   j_198X = arg0K1;
1297   shifted_199X = arg0K2;
1298   if ((j_198X < 4)) {
1299     *((unsigned char *) ((((char *) (-3 + s_194X))) + ((PS_SHIFT_LEFT_INLINE(i_195X, 2)) + j_198X))) = (unsigned char) ((255 & shifted_199X));
1300     arg0K0 = (8 + bits_197X);
1301     arg0K1 = (1 + j_198X);
1302     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_199X, 8));
1303     goto L22407;}
1304   else {
1305     arg0K0 = (1 + i_195X);
1306     goto L22396;}}
1307 }
write_vm_string(long vm_string_200X,FILE * out_201X)1308 static long write_vm_string(long vm_string_200X, FILE * out_201X)
1309 {
1310   long arg0K2;
1311   long arg0K1;
1312   long arg0K0;
1313   long x_208X;
1314   long scalar_value_207X;
1315   long j_206X;
1316   long bits_205X;
1317   long i_204X;
1318   long size_203X;
1319   long v_202X;
1320  {  v_202X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_200X))))), 8)) / 4;
1321   arg0K0 = v_202X;
1322   arg0K1 = 0;
1323   goto L22843;}
1324  L22843: {
1325   size_203X = arg0K0;
1326   i_204X = arg0K1;
1327   if ((i_204X < size_203X)) {
1328     arg0K0 = 0;
1329     arg0K1 = 0;
1330     arg0K2 = 0;
1331     goto L22876;}
1332   else {
1333     return 0;}}
1334  L22876: {
1335   bits_205X = arg0K0;
1336   j_206X = arg0K1;
1337   scalar_value_207X = arg0K2;
1338   if ((j_206X < 4)) {
1339     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_200X))) + ((PS_SHIFT_LEFT_INLINE(i_204X, 2)) + j_206X)))), bits_205X, x_208X)
1340     arg0K0 = (8 + bits_205X);
1341     arg0K1 = (1 + j_206X);
1342     arg0K2 = (x_208X + scalar_value_207X);
1343     goto L22876;}
1344   else {
1345     { long ignoreXX;
1346     PS_WRITE_CHAR((((char) scalar_value_207X)), out_201X, ignoreXX) }
1347     arg0K0 = size_203X;
1348     arg0K1 = (1 + i_204X);
1349     goto L22843;}}
1350 }
Haction5350(long s_209X)1351 static long Haction5350(long s_209X)
1352 {
1353   long arg0K2;
1354   long arg0K1;
1355   long arg0K0;
1356   long x_216X;
1357   long scalar_value_215X;
1358   long j_214X;
1359   long bits_213X;
1360   long ans_212X;
1361   long i_211X;
1362   long end_210X;
1363  {  end_210X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s_209X))))), 8)) / 4;
1364   arg0K0 = 0;
1365   arg0K1 = 0;
1366   goto L22974;}
1367  L22974: {
1368   i_211X = arg0K0;
1369   ans_212X = arg0K1;
1370   if ((i_211X < end_210X)) {
1371     arg0K0 = 0;
1372     arg0K1 = 0;
1373     arg0K2 = 0;
1374     goto L23003;}
1375   else {
1376     return (ans_212X % 72057594037927936);}}
1377  L23003: {
1378   bits_213X = arg0K0;
1379   j_214X = arg0K1;
1380   scalar_value_215X = arg0K2;
1381   if ((j_214X < 4)) {
1382     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + s_209X))) + ((PS_SHIFT_LEFT_INLINE(i_211X, 2)) + j_214X)))), bits_213X, x_216X)
1383     arg0K0 = (8 + bits_213X);
1384     arg0K1 = (1 + j_214X);
1385     arg0K2 = (x_216X + scalar_value_215X);
1386     goto L23003;}
1387   else {
1388     arg0K0 = (1 + i_211X);
1389     arg0K1 = (72057594037927935 & ((37 * ans_212X) + scalar_value_215X));
1390     goto L22974;}}
1391 }
current_code_vector(void)1392 static long current_code_vector(void)
1393 {
1394   long arg0K0;
1395   long x_229X;
1396   long v_228X;
1397   long x_227X;
1398   long header_226X;
1399   char * start_225X;
1400   char * code_pointer_224X;
1401   long code_223X;
1402   char * pointer_222X;
1403   char * code_pointer_221X;
1404   long header_220X;
1405   char * start_219X;
1406   long code_218X;
1407   char * code_pointer_217X;
1408  {  code_pointer_217X = Scode_pointerS;
1409   code_218X = Slast_code_calledS;
1410   start_219X = ((char *) (-3 + code_218X));
1411   if ((code_pointer_217X < start_219X)) {
1412     goto L23552;}
1413   else {
1414     header_220X = *((long *) (((char *) (-11 + code_218X))));
1415     if ((3 == (3 & header_220X))) {
1416       arg0K0 = header_220X;
1417       goto L23573;}
1418     else {
1419       arg0K0 = code_218X;
1420       goto L23573;}}}
1421  L23552: {
1422   code_pointer_221X = Slast_code_pointer_resumedS;
1423   pointer_222X = code_pointer_221X + -5;
1424   code_223X = 3 + (((long) (code_pointer_221X + (0 - ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_222X)), 8)) + (*((unsigned char *) (pointer_222X + 1))))))));
1425   code_pointer_224X = Scode_pointerS;
1426   start_225X = ((char *) (-3 + code_223X));
1427   if ((code_pointer_224X < start_225X)) {
1428     goto L23560;}
1429   else {
1430     header_226X = *((long *) (((char *) (-11 + code_223X))));
1431     if ((3 == (3 & header_226X))) {
1432       arg0K0 = header_226X;
1433       goto L23594;}
1434     else {
1435       arg0K0 = code_223X;
1436       goto L23594;}}}
1437  L23573: {
1438   x_227X = arg0K0;
1439   if ((code_pointer_217X < (start_219X + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_227X))))), 8))))) {
1440     return (Slast_code_calledS);}
1441   else {
1442     goto L23552;}}
1443  L23560: {
1444   ps_error("VM error: unable to locate current code vector", 3, (((long) (Scode_pointerS))), (Slast_code_calledS), (((long) (Slast_code_pointer_resumedS))));
1445   return v_228X;}
1446  L23594: {
1447   x_229X = arg0K0;
1448   if ((code_pointer_224X < (start_225X + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_229X))))), 8))))) {
1449     return code_223X;}
1450   else {
1451     goto L23560;}}
1452 }
channel_close_error(long status_230X,long index_231X,long id_232X)1453 static void channel_close_error(long status_230X, long index_231X, long id_232X)
1454 {
1455 
1456  {  ps_write_string("Error: ", (stderr));
1457   ps_write_string((ps_error_string(status_230X)), (stderr));
1458   { long ignoreXX;
1459   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
1460   ps_write_string(" while closing port ", (stderr));
1461   if ((3 == (3 & id_232X))) {
1462     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + id_232X))))), 2))))) {
1463       ps_write_string((((char *)(((char *) (-3 + id_232X))))), (stderr));
1464       goto L24022;}
1465     else {
1466       goto L24010;}}
1467   else {
1468     goto L24010;}}
1469  L24022: {
1470   { long ignoreXX;
1471   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
1472   return;}
1473  L24010: {
1474   if ((0 == (3 & id_232X))) {
1475     ps_write_integer((PS_SHIFT_RIGHT_INLINE(index_231X, 2)), (stderr));
1476     goto L24022;}
1477   else {
1478     ps_write_string("<strange id>", (stderr));
1479     goto L24022;}}
1480 }
integer_bit_count(long x_233X)1481 static long integer_bit_count(long x_233X)
1482 {
1483   long arg0K1;
1484   long arg0K0;
1485   char * arg3K0;
1486   long n_240X;
1487   char * v_239X;
1488   char * v_238X;
1489   long value_237X;
1490   long v_236X;
1491   long extra_235X;
1492   long length_234X;
1493  {  if ((0 == (3 & x_233X))) {
1494     arg0K0 = 1;
1495     arg0K1 = 3;
1496     goto L26209;}
1497   else {
1498     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_233X))))), 8))), 3)));
1499     arg0K1 = 0;
1500     goto L26209;}}
1501  L26209: {
1502   length_234X = arg0K0;
1503   extra_235X = arg0K1;
1504   if ((length_234X < 1)) {
1505     arg0K0 = 1;
1506     goto L26211;}
1507   else {
1508     arg0K0 = length_234X;
1509     goto L26211;}}
1510  L26211: {
1511   v_236X = arg0K0;
1512   Stemp0S = x_233X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_236X, 3))), 3))) + extra_235X), 3)));
1513   value_237X = Stemp0S;
1514   Stemp0S = 1;
1515   if ((0 == (3 & value_237X))) {
1516     v_238X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_237X, 2)));
1517     arg3K0 = v_238X;
1518     goto L26201;}
1519   else {
1520     arg3K0 = (((char *) (-3 + value_237X)));
1521     goto L26201;}}
1522  L26201: {
1523   v_239X = arg3K0;
1524   n_240X = s48_bignum_bit_count(v_239X);
1525   return (PS_SHIFT_LEFT_INLINE(n_240X, 2));}
1526 }
integer_add(long x_241X,long y_242X)1527 static long integer_add(long x_241X, long y_242X)
1528 {
1529   char * arg3K0;
1530   long arg0K1;
1531   long arg0K0;
1532   long n_256X;
1533   char v_255X;
1534   char * external_bignum_254X;
1535   char * y_253X;
1536   char * v_252X;
1537   long value_251X;
1538   char * x_250X;
1539   char * v_249X;
1540   long value_248X;
1541   long v_247X;
1542   long extra1_246X;
1543   long length1_245X;
1544   long extra0_244X;
1545   long length0_243X;
1546  {  if ((0 == (3 & x_241X))) {
1547     arg0K0 = 1;
1548     arg0K1 = 3;
1549     goto L23511;}
1550   else {
1551     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_241X))))), 8))), 3)));
1552     arg0K1 = 0;
1553     goto L23511;}}
1554  L23511: {
1555   length0_243X = arg0K0;
1556   extra0_244X = arg0K1;
1557   if ((0 == (3 & y_242X))) {
1558     arg0K0 = 1;
1559     arg0K1 = 3;
1560     goto L23519;}
1561   else {
1562     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_242X))))), 8))), 3)));
1563     arg0K1 = 0;
1564     goto L23519;}}
1565  L23519: {
1566   length1_245X = arg0K0;
1567   extra1_246X = arg0K1;
1568   if ((length0_243X < length1_245X)) {
1569     arg0K0 = length1_245X;
1570     goto L23541;}
1571   else {
1572     arg0K0 = length0_243X;
1573     goto L23541;}}
1574  L23541: {
1575   v_247X = arg0K0;
1576   Stemp0S = x_241X;
1577   Stemp1S = y_242X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_247X, 3))), 3))) + extra0_244X) + extra1_246X), 3)));
1578   value_248X = Stemp0S;
1579   Stemp0S = 1;
1580   if ((0 == (3 & value_248X))) {
1581     v_249X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_248X, 2)));
1582     arg3K0 = v_249X;
1583     goto L26349;}
1584   else {
1585     arg3K0 = (((char *) (-3 + value_248X)));
1586     goto L26349;}}
1587  L26349: {
1588   x_250X = arg3K0;
1589   value_251X = Stemp1S;
1590   Stemp1S = 1;
1591   if ((0 == (3 & value_251X))) {
1592     v_252X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_251X, 2)));
1593     arg3K0 = v_252X;
1594     goto L26353;}
1595   else {
1596     arg3K0 = (((char *) (-3 + value_251X)));
1597     goto L26353;}}
1598  L26353: {
1599   y_253X = arg3K0;
1600   external_bignum_254X = (char *)s48_bignum_add(x_250X, y_253X);
1601   v_255X = s48_bignum_fits_in_word_p(external_bignum_254X, 62, 1);
1602   if (v_255X) {
1603     n_256X = s48_bignum_to_long(external_bignum_254X);
1604     return (PS_SHIFT_LEFT_INLINE(n_256X, 2));}
1605   else {
1606     return enter_bignum(external_bignum_254X);}}
1607 }
integer_subtract(long x_257X,long y_258X)1608 static long integer_subtract(long x_257X, long y_258X)
1609 {
1610   char * arg3K0;
1611   long arg0K1;
1612   long arg0K0;
1613   long n_272X;
1614   char v_271X;
1615   char * external_bignum_270X;
1616   char * y_269X;
1617   char * v_268X;
1618   long value_267X;
1619   char * x_266X;
1620   char * v_265X;
1621   long value_264X;
1622   long v_263X;
1623   long extra1_262X;
1624   long length1_261X;
1625   long extra0_260X;
1626   long length0_259X;
1627  {  if ((0 == (3 & x_257X))) {
1628     arg0K0 = 1;
1629     arg0K1 = 3;
1630     goto L23468;}
1631   else {
1632     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_257X))))), 8))), 3)));
1633     arg0K1 = 0;
1634     goto L23468;}}
1635  L23468: {
1636   length0_259X = arg0K0;
1637   extra0_260X = arg0K1;
1638   if ((0 == (3 & y_258X))) {
1639     arg0K0 = 1;
1640     arg0K1 = 3;
1641     goto L23476;}
1642   else {
1643     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_258X))))), 8))), 3)));
1644     arg0K1 = 0;
1645     goto L23476;}}
1646  L23476: {
1647   length1_261X = arg0K0;
1648   extra1_262X = arg0K1;
1649   if ((length0_259X < length1_261X)) {
1650     arg0K0 = length1_261X;
1651     goto L23498;}
1652   else {
1653     arg0K0 = length0_259X;
1654     goto L23498;}}
1655  L23498: {
1656   v_263X = arg0K0;
1657   Stemp0S = x_257X;
1658   Stemp1S = y_258X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_263X, 3))), 3))) + extra0_260X) + extra1_262X), 3)));
1659   value_264X = Stemp0S;
1660   Stemp0S = 1;
1661   if ((0 == (3 & value_264X))) {
1662     v_265X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_264X, 2)));
1663     arg3K0 = v_265X;
1664     goto L26423;}
1665   else {
1666     arg3K0 = (((char *) (-3 + value_264X)));
1667     goto L26423;}}
1668  L26423: {
1669   x_266X = arg3K0;
1670   value_267X = Stemp1S;
1671   Stemp1S = 1;
1672   if ((0 == (3 & value_267X))) {
1673     v_268X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_267X, 2)));
1674     arg3K0 = v_268X;
1675     goto L26427;}
1676   else {
1677     arg3K0 = (((char *) (-3 + value_267X)));
1678     goto L26427;}}
1679  L26427: {
1680   y_269X = arg3K0;
1681   external_bignum_270X = (char *)s48_bignum_subtract(x_266X, y_269X);
1682   v_271X = s48_bignum_fits_in_word_p(external_bignum_270X, 62, 1);
1683   if (v_271X) {
1684     n_272X = s48_bignum_to_long(external_bignum_270X);
1685     return (PS_SHIFT_LEFT_INLINE(n_272X, 2));}
1686   else {
1687     return enter_bignum(external_bignum_270X);}}
1688 }
integer_multiply(long x_273X,long y_274X)1689 static long integer_multiply(long x_273X, long y_274X)
1690 {
1691   char * arg3K0;
1692   long arg0K1;
1693   long arg0K0;
1694   long n_287X;
1695   char v_286X;
1696   char * external_bignum_285X;
1697   char * y_284X;
1698   char * v_283X;
1699   long value_282X;
1700   char * x_281X;
1701   char * v_280X;
1702   long value_279X;
1703   long extra1_278X;
1704   long length1_277X;
1705   long extra0_276X;
1706   long length0_275X;
1707  {  if ((0 == (3 & x_273X))) {
1708     arg0K0 = 1;
1709     arg0K1 = 3;
1710     goto L23431;}
1711   else {
1712     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_273X))))), 8))), 3)));
1713     arg0K1 = 0;
1714     goto L23431;}}
1715  L23431: {
1716   length0_275X = arg0K0;
1717   extra0_276X = arg0K1;
1718   if ((0 == (3 & y_274X))) {
1719     arg0K0 = 1;
1720     arg0K1 = 3;
1721     goto L23439;}
1722   else {
1723     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_274X))))), 8))), 3)));
1724     arg0K1 = 0;
1725     goto L23439;}}
1726  L23439: {
1727   length1_277X = arg0K0;
1728   extra1_278X = arg0K1;
1729   Stemp0S = x_273X;
1730   Stemp1S = y_274X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE((length0_275X + length1_277X), 3))), 3))) + extra0_276X) + extra1_278X), 3)));
1731   value_279X = Stemp0S;
1732   Stemp0S = 1;
1733   if ((0 == (3 & value_279X))) {
1734     v_280X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_279X, 2)));
1735     arg3K0 = v_280X;
1736     goto L26497;}
1737   else {
1738     arg3K0 = (((char *) (-3 + value_279X)));
1739     goto L26497;}}
1740  L26497: {
1741   x_281X = arg3K0;
1742   value_282X = Stemp1S;
1743   Stemp1S = 1;
1744   if ((0 == (3 & value_282X))) {
1745     v_283X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_282X, 2)));
1746     arg3K0 = v_283X;
1747     goto L26501;}
1748   else {
1749     arg3K0 = (((char *) (-3 + value_282X)));
1750     goto L26501;}}
1751  L26501: {
1752   y_284X = arg3K0;
1753   external_bignum_285X = (char *)s48_bignum_multiply(x_281X, y_284X);
1754   v_286X = s48_bignum_fits_in_word_p(external_bignum_285X, 62, 1);
1755   if (v_286X) {
1756     n_287X = s48_bignum_to_long(external_bignum_285X);
1757     return (PS_SHIFT_LEFT_INLINE(n_287X, 2));}
1758   else {
1759     return enter_bignum(external_bignum_285X);}}
1760 }
integer_divide(long x_288X,long y_289X,long * TT0,long * TT1,long * TT2,long * TT3)1761 static char integer_divide(long x_288X, long y_289X, long *TT0, long *TT1, long *TT2, long *TT3)
1762 {
1763   char * arg3K0;
1764   long arg0K1;
1765   long arg0K0;
1766   long v_323X;
1767   long n_322X;
1768   char v_321X;
1769   long v_320X;
1770   long v_319X;
1771   long n_318X;
1772   char v_317X;
1773   long v_316X;
1774   long v_315X;
1775   long n_314X;
1776   char v_313X;
1777   long v_312X;
1778   long v_311X;
1779   long n_310X;
1780   char v_309X;
1781   long v_308X;
1782   long v_307X;
1783   long n_306X;
1784   char v_305X;
1785   long v_304X;
1786   long n_303X;
1787   char v_302X;
1788   char * rem_301X;
1789   char * quot_300X;
1790   char div_by_zeroP_299X;
1791   char * y_298X;
1792   char * v_297X;
1793   long value_296X;
1794   char * x_295X;
1795   char * v_294X;
1796   long value_293X;
1797   long extra1_292X;
1798   long extra0_291X;
1799   long length0_290X;
1800  {  if ((0 == (3 & x_288X))) {
1801     arg0K0 = 1;
1802     arg0K1 = 3;
1803     goto L23036;}
1804   else {
1805     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_288X))))), 8))), 3)));
1806     arg0K1 = 0;
1807     goto L23036;}}
1808  L23036: {
1809   length0_290X = arg0K0;
1810   extra0_291X = arg0K1;
1811   if ((0 == (3 & y_289X))) {
1812     arg0K0 = 3;
1813     goto L23044;}
1814   else {
1815     arg0K0 = 0;
1816     goto L23044;}}
1817  L23044: {
1818   extra1_292X = arg0K0;
1819   Stemp0S = x_288X;
1820   Stemp1S = y_289X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((6 + (-2 & (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(length0_290X, 3))), 2)))) + extra0_291X) + extra1_292X), 3)));
1821   value_293X = Stemp0S;
1822   Stemp0S = 1;
1823   if ((0 == (3 & value_293X))) {
1824     v_294X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_293X, 2)));
1825     arg3K0 = v_294X;
1826     goto L26573;}
1827   else {
1828     arg3K0 = (((char *) (-3 + value_293X)));
1829     goto L26573;}}
1830  L26573: {
1831   x_295X = arg3K0;
1832   value_296X = Stemp1S;
1833   Stemp1S = 1;
1834   if ((0 == (3 & value_296X))) {
1835     v_297X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_296X, 2)));
1836     arg3K0 = v_297X;
1837     goto L26577;}
1838   else {
1839     arg3K0 = (((char *) (-3 + value_296X)));
1840     goto L26577;}}
1841  L26577: {
1842   y_298X = arg3K0;
1843   div_by_zeroP_299X = s48_bignum_divide(x_295X, y_298X, &quot_300X, &rem_301X);
1844   if (div_by_zeroP_299X) {
1845     v_302X = s48_bignum_fits_in_word_p(y_298X, 62, 1);
1846     if (v_302X) {
1847       n_303X = s48_bignum_to_long(y_298X);
1848       arg0K0 = (PS_SHIFT_LEFT_INLINE(n_303X, 2));
1849       goto L26599;}
1850     else {
1851       v_304X = enter_bignum(y_298X);
1852       arg0K0 = v_304X;
1853       goto L26599;}}
1854   else {
1855     v_305X = s48_bignum_fits_in_word_p(y_298X, 62, 1);
1856     if (v_305X) {
1857       n_306X = s48_bignum_to_long(y_298X);
1858       arg0K0 = (PS_SHIFT_LEFT_INLINE(n_306X, 2));
1859       goto L26608;}
1860     else {
1861       v_307X = enter_bignum(y_298X);
1862       arg0K0 = v_307X;
1863       goto L26608;}}}
1864  L26599: {
1865   v_308X = arg0K0;
1866   v_309X = s48_bignum_fits_in_word_p(x_295X, 62, 1);
1867   if (v_309X) {
1868     n_310X = s48_bignum_to_long(x_295X);
1869     *TT0 = 0;
1870     *TT1 = 0;
1871     *TT2 = (PS_SHIFT_LEFT_INLINE(n_310X, 2));
1872     *TT3 = v_308X;
1873     return 1;}
1874   else {
1875     v_311X = enter_bignum(x_295X);
1876     *TT0 = 0;
1877     *TT1 = 0;
1878     *TT2 = v_311X;
1879     *TT3 = v_308X;
1880     return 1;}}
1881  L26608: {
1882   v_312X = arg0K0;
1883   v_313X = s48_bignum_fits_in_word_p(rem_301X, 62, 1);
1884   if (v_313X) {
1885     n_314X = s48_bignum_to_long(rem_301X);
1886     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_314X, 2));
1887     goto L26604;}
1888   else {
1889     v_315X = enter_bignum(rem_301X);
1890     arg0K0 = v_315X;
1891     goto L26604;}}
1892  L26604: {
1893   v_316X = arg0K0;
1894   v_317X = s48_bignum_fits_in_word_p(quot_300X, 62, 1);
1895   if (v_317X) {
1896     n_318X = s48_bignum_to_long(quot_300X);
1897     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_318X, 2));
1898     goto L26602;}
1899   else {
1900     v_319X = enter_bignum(quot_300X);
1901     arg0K0 = v_319X;
1902     goto L26602;}}
1903  L26602: {
1904   v_320X = arg0K0;
1905   v_321X = s48_bignum_fits_in_word_p(x_295X, 62, 1);
1906   if (v_321X) {
1907     n_322X = s48_bignum_to_long(x_295X);
1908     *TT0 = v_320X;
1909     *TT1 = v_316X;
1910     *TT2 = (PS_SHIFT_LEFT_INLINE(n_322X, 2));
1911     *TT3 = v_312X;
1912     return 0;}
1913   else {
1914     v_323X = enter_bignum(x_295X);
1915     *TT0 = v_320X;
1916     *TT1 = v_316X;
1917     *TT2 = v_323X;
1918     *TT3 = v_312X;
1919     return 0;}}
1920 }
integer_bitwise_not(long x_324X)1921 static long integer_bitwise_not(long x_324X)
1922 {
1923   long arg0K1;
1924   long arg0K0;
1925   char * arg3K0;
1926   long n_333X;
1927   char v_332X;
1928   char * external_bignum_331X;
1929   char * v_330X;
1930   char * v_329X;
1931   long value_328X;
1932   long v_327X;
1933   long extra_326X;
1934   long length_325X;
1935  {  if ((0 == (3 & x_324X))) {
1936     arg0K0 = 1;
1937     arg0K1 = 3;
1938     goto L26870;}
1939   else {
1940     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_324X))))), 8))), 3)));
1941     arg0K1 = 0;
1942     goto L26870;}}
1943  L26870: {
1944   length_325X = arg0K0;
1945   extra_326X = arg0K1;
1946   if ((length_325X < 1)) {
1947     arg0K0 = 1;
1948     goto L26872;}
1949   else {
1950     arg0K0 = length_325X;
1951     goto L26872;}}
1952  L26872: {
1953   v_327X = arg0K0;
1954   Stemp0S = x_324X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_327X, 3))), 3))) + extra_326X), 3)));
1955   value_328X = Stemp0S;
1956   Stemp0S = 1;
1957   if ((0 == (3 & value_328X))) {
1958     v_329X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_328X, 2)));
1959     arg3K0 = v_329X;
1960     goto L26862;}
1961   else {
1962     arg3K0 = (((char *) (-3 + value_328X)));
1963     goto L26862;}}
1964  L26862: {
1965   v_330X = arg3K0;
1966   external_bignum_331X = (char *) s48_bignum_bitwise_not(v_330X);
1967   v_332X = s48_bignum_fits_in_word_p(external_bignum_331X, 62, 1);
1968   if (v_332X) {
1969     n_333X = s48_bignum_to_long(external_bignum_331X);
1970     return (PS_SHIFT_LEFT_INLINE(n_333X, 2));}
1971   else {
1972     return enter_bignum(external_bignum_331X);}}
1973 }
integer_bitwise_and(long x_334X,long y_335X)1974 static long integer_bitwise_and(long x_334X, long y_335X)
1975 {
1976   char * arg3K0;
1977   long arg0K1;
1978   long arg0K0;
1979   long n_349X;
1980   char v_348X;
1981   char * external_bignum_347X;
1982   char * y_346X;
1983   char * v_345X;
1984   long value_344X;
1985   char * x_343X;
1986   char * v_342X;
1987   long value_341X;
1988   long v_340X;
1989   long extra1_339X;
1990   long length1_338X;
1991   long extra0_337X;
1992   long length0_336X;
1993  {  if ((0 == (3 & x_334X))) {
1994     arg0K0 = 1;
1995     arg0K1 = 3;
1996     goto L23250;}
1997   else {
1998     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_334X))))), 8))), 3)));
1999     arg0K1 = 0;
2000     goto L23250;}}
2001  L23250: {
2002   length0_336X = arg0K0;
2003   extra0_337X = arg0K1;
2004   if ((0 == (3 & y_335X))) {
2005     arg0K0 = 1;
2006     arg0K1 = 3;
2007     goto L23258;}
2008   else {
2009     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_335X))))), 8))), 3)));
2010     arg0K1 = 0;
2011     goto L23258;}}
2012  L23258: {
2013   length1_338X = arg0K0;
2014   extra1_339X = arg0K1;
2015   if ((length0_336X < length1_338X)) {
2016     arg0K0 = length1_338X;
2017     goto L23280;}
2018   else {
2019     arg0K0 = length0_336X;
2020     goto L23280;}}
2021  L23280: {
2022   v_340X = arg0K0;
2023   Stemp0S = x_334X;
2024   Stemp1S = y_335X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_340X, 3))), 3))) + extra0_337X) + extra1_339X), 3)));
2025   value_341X = Stemp0S;
2026   Stemp0S = 1;
2027   if ((0 == (3 & value_341X))) {
2028     v_342X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_341X, 2)));
2029     arg3K0 = v_342X;
2030     goto L26929;}
2031   else {
2032     arg3K0 = (((char *) (-3 + value_341X)));
2033     goto L26929;}}
2034  L26929: {
2035   x_343X = arg3K0;
2036   value_344X = Stemp1S;
2037   Stemp1S = 1;
2038   if ((0 == (3 & value_344X))) {
2039     v_345X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_344X, 2)));
2040     arg3K0 = v_345X;
2041     goto L26933;}
2042   else {
2043     arg3K0 = (((char *) (-3 + value_344X)));
2044     goto L26933;}}
2045  L26933: {
2046   y_346X = arg3K0;
2047   external_bignum_347X = (char *) s48_bignum_bitwise_and(x_343X, y_346X);
2048   v_348X = s48_bignum_fits_in_word_p(external_bignum_347X, 62, 1);
2049   if (v_348X) {
2050     n_349X = s48_bignum_to_long(external_bignum_347X);
2051     return (PS_SHIFT_LEFT_INLINE(n_349X, 2));}
2052   else {
2053     return enter_bignum(external_bignum_347X);}}
2054 }
integer_bitwise_ior(long x_350X,long y_351X)2055 static long integer_bitwise_ior(long x_350X, long y_351X)
2056 {
2057   char * arg3K0;
2058   long arg0K1;
2059   long arg0K0;
2060   long n_365X;
2061   char v_364X;
2062   char * external_bignum_363X;
2063   char * y_362X;
2064   char * v_361X;
2065   long value_360X;
2066   char * x_359X;
2067   char * v_358X;
2068   long value_357X;
2069   long v_356X;
2070   long extra1_355X;
2071   long length1_354X;
2072   long extra0_353X;
2073   long length0_352X;
2074  {  if ((0 == (3 & x_350X))) {
2075     arg0K0 = 1;
2076     arg0K1 = 3;
2077     goto L23207;}
2078   else {
2079     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_350X))))), 8))), 3)));
2080     arg0K1 = 0;
2081     goto L23207;}}
2082  L23207: {
2083   length0_352X = arg0K0;
2084   extra0_353X = arg0K1;
2085   if ((0 == (3 & y_351X))) {
2086     arg0K0 = 1;
2087     arg0K1 = 3;
2088     goto L23215;}
2089   else {
2090     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_351X))))), 8))), 3)));
2091     arg0K1 = 0;
2092     goto L23215;}}
2093  L23215: {
2094   length1_354X = arg0K0;
2095   extra1_355X = arg0K1;
2096   if ((length0_352X < length1_354X)) {
2097     arg0K0 = length1_354X;
2098     goto L23237;}
2099   else {
2100     arg0K0 = length0_352X;
2101     goto L23237;}}
2102  L23237: {
2103   v_356X = arg0K0;
2104   Stemp0S = x_350X;
2105   Stemp1S = y_351X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_356X, 3))), 3))) + extra0_353X) + extra1_355X), 3)));
2106   value_357X = Stemp0S;
2107   Stemp0S = 1;
2108   if ((0 == (3 & value_357X))) {
2109     v_358X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_357X, 2)));
2110     arg3K0 = v_358X;
2111     goto L27003;}
2112   else {
2113     arg3K0 = (((char *) (-3 + value_357X)));
2114     goto L27003;}}
2115  L27003: {
2116   x_359X = arg3K0;
2117   value_360X = Stemp1S;
2118   Stemp1S = 1;
2119   if ((0 == (3 & value_360X))) {
2120     v_361X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_360X, 2)));
2121     arg3K0 = v_361X;
2122     goto L27007;}
2123   else {
2124     arg3K0 = (((char *) (-3 + value_360X)));
2125     goto L27007;}}
2126  L27007: {
2127   y_362X = arg3K0;
2128   external_bignum_363X = (char *) s48_bignum_bitwise_ior(x_359X, y_362X);
2129   v_364X = s48_bignum_fits_in_word_p(external_bignum_363X, 62, 1);
2130   if (v_364X) {
2131     n_365X = s48_bignum_to_long(external_bignum_363X);
2132     return (PS_SHIFT_LEFT_INLINE(n_365X, 2));}
2133   else {
2134     return enter_bignum(external_bignum_363X);}}
2135 }
integer_bitwise_xor(long x_366X,long y_367X)2136 static long integer_bitwise_xor(long x_366X, long y_367X)
2137 {
2138   char * arg3K0;
2139   long arg0K1;
2140   long arg0K0;
2141   long n_381X;
2142   char v_380X;
2143   char * external_bignum_379X;
2144   char * y_378X;
2145   char * v_377X;
2146   long value_376X;
2147   char * x_375X;
2148   char * v_374X;
2149   long value_373X;
2150   long v_372X;
2151   long extra1_371X;
2152   long length1_370X;
2153   long extra0_369X;
2154   long length0_368X;
2155  {  if ((0 == (3 & x_366X))) {
2156     arg0K0 = 1;
2157     arg0K1 = 3;
2158     goto L23164;}
2159   else {
2160     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_366X))))), 8))), 3)));
2161     arg0K1 = 0;
2162     goto L23164;}}
2163  L23164: {
2164   length0_368X = arg0K0;
2165   extra0_369X = arg0K1;
2166   if ((0 == (3 & y_367X))) {
2167     arg0K0 = 1;
2168     arg0K1 = 3;
2169     goto L23172;}
2170   else {
2171     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + y_367X))))), 8))), 3)));
2172     arg0K1 = 0;
2173     goto L23172;}}
2174  L23172: {
2175   length1_370X = arg0K0;
2176   extra1_371X = arg0K1;
2177   if ((length0_368X < length1_370X)) {
2178     arg0K0 = length1_370X;
2179     goto L23194;}
2180   else {
2181     arg0K0 = length0_368X;
2182     goto L23194;}}
2183  L23194: {
2184   v_372X = arg0K0;
2185   Stemp0S = x_366X;
2186   Stemp1S = y_367X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_372X, 3))), 3))) + extra0_369X) + extra1_371X), 3)));
2187   value_373X = Stemp0S;
2188   Stemp0S = 1;
2189   if ((0 == (3 & value_373X))) {
2190     v_374X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_373X, 2)));
2191     arg3K0 = v_374X;
2192     goto L27077;}
2193   else {
2194     arg3K0 = (((char *) (-3 + value_373X)));
2195     goto L27077;}}
2196  L27077: {
2197   x_375X = arg3K0;
2198   value_376X = Stemp1S;
2199   Stemp1S = 1;
2200   if ((0 == (3 & value_376X))) {
2201     v_377X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_376X, 2)));
2202     arg3K0 = v_377X;
2203     goto L27081;}
2204   else {
2205     arg3K0 = (((char *) (-3 + value_376X)));
2206     goto L27081;}}
2207  L27081: {
2208   y_378X = arg3K0;
2209   external_bignum_379X = (char *) s48_bignum_bitwise_xor(x_375X, y_378X);
2210   v_380X = s48_bignum_fits_in_word_p(external_bignum_379X, 62, 1);
2211   if (v_380X) {
2212     n_381X = s48_bignum_to_long(external_bignum_379X);
2213     return (PS_SHIFT_LEFT_INLINE(n_381X, 2));}
2214   else {
2215     return enter_bignum(external_bignum_379X);}}
2216 }
Hinteger_op8731(long x_382X,long y_383X)2217 static long Hinteger_op8731(long x_382X, long y_383X)
2218 {
2219   long arg0K1;
2220   long arg0K0;
2221   char * arg3K0;
2222   long n_395X;
2223   char v_394X;
2224   char * external_bignum_393X;
2225   char * y_392X;
2226   char * v_391X;
2227   long value_390X;
2228   char * x_389X;
2229   char * v_388X;
2230   long value_387X;
2231   long extra1_386X;
2232   long extra0_385X;
2233   long length0_384X;
2234  {  if ((0 == (3 & x_382X))) {
2235     arg0K0 = 1;
2236     arg0K1 = 3;
2237     goto L27167;}
2238   else {
2239     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_382X))))), 8))), 3)));
2240     arg0K1 = 0;
2241     goto L27167;}}
2242  L27167: {
2243   length0_384X = arg0K0;
2244   extra0_385X = arg0K1;
2245   if ((0 == (3 & y_383X))) {
2246     arg0K0 = 3;
2247     goto L27169;}
2248   else {
2249     arg0K0 = 0;
2250     goto L27169;}}
2251  L27169: {
2252   extra1_386X = arg0K0;
2253   Stemp0S = x_382X;
2254   Stemp1S = y_383X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((6 + (-2 & (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(length0_384X, 3))), 2)))) + extra0_385X) + extra1_386X), 3)));
2255   value_387X = Stemp0S;
2256   Stemp0S = 1;
2257   if ((0 == (3 & value_387X))) {
2258     v_388X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_387X, 2)));
2259     arg3K0 = v_388X;
2260     goto L27151;}
2261   else {
2262     arg3K0 = (((char *) (-3 + value_387X)));
2263     goto L27151;}}
2264  L27151: {
2265   x_389X = arg3K0;
2266   value_390X = Stemp1S;
2267   Stemp1S = 1;
2268   if ((0 == (3 & value_390X))) {
2269     v_391X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_390X, 2)));
2270     arg3K0 = v_391X;
2271     goto L27155;}
2272   else {
2273     arg3K0 = (((char *) (-3 + value_390X)));
2274     goto L27155;}}
2275  L27155: {
2276   y_392X = arg3K0;
2277   external_bignum_393X = (char *)s48_bignum_quotient(x_389X, y_392X);
2278   v_394X = s48_bignum_fits_in_word_p(external_bignum_393X, 62, 1);
2279   if (v_394X) {
2280     n_395X = s48_bignum_to_long(external_bignum_393X);
2281     return (PS_SHIFT_LEFT_INLINE(n_395X, 2));}
2282   else {
2283     return enter_bignum(external_bignum_393X);}}
2284 }
Hinteger_op8662(long x_396X,long y_397X)2285 static long Hinteger_op8662(long x_396X, long y_397X)
2286 {
2287   long arg0K1;
2288   long arg0K0;
2289   char * arg3K0;
2290   long n_409X;
2291   char v_408X;
2292   char * external_bignum_407X;
2293   char * y_406X;
2294   char * v_405X;
2295   long value_404X;
2296   char * x_403X;
2297   char * v_402X;
2298   long value_401X;
2299   long extra1_400X;
2300   long extra0_399X;
2301   long length0_398X;
2302  {  if ((0 == (3 & x_396X))) {
2303     arg0K0 = 1;
2304     arg0K1 = 3;
2305     goto L27258;}
2306   else {
2307     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_396X))))), 8))), 3)));
2308     arg0K1 = 0;
2309     goto L27258;}}
2310  L27258: {
2311   length0_398X = arg0K0;
2312   extra0_399X = arg0K1;
2313   if ((0 == (3 & y_397X))) {
2314     arg0K0 = 3;
2315     goto L27260;}
2316   else {
2317     arg0K0 = 0;
2318     goto L27260;}}
2319  L27260: {
2320   extra1_400X = arg0K0;
2321   Stemp0S = x_396X;
2322   Stemp1S = y_397X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((6 + (-2 & (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(length0_398X, 3))), 2)))) + extra0_399X) + extra1_400X), 3)));
2323   value_401X = Stemp0S;
2324   Stemp0S = 1;
2325   if ((0 == (3 & value_401X))) {
2326     v_402X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_401X, 2)));
2327     arg3K0 = v_402X;
2328     goto L27242;}
2329   else {
2330     arg3K0 = (((char *) (-3 + value_401X)));
2331     goto L27242;}}
2332  L27242: {
2333   x_403X = arg3K0;
2334   value_404X = Stemp1S;
2335   Stemp1S = 1;
2336   if ((0 == (3 & value_404X))) {
2337     v_405X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_404X, 2)));
2338     arg3K0 = v_405X;
2339     goto L27246;}
2340   else {
2341     arg3K0 = (((char *) (-3 + value_404X)));
2342     goto L27246;}}
2343  L27246: {
2344   y_406X = arg3K0;
2345   external_bignum_407X = (char *)s48_bignum_remainder(x_403X, y_406X);
2346   v_408X = s48_bignum_fits_in_word_p(external_bignum_407X, 62, 1);
2347   if (v_408X) {
2348     n_409X = s48_bignum_to_long(external_bignum_407X);
2349     return (PS_SHIFT_LEFT_INLINE(n_409X, 2));}
2350   else {
2351     return enter_bignum(external_bignum_407X);}}
2352 }
for_each_imported_binding(char (* proc_410X)(long))2353 static char for_each_imported_binding(char (*proc_410X)(long))
2354 {
2355   long arg0K0;
2356   long link_417X;
2357   char x_416X;
2358   long entry_415X;
2359   long link_414X;
2360   char temp_413X;
2361   long i_412X;
2362   long table_411X;
2363  {  table_411X = Simported_bindingsS;
2364   arg0K0 = 0;
2365   goto L24189;}
2366  L24189: {
2367   i_412X = arg0K0;
2368   temp_413X = 1024 == i_412X;
2369   if (temp_413X) {
2370     return temp_413X;}
2371   else {
2372     link_414X = *((long *) ((((char *) (-3 + table_411X))) + (PS_SHIFT_LEFT_INLINE(i_412X, 3))));
2373     if ((0 == (3 & link_414X))) {
2374       arg0K0 = (3 + (-4 & link_414X));
2375       goto L24161;}
2376     else {
2377       arg0K0 = link_414X;
2378       goto L24161;}}}
2379  L24161: {
2380   entry_415X = arg0K0;
2381   if ((1 == entry_415X)) {
2382     arg0K0 = (1 + i_412X);
2383     goto L24189;}
2384   else {
2385     x_416X = (*proc_410X)(entry_415X);
2386     if (x_416X) {
2387       link_417X = *((long *) ((((char *) (-3 + entry_415X))) + 24));
2388       if ((0 == (3 & link_417X))) {
2389         arg0K0 = (3 + (-4 & link_417X));
2390         goto L24161;}
2391       else {
2392         arg0K0 = link_417X;
2393         goto L24161;}}
2394     else {
2395       return 1;}}}
2396 }
really_preserve_continuation(long key_418X)2397 static long really_preserve_continuation(long key_418X)
2398 {
2399   char * arg3K0;
2400   long arg0K1;
2401   long arg0K0;
2402   char * next_431X;
2403   long pc_430X;
2404   char * pointer_429X;
2405   char * pointer_428X;
2406   long new_427X;
2407   char * addr_426X;
2408   long len_425X;
2409   long size_424X;
2410   long size_423X;
2411   char * pointer_422X;
2412   long previous_421X;
2413   char * cont_420X;
2414   long temp_419X;
2415  {  if (((ScontS) == (Sbottom_of_stackS))) {
2416     goto L29094;}
2417   else {
2418     temp_419X = Sheap_continuationS;
2419     arg3K0 = (ScontS);
2420     arg0K1 = 1;
2421     goto L29064;}}
2422  L29094: {
2423   return (Sheap_continuationS);}
2424  L29064: {
2425   cont_420X = arg3K0;
2426   previous_421X = arg0K1;
2427   if ((cont_420X == (Sbottom_of_stackS))) {
2428     *((long *) ((((char *) (-3 + previous_421X))) + 16)) = (long) (temp_419X);
2429     ScontS = (Sbottom_of_stackS);
2430     goto L29094;}
2431   else {
2432     pointer_422X = (((char *) (*((long *) cont_420X)))) + -2;
2433     size_423X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_422X)), 8)) + (*((unsigned char *) (pointer_422X + 1)));
2434     if ((65535 == size_423X)) {
2435       arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_420X + 8))), 2));
2436       goto L25365;}
2437     else {
2438       arg0K0 = size_423X;
2439       goto L25365;}}}
2440  L25365: {
2441   size_424X = arg0K0;
2442   len_425X = 24 + (PS_SHIFT_LEFT_INLINE(size_424X, 3));
2443   addr_426X = s48_allocate_small((8 + len_425X));
2444   *((long *) addr_426X) = (long) ((42 + (PS_SHIFT_LEFT_INLINE(len_425X, 8))));
2445   new_427X = 3 + (((long) (addr_426X + 8)));
2446   pointer_428X = ((char *) (*((long *) cont_420X)));
2447   pointer_429X = pointer_428X + -5;
2448   pc_430X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_429X)), 8)) + (*((unsigned char *) (pointer_429X + 1)));
2449   memmove((void *)((((char *) (-3 + new_427X))) + 24), (void *)(cont_420X + 8),(PS_SHIFT_LEFT_INLINE(size_424X, 3)));
2450   *((long *) (((char *) (-3 + new_427X)))) = (long) ((PS_SHIFT_LEFT_INLINE(pc_430X, 2)));
2451   *((long *) ((((char *) (-3 + new_427X))) + 8)) = (long) ((3 + (((long) (pointer_428X + (0 - pc_430X))))));
2452   next_431X = cont_420X + (8 + (PS_SHIFT_LEFT_INLINE(size_424X, 3)));
2453   if ((3 == (3 & previous_421X))) {
2454     if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + previous_421X))))), 2))))) {
2455       *((long *) ((((char *) (-3 + previous_421X))) + 16)) = (long) (new_427X);
2456       arg3K0 = next_431X;
2457       arg0K1 = new_427X;
2458       goto L29064;}
2459     else {
2460       goto L29082;}}
2461   else {
2462     goto L29082;}}
2463  L29082: {
2464   Sheap_continuationS = new_427X;
2465   arg3K0 = next_431X;
2466   arg0K1 = new_427X;
2467   goto L29064;}
2468 }
push_exception_setupB(long exception_432X,long instruction_size_433X)2469 static void push_exception_setupB(long exception_432X, long instruction_size_433X)
2470 {
2471   long n_445X;
2472   long data_444X;
2473   long n_443X;
2474   char * code_pointer_442X;
2475   long x_441X;
2476   long bc_pc_440X;
2477   long code_439X;
2478   long data_438X;
2479   long n_437X;
2480   long pc_436X;
2481   char * code_pointer_435X;
2482   long code_434X;
2483  {  if ((0 == (Snative_exception_contS))) {
2484     code_434X = current_code_vector();
2485     code_pointer_435X = (((char *) (-3 + (Sexception_return_codeS)))) + 13;
2486     pc_436X = PS_SHIFT_LEFT_INLINE(((Scode_pointerS) - (((char *) (-3 + code_434X)))), 2);
2487     SstackS = ((SstackS) + -40);
2488     n_437X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
2489     data_438X = 3 + (((long) (SstackS)));
2490     *((long *) (((char *) (-3 + data_438X)))) = (long) ((PS_SHIFT_LEFT_INLINE(n_437X, 2)));
2491     *((long *) ((((char *) (-3 + data_438X))) + 8)) = (long) (pc_436X);
2492     *((long *) ((((char *) (-3 + data_438X))) + 16)) = (long) (code_434X);
2493     *((long *) ((((char *) (-3 + data_438X))) + 24)) = (long) ((PS_SHIFT_LEFT_INLINE(exception_432X, 2)));
2494     *((long *) ((((char *) (-3 + data_438X))) + 32)) = (long) ((PS_SHIFT_LEFT_INLINE(instruction_size_433X, 2)));
2495     SstackS = ((SstackS) + -8);
2496     *((long *) (SstackS)) = (long) ((((long) code_pointer_435X)));
2497     ScontS = (SstackS);
2498     goto L29610;}
2499   else {
2500     code_439X = current_code_vector();
2501     bc_pc_440X = (Scode_pointerS) - (((char *) (-3 + code_439X)));
2502     x_441X = Snative_exception_contS;
2503     SstackS = ((SstackS) + -8);
2504     *((long *) (SstackS)) = (long) (x_441X);
2505     ScontS = (SstackS);
2506     ps_write_string("handling exception for nc ", (stderr));
2507     ps_write_integer((Snative_exception_contS), (stderr));
2508     ps_write_string(" return code pc is ", (stderr));
2509     ps_write_integer(13, (stderr));
2510     ps_write_string(" opcode is ", (stderr));
2511     ps_write_integer((*((unsigned char *) (Scode_pointerS))), (stderr));
2512     ps_write_string(" exception is ", (stderr));
2513     ps_write_integer(exception_432X, (stderr));
2514     ps_write_string(" *val* is ", (stderr));
2515     ps_write_integer((SvalS), (stderr));
2516     code_pointer_442X = (((char *) (-3 + (Snative_exception_return_codeS)))) + 13;
2517     SstackS = ((SstackS) + -32);
2518     n_443X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
2519     data_444X = 3 + (((long) (SstackS)));
2520     *((long *) (((char *) (-3 + data_444X)))) = (long) ((PS_SHIFT_LEFT_INLINE(n_443X, 2)));
2521     *((long *) ((((char *) (-3 + data_444X))) + 8)) = (long) ((PS_SHIFT_LEFT_INLINE(exception_432X, 2)));
2522     *((long *) ((((char *) (-3 + data_444X))) + 16)) = (long) ((PS_SHIFT_LEFT_INLINE(bc_pc_440X, 2)));
2523     *((long *) ((((char *) (-3 + data_444X))) + 24)) = (long) (code_439X);
2524     SstackS = ((SstackS) + -8);
2525     *((long *) (SstackS)) = (long) ((((long) code_pointer_442X)));
2526     ScontS = (SstackS);
2527     Snative_exception_contS = 0;
2528     goto L29610;}}
2529  L29610: {
2530   n_445X = *((unsigned char *) (Scode_pointerS));
2531   SstackS = ((SstackS) + -8);
2532   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_445X, 2)));
2533   SstackS = ((SstackS) + -8);
2534   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(exception_432X, 2)));
2535   return;}
2536 }
Hlookup853(long table_446X,long string_447X,long key_448X)2537 static long Hlookup853(long table_446X, long string_447X, long key_448X)
2538 {
2539   long arg0K0;
2540   char * addr_461X;
2541   long value_460X;
2542   long link_459X;
2543   long x_458X;
2544   char * addr_457X;
2545   long next_456X;
2546   long len_455X;
2547   long s2_454X;
2548   long foo_453X;
2549   long bucket_452X;
2550   long link_451X;
2551   long index_450X;
2552   long v_449X;
2553  {  v_449X = Haction5350(string_447X);
2554   index_450X = 1023 & v_449X;
2555   link_451X = *((long *) ((((char *) (-3 + table_446X))) + (PS_SHIFT_LEFT_INLINE(index_450X, 3))));
2556   if ((0 == (3 & link_451X))) {
2557     arg0K0 = (3 + (-4 & link_451X));
2558     goto L30506;}
2559   else {
2560     arg0K0 = link_451X;
2561     goto L30506;}}
2562  L30506: {
2563   bucket_452X = arg0K0;
2564   arg0K0 = bucket_452X;
2565   goto L30512;}
2566  L30512: {
2567   foo_453X = arg0K0;
2568   if ((1 == foo_453X)) {
2569     if ((3 == (3 & bucket_452X))) {
2570       arg0K0 = (-4 & bucket_452X);
2571       goto L30517;}
2572     else {
2573       arg0K0 = bucket_452X;
2574       goto L30517;}}
2575   else {
2576     s2_454X = *((long *) (((char *) (-3 + foo_453X))));
2577     len_455X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + string_447X))))), 8);
2578     if ((len_455X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s2_454X))))), 8)))) {
2579       if (((!memcmp((void *)(((char *) (-3 + s2_454X))), (void *)(((char *) (-3 + string_447X))),len_455X)))) {
2580         return foo_453X;}
2581       else {
2582         goto L30532;}}
2583     else {
2584       goto L30532;}}}
2585  L30517: {
2586   next_456X = arg0K0;
2587   addr_457X = s48_allocate_small(40);
2588   *((long *) addr_457X) = (long) (8250);
2589   x_458X = 3 + (((long) (addr_457X + 8)));
2590   *((long *) (((char *) (-3 + x_458X)))) = (long) (string_447X);
2591   *((long *) ((((char *) (-3 + x_458X))) + 8)) = (long) (1);
2592   *((long *) ((((char *) (-3 + x_458X))) + 16)) = (long) (13);
2593   *((long *) ((((char *) (-3 + x_458X))) + 24)) = (long) (next_456X);
2594   if ((3 == (3 & x_458X))) {
2595     arg0K0 = (-4 & x_458X);
2596     goto L30523;}
2597   else {
2598     arg0K0 = x_458X;
2599     goto L30523;}}
2600  L30532: {
2601   link_459X = *((long *) ((((char *) (-3 + foo_453X))) + 24));
2602   if ((0 == (3 & link_459X))) {
2603     arg0K0 = (3 + (-4 & link_459X));
2604     goto L30512;}
2605   else {
2606     arg0K0 = link_459X;
2607     goto L30512;}}
2608  L30523: {
2609   value_460X = arg0K0;
2610   addr_461X = (((char *) (-3 + table_446X))) + (PS_SHIFT_LEFT_INLINE(index_450X, 3));S48_WRITE_BARRIER(table_446X, addr_461X, value_460X);
2611   *((long *) addr_461X) = (long) (value_460X);
2612   return x_458X;}
2613 }
Hlookup834(long table_462X,long string_463X,long key_464X)2614 static long Hlookup834(long table_462X, long string_463X, long key_464X)
2615 {
2616   long arg0K0;
2617   char * addr_477X;
2618   long value_476X;
2619   long link_475X;
2620   long x_474X;
2621   char * addr_473X;
2622   long next_472X;
2623   long len_471X;
2624   long s2_470X;
2625   long foo_469X;
2626   long bucket_468X;
2627   long link_467X;
2628   long index_466X;
2629   long v_465X;
2630  {  v_465X = Haction5350(string_463X);
2631   index_466X = 1023 & v_465X;
2632   link_467X = *((long *) ((((char *) (-3 + table_462X))) + (PS_SHIFT_LEFT_INLINE(index_466X, 3))));
2633   if ((0 == (3 & link_467X))) {
2634     arg0K0 = (3 + (-4 & link_467X));
2635     goto L30649;}
2636   else {
2637     arg0K0 = link_467X;
2638     goto L30649;}}
2639  L30649: {
2640   bucket_468X = arg0K0;
2641   arg0K0 = bucket_468X;
2642   goto L30655;}
2643  L30655: {
2644   foo_469X = arg0K0;
2645   if ((1 == foo_469X)) {
2646     if ((3 == (3 & bucket_468X))) {
2647       arg0K0 = (-4 & bucket_468X);
2648       goto L30660;}
2649     else {
2650       arg0K0 = bucket_468X;
2651       goto L30660;}}
2652   else {
2653     s2_470X = *((long *) (((char *) (-3 + foo_469X))));
2654     len_471X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + string_463X))))), 8);
2655     if ((len_471X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s2_470X))))), 8)))) {
2656       if (((!memcmp((void *)(((char *) (-3 + s2_470X))), (void *)(((char *) (-3 + string_463X))),len_471X)))) {
2657         return foo_469X;}
2658       else {
2659         goto L30675;}}
2660     else {
2661       goto L30675;}}}
2662  L30660: {
2663   next_472X = arg0K0;
2664   addr_473X = s48_allocate_small(40);
2665   *((long *) addr_473X) = (long) (8250);
2666   x_474X = 3 + (((long) (addr_473X + 8)));
2667   *((long *) (((char *) (-3 + x_474X)))) = (long) (string_463X);
2668   *((long *) ((((char *) (-3 + x_474X))) + 8)) = (long) (5);
2669   *((long *) ((((char *) (-3 + x_474X))) + 16)) = (long) (13);
2670   *((long *) ((((char *) (-3 + x_474X))) + 24)) = (long) (next_472X);
2671   if ((3 == (3 & x_474X))) {
2672     arg0K0 = (-4 & x_474X);
2673     goto L30666;}
2674   else {
2675     arg0K0 = x_474X;
2676     goto L30666;}}
2677  L30675: {
2678   link_475X = *((long *) ((((char *) (-3 + foo_469X))) + 24));
2679   if ((0 == (3 & link_475X))) {
2680     arg0K0 = (3 + (-4 & link_475X));
2681     goto L30655;}
2682   else {
2683     arg0K0 = link_475X;
2684     goto L30655;}}
2685  L30666: {
2686   value_476X = arg0K0;
2687   addr_477X = (((char *) (-3 + table_462X))) + (PS_SHIFT_LEFT_INLINE(index_466X, 3));S48_WRITE_BARRIER(table_462X, addr_477X, value_476X);
2688   *((long *) addr_477X) = (long) (value_476X);
2689   return x_474X;}
2690 }
HtopD12305(char majorP_478X,char in_troubleP_479X)2691 static void HtopD12305(char majorP_478X, char in_troubleP_479X)
2692 {
2693   long arg0K2;
2694   long arg0K1;
2695   long arg0K0;
2696   long id_524X;
2697   long new_523X;
2698   long x_522X;
2699   long interrupt_521X;
2700   long id_520X;
2701   long status_519X;
2702   long v_518X;
2703   char v_517X;
2704   long channel_516X;
2705   long i_515X;
2706   char * addr_514X;
2707   long val_513X;
2708   long channel_512X;
2709   long i_511X;
2710   char * addr_510X;
2711   long next_link_509X;
2712   long new_foo_508X;
2713   char v_507X;
2714   char * addr_506X;
2715   long foo_505X;
2716   char * addr_504X;
2717   long l_503X;
2718   long v_502X;
2719   long okay_link_501X;
2720   long foo_link_500X;
2721   char * addr_499X;
2722   char * addr_498X;
2723   char * addr_497X;
2724   char * addr_496X;
2725   long val_495X;
2726   char tracedP_494X;
2727   long next_493X;
2728   long thing_492X;
2729   long pair_491X;
2730   long alist_490X;
2731   long l2_489X;
2732   long goners_488X;
2733   long okay_487X;
2734   long alist_486X;
2735   long foo_link_485X;
2736   long v_484X;
2737   long pc_483X;
2738   long code_482X;
2739   long i_481X;
2740   long table_480X;
2741  {  table_480X = s48_trace_value((Sthe_symbol_tableS));
2742   arg0K0 = 0;
2743   goto L32280;}
2744  L32280: {
2745   i_481X = arg0K0;
2746   if ((1024 == i_481X)) {
2747     Sthe_symbol_tableS = table_480X;
2748     code_482X = Slast_code_calledS;
2749     pc_483X = Ssaved_pcS;
2750     Slast_code_calledS = code_482X;
2751     Scode_pointerS = ((((char *) (-3 + code_482X))) + pc_483X);
2752     Slast_code_pointer_resumedS = (Scode_pointerS);
2753     v_484X = SHARED_REF((Sfinalizer_alistS));
2754     arg0K0 = v_484X;
2755     arg0K1 = 25;
2756     arg0K2 = 25;
2757     goto L17131;}
2758   else {
2759     foo_link_485X = *((long *) ((((char *) (-3 + table_480X))) + (PS_SHIFT_LEFT_INLINE(i_481X, 3))));
2760     arg0K0 = foo_link_485X;
2761     arg0K1 = 1;
2762     goto L21228;}}
2763  L17131: {
2764   alist_486X = arg0K0;
2765   okay_487X = arg0K1;
2766   goners_488X = arg0K2;
2767   if ((25 == alist_486X)) {SHARED_SETB((Sfinalizer_alistS), okay_487X);
2768     l2_489X = Sfinalize_theseS;
2769     if ((25 == goners_488X)) {
2770       arg0K0 = l2_489X;
2771       goto L17138;}
2772     else {
2773       arg0K0 = goners_488X;
2774       goto L17193;}}
2775   else {
2776     alist_490X = s48_trace_value(alist_486X);
2777     pair_491X = s48_trace_value((*((long *) (((char *) (-3 + alist_490X))))));
2778     thing_492X = *((long *) (((char *) (-3 + pair_491X))));
2779     next_493X = *((long *) ((((char *) (-3 + alist_490X))) + 8));
2780     tracedP_494X = s48_extantP(thing_492X);
2781     val_495X = s48_trace_value(thing_492X);
2782     addr_496X = ((char *) (-3 + pair_491X));S48_WRITE_BARRIER(pair_491X, addr_496X, val_495X);
2783     *((long *) addr_496X) = (long) (val_495X);
2784     addr_497X = ((char *) (-3 + alist_490X));S48_WRITE_BARRIER(alist_490X, addr_497X, pair_491X);
2785     *((long *) addr_497X) = (long) (pair_491X);
2786     if (tracedP_494X) {
2787       addr_498X = (((char *) (-3 + alist_490X))) + 8;S48_WRITE_BARRIER(alist_490X, addr_498X, okay_487X);
2788       *((long *) addr_498X) = (long) (okay_487X);
2789       arg0K0 = next_493X;
2790       arg0K1 = alist_490X;
2791       arg0K2 = goners_488X;
2792       goto L17131;}
2793     else {
2794       addr_499X = (((char *) (-3 + alist_490X))) + 8;S48_WRITE_BARRIER(alist_490X, addr_499X, goners_488X);
2795       *((long *) addr_499X) = (long) (goners_488X);
2796       arg0K0 = next_493X;
2797       arg0K1 = okay_487X;
2798       arg0K2 = alist_490X;
2799       goto L17131;}}}
2800  L21228: {
2801   foo_link_500X = arg0K0;
2802   okay_link_501X = arg0K1;
2803   if ((0 == (3 & foo_link_500X))) {
2804     arg0K0 = (3 + (-4 & foo_link_500X));
2805     goto L21230;}
2806   else {
2807     arg0K0 = foo_link_500X;
2808     goto L21230;}}
2809  L17138: {
2810   v_502X = arg0K0;
2811   Sfinalize_theseS = v_502X;
2812   arg0K0 = 0;
2813   goto L17263;}
2814  L17193: {
2815   l_503X = arg0K0;
2816   if ((25 == (*((long *) ((((char *) (-3 + l_503X))) + 8))))) {
2817     addr_504X = (((char *) (-3 + l_503X))) + 8;S48_WRITE_BARRIER(l_503X, addr_504X, l2_489X);
2818     *((long *) addr_504X) = (long) (l2_489X);
2819     arg0K0 = goners_488X;
2820     goto L17138;}
2821   else {
2822     arg0K0 = (*((long *) ((((char *) (-3 + l_503X))) + 8)));
2823     goto L17193;}}
2824  L21230: {
2825   foo_505X = arg0K0;
2826   if ((1 == foo_505X)) {
2827     addr_506X = (((char *) (-3 + table_480X))) + (PS_SHIFT_LEFT_INLINE(i_481X, 3));S48_WRITE_BARRIER(table_480X, addr_506X, okay_link_501X);
2828     *((long *) addr_506X) = (long) (okay_link_501X);
2829     arg0K0 = (1 + i_481X);
2830     goto L32280;}
2831   else {
2832     v_507X = s48_extantP(foo_505X);
2833     if (v_507X) {
2834       new_foo_508X = s48_trace_value(foo_505X);
2835       next_link_509X = *((long *) ((((char *) (-3 + new_foo_508X))) + 8));
2836       addr_510X = (((char *) (-3 + new_foo_508X))) + 8;S48_WRITE_BARRIER(new_foo_508X, addr_510X, okay_link_501X);
2837       *((long *) addr_510X) = (long) (okay_link_501X);
2838       if ((3 == (3 & new_foo_508X))) {
2839         arg0K0 = next_link_509X;
2840         arg0K1 = (-4 & new_foo_508X);
2841         goto L21228;}
2842       else {
2843         arg0K0 = next_link_509X;
2844         arg0K1 = new_foo_508X;
2845         goto L21228;}}
2846     else {
2847       arg0K0 = (*((long *) ((((char *) (-3 + foo_505X))) + 8)));
2848       arg0K1 = okay_link_501X;
2849       goto L21228;}}}
2850  L17263: {
2851   i_511X = arg0K0;
2852   if ((i_511X == (Snumber_of_channelsS))) {
2853     arg0K0 = 0;
2854     goto L30128;}
2855   else {
2856     channel_512X = *((Svm_channelsS) + i_511X);
2857     if ((1 == channel_512X)) {
2858       goto L17291;}
2859     else {
2860       if ((0 == (*((long *) (((char *) (-3 + channel_512X))))))) {
2861         goto L17291;}
2862       else {
2863         val_513X = s48_trace_value((*((long *) ((((char *) (-3 + channel_512X))) + 8))));
2864         addr_514X = (((char *) (-3 + channel_512X))) + 8;S48_WRITE_BARRIER(channel_512X, addr_514X, val_513X);
2865         *((long *) addr_514X) = (long) (val_513X);
2866         goto L17291;}}}}
2867  L30128: {
2868   i_515X = arg0K0;
2869   if ((i_515X == (Snumber_of_channelsS))) {
2870     Sgc_in_troublePS = in_troubleP_479X;
2871     if (majorP_478X) {
2872       arg0K0 = 3;
2873       goto L31489;}
2874     else {
2875       arg0K0 = 2;
2876       goto L31489;}}
2877   else {
2878     channel_516X = *((Svm_channelsS) + i_515X);
2879     if ((1 == channel_516X)) {
2880       goto L30162;}
2881     else {
2882       v_517X = s48_extantP(channel_516X);
2883       if (v_517X) {
2884         v_518X = s48_trace_value(channel_516X);
2885         arg0K0 = v_518X;
2886         goto L30155;}
2887       else {
2888         if ((0 == (*((long *) (((char *) (-3 + channel_516X))))))) {
2889           arg0K0 = 1;
2890           goto L30155;}
2891         else {
2892           status_519X = close_channelB(channel_516X);
2893           id_520X = *((long *) ((((char *) (-3 + channel_516X))) + 8));
2894           if ((status_519X == NO_ERRORS)) {
2895             goto L30186;}
2896           else {channel_close_error(status_519X, (*((long *) ((((char *) (-3 + channel_516X))) + 16))), id_520X);
2897             goto L30186;}}}}}}
2898  L17291: {
2899   arg0K0 = (1 + i_511X);
2900   goto L17263;}
2901  L31489: {
2902   interrupt_521X = arg0K0;
2903   PS_SHIFT_LEFT(1, interrupt_521X, x_522X)
2904   Spending_interruptsS = ((Spending_interruptsS) | x_522X);
2905   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
2906     s48_Sstack_limitS = (Sreal_stack_limitS);
2907     if ((s48_Spending_eventsPS)) {
2908       s48_Sstack_limitS = (((char *) -1));
2909       return;}
2910     else {
2911       return;}}
2912   else {
2913     s48_Sstack_limitS = (((char *) -1));
2914     return;}}
2915  L30162: {
2916   arg0K0 = (1 + i_515X);
2917   goto L30128;}
2918  L30155: {
2919   new_523X = arg0K0;
2920   *((Svm_channelsS) + i_515X) = new_523X;
2921   goto L30162;}
2922  L30186: {
2923   if ((1 == (*((long *) ((((char *) (-3 + channel_516X))) + 24))))) {
2924     id_524X = *((long *) ((((char *) (-3 + channel_516X))) + 8));
2925     ps_write_string("Channel closed: ", (stderr));
2926     if ((0 == (3 & id_524X))) {
2927       ps_write_integer((PS_SHIFT_RIGHT_INLINE(id_524X, 2)), (stderr));
2928       goto L25858;}
2929     else {
2930       if ((3 == (3 & id_524X))) {
2931         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + id_524X))))), 2))))) {write_vm_string(id_524X, (stderr));
2932           goto L25858;}
2933         else {
2934           goto L25854;}}
2935       else {
2936         goto L25854;}}}
2937   else {
2938     arg0K0 = 1;
2939     goto L30155;}}
2940  L25858: {
2941   ps_write_string(" ", (stderr));
2942   ps_write_integer((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_516X))) + 16))), 2)), (stderr));
2943   { long ignoreXX;
2944   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2945   arg0K0 = 1;
2946   goto L30155;}
2947  L25854: {
2948   ps_write_string("<strange id>", (stderr));
2949   goto L25858;}
2950 }
HtopD12316(void)2951 static void HtopD12316(void)
2952 {
2953   char * arg3K0;
2954   long arg0K1;
2955   long arg0K0;
2956   long merged_arg0K0;
2957 
2958 #ifdef USE_DIRECT_THREADING
2959   void *Hentry_tracer1025525_return_address;
2960 #else
2961   int Hentry_tracer1025525_return_tag;
2962 #endif
2963   long Hentry_tracer10255250_return_value;
2964   long foo_link_526X;
2965   char * addr_596X;
2966   long next_link_595X;
2967   long new_foo_594X;
2968   long foo_593X;
2969   long done_link_592X;
2970   long foo_link_591X;
2971   long v_590X;
2972   long size_589X;
2973   char * pointer_588X;
2974   long v_587X;
2975   long v_586X;
2976   long v_585X;
2977   long cells_584X;
2978   long size_583X;
2979   char * pointer_582X;
2980   char * contents_pointer_581X;
2981   long new_code_580X;
2982   long mask_size_579X;
2983   char * code_pointer_578X;
2984   long pc_577X;
2985   char * pointer_576X;
2986   char * pointer_575X;
2987   char * cont_574X;
2988   long unused_573X;
2989   char * a_572X;
2990   char * addr_571X;
2991   long value_570X;
2992   long i_569X;
2993   char * addr_568X;
2994   long val_567X;
2995   char * addr_566X;
2996   long value_565X;
2997   long table_564X;
2998   long i_563X;
2999   char x_562X;
3000   long pair_561X;
3001   long table_560X;
3002   long v_559X;
3003   long v_558X;
3004   long alist_557X;
3005   long x2_556X;
3006   char * cell_555X;
3007   long i_554X;
3008   long x2_553X;
3009   char * cell_552X;
3010   long v_551X;
3011   long v_550X;
3012   long v_549X;
3013   long v_548X;
3014   long v_547X;
3015   long v_546X;
3016   long v_545X;
3017   long v_544X;
3018   long v_543X;
3019   long v_542X;
3020   long v_541X;
3021   long v_540X;
3022   long v_539X;
3023   long v_538X;
3024   long v_537X;
3025   long v_536X;
3026   long v_535X;
3027   long v_534X;
3028   long v_533X;
3029   long v_532X;
3030   long code_531X;
3031   char * frame_530X;
3032   long length_529X;
3033   char * frame_528X;
3034   long v_527X;
3035  {  v_527X = s48_trace_value((Sempty_logS));
3036   Sempty_logS = v_527X;
3037   arg3K0 = (Sexternal_root_stackS);
3038   goto L11924;}
3039  L11924: {
3040   frame_528X = arg3K0;
3041   if ((frame_528X == NULL)) {
3042     arg3K0 = (Spermanent_external_rootsS);
3043     goto L11950;}
3044   else {
3045     length_529X = *((long *) frame_528X);
3046     arg0K0 = 0;
3047     goto L11932;}}
3048  L11950: {
3049   frame_530X = arg3K0;
3050   if ((frame_530X == NULL)) {s48_trace_external_calls();s48_initializing_gc_root();
3051     code_531X = current_code_vector();
3052     Ssaved_pcS = ((Scode_pointerS) - (((char *) (-3 + code_531X))));
3053     v_532X = s48_trace_value(code_531X);
3054     Slast_code_calledS = v_532X;
3055     v_533X = s48_trace_value((SvalS));
3056     SvalS = v_533X;
3057     v_534X = s48_trace_value((Scurrent_threadS));
3058     Scurrent_threadS = v_534X;
3059     v_535X = s48_trace_value((Sinterrupted_byte_opcode_return_codeS));
3060     Sinterrupted_byte_opcode_return_codeS = v_535X;
3061     v_536X = s48_trace_value((Sinterrupted_native_call_return_codeS));
3062     Sinterrupted_native_call_return_codeS = v_536X;
3063     v_537X = s48_trace_value((Snative_poll_return_codeS));
3064     Snative_poll_return_codeS = v_537X;
3065     v_538X = s48_trace_value((Sexception_return_codeS));
3066     Sexception_return_codeS = v_538X;
3067     v_539X = s48_trace_value((Snative_exception_return_codeS));
3068     Snative_exception_return_codeS = v_539X;
3069     v_540X = s48_trace_value((Scall_with_values_return_codeS));
3070     Scall_with_values_return_codeS = v_540X;
3071     v_541X = s48_trace_value((Sinterrupted_templateS));
3072     Sinterrupted_templateS = v_541X;
3073     v_542X = s48_trace_value((s48_Snc_templateS));
3074     s48_Snc_templateS = v_542X;
3075     v_543X = SHARED_REF((Ssession_dataS));
3076     v_544X = s48_trace_value(v_543X);SHARED_SETB((Ssession_dataS), v_544X);
3077     v_545X = SHARED_REF((Sexception_handlersS));
3078     v_546X = s48_trace_value(v_545X);SHARED_SETB((Sexception_handlersS), v_546X);
3079     v_547X = SHARED_REF((Sinterrupt_handlersS));
3080     v_548X = s48_trace_value(v_547X);SHARED_SETB((Sinterrupt_handlersS), v_548X);
3081     v_549X = SHARED_REF((Sfinalize_theseS));
3082     v_550X = s48_trace_value(v_549X);SHARED_SETB((Sfinalize_theseS), v_550X);
3083     v_551X = SHARED_REF((Sfinalizer_alistS));
3084     arg0K0 = v_551X;
3085     goto L13825;}
3086   else {
3087     cell_552X = ((char *) (*((long *) (frame_530X + 16))));
3088     x2_553X = s48_trace_value((*((long *) cell_552X)));
3089     *((long *) cell_552X) = (long) (x2_553X);
3090     arg3K0 = (((char *) (*((long *) frame_530X))));
3091     goto L11950;}}
3092  L11932: {
3093   i_554X = arg0K0;
3094   if ((i_554X == length_529X)) {
3095     arg3K0 = (((char *) (*((long *) (frame_528X + 8)))));
3096     goto L11924;}
3097   else {
3098     cell_555X = ((char *) (*((long *) (frame_528X + (16 + (PS_SHIFT_LEFT_INLINE(i_554X, 3)))))));
3099     x2_556X = s48_trace_value((*((long *) cell_555X)));
3100     *((long *) cell_555X) = (long) (x2_556X);
3101     arg0K0 = (1 + i_554X);
3102     goto L11932;}}
3103  L13825: {
3104   alist_557X = arg0K0;
3105   if ((25 == alist_557X)) {
3106     v_558X = s48_trace_value((Spending_channels_headS));
3107     Spending_channels_headS = v_558X;
3108     v_559X = s48_trace_value((Spending_channels_tailS));
3109     Spending_channels_tailS = v_559X;
3110     table_560X = s48_trace_value((Simported_bindingsS));
3111     arg0K0 = 0;
3112     goto L28801;}
3113   else {
3114     pair_561X = *((long *) (((char *) (-3 + alist_557X))));
3115     x_562X = s48_extantP((*((long *) (((char *) (-3 + pair_561X))))));
3116     if (x_562X) {
3117       goto L13850;}
3118     else {s48_trace_stob_contentsB((*((long *) (((char *) (-3 + pair_561X))))));
3119       goto L13850;}}}
3120  L28801: {
3121   i_563X = arg0K0;
3122   if ((1024 == i_563X)) {
3123     Simported_bindingsS = table_560X;
3124     table_564X = s48_trace_value((Sexported_bindingsS));
3125     arg0K0 = 0;
3126     goto L28822;}
3127   else {
3128     merged_arg0K0 = (*((long *) ((((char *) (-3 + table_560X))) + (PS_SHIFT_LEFT_INLINE(i_563X, 3)))));
3129 #ifdef USE_DIRECT_THREADING
3130     Hentry_tracer1025525_return_address = &&Hentry_tracer1025525_return_0;
3131 #else
3132     Hentry_tracer1025525_return_tag = 0;
3133 #endif
3134     goto Hentry_tracer1025525;
3135    Hentry_tracer1025525_return_0:
3136     value_565X = Hentry_tracer10255250_return_value;
3137     addr_566X = (((char *) (-3 + table_560X))) + (PS_SHIFT_LEFT_INLINE(i_563X, 3));S48_WRITE_BARRIER(table_560X, addr_566X, value_565X);
3138     *((long *) addr_566X) = (long) (value_565X);
3139     arg0K0 = (1 + i_563X);
3140     goto L28801;}}
3141  L13850: {
3142   val_567X = s48_trace_value((*((long *) ((((char *) (-3 + pair_561X))) + 8))));
3143   addr_568X = (((char *) (-3 + pair_561X))) + 8;S48_WRITE_BARRIER(pair_561X, addr_568X, val_567X);
3144   *((long *) addr_568X) = (long) (val_567X);
3145   arg0K0 = (*((long *) ((((char *) (-3 + alist_557X))) + 8)));
3146   goto L13825;}
3147  L28822: {
3148   i_569X = arg0K0;
3149   if ((1024 == i_569X)) {
3150     Sexported_bindingsS = table_564X;
3151     if ((Sstack_warningPS)) {
3152       arg3K0 = (Sstack_beginS);
3153       goto L8429;}
3154     else {
3155       goto L21461;}}
3156   else {
3157     merged_arg0K0 = (*((long *) ((((char *) (-3 + table_564X))) + (PS_SHIFT_LEFT_INLINE(i_569X, 3)))));
3158 #ifdef USE_DIRECT_THREADING
3159     Hentry_tracer1025525_return_address = &&Hentry_tracer1025525_return_1;
3160 #else
3161     Hentry_tracer1025525_return_tag = 1;
3162 #endif
3163     goto Hentry_tracer1025525;
3164    Hentry_tracer1025525_return_1:
3165     value_570X = Hentry_tracer10255250_return_value;
3166     addr_571X = (((char *) (-3 + table_564X))) + (PS_SHIFT_LEFT_INLINE(i_569X, 3));S48_WRITE_BARRIER(table_564X, addr_571X, value_570X);
3167     *((long *) addr_571X) = (long) (value_570X);
3168     arg0K0 = (1 + i_569X);
3169     goto L28822;}}
3170  L8429: {
3171   a_572X = arg3K0;
3172   if ((252645135 == (*((long *) a_572X)))) {
3173     arg3K0 = (a_572X + 8);
3174     goto L8429;}
3175   else {
3176     unused_573X = PS_SHIFT_RIGHT_INLINE((a_572X - (Sstack_beginS)), 3);
3177     if ((unused_573X < 30)) {
3178       { long ignoreXX;
3179       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
3180       ps_write_string("[Alert: stack overconsumption (", (stderr));
3181       ps_write_integer(unused_573X, (stderr));
3182       ps_write_string("); please inform the Scheme 48 implementors]", (stderr));
3183       { long ignoreXX;
3184       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
3185       Sstack_warningPS = 0;
3186       goto L21461;}
3187     else {
3188       goto L21461;}}}
3189  L21461: {
3190 s48_trace_locationsB((SstackS), ((SstackS) + (-8 & ((ScontS) - (SstackS)))));
3191   arg3K0 = (ScontS);
3192   goto L21471;}
3193  L21471: {
3194   cont_574X = arg3K0;
3195   pointer_575X = ((char *) (*((long *) cont_574X)));
3196   pointer_576X = pointer_575X + -5;
3197   pc_577X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_576X)), 8)) + (*((unsigned char *) (pointer_576X + 1)));
3198   code_pointer_578X = ((char *) (*((long *) cont_574X)));
3199   mask_size_579X = *((unsigned char *) (code_pointer_578X + -3));
3200   new_code_580X = s48_trace_value((3 + (((long) (pointer_575X + (0 - pc_577X))))));
3201   contents_pointer_581X = cont_574X + 8;
3202   *((long *) cont_574X) = (long) ((((long) ((((char *) (-3 + new_code_580X))) + pc_577X))));
3203   if ((0 == mask_size_579X)) {
3204     pointer_582X = (((char *) (*((long *) cont_574X)))) + -2;
3205     size_583X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_582X)), 8)) + (*((unsigned char *) (pointer_582X + 1)));
3206     if ((65535 == size_583X)) {
3207       arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_574X + 8))), 2));
3208       goto L15842;}
3209     else {
3210       arg0K0 = size_583X;
3211       goto L15842;}}
3212   else {s48_trace_continuation_contentsB(contents_pointer_581X, code_pointer_578X, mask_size_579X);
3213     goto L21481;}}
3214  L15842: {
3215   cells_584X = arg0K0;s48_trace_locationsB(contents_pointer_581X, (contents_pointer_581X + (PS_SHIFT_LEFT_INLINE(cells_584X, 3))));
3216   goto L21481;}
3217  L21481: {
3218   if ((cont_574X == (Sbottom_of_stackS))) {
3219     v_585X = s48_trace_value((Sheap_continuationS));
3220     Sheap_continuationS = v_585X;
3221     v_586X = s48_trace_value((Stemp0S));
3222     Stemp0S = v_586X;
3223     v_587X = s48_trace_value((Stemp1S));
3224     Stemp1S = v_587X;
3225     return;}
3226   else {
3227     pointer_588X = (((char *) (*((long *) cont_574X)))) + -2;
3228     size_589X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_588X)), 8)) + (*((unsigned char *) (pointer_588X + 1)));
3229     if ((65535 == size_589X)) {
3230       arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_574X + 8))), 2));
3231       goto L21519;}
3232     else {
3233       arg0K0 = size_589X;
3234       goto L21519;}}}
3235  L21519: {
3236   v_590X = arg0K0;
3237   arg3K0 = (cont_574X + (8 + (PS_SHIFT_LEFT_INLINE(v_590X, 3))));
3238   goto L21471;}
3239  Hentry_tracer1025525: {
3240   foo_link_526X = merged_arg0K0;{
3241   arg0K0 = foo_link_526X;
3242   arg0K1 = 1;
3243   goto L21300;}
3244  L21300: {
3245   foo_link_591X = arg0K0;
3246   done_link_592X = arg0K1;
3247   if ((0 == (3 & foo_link_591X))) {
3248     arg0K0 = (3 + (-4 & foo_link_591X));
3249     goto L21302;}
3250   else {
3251     arg0K0 = foo_link_591X;
3252     goto L21302;}}
3253  L21302: {
3254   foo_593X = arg0K0;
3255   if ((1 == foo_593X)) {
3256     Hentry_tracer10255250_return_value = done_link_592X;
3257 #ifdef USE_DIRECT_THREADING
3258     goto *Hentry_tracer1025525_return_address;
3259 #else
3260     goto Hentry_tracer1025525_return;
3261 #endif
3262 }
3263   else {
3264     new_foo_594X = s48_trace_value(foo_593X);
3265     next_link_595X = *((long *) ((((char *) (-3 + new_foo_594X))) + 24));
3266     addr_596X = (((char *) (-3 + new_foo_594X))) + 24;S48_WRITE_BARRIER(new_foo_594X, addr_596X, done_link_592X);
3267     *((long *) addr_596X) = (long) (done_link_592X);
3268     if ((3 == (3 & new_foo_594X))) {
3269       arg0K0 = next_link_595X;
3270       arg0K1 = (-4 & new_foo_594X);
3271       goto L21300;}
3272     else {
3273       arg0K0 = next_link_595X;
3274       arg0K1 = new_foo_594X;
3275       goto L21300;}}}
3276 #ifndef USE_DIRECT_THREADING
3277  Hentry_tracer1025525_return:
3278   switch (Hentry_tracer1025525_return_tag) {
3279   case 0: goto Hentry_tracer1025525_return_0;
3280   default: goto Hentry_tracer1025525_return_1;
3281   }
3282 #endif
3283 }
3284 
3285 }
s48_set_native_protocolB(long protocol_597X)3286 void s48_set_native_protocolB(long protocol_597X)
3287 {
3288 
3289  {  s48_Snative_protocolS = protocol_597X;
3290   return;}
3291 }
s48_set_extension_valueB(long value_598X)3292 void s48_set_extension_valueB(long value_598X)
3293 {
3294 
3295  {  s48_Sextension_valueS = value_598X;
3296   return;}
3297 }
s48_channel_count(void)3298 long s48_channel_count(void)
3299 {
3300 
3301  {  return (Snumber_of_channelsS);}
3302 }
s48_channels(void)3303 long *s48_channels(void)
3304 {
3305 
3306  {  return (Svm_channelsS);}
3307 }
s48_imported_bindings(void)3308 long s48_imported_bindings(void)
3309 {
3310 
3311  {  return (Simported_bindingsS);}
3312 }
s48_exported_bindings(void)3313 long s48_exported_bindings(void)
3314 {
3315 
3316  {  return (Sexported_bindingsS);}
3317 }
s48_os_signal_pending(void)3318 char s48_os_signal_pending(void)
3319 {
3320   long arg0K0;
3321   long v_599X;
3322  {  if (((Sos_signal_ring_readyS) == (Sos_signal_ring_endS))) {
3323     return 0;}
3324   else {
3325     if ((31 == (Sos_signal_ring_readyS))) {
3326       arg0K0 = 0;
3327       goto L3803;}
3328     else {
3329       arg0K0 = (1 + (Sos_signal_ring_readyS));
3330       goto L3803;}}}
3331  L3803: {
3332   v_599X = arg0K0;
3333   Sos_signal_ring_readyS = v_599X;
3334   return 1;}
3335 }
s48_symbol_table(void)3336 long s48_symbol_table(void)
3337 {
3338 
3339  {  return (Sthe_symbol_tableS);}
3340 }
s48_set_gc_roots_baseB(void)3341 char * s48_set_gc_roots_baseB(void)
3342 {
3343   char * old_base_600X;
3344  {  old_base_600X = Sexternal_root_stack_baseS;
3345   Sexternal_root_stack_baseS = (Sexternal_root_stackS);
3346   return old_base_600X;}
3347 }
s48_release_gc_roots_baseB(char * old_base_601X)3348 char s48_release_gc_roots_baseB(char * old_base_601X)
3349 {
3350   char * current_base_602X;
3351  {  current_base_602X = Sexternal_root_stack_baseS;
3352   Sexternal_root_stack_baseS = old_base_601X;
3353   if (((Sexternal_root_stackS) == current_base_602X)) {
3354     return 1;}
3355   else {
3356     Sexternal_root_stackS = current_base_602X;
3357     return 0;}}
3358 }
s48_reset_external_rootsB(void)3359 void s48_reset_external_rootsB(void)
3360 {
3361 
3362  {  Sexternal_root_stackS = NULL;
3363   Sexternal_root_stack_baseS = NULL;
3364   Spermanent_external_rootsS = NULL;
3365   return;}
3366 }
s48_external_event_readyPUunsafe(void)3367 char s48_external_event_readyPUunsafe(void)
3368 {
3369 
3370  {  if ((NULL == (Spending_event_types_readyS))) {
3371     return 0;}
3372   else {
3373     return 1;}}
3374 }
s48_note_event(void)3375 void s48_note_event(void)
3376 {
3377 
3378  {  s48_Spending_eventsPS = 1;
3379   s48_Sstack_limitS = (((char *) -1));
3380   return;}
3381 }
s48_reset_interruptsB(void)3382 void s48_reset_interruptsB(void)
3383 {
3384 
3385  {  Sos_signal_ring_startS = 0;
3386   Sos_signal_ring_readyS = 0;
3387   Sos_signal_ring_endS = 0;
3388   Senabled_interruptsS = 0;
3389   Spending_interruptsS = 0;
3390   s48_Spending_interruptPS = 0;
3391   return;}
3392 }
s48_disable_interruptsB(void)3393 void s48_disable_interruptsB(void)
3394 {
3395 
3396  {  s48_Spending_interruptPS = 0;
3397   Senabled_interruptsS = 0;
3398   return;}
3399 }
s48_add_os_signal(long sig_603X)3400 void s48_add_os_signal(long sig_603X)
3401 {
3402   long arg0K0;
3403   long v_605X;
3404   long sig_pos_604X;
3405  {  sig_pos_604X = Sos_signal_ring_endS;
3406   if ((31 == (Sos_signal_ring_endS))) {
3407     arg0K0 = 0;
3408     goto L5003;}
3409   else {
3410     arg0K0 = (1 + (Sos_signal_ring_endS));
3411     goto L5003;}}
3412  L5003: {
3413   v_605X = arg0K0;
3414   Sos_signal_ring_endS = v_605X;
3415   if (((Sos_signal_ring_startS) == (Sos_signal_ring_endS))) {
3416     ps_error("OS signal ring too small, report to Scheme 48 maintainers", 0);
3417     goto L5005;}
3418   else {
3419     goto L5005;}}
3420  L5005: {
3421   *(Sos_signal_ringS + sig_pos_604X) = sig_603X;
3422   return;}
3423 }
s48_push_gc_rootsB(char * frame_606X,long n_607X)3424 void s48_push_gc_rootsB(char * frame_606X, long n_607X)
3425 {
3426 
3427  {  *((long *) frame_606X) = (long) (n_607X);
3428   *((long *) (frame_606X + 8)) = (long) ((((long) (Sexternal_root_stackS))));
3429   Sexternal_root_stackS = frame_606X;
3430   return;}
3431 }
s48_register_gc_rootB(char * loc_addr_608X)3432 char * s48_register_gc_rootB(char * loc_addr_608X)
3433 {
3434   char * x_610X;
3435   char * frame_609X;
3436  {  frame_609X = (char *)malloc(24);
3437   if ((frame_609X == NULL)) {
3438     ps_error("out of memory registering a global root", 0);
3439     goto L5193;}
3440   else {
3441     goto L5193;}}
3442  L5193: {
3443   *((long *) frame_609X) = (long) ((((long) (Spermanent_external_rootsS))));
3444   *((long *) (frame_609X + 8)) = (long) ((((long) NULL)));
3445   x_610X = Spermanent_external_rootsS;
3446   if ((x_610X == NULL)) {
3447     goto L5213;}
3448   else {
3449     *((long *) ((Spermanent_external_rootsS) + 8)) = (long) ((((long) frame_609X)));
3450     goto L5213;}}
3451  L5213: {
3452   *((long *) (frame_609X + 16)) = (long) ((((long) loc_addr_608X)));
3453   Spermanent_external_rootsS = frame_609X;
3454   return frame_609X;}
3455 }
s48_external_event_pendingPUunsafe(void)3456 char s48_external_event_pendingPUunsafe(void)
3457 {
3458 
3459  {  if ((NULL == (Spending_event_types_readyS))) {
3460     return 0;}
3461   else {
3462     Spending_event_types_readyS = ((Spending_event_types_readyS)->next);
3463     return 1;}}
3464 }
s48_dequeue_external_eventBUunsafe(char * TT0)3465 long s48_dequeue_external_eventBUunsafe(char *TT0)
3466 {
3467   long v_613X;
3468   struct event_type *next_612X;
3469   struct event_type *type_611X;
3470  {  type_611X = Spending_event_types_headS;
3471   next_612X = type_611X->next;
3472   Spending_event_types_headS = next_612X;
3473   type_611X->next = (NULL);
3474   if ((NULL == next_612X)) {
3475     Spending_event_types_tailS = (NULL);
3476     goto L5562;}
3477   else {
3478     goto L5562;}}
3479  L5562: {
3480   v_613X = type_611X->uid;
3481   if ((NULL == (Spending_event_types_readyS))) {
3482     *TT0 = 0;
3483     return v_613X;}
3484   else {
3485     *TT0 = 1;
3486     return v_613X;}}
3487 }
s48_note_external_eventBUunsafe(long index_614X)3488 void s48_note_external_eventBUunsafe(long index_614X)
3489 {
3490   struct event_type *type_615X;
3491  {  if ((index_614X < (Snumber_of_event_typesS))) {
3492     goto L6746;}
3493   else {
3494     ps_write_string("invalid external event: ", (stderr));
3495     ps_write_integer(index_614X, (stderr));
3496     { long ignoreXX;
3497     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
3498     ps_error("assertion-violation", 0);
3499     goto L6746;}}
3500  L6746: {
3501   type_615X = *((Sevent_typesS) + index_614X);
3502   if ((type_615X->usedP)) {
3503     if ((NULL == (type_615X->next))) {
3504       if ((type_615X == (Spending_event_types_headS))) {
3505         return;}
3506       else {
3507         if ((type_615X == (Spending_event_types_tailS))) {
3508           return;}
3509         else {
3510           if ((NULL == (Spending_event_types_headS))) {
3511             Spending_event_types_headS = type_615X;
3512             Spending_event_types_tailS = type_615X;
3513             Spending_event_types_readyS = type_615X;
3514             return;}
3515           else {
3516             (Spending_event_types_tailS)->next = type_615X;
3517             Spending_event_types_tailS = type_615X;
3518             if ((NULL == (Spending_event_types_readyS))) {
3519               Spending_event_types_readyS = type_615X;
3520               return;}
3521             else {
3522               return;}}}}}
3523     else {
3524       return;}}
3525   else {
3526     ps_write_string("invalid external event: ", (stderr));
3527     ps_write_integer(index_614X, (stderr));
3528     { long ignoreXX;
3529     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
3530     ps_error("assertion-violation", 0);
3531     return;}}
3532 }
s48_stack_setB(long x_616X,long value_617X)3533 void s48_stack_setB(long x_616X, long value_617X)
3534 {
3535 
3536  {  *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(x_616X, 3)))) = (long) (value_617X);
3537   return;}
3538 }
s48_stack_ref(long i_618X)3539 long s48_stack_ref(long i_618X)
3540 {
3541 
3542  {  return (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(i_618X, 3)))));}
3543 }
s48_push(long x_619X)3544 void s48_push(long x_619X)
3545 {
3546 
3547  {  SstackS = ((SstackS) + -8);
3548   *((long *) (SstackS)) = (long) (x_619X);
3549   return;}
3550 }
s48_resetup_external_exception(long new_why_620X,long additional_nargs_621X)3551 long s48_resetup_external_exception(long new_why_620X, long additional_nargs_621X)
3552 {
3553   long old_why_623X;
3554   long old_nargs_622X;
3555  {  old_nargs_622X = Sexternal_exception_nargsS;
3556   old_why_623X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(old_nargs_622X, 3))));
3557   *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(old_nargs_622X, 3)))) = (long) ((PS_SHIFT_LEFT_INLINE(new_why_620X, 2)));
3558   Sexternal_exception_nargsS = (old_nargs_622X + additional_nargs_621X);
3559   return old_why_623X;}
3560 }
s48_pop_gc_rootsB(void)3561 char s48_pop_gc_rootsB(void)
3562 {
3563 
3564  {  if (((Sexternal_root_stackS) == (Sexternal_root_stack_baseS))) {
3565     return 0;}
3566   else {
3567     Sexternal_root_stackS = (((char *) (*((long *) ((Sexternal_root_stackS) + 8)))));
3568     return 1;}}
3569 }
s48_unregister_gc_rootB(char * frame_624X)3570 void s48_unregister_gc_rootB(char * frame_624X)
3571 {
3572   char * previous_626X;
3573   char * next_625X;
3574  {  if ((frame_624X == (Spermanent_external_rootsS))) {
3575     Spermanent_external_rootsS = (((char *) (*((long *) frame_624X))));
3576     goto L9756;}
3577   else {
3578     next_625X = ((char *) (*((long *) frame_624X)));
3579     previous_626X = ((char *) (*((long *) (frame_624X + 8))));
3580     *((long *) previous_626X) = (long) ((((long) next_625X)));
3581     if ((next_625X == NULL)) {
3582       goto L9756;}
3583     else {
3584       *((long *) (next_625X + 8)) = (long) ((((long) previous_626X)));
3585       goto L9756;}}}
3586  L9756: {
3587   free(frame_624X);
3588   return;}
3589 }
s48_shorten_bignum(char * external_bignum_627X,long number_of_digits_628X)3590 char * s48_shorten_bignum(char * external_bignum_627X, long number_of_digits_628X)
3591 {
3592   long waste_size_633X;
3593   long old_data_size_632X;
3594   long new_data_size_631X;
3595   long new_size_630X;
3596   long bignum_629X;
3597  {  bignum_629X = 3 + (((long) external_bignum_627X));
3598   new_size_630X = 8 + (-8 & (15 + (PS_SHIFT_LEFT_INLINE(number_of_digits_628X, 3))));
3599   new_data_size_631X = -8 + new_size_630X;
3600   old_data_size_632X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + bignum_629X))))), 8);
3601   waste_size_633X = old_data_size_632X - new_data_size_631X;
3602   if ((waste_size_633X < 0)) {
3603     ps_error("shorten bignum", 2, new_data_size_631X, old_data_size_632X);
3604     goto L10315;}
3605   else {
3606     goto L10315;}}
3607  L10315: {
3608   if ((waste_size_633X < 8)) {
3609     return external_bignum_627X;}
3610   else {
3611     *((long *) (((char *) (-11 + bignum_629X)))) = (long) ((78 + (PS_SHIFT_LEFT_INLINE(new_data_size_631X, 8))));
3612     *((long *) (((char *) (-8 + (((long) ((((char *) (-3 + bignum_629X))) + (-8 & (7 + new_size_630X))))))))) = (long) ((-1970 + (PS_SHIFT_LEFT_INLINE(waste_size_633X, 8))));
3613     return external_bignum_627X;}}
3614 }
s48_allocate_bignum(long size_634X)3615 long s48_allocate_bignum(long size_634X)
3616 {
3617   char * addr_635X;
3618  {  addr_635X = s48_allocate_small((8 + size_634X));
3619   *((long *) addr_635X) = (long) ((78 + (PS_SHIFT_LEFT_INLINE(size_634X, 8))));
3620   return (3 + (((long) (addr_635X + 8))));}
3621 }
s48_enable_interruptsB(void)3622 void s48_enable_interruptsB(void)
3623 {
3624 
3625  {  Senabled_interruptsS = -1;
3626   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
3627     s48_Sstack_limitS = (Sreal_stack_limitS);
3628     if ((s48_Spending_eventsPS)) {
3629       s48_Sstack_limitS = (((char *) -1));
3630       return;}
3631     else {
3632       return;}}
3633   else {
3634     s48_Sstack_limitS = (((char *) -1));
3635     return;}}
3636 }
s48_allocate_string(long len_636X)3637 long s48_allocate_string(long len_636X)
3638 {
3639   long arg0K0;
3640   long string_639X;
3641   char * addr_638X;
3642   long len_637X;
3643  {  len_637X = PS_SHIFT_LEFT_INLINE(len_636X, 2);
3644   addr_638X = s48_allocate_untracedAgc((8 + len_637X));
3645   if ((addr_638X == NULL)) {
3646     arg0K0 = 1;
3647     goto L16212;}
3648   else {
3649     *((long *) addr_638X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_637X, 8))));
3650     arg0K0 = (3 + (((long) (addr_638X + 8))));
3651     goto L16212;}}
3652  L16212: {
3653   string_639X = arg0K0;
3654   if ((1 == string_639X)) {
3655     ps_error("Out of space, unable to allocate", 0);
3656     return string_639X;}
3657   else {
3658     return string_639X;}}
3659 }
s48_set_channel_os_index(long channel_640X,long os_index_641X)3660 long s48_set_channel_os_index(long channel_640X, long os_index_641X)
3661 {
3662   char * addr_648X;
3663   long val_647X;
3664   long v_646X;
3665   long x_645X;
3666   long old_index_644X;
3667   char x_643X;
3668   char temp_642X;
3669  {  temp_642X = os_index_641X < (Snumber_of_channelsS);
3670   if (temp_642X) {
3671     goto L17422;}
3672   else {
3673     x_643X = add_more_channels(os_index_641X);
3674     if (x_643X) {
3675       goto L17422;}
3676     else {
3677       return 40;}}}
3678  L17422: {
3679   if ((1 == (*((Svm_channelsS) + os_index_641X)))) {
3680     old_index_644X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_640X))) + 16))), 2);
3681     x_645X = *((long *) ((((char *) (-3 + channel_640X))) + 40));
3682     if ((5 == x_645X)) {
3683       v_646X = ps_abort_fd_op(old_index_644X);enqueue_channelB(old_index_644X, v_646X, 1);
3684       goto L17408;}
3685     else {
3686       goto L17408;}}
3687   else {
3688     return 48;}}
3689  L17408: {
3690   *((Svm_channelsS) + old_index_644X) = 1;
3691   *((Svm_channelsS) + os_index_641X) = channel_640X;
3692   val_647X = PS_SHIFT_LEFT_INLINE(os_index_641X, 2);
3693   addr_648X = (((char *) (-3 + channel_640X))) + 16;S48_WRITE_BARRIER(channel_640X, addr_648X, val_647X);
3694   *((long *) addr_648X) = (long) (val_647X);
3695   return 5;}
3696 }
s48_integer_or_floanum_L(long x_649X,long y_650X)3697 long s48_integer_or_floanum_L(long x_649X, long y_650X)
3698 {
3699   long v_653X;
3700   long v_652X;
3701   long v_651X;
3702  {  if ((3 == (3 & x_649X))) {
3703     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_649X))))), 2))))) {
3704       if (((*((double *) (((char *) (-3 + x_649X))))) < (*((double *) (((char *) (-3 + y_650X))))))) {
3705         return 5;}
3706       else {
3707         return 1;}}
3708     else {
3709       goto L20676;}}
3710   else {
3711     goto L20676;}}
3712  L20676: {
3713   if ((0 == (3 & x_649X))) {
3714     if ((0 == (3 & y_650X))) {
3715       if ((x_649X < y_650X)) {
3716         return 5;}
3717       else {
3718         return 1;}}
3719     else {
3720       v_651X = s48_bignum_test((((char *) (-3 + y_650X))));
3721       if ((1 == v_651X)) {
3722         return 5;}
3723       else {
3724         return 1;}}}
3725   else {
3726     if ((0 == (3 & y_650X))) {
3727       v_652X = s48_bignum_test((((char *) (-3 + x_649X))));
3728       if ((1 == v_652X)) {
3729         return 1;}
3730       else {
3731         return 5;}}
3732     else {
3733       v_653X = s48_bignum_compare((((char *) (-3 + x_649X))), (((char *) (-3 + y_650X))));
3734       if ((-1 == v_653X)) {
3735         return 5;}
3736       else {
3737         return 1;}}}}
3738 }
s48_integer_or_floanum_G(long x_654X,long y_655X)3739 long s48_integer_or_floanum_G(long x_654X, long y_655X)
3740 {
3741   long v_658X;
3742   long v_657X;
3743   long v_656X;
3744  {  if ((3 == (3 & x_654X))) {
3745     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_654X))))), 2))))) {
3746       if (((*((double *) (((char *) (-3 + y_655X))))) < (*((double *) (((char *) (-3 + x_654X))))))) {
3747         return 5;}
3748       else {
3749         return 1;}}
3750     else {
3751       goto L20805;}}
3752   else {
3753     goto L20805;}}
3754  L20805: {
3755   if ((0 == (3 & y_655X))) {
3756     if ((0 == (3 & x_654X))) {
3757       if ((y_655X < x_654X)) {
3758         return 5;}
3759       else {
3760         return 1;}}
3761     else {
3762       v_656X = s48_bignum_test((((char *) (-3 + x_654X))));
3763       if ((1 == v_656X)) {
3764         return 5;}
3765       else {
3766         return 1;}}}
3767   else {
3768     if ((0 == (3 & x_654X))) {
3769       v_657X = s48_bignum_test((((char *) (-3 + y_655X))));
3770       if ((1 == v_657X)) {
3771         return 1;}
3772       else {
3773         return 5;}}
3774     else {
3775       v_658X = s48_bignum_compare((((char *) (-3 + y_655X))), (((char *) (-3 + x_654X))));
3776       if ((-1 == v_658X)) {
3777         return 5;}
3778       else {
3779         return 1;}}}}
3780 }
s48_integer_or_floanum_LE(long x_659X,long y_660X)3781 long s48_integer_or_floanum_LE(long x_659X, long y_660X)
3782 {
3783   char b_661X;
3784  {  if ((3 == (3 & x_659X))) {
3785     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_659X))))), 2))))) {
3786       if (((*((double *) (((char *) (-3 + y_660X))))) < (*((double *) (((char *) (-3 + x_659X))))))) {
3787         return 1;}
3788       else {
3789         return 5;}}
3790     else {
3791       goto L20934;}}
3792   else {
3793     goto L20934;}}
3794  L20934: {
3795   b_661X = integerLE(x_659X, y_660X);
3796   if (b_661X) {
3797     return 5;}
3798   else {
3799     return 1;}}
3800 }
s48_integer_or_floanum_GE(long x_662X,long y_663X)3801 long s48_integer_or_floanum_GE(long x_662X, long y_663X)
3802 {
3803   char b_664X;
3804  {  if ((3 == (3 & x_662X))) {
3805     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_662X))))), 2))))) {
3806       if (((*((double *) (((char *) (-3 + x_662X))))) < (*((double *) (((char *) (-3 + y_663X))))))) {
3807         return 1;}
3808       else {
3809         return 5;}}
3810     else {
3811       goto L21011;}}
3812   else {
3813     goto L21011;}}
3814  L21011: {
3815   b_664X = integerGE(x_662X, y_663X);
3816   if (b_664X) {
3817     return 5;}
3818   else {
3819     return 1;}}
3820 }
s48_make_blank_return_code(long protocol_665X,long template_666X,long frame_size_667X,long opcode_count_668X)3821 long s48_make_blank_return_code(long protocol_665X, long template_666X, long frame_size_667X, long opcode_count_668X)
3822 {
3823 
3824  {s48_make_availableAgc((8 + (-8 & (22 + opcode_count_668X))));
3825   return make_blank_return_code(protocol_665X, template_666X, frame_size_667X, opcode_count_668X, 0);}
3826 }
s48_enter_string_utf_8(char * p_669X)3827 long s48_enter_string_utf_8(char * p_669X)
3828 {
3829   long arg0K1;
3830   long arg0K0;
3831   long vm_681X;
3832   long string_680X;
3833   char * addr_679X;
3834   long len_678X;
3835   long decoded_677X;
3836   long consumed_676X;
3837   long count_675X;
3838   long value_674X;
3839   char incompleteP_673X;
3840   long target_index_672X;
3841   long index_671X;
3842   long size_670X;
3843  {  size_670X = strlen((char *) (((char *)p_669X)));
3844   arg0K0 = 0;
3845   arg0K1 = 0;
3846   goto L22446;}
3847  L22446: {
3848   index_671X = arg0K0;
3849   target_index_672X = arg0K1;
3850   if ((index_671X < size_670X)) {decode_scalar_valueUutf_8((p_669X + index_671X), (size_670X - index_671X), &incompleteP_673X, &value_674X, &count_675X);
3851     if (incompleteP_673X) {
3852       arg0K0 = index_671X;
3853       arg0K1 = target_index_672X;
3854       goto L22423;}
3855     else {
3856       arg0K0 = (index_671X + count_675X);
3857       arg0K1 = (1 + target_index_672X);
3858       goto L22446;}}
3859   else {
3860     arg0K0 = index_671X;
3861     arg0K1 = target_index_672X;
3862     goto L22423;}}
3863  L22423: {
3864   consumed_676X = arg0K0;
3865   decoded_677X = arg0K1;
3866   len_678X = PS_SHIFT_LEFT_INLINE(decoded_677X, 2);
3867   addr_679X = s48_allocate_untracedAgc((8 + len_678X));
3868   if ((addr_679X == NULL)) {
3869     arg0K0 = 1;
3870     goto L22461;}
3871   else {
3872     *((long *) addr_679X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_678X, 8))));
3873     arg0K0 = (3 + (((long) (addr_679X + 8))));
3874     goto L22461;}}
3875  L22461: {
3876   string_680X = arg0K0;
3877   if ((1 == string_680X)) {
3878     ps_error("Out of space, unable to allocate", 0);
3879     arg0K0 = string_680X;
3880     goto L22429;}
3881   else {
3882     arg0K0 = string_680X;
3883     goto L22429;}}
3884  L22429: {
3885   vm_681X = arg0K0;decodeUutf_8B(p_669X, vm_681X, consumed_676X);
3886   return vm_681X;}
3887 }
s48_enter_string_utf_8_n(char * p_682X,long size_683X)3888 long s48_enter_string_utf_8_n(char * p_682X, long size_683X)
3889 {
3890   long arg0K1;
3891   long arg0K0;
3892   long vm_694X;
3893   long string_693X;
3894   char * addr_692X;
3895   long len_691X;
3896   long decoded_690X;
3897   long consumed_689X;
3898   long count_688X;
3899   long value_687X;
3900   char incompleteP_686X;
3901   long target_index_685X;
3902   long index_684X;
3903  {  arg0K0 = 0;
3904   arg0K1 = 0;
3905   goto L22503;}
3906  L22503: {
3907   index_684X = arg0K0;
3908   target_index_685X = arg0K1;
3909   if ((index_684X < size_683X)) {decode_scalar_valueUutf_8((p_682X + index_684X), (size_683X - index_684X), &incompleteP_686X, &value_687X, &count_688X);
3910     if (incompleteP_686X) {
3911       arg0K0 = index_684X;
3912       arg0K1 = target_index_685X;
3913       goto L22483;}
3914     else {
3915       arg0K0 = (index_684X + count_688X);
3916       arg0K1 = (1 + target_index_685X);
3917       goto L22503;}}
3918   else {
3919     arg0K0 = index_684X;
3920     arg0K1 = target_index_685X;
3921     goto L22483;}}
3922  L22483: {
3923   consumed_689X = arg0K0;
3924   decoded_690X = arg0K1;
3925   len_691X = PS_SHIFT_LEFT_INLINE(decoded_690X, 2);
3926   addr_692X = s48_allocate_untracedAgc((8 + len_691X));
3927   if ((addr_692X == NULL)) {
3928     arg0K0 = 1;
3929     goto L22518;}
3930   else {
3931     *((long *) addr_692X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_691X, 8))));
3932     arg0K0 = (3 + (((long) (addr_692X + 8))));
3933     goto L22518;}}
3934  L22518: {
3935   string_693X = arg0K0;
3936   if ((1 == string_693X)) {
3937     ps_error("Out of space, unable to allocate", 0);
3938     arg0K0 = string_693X;
3939     goto L22489;}
3940   else {
3941     arg0K0 = string_693X;
3942     goto L22489;}}
3943  L22489: {
3944   vm_694X = arg0K0;decodeUutf_8B(p_682X, vm_694X, consumed_689X);
3945   return vm_694X;}
3946 }
s48_enter_string_utf_16beU(char * p_695X)3947 long s48_enter_string_utf_16beU(char * p_695X)
3948 {
3949   long arg0K1;
3950   long arg0K0;
3951   long vm_708X;
3952   long string_707X;
3953   char * addr_706X;
3954   long len_705X;
3955   long decoded_704X;
3956   long consumed_703X;
3957   long count_702X;
3958   long value_701X;
3959   char incompleteP_700X;
3960   long target_index_699X;
3961   long index_698X;
3962   long i_697X;
3963   char *s_696X;
3964  {  s_696X = ((char *)p_695X);
3965   arg0K0 = 0;
3966   goto L22561;}
3967  L22561: {
3968   i_697X = arg0K0;
3969   if ((0 == (((unsigned char) (*(s_696X + i_697X)))))) {
3970     if ((0 == (((unsigned char) (*(s_696X + (1 + i_697X))))))) {
3971       arg0K0 = 0;
3972       arg0K1 = 0;
3973       goto L22579;}
3974     else {
3975       goto L22562;}}
3976   else {
3977     goto L22562;}}
3978  L22579: {
3979   index_698X = arg0K0;
3980   target_index_699X = arg0K1;
3981   if ((index_698X < i_697X)) {decode_scalar_valueUutf_16be((p_695X + index_698X), (i_697X - index_698X), &incompleteP_700X, &value_701X, &count_702X);
3982     if (incompleteP_700X) {
3983       arg0K0 = index_698X;
3984       arg0K1 = target_index_699X;
3985       goto L22541;}
3986     else {
3987       arg0K0 = (index_698X + count_702X);
3988       arg0K1 = (1 + target_index_699X);
3989       goto L22579;}}
3990   else {
3991     arg0K0 = index_698X;
3992     arg0K1 = target_index_699X;
3993     goto L22541;}}
3994  L22562: {
3995   arg0K0 = (2 + i_697X);
3996   goto L22561;}
3997  L22541: {
3998   consumed_703X = arg0K0;
3999   decoded_704X = arg0K1;
4000   len_705X = PS_SHIFT_LEFT_INLINE(decoded_704X, 2);
4001   addr_706X = s48_allocate_untracedAgc((8 + len_705X));
4002   if ((addr_706X == NULL)) {
4003     arg0K0 = 1;
4004     goto L22594;}
4005   else {
4006     *((long *) addr_706X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_705X, 8))));
4007     arg0K0 = (3 + (((long) (addr_706X + 8))));
4008     goto L22594;}}
4009  L22594: {
4010   string_707X = arg0K0;
4011   if ((1 == string_707X)) {
4012     ps_error("Out of space, unable to allocate", 0);
4013     arg0K0 = string_707X;
4014     goto L22547;}
4015   else {
4016     arg0K0 = string_707X;
4017     goto L22547;}}
4018  L22547: {
4019   vm_708X = arg0K0;decodeUutf_16beB(p_695X, vm_708X, consumed_703X);
4020   return vm_708X;}
4021 }
s48_enter_string_utf_16be_nU(char * p_709X,long size_710X)4022 long s48_enter_string_utf_16be_nU(char * p_709X, long size_710X)
4023 {
4024   long arg0K1;
4025   long arg0K0;
4026   long vm_721X;
4027   long string_720X;
4028   char * addr_719X;
4029   long len_718X;
4030   long decoded_717X;
4031   long consumed_716X;
4032   long count_715X;
4033   long value_714X;
4034   char incompleteP_713X;
4035   long target_index_712X;
4036   long index_711X;
4037  {  arg0K0 = 0;
4038   arg0K1 = 0;
4039   goto L22636;}
4040  L22636: {
4041   index_711X = arg0K0;
4042   target_index_712X = arg0K1;
4043   if ((index_711X < size_710X)) {decode_scalar_valueUutf_16be((p_709X + index_711X), (size_710X - index_711X), &incompleteP_713X, &value_714X, &count_715X);
4044     if (incompleteP_713X) {
4045       arg0K0 = index_711X;
4046       arg0K1 = target_index_712X;
4047       goto L22616;}
4048     else {
4049       arg0K0 = (index_711X + count_715X);
4050       arg0K1 = (1 + target_index_712X);
4051       goto L22636;}}
4052   else {
4053     arg0K0 = index_711X;
4054     arg0K1 = target_index_712X;
4055     goto L22616;}}
4056  L22616: {
4057   consumed_716X = arg0K0;
4058   decoded_717X = arg0K1;
4059   len_718X = PS_SHIFT_LEFT_INLINE(decoded_717X, 2);
4060   addr_719X = s48_allocate_untracedAgc((8 + len_718X));
4061   if ((addr_719X == NULL)) {
4062     arg0K0 = 1;
4063     goto L22651;}
4064   else {
4065     *((long *) addr_719X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_718X, 8))));
4066     arg0K0 = (3 + (((long) (addr_719X + 8))));
4067     goto L22651;}}
4068  L22651: {
4069   string_720X = arg0K0;
4070   if ((1 == string_720X)) {
4071     ps_error("Out of space, unable to allocate", 0);
4072     arg0K0 = string_720X;
4073     goto L22622;}
4074   else {
4075     arg0K0 = string_720X;
4076     goto L22622;}}
4077  L22622: {
4078   vm_721X = arg0K0;decodeUutf_16beB(p_709X, vm_721X, consumed_716X);
4079   return vm_721X;}
4080 }
s48_enter_string_utf_16leU(char * p_722X)4081 long s48_enter_string_utf_16leU(char * p_722X)
4082 {
4083   long arg0K1;
4084   long arg0K0;
4085   long vm_735X;
4086   long string_734X;
4087   char * addr_733X;
4088   long len_732X;
4089   long decoded_731X;
4090   long consumed_730X;
4091   long count_729X;
4092   long value_728X;
4093   char incompleteP_727X;
4094   long target_index_726X;
4095   long index_725X;
4096   long i_724X;
4097   char *s_723X;
4098  {  s_723X = ((char *)p_722X);
4099   arg0K0 = 0;
4100   goto L22694;}
4101  L22694: {
4102   i_724X = arg0K0;
4103   if ((0 == (((unsigned char) (*(s_723X + i_724X)))))) {
4104     if ((0 == (((unsigned char) (*(s_723X + (1 + i_724X))))))) {
4105       arg0K0 = 0;
4106       arg0K1 = 0;
4107       goto L22712;}
4108     else {
4109       goto L22695;}}
4110   else {
4111     goto L22695;}}
4112  L22712: {
4113   index_725X = arg0K0;
4114   target_index_726X = arg0K1;
4115   if ((index_725X < i_724X)) {decode_scalar_valueUutf_16le((p_722X + index_725X), (i_724X - index_725X), &incompleteP_727X, &value_728X, &count_729X);
4116     if (incompleteP_727X) {
4117       arg0K0 = index_725X;
4118       arg0K1 = target_index_726X;
4119       goto L22674;}
4120     else {
4121       arg0K0 = (index_725X + count_729X);
4122       arg0K1 = (1 + target_index_726X);
4123       goto L22712;}}
4124   else {
4125     arg0K0 = index_725X;
4126     arg0K1 = target_index_726X;
4127     goto L22674;}}
4128  L22695: {
4129   arg0K0 = (2 + i_724X);
4130   goto L22694;}
4131  L22674: {
4132   consumed_730X = arg0K0;
4133   decoded_731X = arg0K1;
4134   len_732X = PS_SHIFT_LEFT_INLINE(decoded_731X, 2);
4135   addr_733X = s48_allocate_untracedAgc((8 + len_732X));
4136   if ((addr_733X == NULL)) {
4137     arg0K0 = 1;
4138     goto L22727;}
4139   else {
4140     *((long *) addr_733X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_732X, 8))));
4141     arg0K0 = (3 + (((long) (addr_733X + 8))));
4142     goto L22727;}}
4143  L22727: {
4144   string_734X = arg0K0;
4145   if ((1 == string_734X)) {
4146     ps_error("Out of space, unable to allocate", 0);
4147     arg0K0 = string_734X;
4148     goto L22680;}
4149   else {
4150     arg0K0 = string_734X;
4151     goto L22680;}}
4152  L22680: {
4153   vm_735X = arg0K0;decodeUutf_16leB(p_722X, vm_735X, consumed_730X);
4154   return vm_735X;}
4155 }
s48_enter_string_utf_16le_nU(char * p_736X,long size_737X)4156 long s48_enter_string_utf_16le_nU(char * p_736X, long size_737X)
4157 {
4158   long arg0K1;
4159   long arg0K0;
4160   long vm_748X;
4161   long string_747X;
4162   char * addr_746X;
4163   long len_745X;
4164   long decoded_744X;
4165   long consumed_743X;
4166   long count_742X;
4167   long value_741X;
4168   char incompleteP_740X;
4169   long target_index_739X;
4170   long index_738X;
4171  {  arg0K0 = 0;
4172   arg0K1 = 0;
4173   goto L22769;}
4174  L22769: {
4175   index_738X = arg0K0;
4176   target_index_739X = arg0K1;
4177   if ((index_738X < size_737X)) {decode_scalar_valueUutf_16le((p_736X + index_738X), (size_737X - index_738X), &incompleteP_740X, &value_741X, &count_742X);
4178     if (incompleteP_740X) {
4179       arg0K0 = index_738X;
4180       arg0K1 = target_index_739X;
4181       goto L22749;}
4182     else {
4183       arg0K0 = (index_738X + count_742X);
4184       arg0K1 = (1 + target_index_739X);
4185       goto L22769;}}
4186   else {
4187     arg0K0 = index_738X;
4188     arg0K1 = target_index_739X;
4189     goto L22749;}}
4190  L22749: {
4191   consumed_743X = arg0K0;
4192   decoded_744X = arg0K1;
4193   len_745X = PS_SHIFT_LEFT_INLINE(decoded_744X, 2);
4194   addr_746X = s48_allocate_untracedAgc((8 + len_745X));
4195   if ((addr_746X == NULL)) {
4196     arg0K0 = 1;
4197     goto L22784;}
4198   else {
4199     *((long *) addr_746X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_745X, 8))));
4200     arg0K0 = (3 + (((long) (addr_746X + 8))));
4201     goto L22784;}}
4202  L22784: {
4203   string_747X = arg0K0;
4204   if ((1 == string_747X)) {
4205     ps_error("Out of space, unable to allocate", 0);
4206     arg0K0 = string_747X;
4207     goto L22755;}
4208   else {
4209     arg0K0 = string_747X;
4210     goto L22755;}}
4211  L22755: {
4212   vm_748X = arg0K0;decodeUutf_16leB(p_736X, vm_748X, consumed_743X);
4213   return vm_748X;}
4214 }
s48_integer_or_floanum_E(long x_749X,long y_750X)4215 long s48_integer_or_floanum_E(long x_749X, long y_750X)
4216 {
4217   char arg4K0;
4218   char v_752X;
4219   char b_751X;
4220  {  if ((3 == (3 & x_749X))) {
4221     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_749X))))), 2))))) {
4222       arg4K0 = ((*((double *) (((char *) (-3 + x_749X))))) == (*((double *) (((char *) (-3 + y_750X))))));
4223       goto L23813;}
4224     else {
4225       goto L23809;}}
4226   else {
4227     goto L23809;}}
4228  L23813: {
4229   b_751X = arg4K0;
4230   if (b_751X) {
4231     return 5;}
4232   else {
4233     return 1;}}
4234  L23809: {
4235   v_752X = integerE(x_749X, y_750X);
4236   arg4K0 = v_752X;
4237   goto L23813;}
4238 }
s48_close_channel(long os_index_753X)4239 void s48_close_channel(long os_index_753X)
4240 {
4241   long obj_754X;
4242  {  if ((os_index_753X < 0)) {
4243     return;}
4244   else {
4245     if ((os_index_753X < (Snumber_of_channelsS))) {
4246       obj_754X = *((Svm_channelsS) + os_index_753X);
4247       if ((3 == (3 & obj_754X))) {
4248         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_754X))))), 2))))) {close_channelB((*((Svm_channelsS) + os_index_753X)));
4249           return;}
4250         else {
4251           return;}}
4252       else {
4253         return;}}
4254     else {
4255       return;}}}
4256 }
s48_enter_string_latin_1_n(char * s_755X,long count_756X)4257 long s48_enter_string_latin_1_n(char *s_755X, long count_756X)
4258 {
4259 
4260  {  return enter_stringAgc_n(s_755X, count_756X);}
4261 }
s48_string_set(long s_757X,long i_758X,long c_759X)4262 void s48_string_set(long s_757X, long i_758X, long c_759X)
4263 {
4264   long arg0K2;
4265   long arg0K1;
4266   long arg0K0;
4267   long shifted_764X;
4268   long j_763X;
4269   long bits_762X;
4270   long max_761X;
4271   long v_760X;
4272  {  if ((3 == (3 & s_757X))) {
4273     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + s_757X))))), 2))))) {
4274       goto L27390;}
4275     else {s48_argument_type_violation(s_757X);
4276       goto L27390;}}
4277   else {s48_argument_type_violation(s_757X);
4278     goto L27390;}}
4279  L27390: {
4280   v_760X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s_757X))))), 8)) / 4;
4281   max_761X = -1 + v_760X;
4282   if ((i_758X < 0)) {
4283     goto L27412;}
4284   else {
4285     if ((max_761X < i_758X)) {
4286       goto L27412;}
4287     else {
4288       goto L27392;}}}
4289  L27412: {
4290 s48_range_violation((PS_SHIFT_LEFT_INLINE(i_758X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_761X, 2)));
4291   goto L27392;}
4292  L27392: {
4293   arg0K0 = 0;
4294   arg0K1 = 0;
4295   arg0K2 = c_759X;
4296   goto L27432;}
4297  L27432: {
4298   bits_762X = arg0K0;
4299   j_763X = arg0K1;
4300   shifted_764X = arg0K2;
4301   if ((j_763X < 4)) {
4302     *((unsigned char *) ((((char *) (-3 + s_757X))) + ((PS_SHIFT_LEFT_INLINE(i_758X, 2)) + j_763X))) = (unsigned char) ((255 & shifted_764X));
4303     arg0K0 = (8 + bits_762X);
4304     arg0K1 = (1 + j_763X);
4305     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_764X, 8));
4306     goto L27432;}
4307   else {
4308     return;}}
4309 }
s48_string_ref(long s_765X,long i_766X)4310 long s48_string_ref(long s_765X, long i_766X)
4311 {
4312   long arg0K2;
4313   long arg0K1;
4314   long arg0K0;
4315   long x_772X;
4316   long scalar_value_771X;
4317   long j_770X;
4318   long bits_769X;
4319   long max_768X;
4320   long v_767X;
4321  {  if ((3 == (3 & s_765X))) {
4322     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + s_765X))))), 2))))) {
4323       goto L27454;}
4324     else {s48_argument_type_violation(s_765X);
4325       goto L27454;}}
4326   else {s48_argument_type_violation(s_765X);
4327     goto L27454;}}
4328  L27454: {
4329   v_767X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s_765X))))), 8)) / 4;
4330   max_768X = -1 + v_767X;
4331   if ((i_766X < 0)) {
4332     goto L27476;}
4333   else {
4334     if ((max_768X < i_766X)) {
4335       goto L27476;}
4336     else {
4337       goto L27456;}}}
4338  L27476: {
4339 s48_range_violation((PS_SHIFT_LEFT_INLINE(i_766X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_768X, 2)));
4340   goto L27456;}
4341  L27456: {
4342   arg0K0 = 0;
4343   arg0K1 = 0;
4344   arg0K2 = 0;
4345   goto L27495;}
4346  L27495: {
4347   bits_769X = arg0K0;
4348   j_770X = arg0K1;
4349   scalar_value_771X = arg0K2;
4350   if ((j_770X < 4)) {
4351     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + s_765X))) + ((PS_SHIFT_LEFT_INLINE(i_766X, 2)) + j_770X)))), bits_769X, x_772X)
4352     arg0K0 = (8 + bits_769X);
4353     arg0K1 = (1 + j_770X);
4354     arg0K2 = (x_772X + scalar_value_771X);
4355     goto L27495;}
4356   else {
4357     return scalar_value_771X;}}
4358 }
s48_string_length(long s_773X)4359 long s48_string_length(long s_773X)
4360 {
4361 
4362  {  if ((3 == (3 & s_773X))) {
4363     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + s_773X))))), 2))))) {
4364       goto L27514;}
4365     else {s48_argument_type_violation(s_773X);
4366       goto L27514;}}
4367   else {s48_argument_type_violation(s_773X);
4368     goto L27514;}}
4369  L27514: {
4370   return ((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s_773X))))), 8)) / 4);}
4371 }
s48_copy_latin_1_to_string_n(char * string_774X,long len_775X,long vm_string_776X)4372 void s48_copy_latin_1_to_string_n(char *string_774X, long len_775X, long vm_string_776X)
4373 {
4374   long arg0K2;
4375   long arg0K1;
4376   long arg0K0;
4377   long shifted_782X;
4378   long j_781X;
4379   long bits_780X;
4380   long c_779X;
4381   long i_778X;
4382   long max_777X;
4383  {  if ((3 == (3 & vm_string_776X))) {
4384     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_776X))))), 2))))) {
4385       goto L27542;}
4386     else {s48_argument_type_violation(vm_string_776X);
4387       goto L27542;}}
4388   else {s48_argument_type_violation(vm_string_776X);
4389     goto L27542;}}
4390  L27542: {
4391   max_777X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_776X))))), 8)) / 4;
4392   if ((len_775X < 0)) {
4393     goto L27566;}
4394   else {
4395     if ((max_777X < len_775X)) {
4396       goto L27566;}
4397     else {
4398       goto L27546;}}}
4399  L27566: {
4400 s48_range_violation((PS_SHIFT_LEFT_INLINE(len_775X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_777X, 2)));
4401   goto L27546;}
4402  L27546: {
4403   arg0K0 = 0;
4404   goto L27584;}
4405  L27584: {
4406   i_778X = arg0K0;
4407   if ((i_778X < len_775X)) {
4408     c_779X = ((unsigned char) (*(string_774X + i_778X)));
4409     arg0K0 = 0;
4410     arg0K1 = 0;
4411     arg0K2 = c_779X;
4412     goto L27595;}
4413   else {
4414     return;}}
4415  L27595: {
4416   bits_780X = arg0K0;
4417   j_781X = arg0K1;
4418   shifted_782X = arg0K2;
4419   if ((j_781X < 4)) {
4420     *((unsigned char *) ((((char *) (-3 + vm_string_776X))) + ((PS_SHIFT_LEFT_INLINE(i_778X, 2)) + j_781X))) = (unsigned char) ((255 & shifted_782X));
4421     arg0K0 = (8 + bits_780X);
4422     arg0K1 = (1 + j_781X);
4423     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_782X, 8));
4424     goto L27595;}
4425   else {
4426     arg0K0 = (1 + i_778X);
4427     goto L27584;}}
4428 }
s48_copy_latin_1_to_string(char * string_783X,long vm_string_784X)4429 void s48_copy_latin_1_to_string(char *string_783X, long vm_string_784X)
4430 {
4431   long arg0K2;
4432   long arg0K1;
4433   long arg0K0;
4434   long shifted_791X;
4435   long j_790X;
4436   long bits_789X;
4437   long c_788X;
4438   long i_787X;
4439   long i_786X;
4440   long max_785X;
4441  {  if ((3 == (3 & vm_string_784X))) {
4442     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_784X))))), 2))))) {
4443       goto L27618;}
4444     else {s48_argument_type_violation(vm_string_784X);
4445       goto L27618;}}
4446   else {s48_argument_type_violation(vm_string_784X);
4447     goto L27618;}}
4448  L27618: {
4449   max_785X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_784X))))), 8)) / 4;
4450   i_786X = strlen((char *) string_783X);
4451   if ((i_786X < 0)) {
4452     goto L27644;}
4453   else {
4454     if ((max_785X < i_786X)) {
4455       goto L27644;}
4456     else {
4457       goto L27624;}}}
4458  L27644: {
4459 s48_range_violation((PS_SHIFT_LEFT_INLINE(i_786X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_785X, 2)));
4460   goto L27624;}
4461  L27624: {
4462   arg0K0 = 0;
4463   goto L27662;}
4464  L27662: {
4465   i_787X = arg0K0;
4466   if ((i_787X < (strlen((char *) string_783X)))) {
4467     c_788X = ((unsigned char) (*(string_783X + i_787X)));
4468     arg0K0 = 0;
4469     arg0K1 = 0;
4470     arg0K2 = c_788X;
4471     goto L27673;}
4472   else {
4473     return;}}
4474  L27673: {
4475   bits_789X = arg0K0;
4476   j_790X = arg0K1;
4477   shifted_791X = arg0K2;
4478   if ((j_790X < 4)) {
4479     *((unsigned char *) ((((char *) (-3 + vm_string_784X))) + ((PS_SHIFT_LEFT_INLINE(i_787X, 2)) + j_790X))) = (unsigned char) ((255 & shifted_791X));
4480     arg0K0 = (8 + bits_789X);
4481     arg0K1 = (1 + j_790X);
4482     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_791X, 8));
4483     goto L27673;}
4484   else {
4485     arg0K0 = (1 + i_787X);
4486     goto L27662;}}
4487 }
s48_copy_string_to_latin_1(long vm_string_792X,char * string_793X)4488 void s48_copy_string_to_latin_1(long vm_string_792X, char *string_793X)
4489 {
4490   long v_794X;
4491  {  if ((3 == (3 & vm_string_792X))) {
4492     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_792X))))), 2))))) {
4493       goto L27696;}
4494     else {s48_argument_type_violation(vm_string_792X);
4495       goto L27696;}}
4496   else {s48_argument_type_violation(vm_string_792X);
4497     goto L27696;}}
4498  L27696: {
4499   v_794X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_792X))))), 8)) / 4;
4500   copy_vm_string_to_stringUlatin_1B(vm_string_792X, 0, v_794X, string_793X);
4501   return;}
4502 }
s48_copy_string_to_latin_1_n(long vm_string_795X,long start_796X,long count_797X,char * string_798X)4503 void s48_copy_string_to_latin_1_n(long vm_string_795X, long start_796X, long count_797X, char *string_798X)
4504 {
4505   long max_802X;
4506   long v_801X;
4507   long max_800X;
4508   long v_799X;
4509  {  if ((3 == (3 & vm_string_795X))) {
4510     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_795X))))), 2))))) {
4511       goto L27727;}
4512     else {s48_argument_type_violation(vm_string_795X);
4513       goto L27727;}}
4514   else {s48_argument_type_violation(vm_string_795X);
4515     goto L27727;}}
4516  L27727: {
4517   v_799X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_795X))))), 8)) / 4;
4518   max_800X = -1 + v_799X;
4519   if ((start_796X < 0)) {
4520     goto L27753;}
4521   else {
4522     if ((max_800X < start_796X)) {
4523       goto L27753;}
4524     else {
4525       goto L27729;}}}
4526  L27753: {
4527 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_796X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_800X, 2)));
4528   goto L27729;}
4529  L27729: {
4530   v_801X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_795X))))), 8)) / 4;
4531   max_802X = v_801X - start_796X;
4532   if ((count_797X < 0)) {
4533     goto L27770;}
4534   else {
4535     if ((max_802X < count_797X)) {
4536       goto L27770;}
4537     else {
4538       copy_vm_string_to_stringUlatin_1B(vm_string_795X, start_796X, count_797X, string_798X);
4539       return;}}}
4540  L27770: {
4541 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_797X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_802X, 2)));
4542   copy_vm_string_to_stringUlatin_1B(vm_string_795X, start_796X, count_797X, string_798X);
4543   return;}
4544 }
s48_string_utf_8_length(long vm_string_803X)4545 long s48_string_utf_8_length(long vm_string_803X)
4546 {
4547   long arg0K2;
4548   long arg0K1;
4549   long arg0K0;
4550   long count_812X;
4551   char out_of_spaceP_811X;
4552   long x_810X;
4553   long scalar_value_809X;
4554   long j_808X;
4555   long bits_807X;
4556   long char_index_806X;
4557   long encoding_length_805X;
4558   long count_804X;
4559  {  if ((3 == (3 & vm_string_803X))) {
4560     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_803X))))), 2))))) {
4561       goto L27799;}
4562     else {s48_argument_type_violation(vm_string_803X);
4563       goto L27799;}}
4564   else {s48_argument_type_violation(vm_string_803X);
4565     goto L27799;}}
4566  L27799: {
4567   count_804X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_803X))))), 8)) / 4;
4568   arg0K0 = 0;
4569   arg0K1 = 0;
4570   goto L27826;}
4571  L27826: {
4572   encoding_length_805X = arg0K0;
4573   char_index_806X = arg0K1;
4574   if ((char_index_806X < count_804X)) {
4575     arg0K0 = 0;
4576     arg0K1 = 0;
4577     arg0K2 = 0;
4578     goto L27835;}
4579   else {
4580     return encoding_length_805X;}}
4581  L27835: {
4582   bits_807X = arg0K0;
4583   j_808X = arg0K1;
4584   scalar_value_809X = arg0K2;
4585   if ((j_808X < 4)) {
4586     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_803X))) + ((PS_SHIFT_LEFT_INLINE(char_index_806X, 2)) + j_808X)))), bits_807X, x_810X)
4587     arg0K0 = (8 + bits_807X);
4588     arg0K1 = (1 + j_808X);
4589     arg0K2 = (x_810X + scalar_value_809X);
4590     goto L27835;}
4591   else {encode_scalar_valueUutf_8(scalar_value_809X, (((char *) 0)), 0, &out_of_spaceP_811X, &count_812X);
4592     arg0K0 = (encoding_length_805X + count_812X);
4593     arg0K1 = (1 + char_index_806X);
4594     goto L27826;}}
4595 }
s48_string_utf_8_length_n(long vm_string_813X,long start_index_814X,long count_815X)4596 long s48_string_utf_8_length_n(long vm_string_813X, long start_index_814X, long count_815X)
4597 {
4598   long arg0K2;
4599   long arg0K1;
4600   long arg0K0;
4601   long count_827X;
4602   char out_of_spaceP_826X;
4603   long x_825X;
4604   long scalar_value_824X;
4605   long j_823X;
4606   long bits_822X;
4607   long char_index_821X;
4608   long encoding_length_820X;
4609   long max_819X;
4610   long v_818X;
4611   long max_817X;
4612   long v_816X;
4613  {  if ((3 == (3 & vm_string_813X))) {
4614     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_813X))))), 2))))) {
4615       goto L27857;}
4616     else {s48_argument_type_violation(vm_string_813X);
4617       goto L27857;}}
4618   else {s48_argument_type_violation(vm_string_813X);
4619     goto L27857;}}
4620  L27857: {
4621   v_816X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_813X))))), 8)) / 4;
4622   max_817X = -1 + v_816X;
4623   if ((start_index_814X < 0)) {
4624     goto L27883;}
4625   else {
4626     if ((max_817X < start_index_814X)) {
4627       goto L27883;}
4628     else {
4629       goto L27859;}}}
4630  L27883: {
4631 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_index_814X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_817X, 2)));
4632   goto L27859;}
4633  L27859: {
4634   v_818X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_813X))))), 8)) / 4;
4635   max_819X = v_818X - start_index_814X;
4636   if ((count_815X < 0)) {
4637     goto L27900;}
4638   else {
4639     if ((max_819X < count_815X)) {
4640       goto L27900;}
4641     else {
4642       goto L27863;}}}
4643  L27900: {
4644 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_815X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_819X, 2)));
4645   goto L27863;}
4646  L27863: {
4647   arg0K0 = 0;
4648   arg0K1 = 0;
4649   goto L27919;}
4650  L27919: {
4651   encoding_length_820X = arg0K0;
4652   char_index_821X = arg0K1;
4653   if ((char_index_821X < count_815X)) {
4654     arg0K0 = 0;
4655     arg0K1 = 0;
4656     arg0K2 = 0;
4657     goto L27928;}
4658   else {
4659     return encoding_length_820X;}}
4660  L27928: {
4661   bits_822X = arg0K0;
4662   j_823X = arg0K1;
4663   scalar_value_824X = arg0K2;
4664   if ((j_823X < 4)) {
4665     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_813X))) + ((PS_SHIFT_LEFT_INLINE((start_index_814X + char_index_821X), 2)) + j_823X)))), bits_822X, x_825X)
4666     arg0K0 = (8 + bits_822X);
4667     arg0K1 = (1 + j_823X);
4668     arg0K2 = (x_825X + scalar_value_824X);
4669     goto L27928;}
4670   else {encode_scalar_valueUutf_8(scalar_value_824X, (((char *) 0)), 0, &out_of_spaceP_826X, &count_827X);
4671     arg0K0 = (encoding_length_820X + count_827X);
4672     arg0K1 = (1 + char_index_821X);
4673     goto L27919;}}
4674 }
s48_copy_string_to_utf_8(long vm_string_828X,char * string_829X)4675 long s48_copy_string_to_utf_8(long vm_string_828X, char * string_829X)
4676 {
4677   long arg0K2;
4678   long arg0K1;
4679   long arg0K0;
4680   long count_838X;
4681   char out_of_spaceP_837X;
4682   long x_836X;
4683   long scalar_value_835X;
4684   long j_834X;
4685   long bits_833X;
4686   long target_index_832X;
4687   long source_index_831X;
4688   long count_830X;
4689  {  if ((3 == (3 & vm_string_828X))) {
4690     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_828X))))), 2))))) {
4691       goto L27957;}
4692     else {s48_argument_type_violation(vm_string_828X);
4693       goto L27957;}}
4694   else {s48_argument_type_violation(vm_string_828X);
4695     goto L27957;}}
4696  L27957: {
4697   count_830X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_828X))))), 8)) / 4;
4698   arg0K0 = 0;
4699   arg0K1 = 0;
4700   goto L27985;}
4701  L27985: {
4702   source_index_831X = arg0K0;
4703   target_index_832X = arg0K1;
4704   if ((source_index_831X < count_830X)) {
4705     arg0K0 = 0;
4706     arg0K1 = 0;
4707     arg0K2 = 0;
4708     goto L27994;}
4709   else {
4710     return target_index_832X;}}
4711  L27994: {
4712   bits_833X = arg0K0;
4713   j_834X = arg0K1;
4714   scalar_value_835X = arg0K2;
4715   if ((j_834X < 4)) {
4716     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_828X))) + ((PS_SHIFT_LEFT_INLINE(source_index_831X, 2)) + j_834X)))), bits_833X, x_836X)
4717     arg0K0 = (8 + bits_833X);
4718     arg0K1 = (1 + j_834X);
4719     arg0K2 = (x_836X + scalar_value_835X);
4720     goto L27994;}
4721   else {encode_scalar_valueUutf_8(scalar_value_835X, (string_829X + target_index_832X), 4, &out_of_spaceP_837X, &count_838X);
4722     arg0K0 = (1 + source_index_831X);
4723     arg0K1 = (target_index_832X + count_838X);
4724     goto L27985;}}
4725 }
s48_copy_string_to_utf_8_n(long vm_string_839X,long start_840X,long count_841X,char * string_842X)4726 long s48_copy_string_to_utf_8_n(long vm_string_839X, long start_840X, long count_841X, char * string_842X)
4727 {
4728   long arg0K2;
4729   long arg0K1;
4730   long arg0K0;
4731   long count_854X;
4732   char out_of_spaceP_853X;
4733   long x_852X;
4734   long scalar_value_851X;
4735   long j_850X;
4736   long bits_849X;
4737   long target_index_848X;
4738   long source_index_847X;
4739   long max_846X;
4740   long v_845X;
4741   long max_844X;
4742   long v_843X;
4743  {  if ((3 == (3 & vm_string_839X))) {
4744     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_839X))))), 2))))) {
4745       goto L28017;}
4746     else {s48_argument_type_violation(vm_string_839X);
4747       goto L28017;}}
4748   else {s48_argument_type_violation(vm_string_839X);
4749     goto L28017;}}
4750  L28017: {
4751   v_843X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_839X))))), 8)) / 4;
4752   max_844X = -1 + v_843X;
4753   if ((start_840X < 0)) {
4754     goto L28043;}
4755   else {
4756     if ((max_844X < start_840X)) {
4757       goto L28043;}
4758     else {
4759       goto L28019;}}}
4760  L28043: {
4761 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_840X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_844X, 2)));
4762   goto L28019;}
4763  L28019: {
4764   v_845X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_839X))))), 8)) / 4;
4765   max_846X = v_845X - start_840X;
4766   if ((count_841X < 0)) {
4767     goto L28060;}
4768   else {
4769     if ((max_846X < count_841X)) {
4770       goto L28060;}
4771     else {
4772       goto L28023;}}}
4773  L28060: {
4774 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_841X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_846X, 2)));
4775   goto L28023;}
4776  L28023: {
4777   arg0K0 = 0;
4778   arg0K1 = 0;
4779   goto L28080;}
4780  L28080: {
4781   source_index_847X = arg0K0;
4782   target_index_848X = arg0K1;
4783   if ((source_index_847X < count_841X)) {
4784     arg0K0 = 0;
4785     arg0K1 = 0;
4786     arg0K2 = 0;
4787     goto L28089;}
4788   else {
4789     return target_index_848X;}}
4790  L28089: {
4791   bits_849X = arg0K0;
4792   j_850X = arg0K1;
4793   scalar_value_851X = arg0K2;
4794   if ((j_850X < 4)) {
4795     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_839X))) + ((PS_SHIFT_LEFT_INLINE((start_840X + source_index_847X), 2)) + j_850X)))), bits_849X, x_852X)
4796     arg0K0 = (8 + bits_849X);
4797     arg0K1 = (1 + j_850X);
4798     arg0K2 = (x_852X + scalar_value_851X);
4799     goto L28089;}
4800   else {encode_scalar_valueUutf_8(scalar_value_851X, (string_842X + target_index_848X), 4, &out_of_spaceP_853X, &count_854X);
4801     arg0K0 = (1 + source_index_847X);
4802     arg0K1 = (target_index_848X + count_854X);
4803     goto L28080;}}
4804 }
s48_string_utf_16be_length(long vm_string_855X)4805 long s48_string_utf_16be_length(long vm_string_855X)
4806 {
4807   long arg0K2;
4808   long arg0K1;
4809   long arg0K0;
4810   long count_864X;
4811   char out_of_spaceP_863X;
4812   long x_862X;
4813   long scalar_value_861X;
4814   long j_860X;
4815   long bits_859X;
4816   long char_index_858X;
4817   long encoding_length_857X;
4818   long count_856X;
4819  {  if ((3 == (3 & vm_string_855X))) {
4820     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_855X))))), 2))))) {
4821       goto L28117;}
4822     else {s48_argument_type_violation(vm_string_855X);
4823       goto L28117;}}
4824   else {s48_argument_type_violation(vm_string_855X);
4825     goto L28117;}}
4826  L28117: {
4827   count_856X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_855X))))), 8)) / 4;
4828   arg0K0 = 0;
4829   arg0K1 = 0;
4830   goto L28144;}
4831  L28144: {
4832   encoding_length_857X = arg0K0;
4833   char_index_858X = arg0K1;
4834   if ((char_index_858X < count_856X)) {
4835     arg0K0 = 0;
4836     arg0K1 = 0;
4837     arg0K2 = 0;
4838     goto L28153;}
4839   else {
4840     return (encoding_length_857X / 2);}}
4841  L28153: {
4842   bits_859X = arg0K0;
4843   j_860X = arg0K1;
4844   scalar_value_861X = arg0K2;
4845   if ((j_860X < 4)) {
4846     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_855X))) + ((PS_SHIFT_LEFT_INLINE(char_index_858X, 2)) + j_860X)))), bits_859X, x_862X)
4847     arg0K0 = (8 + bits_859X);
4848     arg0K1 = (1 + j_860X);
4849     arg0K2 = (x_862X + scalar_value_861X);
4850     goto L28153;}
4851   else {encode_scalar_valueUutf_16be(scalar_value_861X, (((char *) 0)), 0, &out_of_spaceP_863X, &count_864X);
4852     arg0K0 = (encoding_length_857X + count_864X);
4853     arg0K1 = (1 + char_index_858X);
4854     goto L28144;}}
4855 }
s48_string_utf_16be_length_n(long vm_string_865X,long start_index_866X,long count_867X)4856 long s48_string_utf_16be_length_n(long vm_string_865X, long start_index_866X, long count_867X)
4857 {
4858   long arg0K2;
4859   long arg0K1;
4860   long arg0K0;
4861   long count_879X;
4862   char out_of_spaceP_878X;
4863   long x_877X;
4864   long scalar_value_876X;
4865   long j_875X;
4866   long bits_874X;
4867   long char_index_873X;
4868   long encoding_length_872X;
4869   long max_871X;
4870   long v_870X;
4871   long max_869X;
4872   long v_868X;
4873  {  if ((3 == (3 & vm_string_865X))) {
4874     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_865X))))), 2))))) {
4875       goto L28175;}
4876     else {s48_argument_type_violation(vm_string_865X);
4877       goto L28175;}}
4878   else {s48_argument_type_violation(vm_string_865X);
4879     goto L28175;}}
4880  L28175: {
4881   v_868X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_865X))))), 8)) / 4;
4882   max_869X = -1 + v_868X;
4883   if ((start_index_866X < 0)) {
4884     goto L28201;}
4885   else {
4886     if ((max_869X < start_index_866X)) {
4887       goto L28201;}
4888     else {
4889       goto L28177;}}}
4890  L28201: {
4891 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_index_866X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_869X, 2)));
4892   goto L28177;}
4893  L28177: {
4894   v_870X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_865X))))), 8)) / 4;
4895   max_871X = v_870X - start_index_866X;
4896   if ((count_867X < 0)) {
4897     goto L28218;}
4898   else {
4899     if ((max_871X < count_867X)) {
4900       goto L28218;}
4901     else {
4902       goto L28181;}}}
4903  L28218: {
4904 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_867X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_871X, 2)));
4905   goto L28181;}
4906  L28181: {
4907   arg0K0 = 0;
4908   arg0K1 = 0;
4909   goto L28237;}
4910  L28237: {
4911   encoding_length_872X = arg0K0;
4912   char_index_873X = arg0K1;
4913   if ((char_index_873X < count_867X)) {
4914     arg0K0 = 0;
4915     arg0K1 = 0;
4916     arg0K2 = 0;
4917     goto L28246;}
4918   else {
4919     return (encoding_length_872X / 2);}}
4920  L28246: {
4921   bits_874X = arg0K0;
4922   j_875X = arg0K1;
4923   scalar_value_876X = arg0K2;
4924   if ((j_875X < 4)) {
4925     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_865X))) + ((PS_SHIFT_LEFT_INLINE((start_index_866X + char_index_873X), 2)) + j_875X)))), bits_874X, x_877X)
4926     arg0K0 = (8 + bits_874X);
4927     arg0K1 = (1 + j_875X);
4928     arg0K2 = (x_877X + scalar_value_876X);
4929     goto L28246;}
4930   else {encode_scalar_valueUutf_16be(scalar_value_876X, (((char *) 0)), 0, &out_of_spaceP_878X, &count_879X);
4931     arg0K0 = (encoding_length_872X + count_879X);
4932     arg0K1 = (1 + char_index_873X);
4933     goto L28237;}}
4934 }
s48_copy_string_to_utf_16beU(long vm_string_880X,char * string_881X)4935 long s48_copy_string_to_utf_16beU(long vm_string_880X, char * string_881X)
4936 {
4937   long arg0K2;
4938   long arg0K1;
4939   long arg0K0;
4940   long count_890X;
4941   char out_of_spaceP_889X;
4942   long x_888X;
4943   long scalar_value_887X;
4944   long j_886X;
4945   long bits_885X;
4946   long target_index_884X;
4947   long source_index_883X;
4948   long count_882X;
4949  {  if ((3 == (3 & vm_string_880X))) {
4950     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_880X))))), 2))))) {
4951       goto L28275;}
4952     else {s48_argument_type_violation(vm_string_880X);
4953       goto L28275;}}
4954   else {s48_argument_type_violation(vm_string_880X);
4955     goto L28275;}}
4956  L28275: {
4957   count_882X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_880X))))), 8)) / 4;
4958   arg0K0 = 0;
4959   arg0K1 = 0;
4960   goto L28303;}
4961  L28303: {
4962   source_index_883X = arg0K0;
4963   target_index_884X = arg0K1;
4964   if ((source_index_883X < count_882X)) {
4965     arg0K0 = 0;
4966     arg0K1 = 0;
4967     arg0K2 = 0;
4968     goto L28312;}
4969   else {
4970     return (target_index_884X / 2);}}
4971  L28312: {
4972   bits_885X = arg0K0;
4973   j_886X = arg0K1;
4974   scalar_value_887X = arg0K2;
4975   if ((j_886X < 4)) {
4976     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_880X))) + ((PS_SHIFT_LEFT_INLINE(source_index_883X, 2)) + j_886X)))), bits_885X, x_888X)
4977     arg0K0 = (8 + bits_885X);
4978     arg0K1 = (1 + j_886X);
4979     arg0K2 = (x_888X + scalar_value_887X);
4980     goto L28312;}
4981   else {encode_scalar_valueUutf_16be(scalar_value_887X, (string_881X + target_index_884X), 4, &out_of_spaceP_889X, &count_890X);
4982     arg0K0 = (1 + source_index_883X);
4983     arg0K1 = (target_index_884X + count_890X);
4984     goto L28303;}}
4985 }
s48_copy_string_to_utf_16be_nU(long vm_string_891X,long start_892X,long count_893X,char * string_894X)4986 long s48_copy_string_to_utf_16be_nU(long vm_string_891X, long start_892X, long count_893X, char * string_894X)
4987 {
4988   long arg0K2;
4989   long arg0K1;
4990   long arg0K0;
4991   long count_906X;
4992   char out_of_spaceP_905X;
4993   long x_904X;
4994   long scalar_value_903X;
4995   long j_902X;
4996   long bits_901X;
4997   long target_index_900X;
4998   long source_index_899X;
4999   long max_898X;
5000   long v_897X;
5001   long max_896X;
5002   long v_895X;
5003  {  if ((3 == (3 & vm_string_891X))) {
5004     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_891X))))), 2))))) {
5005       goto L28335;}
5006     else {s48_argument_type_violation(vm_string_891X);
5007       goto L28335;}}
5008   else {s48_argument_type_violation(vm_string_891X);
5009     goto L28335;}}
5010  L28335: {
5011   v_895X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_891X))))), 8)) / 4;
5012   max_896X = -1 + v_895X;
5013   if ((start_892X < 0)) {
5014     goto L28361;}
5015   else {
5016     if ((max_896X < start_892X)) {
5017       goto L28361;}
5018     else {
5019       goto L28337;}}}
5020  L28361: {
5021 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_892X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_896X, 2)));
5022   goto L28337;}
5023  L28337: {
5024   v_897X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_891X))))), 8)) / 4;
5025   max_898X = v_897X - start_892X;
5026   if ((count_893X < 0)) {
5027     goto L28378;}
5028   else {
5029     if ((max_898X < count_893X)) {
5030       goto L28378;}
5031     else {
5032       goto L28341;}}}
5033  L28378: {
5034 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_893X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_898X, 2)));
5035   goto L28341;}
5036  L28341: {
5037   arg0K0 = 0;
5038   arg0K1 = 0;
5039   goto L28398;}
5040  L28398: {
5041   source_index_899X = arg0K0;
5042   target_index_900X = arg0K1;
5043   if ((source_index_899X < count_893X)) {
5044     arg0K0 = 0;
5045     arg0K1 = 0;
5046     arg0K2 = 0;
5047     goto L28407;}
5048   else {
5049     return (target_index_900X / 2);}}
5050  L28407: {
5051   bits_901X = arg0K0;
5052   j_902X = arg0K1;
5053   scalar_value_903X = arg0K2;
5054   if ((j_902X < 4)) {
5055     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_891X))) + ((PS_SHIFT_LEFT_INLINE((start_892X + source_index_899X), 2)) + j_902X)))), bits_901X, x_904X)
5056     arg0K0 = (8 + bits_901X);
5057     arg0K1 = (1 + j_902X);
5058     arg0K2 = (x_904X + scalar_value_903X);
5059     goto L28407;}
5060   else {encode_scalar_valueUutf_16be(scalar_value_903X, (string_894X + target_index_900X), 4, &out_of_spaceP_905X, &count_906X);
5061     arg0K0 = (1 + source_index_899X);
5062     arg0K1 = (target_index_900X + count_906X);
5063     goto L28398;}}
5064 }
s48_string_utf_16le_length(long vm_string_907X)5065 long s48_string_utf_16le_length(long vm_string_907X)
5066 {
5067   long arg0K2;
5068   long arg0K1;
5069   long arg0K0;
5070   long count_916X;
5071   char out_of_spaceP_915X;
5072   long x_914X;
5073   long scalar_value_913X;
5074   long j_912X;
5075   long bits_911X;
5076   long char_index_910X;
5077   long encoding_length_909X;
5078   long count_908X;
5079  {  if ((3 == (3 & vm_string_907X))) {
5080     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_907X))))), 2))))) {
5081       goto L28435;}
5082     else {s48_argument_type_violation(vm_string_907X);
5083       goto L28435;}}
5084   else {s48_argument_type_violation(vm_string_907X);
5085     goto L28435;}}
5086  L28435: {
5087   count_908X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_907X))))), 8)) / 4;
5088   arg0K0 = 0;
5089   arg0K1 = 0;
5090   goto L28462;}
5091  L28462: {
5092   encoding_length_909X = arg0K0;
5093   char_index_910X = arg0K1;
5094   if ((char_index_910X < count_908X)) {
5095     arg0K0 = 0;
5096     arg0K1 = 0;
5097     arg0K2 = 0;
5098     goto L28471;}
5099   else {
5100     return (encoding_length_909X / 2);}}
5101  L28471: {
5102   bits_911X = arg0K0;
5103   j_912X = arg0K1;
5104   scalar_value_913X = arg0K2;
5105   if ((j_912X < 4)) {
5106     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_907X))) + ((PS_SHIFT_LEFT_INLINE(char_index_910X, 2)) + j_912X)))), bits_911X, x_914X)
5107     arg0K0 = (8 + bits_911X);
5108     arg0K1 = (1 + j_912X);
5109     arg0K2 = (x_914X + scalar_value_913X);
5110     goto L28471;}
5111   else {encode_scalar_valueUutf_16le(scalar_value_913X, (((char *) 0)), 0, &out_of_spaceP_915X, &count_916X);
5112     arg0K0 = (encoding_length_909X + count_916X);
5113     arg0K1 = (1 + char_index_910X);
5114     goto L28462;}}
5115 }
s48_string_utf_16le_length_n(long vm_string_917X,long start_index_918X,long count_919X)5116 long s48_string_utf_16le_length_n(long vm_string_917X, long start_index_918X, long count_919X)
5117 {
5118   long arg0K2;
5119   long arg0K1;
5120   long arg0K0;
5121   long count_931X;
5122   char out_of_spaceP_930X;
5123   long x_929X;
5124   long scalar_value_928X;
5125   long j_927X;
5126   long bits_926X;
5127   long char_index_925X;
5128   long encoding_length_924X;
5129   long max_923X;
5130   long v_922X;
5131   long max_921X;
5132   long v_920X;
5133  {  if ((3 == (3 & vm_string_917X))) {
5134     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_917X))))), 2))))) {
5135       goto L28493;}
5136     else {s48_argument_type_violation(vm_string_917X);
5137       goto L28493;}}
5138   else {s48_argument_type_violation(vm_string_917X);
5139     goto L28493;}}
5140  L28493: {
5141   v_920X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_917X))))), 8)) / 4;
5142   max_921X = -1 + v_920X;
5143   if ((start_index_918X < 0)) {
5144     goto L28519;}
5145   else {
5146     if ((max_921X < start_index_918X)) {
5147       goto L28519;}
5148     else {
5149       goto L28495;}}}
5150  L28519: {
5151 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_index_918X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_921X, 2)));
5152   goto L28495;}
5153  L28495: {
5154   v_922X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_917X))))), 8)) / 4;
5155   max_923X = v_922X - start_index_918X;
5156   if ((count_919X < 0)) {
5157     goto L28536;}
5158   else {
5159     if ((max_923X < count_919X)) {
5160       goto L28536;}
5161     else {
5162       goto L28499;}}}
5163  L28536: {
5164 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_919X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_923X, 2)));
5165   goto L28499;}
5166  L28499: {
5167   arg0K0 = 0;
5168   arg0K1 = 0;
5169   goto L28555;}
5170  L28555: {
5171   encoding_length_924X = arg0K0;
5172   char_index_925X = arg0K1;
5173   if ((char_index_925X < count_919X)) {
5174     arg0K0 = 0;
5175     arg0K1 = 0;
5176     arg0K2 = 0;
5177     goto L28564;}
5178   else {
5179     return (encoding_length_924X / 2);}}
5180  L28564: {
5181   bits_926X = arg0K0;
5182   j_927X = arg0K1;
5183   scalar_value_928X = arg0K2;
5184   if ((j_927X < 4)) {
5185     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_917X))) + ((PS_SHIFT_LEFT_INLINE((start_index_918X + char_index_925X), 2)) + j_927X)))), bits_926X, x_929X)
5186     arg0K0 = (8 + bits_926X);
5187     arg0K1 = (1 + j_927X);
5188     arg0K2 = (x_929X + scalar_value_928X);
5189     goto L28564;}
5190   else {encode_scalar_valueUutf_16le(scalar_value_928X, (((char *) 0)), 0, &out_of_spaceP_930X, &count_931X);
5191     arg0K0 = (encoding_length_924X + count_931X);
5192     arg0K1 = (1 + char_index_925X);
5193     goto L28555;}}
5194 }
s48_copy_string_to_utf_16leU(long vm_string_932X,char * string_933X)5195 long s48_copy_string_to_utf_16leU(long vm_string_932X, char * string_933X)
5196 {
5197   long arg0K2;
5198   long arg0K1;
5199   long arg0K0;
5200   long count_942X;
5201   char out_of_spaceP_941X;
5202   long x_940X;
5203   long scalar_value_939X;
5204   long j_938X;
5205   long bits_937X;
5206   long target_index_936X;
5207   long source_index_935X;
5208   long count_934X;
5209  {  if ((3 == (3 & vm_string_932X))) {
5210     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_932X))))), 2))))) {
5211       goto L28593;}
5212     else {s48_argument_type_violation(vm_string_932X);
5213       goto L28593;}}
5214   else {s48_argument_type_violation(vm_string_932X);
5215     goto L28593;}}
5216  L28593: {
5217   count_934X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_932X))))), 8)) / 4;
5218   arg0K0 = 0;
5219   arg0K1 = 0;
5220   goto L28621;}
5221  L28621: {
5222   source_index_935X = arg0K0;
5223   target_index_936X = arg0K1;
5224   if ((source_index_935X < count_934X)) {
5225     arg0K0 = 0;
5226     arg0K1 = 0;
5227     arg0K2 = 0;
5228     goto L28630;}
5229   else {
5230     return (target_index_936X / 2);}}
5231  L28630: {
5232   bits_937X = arg0K0;
5233   j_938X = arg0K1;
5234   scalar_value_939X = arg0K2;
5235   if ((j_938X < 4)) {
5236     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_932X))) + ((PS_SHIFT_LEFT_INLINE(source_index_935X, 2)) + j_938X)))), bits_937X, x_940X)
5237     arg0K0 = (8 + bits_937X);
5238     arg0K1 = (1 + j_938X);
5239     arg0K2 = (x_940X + scalar_value_939X);
5240     goto L28630;}
5241   else {encode_scalar_valueUutf_16le(scalar_value_939X, (string_933X + target_index_936X), 4, &out_of_spaceP_941X, &count_942X);
5242     arg0K0 = (1 + source_index_935X);
5243     arg0K1 = (target_index_936X + count_942X);
5244     goto L28621;}}
5245 }
s48_copy_string_to_utf_16le_nU(long vm_string_943X,long start_944X,long count_945X,char * string_946X)5246 long s48_copy_string_to_utf_16le_nU(long vm_string_943X, long start_944X, long count_945X, char * string_946X)
5247 {
5248   long arg0K2;
5249   long arg0K1;
5250   long arg0K0;
5251   long count_958X;
5252   char out_of_spaceP_957X;
5253   long x_956X;
5254   long scalar_value_955X;
5255   long j_954X;
5256   long bits_953X;
5257   long target_index_952X;
5258   long source_index_951X;
5259   long max_950X;
5260   long v_949X;
5261   long max_948X;
5262   long v_947X;
5263  {  if ((3 == (3 & vm_string_943X))) {
5264     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + vm_string_943X))))), 2))))) {
5265       goto L28653;}
5266     else {s48_argument_type_violation(vm_string_943X);
5267       goto L28653;}}
5268   else {s48_argument_type_violation(vm_string_943X);
5269     goto L28653;}}
5270  L28653: {
5271   v_947X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_943X))))), 8)) / 4;
5272   max_948X = -1 + v_947X;
5273   if ((start_944X < 0)) {
5274     goto L28679;}
5275   else {
5276     if ((max_948X < start_944X)) {
5277       goto L28679;}
5278     else {
5279       goto L28655;}}}
5280  L28679: {
5281 s48_range_violation((PS_SHIFT_LEFT_INLINE(start_944X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_948X, 2)));
5282   goto L28655;}
5283  L28655: {
5284   v_949X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + vm_string_943X))))), 8)) / 4;
5285   max_950X = v_949X - start_944X;
5286   if ((count_945X < 0)) {
5287     goto L28696;}
5288   else {
5289     if ((max_950X < count_945X)) {
5290       goto L28696;}
5291     else {
5292       goto L28659;}}}
5293  L28696: {
5294 s48_range_violation((PS_SHIFT_LEFT_INLINE(count_945X, 2)), 0, (PS_SHIFT_LEFT_INLINE(max_950X, 2)));
5295   goto L28659;}
5296  L28659: {
5297   arg0K0 = 0;
5298   arg0K1 = 0;
5299   goto L28716;}
5300  L28716: {
5301   source_index_951X = arg0K0;
5302   target_index_952X = arg0K1;
5303   if ((source_index_951X < count_945X)) {
5304     arg0K0 = 0;
5305     arg0K1 = 0;
5306     arg0K2 = 0;
5307     goto L28725;}
5308   else {
5309     return (target_index_952X / 2);}}
5310  L28725: {
5311   bits_953X = arg0K0;
5312   j_954X = arg0K1;
5313   scalar_value_955X = arg0K2;
5314   if ((j_954X < 4)) {
5315     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + vm_string_943X))) + ((PS_SHIFT_LEFT_INLINE((start_944X + source_index_951X), 2)) + j_954X)))), bits_953X, x_956X)
5316     arg0K0 = (8 + bits_953X);
5317     arg0K1 = (1 + j_954X);
5318     arg0K2 = (x_956X + scalar_value_955X);
5319     goto L28725;}
5320   else {encode_scalar_valueUutf_16le(scalar_value_955X, (string_946X + target_index_952X), 4, &out_of_spaceP_957X, &count_958X);
5321     arg0K0 = (1 + source_index_951X);
5322     arg0K1 = (target_index_952X + count_958X);
5323     goto L28716;}}
5324 }
check_stack(void)5325 void check_stack(void)
5326 {
5327   char * arg3K0;
5328   char * arg3K1;
5329   long arg0K0;
5330   long v_981X;
5331   char x_980X;
5332   long x_979X;
5333   char * ptr_978X;
5334   long mask_977X;
5335   long size_976X;
5336   char * pointer_975X;
5337   char x_974X;
5338   long x_973X;
5339   char * addr_972X;
5340   char * trace_ptr_971X;
5341   char * mask_ptr_970X;
5342   long v_969X;
5343   char * mask_pointer_968X;
5344   long size_967X;
5345   char * pointer_966X;
5346   char * contents_pointer_965X;
5347   long mask_size_964X;
5348   char * code_pointer_963X;
5349   char * cont_962X;
5350   char x_961X;
5351   long x_960X;
5352   char * index_959X;
5353  {  arg3K0 = (SstackS);
5354   goto L28840;}
5355  L28840: {
5356   index_959X = arg3K0;
5357   if ((index_959X < ((SstackS) + (-8 & ((ScontS) - (SstackS)))))) {
5358     x_960X = *((long *) index_959X);
5359     if ((2 == (3 & x_960X))) {
5360       goto L28902;}
5361     else {
5362       if ((3 == (3 & x_960X))) {
5363         x_961X = s48_stob_in_heapP(x_960X);
5364         if (x_961X) {
5365           goto L28849;}
5366         else {
5367           goto L28902;}}
5368       else {
5369         goto L28849;}}}
5370   else {
5371     arg3K0 = (ScontS);
5372     goto L28944;}}
5373  L28902: {
5374   ps_write_string("bad descriptor in stack", (stderr));
5375   ps_write_integer(x_960X, (stderr));
5376   ps_write_integer((*((long *) (((char *) 0)))), (stderr));
5377   goto L28849;}
5378  L28849: {
5379   arg3K0 = (index_959X + 8);
5380   goto L28840;}
5381  L28944: {
5382   cont_962X = arg3K0;
5383   if ((cont_962X == (Sbottom_of_stackS))) {
5384     return;}
5385   else {
5386     code_pointer_963X = ((char *) (*((long *) cont_962X)));
5387     mask_size_964X = *((unsigned char *) (code_pointer_963X + -3));
5388     contents_pointer_965X = cont_962X + 8;
5389     if ((0 == mask_size_964X)) {
5390       pointer_966X = (((char *) (*((long *) cont_962X)))) + -2;
5391       size_967X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_966X)), 8)) + (*((unsigned char *) (pointer_966X + 1)));
5392       if ((65535 == size_967X)) {
5393         arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_962X + 8))), 2));
5394         goto L21442;}
5395       else {
5396         arg0K0 = size_967X;
5397         goto L21442;}}
5398     else {
5399       mask_pointer_968X = code_pointer_963X + -7;
5400       arg3K0 = (mask_pointer_968X + (0 - mask_size_964X));
5401       arg3K1 = contents_pointer_965X;
5402       goto L8845;}}}
5403  L21442: {
5404   v_969X = arg0K0;
5405   arg3K0 = contents_pointer_965X;
5406   goto L8786;}
5407  L8845: {
5408   mask_ptr_970X = arg3K0;
5409   trace_ptr_971X = arg3K1;
5410   if ((mask_ptr_970X == mask_pointer_968X)) {
5411     goto L24421;}
5412   else {
5413     arg0K0 = (*((unsigned char *) mask_ptr_970X));
5414     arg3K1 = trace_ptr_971X;
5415     goto L8853;}}
5416  L8786: {
5417   addr_972X = arg3K0;
5418   if ((addr_972X < (cont_962X + (8 + (PS_SHIFT_LEFT_INLINE(v_969X, 3)))))) {
5419     x_973X = *((long *) addr_972X);
5420     if ((2 == (3 & x_973X))) {
5421       goto L8804;}
5422     else {
5423       if ((3 == (3 & x_973X))) {
5424         x_974X = s48_stob_in_heapP(x_973X);
5425         if (x_974X) {
5426           goto L8791;}
5427         else {
5428           goto L8804;}}
5429       else {
5430         goto L8791;}}}
5431   else {
5432     goto L24421;}}
5433  L24421: {
5434   pointer_975X = (((char *) (*((long *) cont_962X)))) + -2;
5435   size_976X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_975X)), 8)) + (*((unsigned char *) (pointer_975X + 1)));
5436   if ((65535 == size_976X)) {
5437     arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_962X + 8))), 2));
5438     goto L24426;}
5439   else {
5440     arg0K0 = size_976X;
5441     goto L24426;}}
5442  L8853: {
5443   mask_977X = arg0K0;
5444   ptr_978X = arg3K1;
5445   if ((0 == mask_977X)) {
5446     arg3K0 = (mask_ptr_970X + 1);
5447     arg3K1 = (trace_ptr_971X + 64);
5448     goto L8845;}
5449   else {
5450     if ((1 == (1 & mask_977X))) {
5451       x_979X = *((long *) ptr_978X);
5452       if ((2 == (3 & x_979X))) {
5453         goto L8910;}
5454       else {
5455         if ((3 == (3 & x_979X))) {
5456           x_980X = s48_stob_in_heapP(x_979X);
5457           if (x_980X) {
5458             goto L8869;}
5459           else {
5460             goto L8910;}}
5461         else {
5462           goto L8869;}}}
5463     else {
5464       goto L8869;}}}
5465  L8804: {
5466   ps_write_string("bad descriptor in stack", (stderr));
5467   ps_write_integer(x_973X, (stderr));
5468   ps_write_integer((*((long *) (((char *) 0)))), (stderr));
5469   goto L8791;}
5470  L8791: {
5471   arg3K0 = (addr_972X + 8);
5472   goto L8786;}
5473  L24426: {
5474   v_981X = arg0K0;
5475   arg3K0 = (cont_962X + (8 + (PS_SHIFT_LEFT_INLINE(v_981X, 3))));
5476   goto L28944;}
5477  L8910: {
5478   ps_write_string("bad descriptor in stack", (stderr));
5479   ps_write_integer(x_979X, (stderr));
5480   ps_write_integer((*((long *) (((char *) 0)))), (stderr));
5481   goto L8869;}
5482  L8869: {
5483   arg0K0 = (PS_SHIFT_RIGHT_INLINE(mask_977X, 1));
5484   arg3K1 = (ptr_978X + 8);
5485   goto L8853;}
5486 }
s48_really_add_channel(long mode_982X,long id_983X,long os_index_984X)5487 long s48_really_add_channel(long mode_982X, long id_983X, long os_index_984X)
5488 {
5489   long arg0K1;
5490   long arg0K0;
5491   long status_989X;
5492   long channel_988X;
5493   long channel_987X;
5494   char x_986X;
5495   char temp_985X;
5496  {s48_make_availableAgc(64);
5497   temp_985X = os_index_984X < (Snumber_of_channelsS);
5498   if (temp_985X) {
5499     goto L29009;}
5500   else {
5501     x_986X = add_more_channels(os_index_984X);
5502     if (x_986X) {
5503       goto L29009;}
5504     else {
5505       arg0K0 = 1;
5506       arg0K1 = 10;
5507       goto L28983;}}}
5508  L29009: {
5509   if ((1 == (*((Svm_channelsS) + os_index_984X)))) {
5510     channel_987X = make_channel((-4 & mode_982X), id_983X, (PS_SHIFT_LEFT_INLINE(os_index_984X, 2)), 1, 1, 1, 1, 0);
5511     *((Svm_channelsS) + os_index_984X) = channel_987X;
5512     arg0K0 = channel_987X;
5513     arg0K1 = 10;
5514     goto L28983;}
5515   else {
5516     arg0K0 = 1;
5517     arg0K1 = 12;
5518     goto L28983;}}
5519  L28983: {
5520   channel_988X = arg0K0;
5521   status_989X = arg0K1;
5522   if ((3 == (3 & channel_988X))) {
5523     if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + channel_988X))))), 2))))) {
5524       return channel_988X;}
5525     else {
5526       goto L28991;}}
5527   else {
5528     goto L28991;}}
5529  L28991: {
5530   return (PS_SHIFT_LEFT_INLINE(status_989X, 2));}
5531 }
s48_enter_string_latin_1(char * s_990X)5532 long s48_enter_string_latin_1(char *s_990X)
5533 {
5534 
5535  {  return enter_stringAgc_n(s_990X, (strlen((char *) s_990X)));}
5536 }
s48_integer_bit_count(long x_991X)5537 long s48_integer_bit_count(long x_991X)
5538 {
5539 
5540  {  return integer_bit_count(x_991X);}
5541 }
s48_enter_integer(long x_992X)5542 long s48_enter_integer(long x_992X)
5543 {
5544   char * v_993X;
5545  {s48_make_availableAgc(24);
5546   if ((2305843009213693951 < x_992X)) {
5547     goto L29866;}
5548   else {
5549     if ((x_992X < -2305843009213693952)) {
5550       goto L29866;}
5551     else {
5552       return (PS_SHIFT_LEFT_INLINE(x_992X, 2));}}}
5553  L29866: {
5554   v_993X = (char *) s48_long_to_bignum(x_992X);
5555   return enter_bignum(v_993X);}
5556 }
s48_enter_unsigned_integer(unsigned long x_994X)5557 long s48_enter_unsigned_integer(unsigned long x_994X)
5558 {
5559   char * v_995X;
5560  {s48_make_availableAgc(24);
5561   if (((((unsigned long) 2305843009213693951)) < x_994X)) {
5562     v_995X = (char *) s48_ulong_to_bignum(x_994X);
5563     return enter_bignum(v_995X);}
5564   else {
5565     return (PS_SHIFT_LEFT_INLINE((((long) x_994X)), 2));}}
5566 }
s48_integer_or_floanum_add(long x_996X,long y_997X)5567 long s48_integer_or_floanum_add(long x_996X, long y_997X)
5568 {
5569   long Kdouble_1003X;
5570   char * addr_1002X;
5571   double y_1001X;
5572   long value_1000X;
5573   double x_999X;
5574   long value_998X;
5575  {  if ((3 == (3 & x_996X))) {
5576     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_996X))))), 2))))) {
5577       Stemp0S = x_996X;
5578       Stemp1S = y_997X;s48_make_availableAgc(16);
5579       value_998X = Stemp0S;
5580       Stemp0S = 1;
5581       x_999X = *((double *) (((char *) (-3 + value_998X))));
5582       value_1000X = Stemp1S;
5583       Stemp1S = 1;
5584       y_1001X = *((double *) (((char *) (-3 + value_1000X))));
5585       addr_1002X = s48_allocate_small(16);
5586       *((long *) addr_1002X) = (long) (2122);
5587       Kdouble_1003X = 3 + (((long) (addr_1002X + 8)));
5588       *((double *) (((char *) (-3 + Kdouble_1003X)))) = (double) ((x_999X + y_1001X));
5589       return Kdouble_1003X;}
5590     else {
5591       return integer_add(x_996X, y_997X);}}
5592   else {
5593     return integer_add(x_996X, y_997X);}}
5594 }
s48_integer_or_floanum_sub(long x_1004X,long y_1005X)5595 long s48_integer_or_floanum_sub(long x_1004X, long y_1005X)
5596 {
5597   long Kdouble_1011X;
5598   char * addr_1010X;
5599   double y_1009X;
5600   long value_1008X;
5601   double x_1007X;
5602   long value_1006X;
5603  {  if ((3 == (3 & x_1004X))) {
5604     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1004X))))), 2))))) {
5605       Stemp0S = x_1004X;
5606       Stemp1S = y_1005X;s48_make_availableAgc(16);
5607       value_1006X = Stemp0S;
5608       Stemp0S = 1;
5609       x_1007X = *((double *) (((char *) (-3 + value_1006X))));
5610       value_1008X = Stemp1S;
5611       Stemp1S = 1;
5612       y_1009X = *((double *) (((char *) (-3 + value_1008X))));
5613       addr_1010X = s48_allocate_small(16);
5614       *((long *) addr_1010X) = (long) (2122);
5615       Kdouble_1011X = 3 + (((long) (addr_1010X + 8)));
5616       *((double *) (((char *) (-3 + Kdouble_1011X)))) = (double) ((x_1007X - y_1009X));
5617       return Kdouble_1011X;}
5618     else {
5619       return integer_subtract(x_1004X, y_1005X);}}
5620   else {
5621     return integer_subtract(x_1004X, y_1005X);}}
5622 }
s48_integer_or_floanum_mul(long x_1012X,long y_1013X)5623 long s48_integer_or_floanum_mul(long x_1012X, long y_1013X)
5624 {
5625   long Kdouble_1019X;
5626   char * addr_1018X;
5627   double y_1017X;
5628   long value_1016X;
5629   double x_1015X;
5630   long value_1014X;
5631  {  if ((3 == (3 & x_1012X))) {
5632     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1012X))))), 2))))) {
5633       Stemp0S = x_1012X;
5634       Stemp1S = y_1013X;s48_make_availableAgc(16);
5635       value_1014X = Stemp0S;
5636       Stemp0S = 1;
5637       x_1015X = *((double *) (((char *) (-3 + value_1014X))));
5638       value_1016X = Stemp1S;
5639       Stemp1S = 1;
5640       y_1017X = *((double *) (((char *) (-3 + value_1016X))));
5641       addr_1018X = s48_allocate_small(16);
5642       *((long *) addr_1018X) = (long) (2122);
5643       Kdouble_1019X = 3 + (((long) (addr_1018X + 8)));
5644       *((double *) (((char *) (-3 + Kdouble_1019X)))) = (double) ((x_1015X * y_1017X));
5645       return Kdouble_1019X;}
5646     else {
5647       return integer_multiply(x_1012X, y_1013X);}}
5648   else {
5649     return integer_multiply(x_1012X, y_1013X);}}
5650 }
s48_integer_divide(long x_1020X,long y_1021X,long * TT0,long * TT1,long * TT2,long * TT3)5651 char s48_integer_divide(long x_1020X, long y_1021X, long *TT0, long *TT1, long *TT2, long *TT3)
5652 {
5653 
5654  {  return integer_divide(x_1020X, y_1021X, TT0, TT1, TT2, TT3);}
5655 }
s48_integer_bitwise_not(long x_1022X)5656 long s48_integer_bitwise_not(long x_1022X)
5657 {
5658 
5659  {  return integer_bitwise_not(x_1022X);}
5660 }
s48_integer_bitwise_and(long x_1023X,long y_1024X)5661 long s48_integer_bitwise_and(long x_1023X, long y_1024X)
5662 {
5663 
5664  {  return integer_bitwise_and(x_1023X, y_1024X);}
5665 }
s48_integer_bitwise_ior(long x_1025X,long y_1026X)5666 long s48_integer_bitwise_ior(long x_1025X, long y_1026X)
5667 {
5668 
5669  {  return integer_bitwise_ior(x_1025X, y_1026X);}
5670 }
s48_integer_bitwise_xor(long x_1027X,long y_1028X)5671 long s48_integer_bitwise_xor(long x_1027X, long y_1028X)
5672 {
5673 
5674  {  return integer_bitwise_xor(x_1027X, y_1028X);}
5675 }
s48_setup_external_exception(long why_1029X,long nargs_1030X)5676 void s48_setup_external_exception(long why_1029X, long nargs_1030X)
5677 {
5678 
5679  {push_exception_setupB(why_1029X, 1);
5680   if ((10 < nargs_1030X)) {
5681     ps_error("too many arguments from external exception", 0);
5682     goto L30934;}
5683   else {
5684     goto L30934;}}
5685  L30934: {
5686   Sexternal_exception_nargsS = nargs_1030X;
5687   Sexternal_exceptionPS = 1;
5688   return;}
5689 }
message_element(long thing_1031X,FILE * out_1032X)5690 long message_element(long thing_1031X, FILE * out_1032X)
5691 {
5692   char *arg5K0;
5693   char *v_1036X;
5694   long v_1035X;
5695   char x_1034X;
5696   long v_1033X;
5697  {  if ((0 == (3 & thing_1031X))) {
5698     return (ps_write_integer((PS_SHIFT_RIGHT_INLINE(thing_1031X, 2)), out_1032X));}
5699   else {
5700     if ((9 == (255 & thing_1031X))) {
5701       ps_write_string("#\\", out_1032X);
5702       PS_WRITE_CHAR((((char) (PS_SHIFT_RIGHT_INLINE(thing_1031X, 8)))), out_1032X, v_1033X)
5703       return v_1033X;}
5704     else {
5705       if ((3 == (3 & thing_1031X))) {
5706         if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5707           if ((0 < (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 8))), 3)))) {
5708             x_1034X = not_record_typeP((*((long *) (((char *) (-3 + thing_1031X))))));
5709             if (x_1034X) {
5710               goto L30975;}
5711             else {
5712               ps_write_string("#{", out_1032X);write_vm_string((*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_1031X)))))))) + 24)))))))), out_1032X);
5713               PS_WRITE_CHAR(125, out_1032X, v_1035X)
5714               return v_1035X;}}
5715           else {
5716             goto L30975;}}
5717         else {
5718           goto L30975;}}
5719       else {
5720         goto L30975;}}}}
5721  L30975: {
5722   if ((3 == (3 & thing_1031X))) {
5723     if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5724       return write_vm_string(thing_1031X, out_1032X);}
5725     else {
5726       goto L30979;}}
5727   else {
5728     goto L30979;}}
5729  L30979: {
5730   if ((3 == (3 & thing_1031X))) {
5731     if ((1 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5732       return write_vm_string((*((long *) (((char *) (-3 + thing_1031X))))), out_1032X);}
5733     else {
5734       goto L30985;}}
5735   else {
5736     goto L30985;}}
5737  L30985: {
5738   if ((1 == thing_1031X)) {
5739     goto L30990;}
5740   else {
5741     if ((5 == thing_1031X)) {
5742       goto L30990;}
5743     else {
5744       if ((25 == thing_1031X)) {
5745         arg5K0 = "()";
5746         goto L31029;}
5747       else {
5748         if ((3 == (3 & thing_1031X))) {
5749           if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5750             arg5K0 = "(...)";
5751             goto L31029;}
5752           else {
5753             goto L31003;}}
5754         else {
5755           goto L31003;}}}}}
5756  L30990: {
5757   if ((1 == thing_1031X)) {
5758     arg5K0 = "#f";
5759     goto L31029;}
5760   else {
5761     arg5K0 = "#t";
5762     goto L31029;}}
5763  L31029: {
5764   v_1036X = arg5K0;
5765   return (ps_write_string(v_1036X, out_1032X));}
5766  L31003: {
5767   if ((3 == (3 & thing_1031X))) {
5768     if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5769       arg5K0 = "#(...)";
5770       goto L31029;}
5771     else {
5772       goto L31007;}}
5773   else {
5774     goto L31007;}}
5775  L31007: {
5776   if ((3 == (3 & thing_1031X))) {
5777     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5778       arg5K0 = "#{procedure}";
5779       goto L31029;}
5780     else {
5781       goto L31011;}}
5782   else {
5783     goto L31011;}}
5784  L31011: {
5785   if ((3 == (3 & thing_1031X))) {
5786     if ((12 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5787       arg5K0 = "#{template}";
5788       goto L31029;}
5789     else {
5790       goto L31015;}}
5791   else {
5792     goto L31015;}}
5793  L31015: {
5794   if ((3 == (3 & thing_1031X))) {
5795     if ((4 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5796       arg5K0 = "#{location}";
5797       goto L31029;}
5798     else {
5799       goto L31019;}}
5800   else {
5801     goto L31019;}}
5802  L31019: {
5803   if ((3 == (3 & thing_1031X))) {
5804     if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5805       arg5K0 = "#{code-vector}";
5806       goto L31029;}
5807     else {
5808       goto L31023;}}
5809   else {
5810     goto L31023;}}
5811  L31023: {
5812   if ((3 == (3 & thing_1031X))) {
5813     if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thing_1031X))))), 2))))) {
5814       arg5K0 = "#{continuation}";
5815       goto L31029;}
5816     else {
5817       arg5K0 = "???";
5818       goto L31029;}}
5819   else {
5820     arg5K0 = "???";
5821     goto L31029;}}
5822 }
s48_integer_quotient(long x_1037X,long y_1038X)5823 long s48_integer_quotient(long x_1037X, long y_1038X)
5824 {
5825 
5826  {  return Hinteger_op8731(x_1037X, y_1038X);}
5827 }
s48_integer_remainder(long x_1039X,long y_1040X)5828 long s48_integer_remainder(long x_1039X, long y_1040X)
5829 {
5830 
5831  {  return Hinteger_op8662(x_1039X, y_1040X);}
5832 }
s48_copy_stack_into_heap(void)5833 void s48_copy_stack_into_heap(void)
5834 {
5835   char * arg3K1;
5836   char * arg3K0;
5837   char * arg_1044X;
5838   char * loc_1043X;
5839   char * top_1042X;
5840   long arg_count_1041X;
5841  {s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((-4 & (PS_SHIFT_RIGHT_INLINE(((Sstack_endS) - (SstackS)), 1))), 3)));
5842   arg_count_1041X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
5843   top_1042X = SstackS;
5844   if ((1 == (((long) (ScontS))))) {
5845     goto L31382;}
5846   else {really_preserve_continuation(0);
5847     goto L31382;}}
5848  L31382: {
5849   SstackS = (ScontS);
5850   arg3K0 = ((SstackS) + -8);
5851   arg3K1 = (top_1042X + (-8 + (PS_SHIFT_LEFT_INLINE(arg_count_1041X, 3))));
5852   goto L31411;}
5853  L31411: {
5854   loc_1043X = arg3K0;
5855   arg_1044X = arg3K1;
5856   if ((arg_1044X < top_1042X)) {
5857     SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE(arg_count_1041X, 3))));
5858     return;}
5859   else {
5860     *((long *) loc_1043X) = (long) ((*((long *) arg_1044X)));
5861     arg3K0 = (loc_1043X + -8);
5862     arg3K1 = (arg_1044X + -8);
5863     goto L31411;}}
5864 }
s48_get_imported_binding(char * name_1045X)5865 long s48_get_imported_binding(char *name_1045X)
5866 {
5867   long value_1047X;
5868   long value_1046X;
5869  {  value_1046X = enter_stringAgc_n(name_1045X, (strlen((char *) name_1045X)));
5870   Stemp0S = value_1046X;s48_make_availableAgc(40);
5871   value_1047X = Stemp0S;
5872   Stemp0S = 1;
5873   return Hlookup853((Sexported_bindingsS), value_1047X, 0);}
5874 }
s48_define_exported_binding(char * name_1048X,long value_1049X)5875 long s48_define_exported_binding(char *name_1048X, long value_1049X)
5876 {
5877   char * addr_1053X;
5878   long value_1052X;
5879   long binding_1051X;
5880   long name_1050X;
5881  {  Stemp0S = value_1049X;
5882   name_1050X = enter_stringAgc_n(name_1048X, (strlen((char *) name_1048X)));
5883   Stemp1S = name_1050X;s48_make_availableAgc(40);
5884   binding_1051X = Hlookup834((Simported_bindingsS), name_1050X, 0);
5885   value_1052X = Stemp0S;
5886   Stemp0S = 1;
5887   Stemp1S = 1;
5888   addr_1053X = (((char *) (-3 + binding_1051X))) + 16;S48_WRITE_BARRIER(binding_1051X, addr_1053X, value_1052X);
5889   *((long *) addr_1053X) = (long) (value_1052X);
5890   return binding_1051X;}
5891 }
s48_initialize_vm(char * stack_begin_1054X,long stack_size_1055X)5892 void s48_initialize_vm(char * stack_begin_1054X, long stack_size_1055X)
5893 {
5894   char * arg3K0;
5895   long arg0K1;
5896   long arg0K0;
5897 
5898 #ifdef USE_DIRECT_THREADING
5899   void *make_hash_tableAgc_return_address;
5900 #else
5901   int make_hash_tableAgc_return_tag;
5902 #endif
5903   long make_hash_tableAgc0_return_value;
5904   char * addr_1097X;
5905   long i_1096X;
5906   long table_1095X;
5907   long vector_1094X;
5908   char * addr_1093X;
5909   char * addr_1092X;
5910   long x_1091X;
5911   long v_1090X;
5912   long vector_1089X;
5913   char * addr_1088X;
5914   long blank_return_code_1087X;
5915   long blank_return_code_1086X;
5916   long blank_return_code_1085X;
5917   long blank_return_code_1084X;
5918   long blank_return_code_1083X;
5919   long blank_return_code_1082X;
5920   long blank_return_code_1081X;
5921   char * a_1080X;
5922   long size_1079X;
5923   char * start_1078X;
5924   char * stack_1077X;
5925   char x_1076X;
5926   long event_types_count_1075X;
5927   char * addr_1074X;
5928   long value_1073X;
5929   char * addr_1072X;
5930   long val_1071X;
5931   long index_1070X;
5932   long v_1069X;
5933   long foo_1068X;
5934   long table_1067X;
5935   long i_1066X;
5936   long v_1065X;
5937   long v_1064X;
5938   long exported_bindings_1063X;
5939   long imported_bindings_1062X;
5940   long n_1061X;
5941   long symbols_1060X;
5942   long maybe_1059X;
5943   long maybe_1058X;
5944   long v_1057X;
5945   long symbol_table_1056X;
5946  {  symbol_table_1056X = s48_initial_symbols();
5947   if ((symbol_table_1056X == 1)) {
5948 #ifdef USE_DIRECT_THREADING
5949     make_hash_tableAgc_return_address = &&make_hash_tableAgc_return_0;
5950 #else
5951     make_hash_tableAgc_return_tag = 0;
5952 #endif
5953     goto make_hash_tableAgc;
5954    make_hash_tableAgc_return_0:
5955     v_1057X = make_hash_tableAgc0_return_value;
5956     Sthe_symbol_tableS = v_1057X;
5957     maybe_1058X = s48_find_all(1);
5958     if ((maybe_1058X == 1)) {s48_collect(1);
5959       maybe_1059X = s48_find_all(1);
5960       if ((maybe_1059X == 1)) {
5961         ps_error("insufficient heap space to build symbol table", 0);
5962         arg0K0 = maybe_1059X;
5963         goto L31555;}
5964       else {
5965         arg0K0 = maybe_1059X;
5966         goto L31555;}}
5967     else {
5968       arg0K0 = maybe_1058X;
5969       goto L31555;}}
5970   else {
5971     Sthe_symbol_tableS = symbol_table_1056X;
5972     goto L32307;}}
5973  L31555: {
5974   symbols_1060X = arg0K0;
5975   n_1061X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + symbols_1060X))))), 8))), 3);
5976   arg0K0 = 0;
5977   goto L31576;}
5978  L32307: {
5979   imported_bindings_1062X = s48_initial_imported_bindings();
5980   exported_bindings_1063X = s48_initial_exported_bindings();
5981   if ((1 == imported_bindings_1062X)) {
5982 #ifdef USE_DIRECT_THREADING
5983     make_hash_tableAgc_return_address = &&make_hash_tableAgc_return_1;
5984 #else
5985     make_hash_tableAgc_return_tag = 1;
5986 #endif
5987     goto make_hash_tableAgc;
5988    make_hash_tableAgc_return_1:
5989     v_1064X = make_hash_tableAgc0_return_value;
5990     Simported_bindingsS = v_1064X;
5991 #ifdef USE_DIRECT_THREADING
5992     make_hash_tableAgc_return_address = &&make_hash_tableAgc_return_2;
5993 #else
5994     make_hash_tableAgc_return_tag = 2;
5995 #endif
5996     goto make_hash_tableAgc;
5997    make_hash_tableAgc_return_2:
5998     v_1065X = make_hash_tableAgc0_return_value;
5999     Sexported_bindingsS = v_1065X;
6000     goto L32313;}
6001   else {
6002     Simported_bindingsS = imported_bindings_1062X;
6003     Sexported_bindingsS = exported_bindings_1063X;
6004     goto L32313;}}
6005  L31576: {
6006   i_1066X = arg0K0;
6007   if ((i_1066X == n_1061X)) {
6008     goto L32307;}
6009   else {
6010     table_1067X = Sthe_symbol_tableS;
6011     foo_1068X = *((long *) ((((char *) (-3 + symbols_1060X))) + (PS_SHIFT_LEFT_INLINE(i_1066X, 3))));
6012     v_1069X = Haction5350((*((long *) (((char *) (-3 + foo_1068X))))));
6013     index_1070X = 1023 & v_1069X;
6014     val_1071X = *((long *) ((((char *) (-3 + table_1067X))) + (PS_SHIFT_LEFT_INLINE(index_1070X, 3))));
6015     addr_1072X = (((char *) (-3 + foo_1068X))) + 8;S48_WRITE_BARRIER(foo_1068X, addr_1072X, val_1071X);
6016     *((long *) addr_1072X) = (long) (val_1071X);
6017     if ((3 == (3 & foo_1068X))) {
6018       arg0K0 = (-4 & foo_1068X);
6019       goto L30456;}
6020     else {
6021       arg0K0 = foo_1068X;
6022       goto L30456;}}}
6023  L32313: {
6024   Sevent_typesS = ((struct event_type**)malloc(sizeof(struct event_type*) * (Snumber_of_event_typesS)));
6025   if ((NULL == (Sevent_typesS))) {
6026     ps_error("out of memory, unable to continue", 0);
6027     goto L32347;}
6028   else {
6029     goto L32347;}}
6030  L30456: {
6031   value_1073X = arg0K0;
6032   addr_1074X = (((char *) (-3 + table_1067X))) + (PS_SHIFT_LEFT_INLINE(index_1070X, 3));S48_WRITE_BARRIER(table_1067X, addr_1074X, value_1073X);
6033   *((long *) addr_1074X) = (long) (value_1073X);
6034   arg0K0 = (1 + i_1066X);
6035   goto L31576;}
6036  L32347: {
6037   event_types_count_1075X = Snumber_of_event_typesS;
6038   Snumber_of_event_typesS = 0;
6039   Sunused_event_types_headS = (NULL);
6040   x_1076X = add_external_event_types(event_types_count_1075X);
6041   if (x_1076X) {
6042     goto L32354;}
6043   else {
6044     ps_error("out of memory, unable to continue", 0);
6045     goto L32354;}}
6046  L32354: {
6047   Spending_event_types_headS = (NULL);
6048   Spending_event_types_tailS = (NULL);
6049   Spending_event_types_readyS = (NULL);
6050   if ((stack_size_1055X < 8128)) {
6051     stack_1077X = (char *)malloc(65024);
6052     if ((stack_1077X == NULL)) {
6053       ps_error("out of memory, unable to continue", 0);
6054       arg3K0 = stack_1077X;
6055       arg0K1 = 8128;
6056       goto L25488;}
6057     else {
6058       arg3K0 = stack_1077X;
6059       arg0K1 = 8128;
6060       goto L25488;}}
6061   else {
6062     arg3K0 = stack_begin_1054X;
6063     arg0K1 = stack_size_1055X;
6064     goto L25488;}}
6065  L25488: {
6066   start_1078X = arg3K0;
6067   size_1079X = arg0K1;
6068   Sstack_beginS = start_1078X;
6069   Sstack_endS = (start_1078X + (PS_SHIFT_LEFT_INLINE(size_1079X, 3)));
6070   Sreal_stack_limitS = ((Sstack_beginS) + 1024);
6071   s48_Sstack_limitS = (Sreal_stack_limitS);
6072   SstackS = (Sstack_endS);
6073   ScontS = (((char *) 1));
6074   arg3K0 = start_1078X;
6075   goto L25518;}
6076  L25518: {
6077   a_1080X = arg3K0;
6078   if ((a_1080X == (Sstack_endS))) {s48_make_availableAgc(24);
6079     blank_return_code_1081X = make_blank_return_code(71, 65535, 0, 1, 0);
6080     *((unsigned char *) ((((char *) (-3 + blank_return_code_1081X))) + 15)) = (unsigned char) (0);
6081     SstackS = ((SstackS) + -8);
6082     *((long *) (SstackS)) = (long) (1);
6083     ScontS = (SstackS);
6084     *((long *) (ScontS)) = (long) ((((long) ((((char *) (-3 + blank_return_code_1081X))) + 13))));
6085     Sbottom_of_stackS = (ScontS);
6086     Sheap_continuationS = 1;s48_make_availableAgc(144);
6087     blank_return_code_1082X = make_blank_return_code(66, 65535, 65535, 1, 0);
6088     *((unsigned char *) ((((char *) (-3 + blank_return_code_1082X))) + 15)) = (unsigned char) (170);
6089     Sinterrupted_byte_opcode_return_codeS = blank_return_code_1082X;
6090     blank_return_code_1083X = make_blank_return_code(66, 65535, 65535, 1, 0);
6091     *((unsigned char *) ((((char *) (-3 + blank_return_code_1083X))) + 15)) = (unsigned char) (171);
6092     Sinterrupted_native_call_return_codeS = blank_return_code_1083X;
6093     blank_return_code_1084X = make_blank_return_code(66, 65535, 65535, 1, 0);
6094     *((unsigned char *) ((((char *) (-3 + blank_return_code_1084X))) + 15)) = (unsigned char) (172);
6095     Snative_poll_return_codeS = blank_return_code_1084X;
6096     blank_return_code_1085X = make_blank_return_code(1, 65535, 65535, 1, 0);
6097     *((unsigned char *) ((((char *) (-3 + blank_return_code_1085X))) + 15)) = (unsigned char) (166);
6098     Sexception_return_codeS = blank_return_code_1085X;
6099     blank_return_code_1086X = make_blank_return_code(1, 65535, 65535, 1, 0);
6100     *((unsigned char *) ((((char *) (-3 + blank_return_code_1086X))) + 15)) = (unsigned char) (167);
6101     Snative_exception_return_codeS = blank_return_code_1086X;
6102     blank_return_code_1087X = make_blank_return_code(70, 65535, 1, 1, 0);
6103     *((unsigned char *) ((((char *) (-3 + blank_return_code_1087X))) + 15)) = (unsigned char) (0);
6104     Scall_with_values_return_codeS = blank_return_code_1087X;s48_make_availableAgc(64);s48_bignum_make_cached_constants();
6105     addr_1088X = s48_allocate_tracedAgc(16);
6106     if ((addr_1088X == NULL)) {
6107       arg0K0 = 1;
6108       goto L32392;}
6109     else {
6110       *((long *) addr_1088X) = (long) (2058);
6111       arg0K0 = (3 + (((long) (addr_1088X + 8))));
6112       goto L32392;}}
6113   else {
6114     *((long *) a_1080X) = (long) (252645135);
6115     arg3K0 = (a_1080X + 8);
6116     goto L25518;}}
6117  L32392: {
6118   vector_1089X = arg0K0;
6119   if ((1 == vector_1089X)) {
6120     ps_error("Out of space, unable to allocate", 0);
6121     arg0K0 = vector_1089X;
6122     goto L32379;}
6123   else {
6124     arg0K0 = vector_1089X;
6125     goto L32379;}}
6126  L32379: {
6127   v_1090X = arg0K0;
6128   Sempty_logS = v_1090X;
6129   x_1091X = Sempty_logS;
6130   addr_1092X = ((char *) (-3 + x_1091X));S48_WRITE_BARRIER(x_1091X, addr_1092X, 1);
6131   *((long *) addr_1092X) = (long) (1);
6132   return;}
6133  make_hash_tableAgc: {
6134 { addr_1093X = s48_allocate_tracedAgc(8200);
6135   if ((addr_1093X == NULL)) {
6136     arg0K0 = 1;
6137     goto L16242;}
6138   else {
6139     *((long *) addr_1093X) = (long) (2097162);
6140     arg0K0 = (3 + (((long) (addr_1093X + 8))));
6141     goto L16242;}}
6142  L16242: {
6143   vector_1094X = arg0K0;
6144   if ((1 == vector_1094X)) {
6145     ps_error("Out of space, unable to allocate", 0);
6146     arg0K0 = vector_1094X;
6147     goto L16230;}
6148   else {
6149     arg0K0 = vector_1094X;
6150     goto L16230;}}
6151  L16230: {
6152   table_1095X = arg0K0;
6153   arg0K0 = 0;
6154   goto L16265;}
6155  L16265: {
6156   i_1096X = arg0K0;
6157   if ((1024 == i_1096X)) {
6158     make_hash_tableAgc0_return_value = table_1095X;
6159 #ifdef USE_DIRECT_THREADING
6160     goto *make_hash_tableAgc_return_address;
6161 #else
6162     goto make_hash_tableAgc_return;
6163 #endif
6164 }
6165   else {
6166     addr_1097X = (((char *) (-3 + table_1095X))) + (PS_SHIFT_LEFT_INLINE(i_1096X, 3));S48_WRITE_BARRIER(table_1095X, addr_1097X, 1);
6167     *((long *) addr_1097X) = (long) (1);
6168     arg0K0 = (1 + i_1096X);
6169     goto L16265;}}
6170 #ifndef USE_DIRECT_THREADING
6171  make_hash_tableAgc_return:
6172   switch (make_hash_tableAgc_return_tag) {
6173   case 0: goto make_hash_tableAgc_return_0;
6174   case 1: goto make_hash_tableAgc_return_1;
6175   default: goto make_hash_tableAgc_return_2;
6176   }
6177 #endif
6178 }
6179 
6180 }
s48_post_gc_cleanup(char majorP_1098X,char in_troubleP_1099X)6181 void s48_post_gc_cleanup(char majorP_1098X, char in_troubleP_1099X)
6182 {
6183 
6184  {  (Spost_gc_cleanupS)(majorP_1098X, in_troubleP_1099X);
6185   return;}
6186 }
s48_gc_root(void)6187 void s48_gc_root(void)
6188 {
6189 
6190  {  (Sgc_root_procS)();
6191   return;}
6192 }
s48_restart(long proc_1100X,long nargs_1101X)6193 long s48_restart(long proc_1100X, long nargs_1101X)
6194 {
6195   char *arg5K0;
6196   struct event_type *arg1K1;
6197   struct event_type *arg1K0;
6198   char * arg3K1;
6199   char * arg3K0;
6200   char arg4K3;
6201   char arg4K1;
6202   char arg4K0;
6203   char arg4K2;
6204   long arg0K4;
6205   long arg0K3;
6206   long arg0K2;
6207   long arg0K1;
6208   long arg0K0;
6209   char *merged_arg5K0;
6210   char * merged_arg3K0;
6211   FILE * merged_arg6K2;
6212   char merged_arg4K1;
6213   long merged_arg0K3;
6214   long merged_arg0K2;
6215   long merged_arg0K1;
6216   long merged_arg0K0;
6217 
6218 #ifdef USE_DIRECT_THREADING
6219   void *maybe_write_template_return_address;
6220 #else
6221   int maybe_write_template_return_tag;
6222 #endif
6223   char maybe_write_template0_return_value;
6224 #ifdef USE_DIRECT_THREADING
6225   void *find_template_return_address;
6226 #else
6227   int find_template_return_tag;
6228 #endif
6229   long find_template0_return_value;
6230 #ifdef USE_DIRECT_THREADING
6231   void *loseD0_return_address;
6232 #else
6233   int loseD0_return_tag;
6234 #endif
6235 #ifdef USE_DIRECT_THREADING
6236   void *unused_event_type_uid_return_address;
6237 #else
6238   int unused_event_type_uid_return_tag;
6239 #endif
6240   long unused_event_type_uid0_return_value;
6241 #ifdef USE_DIRECT_THREADING
6242   void *ensure_stack_spaceB_return_address;
6243 #else
6244   int ensure_stack_spaceB_return_tag;
6245 #endif
6246   char ensure_stack_spaceB0_return_value;
6247 #ifdef USE_DIRECT_THREADING
6248   void *push_list_return_address;
6249 #else
6250   int push_list_return_tag;
6251 #endif
6252   long push_list0_return_value;
6253 #ifdef USE_DIRECT_THREADING
6254   void *pop_args_GlistSAgc_return_address;
6255 #else
6256   int pop_args_GlistSAgc_return_tag;
6257 #endif
6258   long pop_args_GlistSAgc0_return_value;
6259 #ifdef USE_DIRECT_THREADING
6260   void *copy_listSAgc_return_address;
6261 #else
6262   int copy_listSAgc_return_tag;
6263 #endif
6264   long copy_listSAgc0_return_value;
6265 #ifdef USE_DIRECT_THREADING
6266   void *rest_list_setupAgc_return_address;
6267 #else
6268   int rest_list_setupAgc_return_tag;
6269 #endif
6270 #ifdef USE_DIRECT_THREADING
6271   void *pending_interruptP_return_address;
6272 #else
6273   int pending_interruptP_return_tag;
6274 #endif
6275   char pending_interruptP0_return_value;
6276 #ifdef USE_DIRECT_THREADING
6277   void *proposal_d_write_return_address;
6278 #else
6279   int proposal_d_write_return_tag;
6280 #endif
6281 #ifdef USE_DIRECT_THREADING
6282   void *proposal_d_read_return_address;
6283 #else
6284   int proposal_d_read_return_tag;
6285 #endif
6286   long proposal_d_read0_return_value;
6287 #ifdef USE_DIRECT_THREADING
6288   void *pop_continuationB_return_address;
6289 #else
6290   int pop_continuationB_return_tag;
6291 #endif
6292 #ifdef USE_DIRECT_THREADING
6293   void *shift_space_return_address;
6294 #else
6295   int shift_space_return_tag;
6296 #endif
6297   long shift_space0_return_value;
6298 #ifdef USE_DIRECT_THREADING
6299   void *get_current_port_return_address;
6300 #else
6301   int get_current_port_return_tag;
6302 #endif
6303   long get_current_port0_return_value;
6304 #ifdef USE_DIRECT_THREADING
6305   void *okay_argument_list_return_address;
6306 #else
6307   int okay_argument_list_return_tag;
6308 #endif
6309   char okay_argument_list0_return_value;
6310   long okay_argument_list1_return_value;
6311 #ifdef USE_DIRECT_THREADING
6312   void *copy_continuation_from_heapB_return_address;
6313 #else
6314   int copy_continuation_from_heapB_return_tag;
6315 #endif
6316   char * copy_continuation_from_heapB0_return_value;
6317 #ifdef USE_DIRECT_THREADING
6318   void *s48_pop_interrupt_state_return_address;
6319 #else
6320   int s48_pop_interrupt_state_return_tag;
6321 #endif
6322 #ifdef USE_DIRECT_THREADING
6323   void *move_args_above_contB_return_address;
6324 #else
6325   int move_args_above_contB_return_tag;
6326 #endif
6327 #ifdef USE_DIRECT_THREADING
6328   void *use_event_type_uidB_return_address;
6329 #else
6330   int use_event_type_uidB_return_tag;
6331 #endif
6332   long template_1102X;
6333   char not_firstP_1103X;
6334   FILE * out_1104X;
6335   char * start_1105X;
6336   long count_1106X;
6337   long code_vector_1107X;
6338   char *message_1108X;
6339   long need_1109X;
6340   long list_1110X;
6341   long count_1111X;
6342   long start_1112X;
6343   long count_1113X;
6344   long list_1114X;
6345   long length_1115X;
6346   long wants_stack_args_1116X;
6347   long stack_arg_count_1117X;
6348   long list_args_1118X;
6349   long list_arg_count_1119X;
6350   long stob_1120X;
6351   long index_1121X;
6352   long value_1122X;
6353   long stob_1123X;
6354   long index_1124X;
6355   long x_1125X;
6356   long n_1126X;
6357   long marker_1127X;
6358   long list_1128X;
6359   long cont_1129X;
6360   long stack_arg_count_1130X;
6361   long nargs_1131X;
6362   long id_1132X;
6363   long obj_2789X;
6364   long obj_2788X;
6365   long name_2787X;
6366   long next_2786X;
6367   long i_2785X;
6368   long v_2784X;
6369   long why_2783X;
6370   long size_2782X;
6371   char * pointer_2781X;
6372   char v_2780X;
6373   long v_2779X;
6374   long v_2778X;
6375   char v_2777X;
6376   long v_2776X;
6377   char not_firstP_2775X;
6378   long cont_2774X;
6379   long size_2773X;
6380   char * pointer_2772X;
6381   long v_2771X;
6382   char * pointer_2770X;
6383   char * code_pointer_2769X;
6384   long cont_2768X;
6385   char not_firstP_2767X;
6386   char * cont_2766X;
6387   char not_firstP_2765X;
6388   long template_2764X;
6389   FILE * out_2763X;
6390   long current_code_2762X;
6391   char v_2761X;
6392   char interruptP_2760X;
6393   long x_2759X;
6394   long l_2758X;
6395   long i_2757X;
6396   long list_2756X;
6397   char v_2755X;
6398   long x_2754X;
6399   char * addr_2753X;
6400   long a_2752X;
6401   long count_2751X;
6402   long args_2750X;
6403   long value_2749X;
6404   char * addr_2748X;
6405   long x_2747X;
6406   char * addr_2746X;
6407   long a_2745X;
6408   long last_2744X;
6409   long l_2743X;
6410   long x_2742X;
6411   char * addr_2741X;
6412   long a_2740X;
6413   long value_2739X;
6414   long x_2738X;
6415   long v_2737X;
6416   long x_2736X;
6417   long v_2735X;
6418   long count_2734X;
6419   long x_2733X;
6420   long interrupt_bit_2732X;
6421   long status_2731X;
6422   long channel_2730X;
6423   long type_2729X;
6424   char * addr_2728X;
6425   long next_stob_2727X;
6426   long i_2726X;
6427   long log_2725X;
6428   long v_2724X;
6429   long next_stob_2723X;
6430   long i_2722X;
6431   long log_2721X;
6432   long v_2720X;
6433   long v_2719X;
6434   long size_2718X;
6435   char * pointer_2717X;
6436   char * cont_2716X;
6437   long v_2715X;
6438   long v_2714X;
6439   long n_2713X;
6440   long extra_2712X;
6441   long x_size_2711X;
6442   char *v_2710X;
6443   long v_2709X;
6444   long obj_2708X;
6445   long env_2707X;
6446   long thread_2706X;
6447   char move_slowP_2705X;
6448   long slow_2704X;
6449   long len_2703X;
6450   long fast_2702X;
6451   char * new_stack_2701X;
6452   char * new_cont_2700X;
6453   long stack_size_2699X;
6454   char * addr_2698X;
6455   long x_2697X;
6456   long proposal_2696X;
6457   long p_2695X;
6458   char * arg_2694X;
6459   char * loc_2693X;
6460   char * top_of_args_2692X;
6461   struct event_type *unused_type_2691X;
6462   struct event_type *previous_2690X;
6463   char v_2689X;
6464   struct event_type *type_2688X;
6465   long v_2687X;
6466   long v_2686X;
6467   long stob_2685X;
6468   long v_2684X;
6469   long stob_2683X;
6470   char * addr_2682X;
6471   long x_2681X;
6472   char * addr_2680X;
6473   char * addr_2679X;
6474   long value_2678X;
6475   char * addr_2677X;
6476   long value_2676X;
6477   long copies_2675X;
6478   long link_2674X;
6479   long verify_2673X;
6480   long value_2672X;
6481   long copies_2671X;
6482   long stob_2670X;
6483   long i_2669X;
6484   long val_2668X;
6485   long val_2667X;
6486   long v_2666X;
6487   char * v_2665X;
6488   char * addr_2664X;
6489   long val_2663X;
6490   char * addr_2662X;
6491   char * addr_2661X;
6492   long val_2660X;
6493   char * addr_2659X;
6494   long value_2658X;
6495   long len_2657X;
6496   long s2_2656X;
6497   long foo_2655X;
6498   long previous_foo_2654X;
6499   char * addr_2653X;
6500   long verify_2652X;
6501   long value_2651X;
6502   long log_2650X;
6503   long stob_2649X;
6504   long i_2648X;
6505   long x_2647X;
6506   long status_2646X;
6507   long v_2645X;
6508   char * addr_2644X;
6509   long value_2643X;
6510   long val_2642X;
6511   long val_2641X;
6512   long n_2640X;
6513   char v_2639X;
6514   char * external_bignum_2638X;
6515   long val_2637X;
6516   long v_2636X;
6517   char * v_2635X;
6518   long val_2634X;
6519   long v_2633X;
6520   char * v_2632X;
6521   long x_2631X;
6522   long val_2630X;
6523   long v_2629X;
6524   char * v_2628X;
6525   char * addr_2627X;
6526   long value_2626X;
6527   long offset_2625X;
6528   long i_2624X;
6529   long count_2623X;
6530   char * addr_2622X;
6531   long value_2621X;
6532   long offset_2620X;
6533   long i_2619X;
6534   long count_2618X;
6535   long n_2617X;
6536   char * addr_2616X;
6537   long val_2615X;
6538   long count_2614X;
6539   char out_of_spaceP_2613X;
6540   char encoding_okP_2612X;
6541   char * addr_2611X;
6542   long val_2610X;
6543   long count_2609X;
6544   char out_of_spaceP_2608X;
6545   char encoding_okP_2607X;
6546   char codec_okP_2606X;
6547   long count_2605X;
6548   long value_2604X;
6549   char incompleteP_2603X;
6550   char okP_2602X;
6551   char encoding_okP_2601X;
6552   char * addr_2600X;
6553   long val_2599X;
6554   char * addr_2598X;
6555   char * addr_2597X;
6556   long val_2596X;
6557   char * addr_2595X;
6558   char * addr_2594X;
6559   long val_2593X;
6560   long count_2592X;
6561   long value_2591X;
6562   char incompleteP_2590X;
6563   char okP_2589X;
6564   char encoding_okP_2588X;
6565   long x_2587X;
6566   long x_2586X;
6567   long shifted_2585X;
6568   long j_2584X;
6569   long bits_2583X;
6570   long bucket_2582X;
6571   char * addr_2581X;
6572   char * addr_2580X;
6573   long value_2579X;
6574   char * addr_2578X;
6575   char * addr_2577X;
6576   char * addr_2576X;
6577   long value_2575X;
6578   char * addr_2574X;
6579   char * addr_2573X;
6580   long value_2572X;
6581   long proposal_2571X;
6582   long entry_2570X;
6583   long thing_2569X;
6584   long log_2568X;
6585   long copies_2567X;
6586   char * addr_2566X;
6587   long x_2565X;
6588   long val_2564X;
6589   long v_2563X;
6590   long reason_2562X;
6591   long channel_2561X;
6592   long channel_2560X;
6593   long link_2559X;
6594   long val_2558X;
6595   long x_2557X;
6596   char * addr_2556X;
6597   long b_2555X;
6598   long shifted_2554X;
6599   long j_2553X;
6600   long bits_2552X;
6601   long val_2551X;
6602   long v_2550X;
6603   long n_2549X;
6604   char v_2548X;
6605   char * external_bignum_2547X;
6606   char * x_2546X;
6607   char * v_2545X;
6608   long v_2544X;
6609   char * x_2543X;
6610   long val_2542X;
6611   long v_2541X;
6612   char * v_2540X;
6613   long n_2539X;
6614   long val_2538X;
6615   long val_2537X;
6616   long val_2536X;
6617   long val_2535X;
6618   long val_2534X;
6619   long val_2533X;
6620   long val_2532X;
6621   long v_2531X;
6622   char * v_2530X;
6623   long x_2529X;
6624   long val_2528X;
6625   long v_2527X;
6626   char * v_2526X;
6627   long val_2525X;
6628   long val_2524X;
6629   long val_2523X;
6630   long val_2522X;
6631   char * arg_2521X;
6632   char * loc_2520X;
6633   long x_2519X;
6634   long l_2518X;
6635   long stack_nargs_2517X;
6636   long x_2516X;
6637   long v_2515X;
6638   long x_2514X;
6639   long v_2513X;
6640   long v_2512X;
6641   long v_2511X;
6642   long bytes_used_2510X;
6643   long count_2509X;
6644   long index_2508X;
6645   long env_2507X;
6646   long offset_2506X;
6647   long i_2505X;
6648   long bytes_used_2504X;
6649   long count_2503X;
6650   long env_2502X;
6651   long offset_2501X;
6652   long i_2500X;
6653   long v_2499X;
6654   long n_2498X;
6655   long x_2497X;
6656   long x_2496X;
6657   long x_2495X;
6658   long obj_2494X;
6659   long i_2493X;
6660   long count_2492X;
6661   char out_of_spaceP_2491X;
6662   char encoding_okP_2490X;
6663   long count_2489X;
6664   char out_of_spaceP_2488X;
6665   char encoding_okP_2487X;
6666   long count_2486X;
6667   char out_of_spaceP_2485X;
6668   char encoding_okP_2484X;
6669   long count_2483X;
6670   char * buffer_2482X;
6671   long encoding_2481X;
6672   long i_2480X;
6673   long count_2479X;
6674   char out_of_spaceP_2478X;
6675   char encoding_okP_2477X;
6676   char codec_okP_2476X;
6677   long count_2475X;
6678   char out_of_spaceP_2474X;
6679   char encoding_okP_2473X;
6680   long count_2472X;
6681   char out_of_spaceP_2471X;
6682   char encoding_okP_2470X;
6683   long count_2469X;
6684   char out_of_spaceP_2468X;
6685   char encoding_okP_2467X;
6686   long count_2466X;
6687   char * buffer_2465X;
6688   long value_2464X;
6689   long encoding_2463X;
6690   long code_point_2462X;
6691   long code_point_2461X;
6692   long count_2460X;
6693   long value_2459X;
6694   char incompleteP_2458X;
6695   char okP_2457X;
6696   long count_2456X;
6697   long value_2455X;
6698   char incompleteP_2454X;
6699   char okP_2453X;
6700   long count_2452X;
6701   long value_2451X;
6702   char incompleteP_2450X;
6703   char okP_2449X;
6704   long count_2448X;
6705   char * buffer_2447X;
6706   long encoding_2446X;
6707   long l_2445X;
6708   long codec_2444X;
6709   long p_2443X;
6710   long i_2442X;
6711   char * addr_2441X;
6712   long val_2440X;
6713   long code_point_2439X;
6714   long code_point_2438X;
6715   long count_2437X;
6716   long value_2436X;
6717   char incompleteP_2435X;
6718   char okP_2434X;
6719   long count_2433X;
6720   long value_2432X;
6721   char incompleteP_2431X;
6722   char okP_2430X;
6723   long count_2429X;
6724   long value_2428X;
6725   char incompleteP_2427X;
6726   char okP_2426X;
6727   long count_2425X;
6728   char * buffer_2424X;
6729   long encoding_2423X;
6730   char * addr_2422X;
6731   long val_2421X;
6732   long l_2420X;
6733   long codec_2419X;
6734   long p_2418X;
6735   long i_2417X;
6736   long x_2416X;
6737   long x_2415X;
6738   char * addr_2414X;
6739   long value_2413X;
6740   long d_2412X;
6741   long i_2411X;
6742   long l_2410X;
6743   long x_2409X;
6744   long link_2408X;
6745   long index_2407X;
6746   long v_2406X;
6747   long table_2405X;
6748   long val_2404X;
6749   char x_2403X;
6750   char minutesP_2402X;
6751   long vector_2401X;
6752   char * addr_2400X;
6753   long x_2399X;
6754   long verify_2398X;
6755   long value_2397X;
6756   long copies_2396X;
6757   long stob_2395X;
6758   long i_2394X;
6759   char * addr_2393X;
6760   long v_2392X;
6761   char * addr_2391X;
6762   char * addr_2390X;
6763   long val_2389X;
6764   long x_2388X;
6765   char * addr_2387X;
6766   char * addr_2386X;
6767   char * addr_2385X;
6768   long status_2384X;
6769   char pendingP_2383X;
6770   char eofP_2382X;
6771   long got_2381X;
6772   char v_2380X;
6773   long count_2379X;
6774   long start_2378X;
6775   char waitP_2377X;
6776   long status_2376X;
6777   long channel_2375X;
6778   long v_2374X;
6779   long v_2373X;
6780   char x_2372X;
6781   char temp_2371X;
6782   long index_2370X;
6783   long len_2369X;
6784   long s2_2368X;
6785   long foo_2367X;
6786   long i_2366X;
6787   long i_2365X;
6788   long i_2364X;
6789   char * addr_2363X;
6790   long i_2362X;
6791   long rest_list_2361X;
6792   long i_2360X;
6793   long v_2359X;
6794   long n_2358X;
6795   char v_2357X;
6796   char * external_bignum_2356X;
6797   char * x_2355X;
6798   long val_2354X;
6799   long v_2353X;
6800   char * v_2352X;
6801   long val_2351X;
6802   long v_2350X;
6803   char * v_2349X;
6804   char * v_2348X;
6805   long value_2347X;
6806   long needed_2346X;
6807   long y_2345X;
6808   long y_2344X;
6809   long x_2343X;
6810   long val_2342X;
6811   long v_2341X;
6812   char * v_2340X;
6813   long val_2339X;
6814   long val_2338X;
6815   long val_2337X;
6816   long count_2336X;
6817   long x_2335X;
6818   char * v_2334X;
6819   long value_2333X;
6820   long extra_2332X;
6821   long length_2331X;
6822   long x_2330X;
6823   long val_2329X;
6824   long c_2328X;
6825   long b_2327X;
6826   long val_2326X;
6827   long c_2325X;
6828   long b_2324X;
6829   long val_2323X;
6830   char b_2322X;
6831   long val_2321X;
6832   char b_2320X;
6833   long val_2319X;
6834   long v_2318X;
6835   long v_2317X;
6836   long v_2316X;
6837   long val_2315X;
6838   long v_2314X;
6839   long v_2313X;
6840   long v_2312X;
6841   long val_2311X;
6842   char b_2310X;
6843   long y_2309X;
6844   long x_2308X;
6845   long rem_2307X;
6846   long quot_2306X;
6847   char div_by_zeroP_2305X;
6848   char x_2304X;
6849   long c_2303X;
6850   long b_2302X;
6851   long val_2301X;
6852   long val_2300X;
6853   long val_2299X;
6854   long c_2298X;
6855   long mid_c_2297X;
6856   long v_2296X;
6857   long v_2295X;
6858   long lo_c_2294X;
6859   long hi_b_2293X;
6860   long hi_a_2292X;
6861   long lo_b_2291X;
6862   long lo_a_2290X;
6863   long b_2289X;
6864   long val_2288X;
6865   double x_2287X;
6866   long args_2286X;
6867   char * arg_top_2285X;
6868   long list_arg_count_2284X;
6869   long list_args_2283X;
6870   long stack_nargs_2282X;
6871   long bytes_used_2281X;
6872   long count_2280X;
6873   long v_2279X;
6874   char * arg_2278X;
6875   char * loc_2277X;
6876   long v_2276X;
6877   long v_2275X;
6878   long v_2274X;
6879   long bytes_used_2273X;
6880   long args_2272X;
6881   long list_args_2271X;
6882   long stack_nargs_2270X;
6883   long v_2269X;
6884   long x_2268X;
6885   long v_2267X;
6886   long cont_2266X;
6887   long size_2265X;
6888   char * pointer_2264X;
6889   char * cont_2263X;
6890   long protocol_skip_2262X;
6891   long template_2261X;
6892   long v_2260X;
6893   char v_2259X;
6894   char * arg_2258X;
6895   char * loc_2257X;
6896   char * addr_2256X;
6897   long value_2255X;
6898   long offset_2254X;
6899   long i_2253X;
6900   long count_2252X;
6901   char * addr_2251X;
6902   long value_2250X;
6903   long offset_2249X;
6904   long i_2248X;
6905   long count_2247X;
6906   long n_2246X;
6907   long sig_2245X;
6908   char x_2244X;
6909   long channel_2243X;
6910   long n_2242X;
6911   long x_2241X;
6912   long arg_count_2240X;
6913   long stuff_2239X;
6914   long vector_2238X;
6915   long count_2237X;
6916   char out_of_spaceP_2236X;
6917   char encoding_okP_2235X;
6918   long count_2234X;
6919   char out_of_spaceP_2233X;
6920   char encoding_okP_2232X;
6921   long count_2231X;
6922   char out_of_spaceP_2230X;
6923   char encoding_okP_2229X;
6924   long count_2228X;
6925   char * buffer_2227X;
6926   long encoding_2226X;
6927   long x_2225X;
6928   long l_2224X;
6929   long i_2223X;
6930   long b_2222X;
6931   long codec_2221X;
6932   long port_2220X;
6933   long Kchar_2219X;
6934   long b_2218X;
6935   long port_2217X;
6936   long b_2216X;
6937   long port_2215X;
6938   char * addr_2214X;
6939   long val_2213X;
6940   long i_2212X;
6941   long b_2211X;
6942   long p_2210X;
6943   long port_2209X;
6944   long byte_2208X;
6945   long i_2207X;
6946   long p_2206X;
6947   long p_2205X;
6948   long b_2204X;
6949   long port_2203X;
6950   char * addr_2202X;
6951   long val_2201X;
6952   long i_2200X;
6953   long p_2199X;
6954   long p_2198X;
6955   long b_2197X;
6956   long port_2196X;
6957   long x_2195X;
6958   long x_2194X;
6959   long count_2193X;
6960   long value_2192X;
6961   char incompleteP_2191X;
6962   char okP_2190X;
6963   char encoding_okP_2189X;
6964   long x_2188X;
6965   long x_2187X;
6966   long count_2186X;
6967   char out_of_spaceP_2185X;
6968   char okP_2184X;
6969   char encoding_okP_2183X;
6970   long v_2182X;
6971   long len_2181X;
6972   long v_2180X;
6973   long v_2179X;
6974   long len_2178X;
6975   long val_2177X;
6976   long x_2176X;
6977   long list_2175X;
6978   long head_2174X;
6979   char move_slowP_2173X;
6980   long slow_2172X;
6981   long list_2171X;
6982   long obj_2170X;
6983   char * addr_2169X;
6984   long len_2168X;
6985   long x_2167X;
6986   long val_2166X;
6987   long mseconds_2165X;
6988   long seconds_2164X;
6989   long option_2163X;
6990   struct event_type *type_2162X;
6991   struct event_type *type_2161X;
6992   long uid_2160X;
6993   long x_2159X;
6994   long vector_2158X;
6995   char firstP_2157X;
6996   long x_2156X;
6997   long x_2155X;
6998   long v_2154X;
6999   long v_2153X;
7000   long x_2152X;
7001   long result_2151X;
7002   char * args_2150X;
7003   long proc_2149X;
7004   long name_2148X;
7005   long rest_list_2147X;
7006   long x_2146X;
7007   long result_2145X;
7008   char * args_2144X;
7009   long proc_2143X;
7010   long name_2142X;
7011   long rest_list_2141X;
7012   long x_2140X;
7013   long x_2139X;
7014   long x_2138X;
7015   long x_2137X;
7016   long value_2136X;
7017   long vector_2135X;
7018   long type_2134X;
7019   char firstP_2133X;
7020   long vector_2132X;
7021   char firstP_2131X;
7022   long x_2130X;
7023   long x_2129X;
7024   long status_2128X;
7025   long x_2127X;
7026   char * addr_2126X;
7027   long next_stob_2125X;
7028   long i_2124X;
7029   long x_2123X;
7030   long v_2122X;
7031   long next_stob_2121X;
7032   long i_2120X;
7033   long value_2119X;
7034   long x_2118X;
7035   char * addr_2117X;
7036   long count_2116X;
7037   long to_index_2115X;
7038   long from_index_2114X;
7039   long copies_2113X;
7040   long left_2112X;
7041   long value_2111X;
7042   long verify_2110X;
7043   long value_2109X;
7044   long log_2108X;
7045   long stob_2107X;
7046   long i_2106X;
7047   char * addr_2105X;
7048   long old_2104X;
7049   long x_2103X;
7050   char * addr_2102X;
7051   long channel_2101X;
7052   long res_2100X;
7053   long i_2099X;
7054   long x_2098X;
7055   long y_2097X;
7056   long n_2096X;
7057   char * addr_2095X;
7058   long prev_2094X;
7059   long ch_2093X;
7060   long x_2092X;
7061   long val_2091X;
7062   long x_2090X;
7063   long val_2089X;
7064   long val_2088X;
7065   long x_2087X;
7066   long val_2086X;
7067   long x_2085X;
7068   long x_2084X;
7069   long v_2083X;
7070   long v_2082X;
7071   char *filename_2081X;
7072   long val_2080X;
7073   long x_2079X;
7074   char * addr_2078X;
7075   char * addr_2077X;
7076   long x_2076X;
7077   long val_2075X;
7078   long x_2074X;
7079   long bucket_2073X;
7080   long x_2072X;
7081   long x_2071X;
7082   long shifted_2070X;
7083   long j_2069X;
7084   long bits_2068X;
7085   long x_2067X;
7086   long x_2066X;
7087   long scalar_value_2065X;
7088   long j_2064X;
7089   long bits_2063X;
7090   long x_2062X;
7091   long x_2061X;
7092   long vector_2060X;
7093   long vector_2059X;
7094   long x_2058X;
7095   long x_2057X;
7096   long x_2056X;
7097   long vector_2055X;
7098   long new_2054X;
7099   char * addr_2053X;
7100   long value_2052X;
7101   long value_2051X;
7102   long x_2050X;
7103   char * addr_2049X;
7104   long value_2048X;
7105   long i_2047X;
7106   long value_2046X;
7107   long i_2045X;
7108   long value_2044X;
7109   long val_2043X;
7110   long val_2042X;
7111   long x_2041X;
7112   long val_2040X;
7113   long x_2039X;
7114   long val_2038X;
7115   long val_2037X;
7116   char * v_2036X;
7117   long value_2035X;
7118   long needed_2034X;
7119   long y_2033X;
7120   long x_2032X;
7121   long x_2031X;
7122   long x_2030X;
7123   long result_2029X;
7124   long x_2028X;
7125   long count_2027X;
7126   long value_2026X;
7127   long val_2025X;
7128   long val_2024X;
7129   long val_2023X;
7130   long x_2022X;
7131   long val_2021X;
7132   long x_2020X;
7133   long n_2019X;
7134   long x_2018X;
7135   long x_2017X;
7136   long v_2016X;
7137   long x_2015X;
7138   long n_2014X;
7139   long a_2013X;
7140   long a_2012X;
7141   long val_2011X;
7142   long val_2010X;
7143   char b_2009X;
7144   long val_2008X;
7145   char b_2007X;
7146   long val_2006X;
7147   char b_2005X;
7148   long val_2004X;
7149   long Kdouble_2003X;
7150   char * addr_2002X;
7151   double value_2001X;
7152   long value_2000X;
7153   double x_1999X;
7154   long value_1998X;
7155   long a_1997X;
7156   long Kdouble_1996X;
7157   char * addr_1995X;
7158   double y_1994X;
7159   long value_1993X;
7160   double x_1992X;
7161   long value_1991X;
7162   long val_1990X;
7163   long v_1989X;
7164   char * v_1988X;
7165   long Kdouble_1987X;
7166   char * addr_1986X;
7167   double y_1985X;
7168   long value_1984X;
7169   double x_1983X;
7170   long value_1982X;
7171   long a_1981X;
7172   long Kdouble_1980X;
7173   char * addr_1979X;
7174   double y_1978X;
7175   long value_1977X;
7176   double x_1976X;
7177   long value_1975X;
7178   long val_1974X;
7179   long v_1973X;
7180   char * v_1972X;
7181   long n_1971X;
7182   long val_1970X;
7183   long val_1969X;
7184   long delta_1968X;
7185   long delta_1967X;
7186   long offset_1966X;
7187   long index_1965X;
7188   long v_1964X;
7189   char * arg_top_1963X;
7190   long args_1962X;
7191   long count_1961X;
7192   long size_1960X;
7193   char * pointer_1959X;
7194   char * cont_1958X;
7195   long offset_1957X;
7196   long cont_1956X;
7197   long args_1955X;
7198   long args_1954X;
7199   long v_1953X;
7200   long v_1952X;
7201   long protocol_1951X;
7202   char * code_pointer_1950X;
7203   long list_arg_count_1949X;
7204   long list_args_1948X;
7205   long stack_nargs_1947X;
7206   long args_1946X;
7207   long x_1945X;
7208   long args_1944X;
7209   long x_1943X;
7210   long x_1942X;
7211   long x_1941X;
7212   char * addr_1940X;
7213   long a_1939X;
7214   long wants_stack_args_1938X;
7215   long size_1937X;
7216   char * pointer_1936X;
7217   char * cont_1935X;
7218   long proc_1934X;
7219   long offset_1933X;
7220   long cont_1932X;
7221   long protocol_1931X;
7222   char * code_pointer_1930X;
7223   long obj_1929X;
7224   char * addr_1928X;
7225   long list_args_1927X;
7226   long follower_1926X;
7227   long list_1925X;
7228   long x_1924X;
7229   long args_1923X;
7230   long list_arg_count_1922X;
7231   char okayP_1921X;
7232   long stack_nargs_1920X;
7233   long list_args_1919X;
7234   long obj_1918X;
7235   long obj_1917X;
7236   long list_arg_count_1916X;
7237   long list_args_1915X;
7238   long stack_arg_count_1914X;
7239   char * code_pointer_1913X;
7240   long return_pointer_offset_1912X;
7241   long stack_arg_count_1911X;
7242   long skip_1910X;
7243   long template_1909X;
7244   char * code_pointer_1908X;
7245   long stack_arg_count_1907X;
7246   long skip_1906X;
7247   long template_1905X;
7248   long skip_1904X;
7249   long obj_1903X;
7250   char interruptP_1902X;
7251   long protocol_1901X;
7252   long code_1900X;
7253   long template_1899X;
7254   long obj_1898X;
7255   long stack_arg_count_1897X;
7256   long cont_1896X;
7257   long index_1895X;
7258   long value_1894X;
7259   long index_1893X;
7260   long value_1892X;
7261   long move_1891X;
7262   long index_1890X;
7263   long value_1889X;
7264   long move_1888X;
7265   long n_1887X;
7266   long value_1886X;
7267   long i_1885X;
7268   char * addr_1884X;
7269   long x_1883X;
7270   char * addr_1882X;
7271   long a_1881X;
7272   long offset_1880X;
7273   long i_1879X;
7274   long count_1878X;
7275   long total_count_1877X;
7276   long offset_1876X;
7277   long i_1875X;
7278   long new_env_1874X;
7279   char * addr_1873X;
7280   long x_1872X;
7281   char * addr_1871X;
7282   long a_1870X;
7283   long offset_1869X;
7284   long i_1868X;
7285   long count_1867X;
7286   long total_count_1866X;
7287   long offset_1865X;
7288   long i_1864X;
7289   long new_env_1863X;
7290   long v_1862X;
7291   long x_1861X;
7292   long x_1860X;
7293   long args_1859X;
7294   long length_1858X;
7295   char okayP_1857X;
7296   long list_args_1856X;
7297   long stack_nargs_1855X;
7298   long maybe_cont_1854X;
7299   long v_1853X;
7300   long v_1852X;
7301   long v_1851X;
7302   long code_1850X;
7303   long n_1849X;
7304   char * addr_1848X;
7305   long x_1847X;
7306   long x_1846X;
7307   long x_1845X;
7308   char v_1844X;
7309   long return_address_1843X;
7310   long template_1842X;
7311   long obj_1841X;
7312   long stack_arg_count_1840X;
7313   long tag_1839X;
7314   long n_1838X;
7315   char still_readyP_1837X;
7316   long uid_1836X;
7317   char v_1835X;
7318   char * addr_1834X;
7319   long next_1833X;
7320   long channel_1832X;
7321   long n_1831X;
7322   long x_1830X;
7323   long handlers_1829X;
7324   long m_1828X;
7325   long i_1827X;
7326   FILE * out_1826X;
7327   long x_1825X;
7328   long x_1824X;
7329   char * addr_1823X;
7330   long len_1822X;
7331   char *raw_1821X;
7332   long v_1820X;
7333   long v_1819X;
7334   long v_1818X;
7335   long v_1817X;
7336   long v_1816X;
7337   long v_1815X;
7338   long v_1814X;
7339   long v_1813X;
7340   long v_1812X;
7341   long v_1811X;
7342   long v_1810X;
7343   long v_1809X;
7344   long v_1808X;
7345   long v_1807X;
7346   long code_point_1806X;
7347   long code_point_1805X;
7348   long count_1804X;
7349   long value_1803X;
7350   char incompleteP_1802X;
7351   long count_1801X;
7352   long value_1800X;
7353   char incompleteP_1799X;
7354   long count_1798X;
7355   long value_1797X;
7356   char incompleteP_1796X;
7357   char * buffer_1795X;
7358   long count_1794X;
7359   long start_1793X;
7360   long encoding_1792X;
7361   long arg4_1791X;
7362   long arg3_1790X;
7363   long arg2_1789X;
7364   long code_point_1788X;
7365   long code_point_1787X;
7366   long count_1786X;
7367   long value_1785X;
7368   char incompleteP_1784X;
7369   char okP_1783X;
7370   long count_1782X;
7371   long value_1781X;
7372   char incompleteP_1780X;
7373   char okP_1779X;
7374   long count_1778X;
7375   long value_1777X;
7376   char incompleteP_1776X;
7377   char okP_1775X;
7378   char * buffer_1774X;
7379   long count_1773X;
7380   long start_1772X;
7381   long encoding_1771X;
7382   long arg4_1770X;
7383   long arg3_1769X;
7384   long arg2_1768X;
7385   long count_1767X;
7386   char out_of_spaceP_1766X;
7387   long count_1765X;
7388   char out_of_spaceP_1764X;
7389   long count_1763X;
7390   char out_of_spaceP_1762X;
7391   char * buffer_1761X;
7392   long count_1760X;
7393   long start_1759X;
7394   long value_1758X;
7395   long encoding_1757X;
7396   long arg5_1756X;
7397   long arg4_1755X;
7398   long arg3_1754X;
7399   long arg2_1753X;
7400   long count_1752X;
7401   char out_of_spaceP_1751X;
7402   char encoding_okP_1750X;
7403   long count_1749X;
7404   char out_of_spaceP_1748X;
7405   char encoding_okP_1747X;
7406   long count_1746X;
7407   char out_of_spaceP_1745X;
7408   char encoding_okP_1744X;
7409   char * buffer_1743X;
7410   long count_1742X;
7411   long start_1741X;
7412   long value_1740X;
7413   long encoding_1739X;
7414   long arg5_1738X;
7415   long arg4_1737X;
7416   long arg3_1736X;
7417   long arg2_1735X;
7418   long x_1734X;
7419   long ec2_1733X;
7420   long rt1_1732X;
7421   long value_1731X;
7422   long index_1730X;
7423   long arg4_1729X;
7424   long arg3_1728X;
7425   long arg2_1727X;
7426   long x_1726X;
7427   long ec2_1725X;
7428   long rt1_1724X;
7429   long index_1723X;
7430   long arg3_1722X;
7431   long arg2_1721X;
7432   long ec2_1720X;
7433   long x_1719X;
7434   char x_1718X;
7435   char x_1717X;
7436   long arg2_1716X;
7437   long list_1715X;
7438   long arg2_1714X;
7439   long x_1713X;
7440   long n_1712X;
7441   long arg2_1711X;
7442   long len_1710X;
7443   long x_1709X;
7444   long obj_1708X;
7445   long arg2_1707X;
7446   long x_1706X;
7447   long arg2_1705X;
7448   long x_1704X;
7449   long status_1703X;
7450   long value_1702X;
7451   long key_1701X;
7452   long arg2_1700X;
7453   long x_1699X;
7454   long val_1698X;
7455   char *string_1697X;
7456   long val_1696X;
7457   long key_1695X;
7458   long x_1694X;
7459   long mseconds_1693X;
7460   long seconds_1692X;
7461   long mseconds_1691X;
7462   long seconds_1690X;
7463   long mseconds_1689X;
7464   long seconds_1688X;
7465   long x_1687X;
7466   long other_1686X;
7467   long option_1685X;
7468   long arg2_1684X;
7469   long x_1683X;
7470   long index_1682X;
7471   char * addr_1681X;
7472   long val_1680X;
7473   long uid_1679X;
7474   char * addr_1678X;
7475   long val_1677X;
7476   char v_1676X;
7477   char * addr_1675X;
7478   long val_1674X;
7479   long uid_1673X;
7480   long uid_val_1672X;
7481   long arg_1671X;
7482   long x_1670X;
7483   long arg2_1669X;
7484   long x_1668X;
7485   long arg2_1667X;
7486   long x_1666X;
7487   long rest_list_1665X;
7488   long p_1664X;
7489   long nargs_1663X;
7490   long p_1662X;
7491   long x_1661X;
7492   long rest_list_1660X;
7493   long p_1659X;
7494   long nargs_1658X;
7495   long p_1657X;
7496   long x_1656X;
7497   long arg2_1655X;
7498   long x_1654X;
7499   long p_1653X;
7500   long v_1652X;
7501   long v_1651X;
7502   long template_1650X;
7503   long return_address_1649X;
7504   long v_1648X;
7505   long p_1647X;
7506   long v_1646X;
7507   long v_1645X;
7508   long code_1644X;
7509   long pc_1643X;
7510   long p_1642X;
7511   long old_1641X;
7512   long temp_1640X;
7513   long obj_1639X;
7514   long opcode_1638X;
7515   long bc_pc_1637X;
7516   long bc_code_1636X;
7517   long exception_1635X;
7518   long data_1634X;
7519   long opcode_1633X;
7520   long pc_1632X;
7521   long size_1631X;
7522   long exception_1630X;
7523   long code_1629X;
7524   long data_1628X;
7525   long temp_1627X;
7526   long obj_1626X;
7527   long val_1625X;
7528   long x_1624X;
7529   long x_1623X;
7530   long type_1622X;
7531   long x_1621X;
7532   long x_1620X;
7533   long x_1619X;
7534   long bytes_1618X;
7535   long x_1617X;
7536   long other_1616X;
7537   long key_1615X;
7538   long arg2_1614X;
7539   long x_1613X;
7540   char * addr_1612X;
7541   long b_1611X;
7542   long x_1610X;
7543   char * addr_1609X;
7544   long proc_1608X;
7545   long arg2_1607X;
7546   long x_1606X;
7547   long obj_1605X;
7548   long close_status_1604X;
7549   long close_status_1603X;
7550   long status_1602X;
7551   long status_1601X;
7552   long status_1600X;
7553   long status_1599X;
7554   FILE * port_1598X;
7555   long undumpables_1597X;
7556   long obj_1596X;
7557   long arg4_1595X;
7558   long arg3_1594X;
7559   long arg2_1593X;
7560   long x_1592X;
7561   long log_1591X;
7562   long index_1590X;
7563   long x_1589X;
7564   long len_1588X;
7565   long byte_1587X;
7566   long index_1586X;
7567   long arg3_1585X;
7568   long arg2_1584X;
7569   long log_1583X;
7570   long index_1582X;
7571   long x_1581X;
7572   long len_1580X;
7573   long index_1579X;
7574   long arg2_1578X;
7575   long v_1577X;
7576   long count_1576X;
7577   long to_index_1575X;
7578   long from_index_1574X;
7579   long arg5_1573X;
7580   long arg4_1572X;
7581   long arg3_1571X;
7582   long arg2_1570X;
7583   long v_1569X;
7584   long x_1568X;
7585   long offset_1567X;
7586   long type_1566X;
7587   long stob_1565X;
7588   long log_1564X;
7589   long proposal_1563X;
7590   long proposal_1562X;
7591   long weak_pointer_1561X;
7592   char * addr_1560X;
7593   char * addr_1559X;
7594   long next_1558X;
7595   long channel_1557X;
7596   long n_1556X;
7597   char * addr_1555X;
7598   long head_1554X;
7599   long channel_1553X;
7600   long obj_1552X;
7601   long status_1551X;
7602   char readyP_1550X;
7603   long channel_1549X;
7604   long obj_1548X;
7605   long x_1547X;
7606   char x_1546X;
7607   long x_1545X;
7608   long param_1544X;
7609   long x_1543X;
7610   char * addr_1542X;
7611   char * addr_1541X;
7612   long status_1540X;
7613   char pendingP_1539X;
7614   long got_1538X;
7615   char v_1537X;
7616   long count_1536X;
7617   long start_1535X;
7618   long arg4_1534X;
7619   long arg3_1533X;
7620   long arg2_1532X;
7621   long x_1531X;
7622   long arg5_1530X;
7623   long arg4_1529X;
7624   long arg3_1528X;
7625   long arg2_1527X;
7626   long status_1526X;
7627   long channel_1525X;
7628   long obj_1524X;
7629   long x_1523X;
7630   long close_silentlyP_1522X;
7631   long mode_1521X;
7632   long arg4_1520X;
7633   long arg3_1519X;
7634   long arg2_1518X;
7635   long x_1517X;
7636   long x_1516X;
7637   long x_1515X;
7638   long arg2_1514X;
7639   long descriptor_1513X;
7640   long x_1512X;
7641   long obj_1511X;
7642   long link_1510X;
7643   long index_1509X;
7644   long v_1508X;
7645   long string_1507X;
7646   long table_1506X;
7647   long obj_1505X;
7648   long y_1504X;
7649   long y_1503X;
7650   long count_1502X;
7651   long to_index_1501X;
7652   long from_index_1500X;
7653   long arg5_1499X;
7654   long arg4_1498X;
7655   long arg3_1497X;
7656   long arg2_1496X;
7657   long len_1495X;
7658   long Kchar_1494X;
7659   long index_1493X;
7660   long arg3_1492X;
7661   long arg2_1491X;
7662   long len_1490X;
7663   long index_1489X;
7664   long arg2_1488X;
7665   long x_1487X;
7666   long obj_1486X;
7667   char * addr_1485X;
7668   long len_1484X;
7669   long init_1483X;
7670   long len_1482X;
7671   long arg2_1481X;
7672   long x_1480X;
7673   char * addr_1479X;
7674   char x_1478X;
7675   long init_1477X;
7676   long len_1476X;
7677   long arg2_1475X;
7678   long len_1474X;
7679   long Kchar_1473X;
7680   long index_1472X;
7681   long arg3_1471X;
7682   long arg2_1470X;
7683   long len_1469X;
7684   long index_1468X;
7685   long arg2_1467X;
7686   long obj_1466X;
7687   long x_1465X;
7688   char * addr_1464X;
7689   long init_1463X;
7690   long len_1462X;
7691   long arg2_1461X;
7692   char * addr_1460X;
7693   long v_1459X;
7694   long index_1458X;
7695   long len_1457X;
7696   long type_1456X;
7697   long value_1455X;
7698   long arg3_1454X;
7699   long arg2_1453X;
7700   long v_1452X;
7701   long v_1451X;
7702   long index_1450X;
7703   long len_1449X;
7704   long type_1448X;
7705   long index_1447X;
7706   long arg2_1446X;
7707   char * addr_1445X;
7708   long len_in_bytes_1444X;
7709   long len_1443X;
7710   long type_1442X;
7711   long init_1441X;
7712   long arg2_1440X;
7713   long v_1439X;
7714   long offset_1438X;
7715   long type_1437X;
7716   long value_1436X;
7717   long arg2_1435X;
7718   long offset_1434X;
7719   long type_1433X;
7720   long stob_1432X;
7721   long rest_list_1431X;
7722   long stack_nargs_1430X;
7723   long p_1429X;
7724   long new_1428X;
7725   char * addr_1427X;
7726   long len_1426X;
7727   long type_1425X;
7728   long len_1424X;
7729   long p_1423X;
7730   long new_1422X;
7731   char * addr_1421X;
7732   long len_1420X;
7733   long type_1419X;
7734   long len_1418X;
7735   long type_1417X;
7736   long stob_1416X;
7737   long type_1415X;
7738   long x_1414X;
7739   long x_1413X;
7740   long x_1412X;
7741   long x_1411X;
7742   long x_1410X;
7743   long x_1409X;
7744   long x_1408X;
7745   long x_1407X;
7746   long arg2_1406X;
7747   long x_1405X;
7748   long arg2_1404X;
7749   long x_1403X;
7750   long v_1402X;
7751   long v_1401X;
7752   long y_1400X;
7753   long arg2_1399X;
7754   long y_1398X;
7755   long arg2_1397X;
7756   long y_1396X;
7757   long arg2_1395X;
7758   long y_1394X;
7759   long arg2_1393X;
7760   long x_1392X;
7761   long x_1391X;
7762   long x_1390X;
7763   long x_1389X;
7764   long arg2_1388X;
7765   long x_1387X;
7766   long arg2_1386X;
7767   long x_1385X;
7768   long arg2_1384X;
7769   long x_1383X;
7770   long x_1382X;
7771   long x_1381X;
7772   long x_1380X;
7773   long x_1379X;
7774   long x_1378X;
7775   long x_1377X;
7776   long x_1376X;
7777   long x_1375X;
7778   long x_1374X;
7779   long x_1373X;
7780   long n_1372X;
7781   long n_1371X;
7782   long n_1370X;
7783   long n_1369X;
7784   long n_1368X;
7785   long a_1367X;
7786   long val_1366X;
7787   long y_1365X;
7788   long arg2_1364X;
7789   long b_1363X;
7790   long a_1362X;
7791   long val_1361X;
7792   long y_1360X;
7793   long arg2_1359X;
7794   long y_1358X;
7795   long arg2_1357X;
7796   long y_1356X;
7797   long arg2_1355X;
7798   long y_1354X;
7799   long arg2_1353X;
7800   long y_1352X;
7801   long arg2_1351X;
7802   long y_1350X;
7803   long arg2_1349X;
7804   long b_1348X;
7805   long a_1347X;
7806   long y_1346X;
7807   long arg2_1345X;
7808   long x_1344X;
7809   long y_1343X;
7810   long arg2_1342X;
7811   long b_1341X;
7812   long a_1340X;
7813   long y_1339X;
7814   long arg2_1338X;
7815   long x_1337X;
7816   long y_1336X;
7817   long arg2_1335X;
7818   long x_1334X;
7819   long x_1333X;
7820   long n_1332X;
7821   long n_1331X;
7822   long n_1330X;
7823   long x_1329X;
7824   long x_1328X;
7825   long arg2_1327X;
7826   long rest_list_1326X;
7827   long x_1325X;
7828   long rest_list_1324X;
7829   long stack_nargs_1323X;
7830   long arg1_1322X;
7831   long arg0_1321X;
7832   long arg0_1320X;
7833   long rest_list_1319X;
7834   long stack_nargs_1318X;
7835   long x_1317X;
7836   long index_1316X;
7837   long val_1315X;
7838   long max_1314X;
7839   long p_1313X;
7840   char * code_pointer_1312X;
7841   long return_pointer_offset_1311X;
7842   long nargs_1310X;
7843   long code_1309X;
7844   long template_1308X;
7845   long rest_list_1307X;
7846   long stack_nargs_1306X;
7847   long p_1305X;
7848   long p_1304X;
7849   long cont_1303X;
7850   long v_1302X;
7851   long rest_list_1301X;
7852   long stack_nargs_1300X;
7853   long p_1299X;
7854   long x_1298X;
7855   long args_1297X;
7856   char * code_pointer_1296X;
7857   long return_pointer_offset_1295X;
7858   long length_1294X;
7859   char okayP_1293X;
7860   long stack_nargs_1292X;
7861   long list_args_1291X;
7862   char v_1290X;
7863   char v_1289X;
7864   long v_1288X;
7865   long v_1287X;
7866   long v_1286X;
7867   char * code_pointer_1285X;
7868   long return_pointer_offset_1284X;
7869   long stack_arg_count_1283X;
7870   long stack_arg_count_1282X;
7871   char * code_pointer_1281X;
7872   long stack_arg_count_1280X;
7873   long v_1279X;
7874   char * top_1278X;
7875   long arg_count_1277X;
7876   long n_moves_1276X;
7877   long x_1275X;
7878   long n_moves_1274X;
7879   long x_1273X;
7880   long x_1272X;
7881   long x_1271X;
7882   long x_1270X;
7883   long x_1269X;
7884   long value_1268X;
7885   long x_1267X;
7886   long closure_1266X;
7887   char * addr_1265X;
7888   long len_1264X;
7889   long size_1263X;
7890   long free_count_1262X;
7891   char * addr_1261X;
7892   long x_1260X;
7893   long value_1259X;
7894   char * addr_1258X;
7895   long x_1257X;
7896   long x_1256X;
7897   long template_1255X;
7898   long new_env_1254X;
7899   char * addr_1253X;
7900   long len_1252X;
7901   long closures_1251X;
7902   long total_count_1250X;
7903   long template_1249X;
7904   long new_env_1248X;
7905   char * addr_1247X;
7906   long len_1246X;
7907   long closures_1245X;
7908   long total_count_1244X;
7909   char * addr_1243X;
7910   long val_1242X;
7911   long x_1241X;
7912   long location_1240X;
7913   long index_1239X;
7914   long template_1238X;
7915   long location_1237X;
7916   long index_1236X;
7917   long template_1235X;
7918   long x_1234X;
7919   long x_1233X;
7920   long n_1232X;
7921   char * code_pointer_1231X;
7922   long v_1230X;
7923   long code_1229X;
7924   long n_1228X;
7925   char * addr_1227X;
7926   long x_1226X;
7927   long x_1225X;
7928   long pc_1224X;
7929   long code_1223X;
7930   long x_1222X;
7931   char v_1221X;
7932   char v_1220X;
7933   long tag_1219X;
7934   long n_1218X;
7935   long v_1217X;
7936   char v_1216X;
7937   long x_1215X;
7938   long x_1214X;
7939   long x_1213X;
7940   long x_1212X;
7941   long x_1211X;
7942   long x_1210X;
7943   long x_1209X;
7944   long x_1208X;
7945   long spec_1207X;
7946   long needed_stack_space_1206X;
7947   long template_1205X;
7948   long used_1204X;
7949   long code_1203X;
7950   long v_1202X;
7951   long v_1201X;
7952   long code_1200X;
7953   long n_1199X;
7954   char * addr_1198X;
7955   long x_1197X;
7956   long x_1196X;
7957   long x_1195X;
7958   long protocol_skip_1194X;
7959   long final_stack_arg_count_1193X;
7960   char interruptP_1192X;
7961   long obj_1191X;
7962   long template_1190X;
7963   char v_1189X;
7964   char v_1188X;
7965   long skip_1187X;
7966   long skip_1186X;
7967   long x_1185X;
7968   long x_1184X;
7969   long x_1183X;
7970   long x_1182X;
7971   long x_1181X;
7972   long x_1180X;
7973   long x_1179X;
7974   long x_1178X;
7975   long spec_1177X;
7976   long template_1176X;
7977   long used_1175X;
7978   long envUtemp_offset_1174X;
7979   long code_1173X;
7980   long retval_1172X;
7981   long handlers_1171X;
7982   long opcode_1170X;
7983   long nargs_1169X;
7984   long v_1168X;
7985   long v_1167X;
7986   long v_1166X;
7987   long v_1165X;
7988   long index_1164X;
7989   long length_1163X;
7990   long v_1162X;
7991   long v_1161X;
7992   long v_1160X;
7993   long v_1159X;
7994   long v_1158X;
7995   long v_1157X;
7996   long wants_stack_args_1156X;
7997   long v_1155X;
7998   long v_1154X;
7999   long v_1153X;
8000   long v_1152X;
8001   long skip_1151X;
8002   char nativeP_1150X;
8003   long stack_space_1149X;
8004   long protocol_1148X;
8005   long v_1147X;
8006   long x_1146X;
8007   long args_1145X;
8008   long v_1144X;
8009   long list_arg_count_1143X;
8010   long list_args_1142X;
8011   long stack_arg_count_1141X;
8012   long exception_1140X;
8013   long total_arg_count_1139X;
8014   long code_1138X;
8015   long handler_tag_1137X;
8016   long list_arg_count_1136X;
8017   long list_args_1135X;
8018   long stack_arg_count_1134X;
8019   long obj_1133X;
8020  {  if ((3 == (3 & proc_1100X))) {
8021     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + proc_1100X))))), 2))))) {
8022       SvalS = proc_1100X;
8023       obj_1133X = SvalS;
8024       if ((3 == (3 & obj_1133X))) {
8025         if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1133X))))), 2))))) {
8026           arg0K0 = nargs_1101X;
8027           arg0K1 = 25;
8028           arg0K2 = 0;
8029           arg0K3 = -1;
8030           goto L66534;}
8031         else {
8032           arg0K0 = 3;
8033           arg0K1 = nargs_1101X;
8034           arg0K2 = 25;
8035           arg0K3 = 0;
8036           goto L33518;}}
8037       else {
8038         arg0K0 = 3;
8039         arg0K1 = nargs_1101X;
8040         arg0K2 = 25;
8041         arg0K3 = 0;
8042         goto L33518;}}
8043     else {
8044       goto L33678;}}
8045   else {
8046     goto L33678;}}
8047  L66534: {
8048   stack_arg_count_1134X = arg0K0;
8049   list_args_1135X = arg0K1;
8050   list_arg_count_1136X = arg0K2;
8051   handler_tag_1137X = arg0K3;
8052   code_1138X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
8053   total_arg_count_1139X = stack_arg_count_1134X + list_arg_count_1136X;
8054   arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_1138X))) + 1)));
8055   arg0K1 = 64;
8056   arg4K2 = 0;
8057   goto L66560;}
8058  L33518: {
8059   exception_1140X = arg0K0;
8060   stack_arg_count_1141X = arg0K1;
8061   list_args_1142X = arg0K2;
8062   list_arg_count_1143X = arg0K3;
8063   merged_arg0K0 = list_args_1142X;
8064   merged_arg0K1 = list_arg_count_1143X;
8065 #ifdef USE_DIRECT_THREADING
8066   copy_listSAgc_return_address = &&copy_listSAgc_return_0;
8067 #else
8068   copy_listSAgc_return_tag = 0;
8069 #endif
8070   goto copy_listSAgc;
8071  copy_listSAgc_return_0:
8072   v_1144X = copy_listSAgc0_return_value;
8073   merged_arg0K0 = v_1144X;
8074   merged_arg0K1 = stack_arg_count_1141X;
8075 #ifdef USE_DIRECT_THREADING
8076   pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_0;
8077 #else
8078   pop_args_GlistSAgc_return_tag = 0;
8079 #endif
8080   goto pop_args_GlistSAgc;
8081  pop_args_GlistSAgc_return_0:
8082   args_1145X = pop_args_GlistSAgc0_return_value;push_exception_setupB(exception_1140X, 0);
8083   x_1146X = SvalS;
8084   SstackS = ((SstackS) + -8);
8085   *((long *) (SstackS)) = (long) (x_1146X);
8086   SstackS = ((SstackS) + -8);
8087   *((long *) (SstackS)) = (long) (args_1145X);
8088   arg0K0 = 2;
8089   goto L33828;}
8090  L33678: {
8091   ps_error("s48-restart called with non-procedure", 1, proc_1100X);
8092   return v_1147X;}
8093  L66560: {
8094   protocol_1148X = arg0K0;
8095   stack_space_1149X = arg0K1;
8096   nativeP_1150X = arg4K2;
8097   if ((69 == protocol_1148X)) {
8098     if ((total_arg_count_1139X < 3)) {
8099       skip_1151X = *((unsigned char *) ((((char *) (-3 + code_1138X))) + (3 + total_arg_count_1139X)));
8100       if ((0 == skip_1151X)) {
8101         if ((-1 == handler_tag_1137X)) {
8102           arg0K0 = 4;
8103           arg0K1 = stack_arg_count_1134X;
8104           arg0K2 = list_args_1135X;
8105           arg0K3 = list_arg_count_1136X;
8106           goto L33518;}
8107         else {
8108           if ((handler_tag_1137X < 0)) {
8109             ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8110             arg0K0 = v_1152X;
8111             goto L71002;}
8112           else {
8113             ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8114             arg0K0 = v_1153X;
8115             goto L71002;}}}
8116       else {
8117         merged_arg0K0 = list_args_1135X;
8118         merged_arg0K1 = list_arg_count_1136X;
8119 #ifdef USE_DIRECT_THREADING
8120         push_list_return_address = &&push_list_return_0;
8121 #else
8122         push_list_return_tag = 0;
8123 #endif
8124         goto push_list;
8125        push_list_return_0:
8126         arg0K0 = code_1138X;
8127         arg0K1 = 6;
8128         arg0K2 = skip_1151X;
8129         arg0K3 = (*((long *) (((char *) (-3 + (SvalS))))));
8130         goto L32500;}}
8131     else {
8132       if ((0 == (*((unsigned char *) ((((char *) (-3 + code_1138X))) + 2))))) {
8133         if ((-1 == handler_tag_1137X)) {
8134           arg0K0 = 4;
8135           arg0K1 = stack_arg_count_1134X;
8136           arg0K2 = list_args_1135X;
8137           arg0K3 = list_arg_count_1136X;
8138           goto L33518;}
8139         else {
8140           if ((handler_tag_1137X < 0)) {
8141             ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8142             arg0K0 = v_1154X;
8143             goto L71002;}
8144           else {
8145             ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8146             arg0K0 = v_1155X;
8147             goto L71002;}}}
8148       else {
8149         arg0K0 = 6;
8150         goto L66602;}}}
8151   else {
8152     if ((63 < protocol_1148X)) {
8153       if ((65 == protocol_1148X)) {
8154         wants_stack_args_1156X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + code_1138X))) + 2))), 8)) + (*((unsigned char *) ((((char *) (-3 + code_1138X))) + 3)));
8155         if ((total_arg_count_1139X < wants_stack_args_1156X)) {
8156           if ((-1 == handler_tag_1137X)) {
8157             arg0K0 = 4;
8158             arg0K1 = stack_arg_count_1134X;
8159             arg0K2 = list_args_1135X;
8160             arg0K3 = list_arg_count_1136X;
8161             goto L33518;}
8162           else {
8163             if ((handler_tag_1137X < 0)) {
8164               ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8165               arg0K0 = v_1157X;
8166               goto L71002;}
8167             else {
8168               ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8169               arg0K0 = v_1158X;
8170               goto L71002;}}}
8171         else {
8172           merged_arg0K0 = wants_stack_args_1156X;
8173           merged_arg0K1 = stack_arg_count_1134X;
8174           merged_arg0K2 = list_args_1135X;
8175           merged_arg0K3 = list_arg_count_1136X;
8176 #ifdef USE_DIRECT_THREADING
8177           rest_list_setupAgc_return_address = &&rest_list_setupAgc_return_0;
8178 #else
8179           rest_list_setupAgc_return_tag = 0;
8180 #endif
8181           goto rest_list_setupAgc;
8182          rest_list_setupAgc_return_0:
8183           arg0K0 = 4;
8184           goto L66563;}}
8185       else {
8186         if ((68 == protocol_1148X)) {
8187           if ((total_arg_count_1139X < (*((unsigned char *) ((((char *) (-3 + code_1138X))) + 2))))) {
8188             if ((-1 == handler_tag_1137X)) {
8189               arg0K0 = 4;
8190               arg0K1 = stack_arg_count_1134X;
8191               arg0K2 = list_args_1135X;
8192               arg0K3 = list_arg_count_1136X;
8193               goto L33518;}
8194             else {
8195               if ((handler_tag_1137X < 0)) {
8196                 ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8197                 arg0K0 = v_1159X;
8198                 goto L71002;}
8199               else {
8200                 ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8201                 arg0K0 = v_1160X;
8202                 goto L71002;}}}
8203           else {
8204             arg0K0 = 3;
8205             goto L66602;}}
8206         else {
8207           if ((127 < protocol_1148X)) {
8208             arg0K0 = (127 & protocol_1148X);
8209             arg0K1 = stack_space_1149X;
8210             arg4K2 = 1;
8211             goto L66560;}
8212           else {
8213             if ((64 == protocol_1148X)) {
8214               if ((((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + code_1138X))) + 2))), 8)) + (*((unsigned char *) ((((char *) (-3 + code_1138X))) + 3)))) == total_arg_count_1139X)) {
8215                 if ((0 == list_arg_count_1136X)) {
8216                   arg0K0 = 4;
8217                   goto L66563;}
8218                 else {
8219                   merged_arg0K0 = list_args_1135X;
8220                   merged_arg0K1 = list_arg_count_1136X;
8221 #ifdef USE_DIRECT_THREADING
8222                   push_list_return_address = &&push_list_return_1;
8223 #else
8224                   push_list_return_tag = 1;
8225 #endif
8226                   goto push_list;
8227                  push_list_return_1:
8228                   arg0K0 = 4;
8229                   goto L66563;}}
8230               else {
8231                 if ((-1 == handler_tag_1137X)) {
8232                   arg0K0 = 4;
8233                   arg0K1 = stack_arg_count_1134X;
8234                   arg0K2 = list_args_1135X;
8235                   arg0K3 = list_arg_count_1136X;
8236                   goto L33518;}
8237                 else {
8238                   if ((handler_tag_1137X < 0)) {
8239                     ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8240                     arg0K0 = v_1161X;
8241                     goto L71002;}
8242                   else {
8243                     ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8244                     arg0K0 = v_1162X;
8245                     goto L71002;}}}}
8246             else {
8247               if ((67 == protocol_1148X)) {
8248                 length_1163X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + code_1138X))))), 8);
8249                 index_1164X = -2 + length_1163X;
8250                 arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_1138X))) + (-3 + length_1163X))));
8251                 arg0K1 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + code_1138X))) + index_1164X))), 8)) + (*((unsigned char *) ((((char *) (-3 + code_1138X))) + (1 + index_1164X)))));
8252                 arg4K2 = nativeP_1150X;
8253                 goto L66560;}
8254               else {
8255                 ps_error("unknown protocol", 1, protocol_1148X);
8256                 if ((-1 == handler_tag_1137X)) {
8257                   arg0K0 = 4;
8258                   arg0K1 = stack_arg_count_1134X;
8259                   arg0K2 = list_args_1135X;
8260                   arg0K3 = list_arg_count_1136X;
8261                   goto L33518;}
8262                 else {
8263                   if ((handler_tag_1137X < 0)) {
8264                     ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8265                     arg0K0 = v_1165X;
8266                     goto L71002;}
8267                   else {
8268                     ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8269                     arg0K0 = v_1166X;
8270                     goto L71002;}}}}}}}}
8271     else {
8272       if ((protocol_1148X == total_arg_count_1139X)) {
8273         if ((0 == list_arg_count_1136X)) {
8274           arg0K0 = 2;
8275           goto L66563;}
8276         else {
8277           merged_arg0K0 = list_args_1135X;
8278           merged_arg0K1 = list_arg_count_1136X;
8279 #ifdef USE_DIRECT_THREADING
8280           push_list_return_address = &&push_list_return_2;
8281 #else
8282           push_list_return_tag = 2;
8283 #endif
8284           goto push_list;
8285          push_list_return_2:
8286           arg0K0 = 2;
8287           goto L66563;}}
8288       else {
8289         if ((-1 == handler_tag_1137X)) {
8290           arg0K0 = 4;
8291           arg0K1 = stack_arg_count_1134X;
8292           arg0K2 = list_args_1135X;
8293           arg0K3 = list_arg_count_1136X;
8294           goto L33518;}
8295         else {
8296           if ((handler_tag_1137X < 0)) {
8297             ps_error("wrong number of arguments to interrupt handler", 1, (-2 - handler_tag_1137X));
8298             arg0K0 = v_1167X;
8299             goto L71002;}
8300           else {
8301             ps_error("wrong number of arguments to exception handler", 1, handler_tag_1137X);
8302             arg0K0 = v_1168X;
8303             goto L71002;}}}}}}
8304  L33828: {
8305   nargs_1169X = arg0K0;
8306   opcode_1170X = PS_SHIFT_RIGHT_INLINE((*((long *) ((SstackS) + (8 + (PS_SHIFT_LEFT_INLINE(nargs_1169X, 3)))))), 2);
8307   handlers_1171X = SHARED_REF((Sexception_handlersS));
8308   if ((3 == (3 & handlers_1171X))) {
8309     if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + handlers_1171X))))), 2))))) {
8310       goto L33893;}
8311     else {
8312       goto L33976;}}
8313   else {
8314     goto L33976;}}
8315  L71002: {
8316   retval_1172X = arg0K0;
8317   SstackS = (ScontS);
8318   return retval_1172X;}
8319  L32500: {
8320   code_1173X = arg0K0;
8321   envUtemp_offset_1174X = arg0K1;
8322   used_1175X = arg0K2;
8323   template_1176X = arg0K3;
8324   spec_1177X = *((unsigned char *) ((((char *) (-3 + code_1173X))) + envUtemp_offset_1174X));
8325   if ((3 == spec_1177X)) {
8326     x_1178X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8327     SstackS = ((SstackS) + -8);
8328     *((long *) (SstackS)) = (long) (x_1178X);
8329     SstackS = ((SstackS) + -8);
8330     *((long *) (SstackS)) = (long) (template_1176X);
8331     goto L32504;}
8332   else {
8333     if ((1 == spec_1177X)) {
8334       SstackS = ((SstackS) + -8);
8335       *((long *) (SstackS)) = (long) (template_1176X);
8336       goto L32504;}
8337     else {
8338       if ((2 == spec_1177X)) {
8339         x_1179X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8340         SstackS = ((SstackS) + -8);
8341         *((long *) (SstackS)) = (long) (x_1179X);
8342         goto L32504;}
8343       else {
8344         if ((4 == spec_1177X)) {
8345           x_1180X = SvalS;
8346           SstackS = ((SstackS) + -8);
8347           *((long *) (SstackS)) = (long) (x_1180X);
8348           goto L32504;}
8349         else {
8350           if ((6 == spec_1177X)) {
8351             x_1181X = SvalS;
8352             SstackS = ((SstackS) + -8);
8353             *((long *) (SstackS)) = (long) (x_1181X);
8354             x_1182X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8355             SstackS = ((SstackS) + -8);
8356             *((long *) (SstackS)) = (long) (x_1182X);
8357             goto L32504;}
8358           else {
8359             if ((5 == spec_1177X)) {
8360               x_1183X = SvalS;
8361               SstackS = ((SstackS) + -8);
8362               *((long *) (SstackS)) = (long) (x_1183X);
8363               SstackS = ((SstackS) + -8);
8364               *((long *) (SstackS)) = (long) (template_1176X);
8365               goto L32504;}
8366             else {
8367               if ((7 == spec_1177X)) {
8368                 x_1184X = SvalS;
8369                 SstackS = ((SstackS) + -8);
8370                 *((long *) (SstackS)) = (long) (x_1184X);
8371                 x_1185X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8372                 SstackS = ((SstackS) + -8);
8373                 *((long *) (SstackS)) = (long) (x_1185X);
8374                 SstackS = ((SstackS) + -8);
8375                 *((long *) (SstackS)) = (long) (template_1176X);
8376                 goto L32504;}
8377               else {
8378                 goto L32504;}}}}}}}}
8379  L66602: {
8380   skip_1186X = arg0K0;
8381   if ((total_arg_count_1139X < 3)) {
8382     arg0K0 = total_arg_count_1139X;
8383     goto L66610;}
8384   else {
8385     if ((2 < stack_arg_count_1134X)) {
8386       arg0K0 = stack_arg_count_1134X;
8387       goto L66610;}
8388     else {
8389       arg0K0 = 2;
8390       goto L66610;}}}
8391  L66563: {
8392   skip_1187X = arg0K0;
8393   if (nativeP_1150X) {
8394     merged_arg0K0 = stack_space_1149X;
8395 #ifdef USE_DIRECT_THREADING
8396     ensure_stack_spaceB_return_address = &&ensure_stack_spaceB_return_0;
8397 #else
8398     ensure_stack_spaceB_return_tag = 0;
8399 #endif
8400     goto ensure_stack_spaceB;
8401    ensure_stack_spaceB_return_0:
8402     v_1188X = ensure_stack_spaceB0_return_value;
8403     if (v_1188X) {
8404 #ifdef USE_DIRECT_THREADING
8405       pending_interruptP_return_address = &&pending_interruptP_return_0;
8406 #else
8407       pending_interruptP_return_tag = 0;
8408 #endif
8409       goto pending_interruptP;
8410      pending_interruptP_return_0:
8411       v_1189X = pending_interruptP0_return_value;
8412       if (v_1189X) {
8413         arg0K0 = skip_1187X;
8414         goto L33116;}
8415       else {
8416         goto L66730;}}
8417     else {
8418       goto L66730;}}
8419   else {
8420     template_1190X = *((long *) (((char *) (-3 + (SvalS)))));
8421     arg0K0 = (*((long *) (((char *) (-3 + template_1190X)))));
8422     arg0K1 = skip_1187X;
8423     arg0K2 = template_1190X;
8424     arg0K3 = stack_space_1149X;
8425     goto L36713;}}
8426  L33893: {
8427   SvalS = (*((long *) ((((char *) (-3 + handlers_1171X))) + (PS_SHIFT_LEFT_INLINE(opcode_1170X, 3)))));
8428   obj_1191X = SvalS;
8429   if ((3 == (3 & obj_1191X))) {
8430     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1191X))))), 2))))) {
8431       goto L33910;}
8432     else {
8433       goto L33990;}}
8434   else {
8435     goto L33990;}}
8436  L33976: {
8437   merged_arg5K0 = "exception-handlers is not a vector";
8438 #ifdef USE_DIRECT_THREADING
8439   loseD0_return_address = &&loseD0_return_0;
8440 #else
8441   loseD0_return_tag = 0;
8442 #endif
8443   goto loseD0;
8444  loseD0_return_0:
8445   goto L33893;}
8446  L32504: {
8447   Slast_code_calledS = code_1173X;
8448   Scode_pointerS = ((((char *) (-3 + code_1173X))) + used_1175X);
8449   if (((SstackS) < (s48_Sstack_limitS))) {
8450     interruptP_1192X = (s48_Sstack_limitS) == (((char *) -1));
8451     s48_Sstack_limitS = (Sreal_stack_limitS);
8452     if (((SstackS) < (Sreal_stack_limitS))) {s48_copy_stack_into_heap();
8453       if (((SstackS) < (Sreal_stack_limitS))) {
8454         ps_error("VM's stack is too small (how can this happen?)", 0);
8455         if (interruptP_1192X) {
8456           goto L32511;}
8457         else {
8458           goto L32518;}}
8459       else {
8460         if (interruptP_1192X) {
8461           goto L32511;}
8462         else {
8463           goto L32518;}}}
8464     else {
8465       if (interruptP_1192X) {
8466         goto L32511;}
8467       else {
8468         goto L32518;}}}
8469   else {
8470     goto L32518;}}
8471  L66610: {
8472   final_stack_arg_count_1193X = arg0K0;
8473   if ((stack_arg_count_1134X < final_stack_arg_count_1193X)) {
8474     arg0K0 = final_stack_arg_count_1193X;
8475     goto L66614;}
8476   else {
8477     arg0K0 = stack_arg_count_1134X;
8478     goto L66614;}}
8479  L33116: {
8480   protocol_skip_1194X = arg0K0;
8481   SstackS = ((SstackS) + -8);
8482   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(protocol_skip_1194X, 2)));
8483   x_1195X = SvalS;
8484   SstackS = ((SstackS) + -8);
8485   *((long *) (SstackS)) = (long) (x_1195X);
8486   x_1196X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
8487   SstackS = ((SstackS) + -8);
8488   *((long *) (SstackS)) = (long) (x_1196X);
8489   x_1197X = Scurrent_threadS;
8490   addr_1198X = (((char *) (-3 + x_1197X))) + 24;S48_WRITE_BARRIER(x_1197X, addr_1198X, 1);
8491   *((long *) addr_1198X) = (long) (1);
8492   n_1199X = Senabled_interruptsS;
8493   SstackS = ((SstackS) + -8);
8494   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1199X, 2)));
8495   code_1200X = Sinterrupted_native_call_return_codeS;
8496   v_1201X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
8497   SstackS = ((SstackS) + -8);
8498   *((long *) (SstackS)) = (long) ((4 + (PS_SHIFT_LEFT_INLINE(v_1201X, 2))));
8499   SstackS = ((SstackS) + -8);
8500   *((long *) (SstackS)) = (long) ((((long) ((((char *) (-3 + code_1200X))) + 13))));
8501   ScontS = (SstackS);
8502   goto L32850;}
8503  L66730: {
8504   v_1202X = s48_call_native_procedure((SvalS), skip_1187X);
8505   arg0K0 = v_1202X;
8506   goto L65742;}
8507  L36713: {
8508   code_1203X = arg0K0;
8509   used_1204X = arg0K1;
8510   template_1205X = arg0K2;
8511   needed_stack_space_1206X = arg0K3;
8512   spec_1207X = *((unsigned char *) ((((char *) (-3 + code_1203X))) + used_1204X));
8513   if ((3 == spec_1207X)) {
8514     x_1208X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8515     SstackS = ((SstackS) + -8);
8516     *((long *) (SstackS)) = (long) (x_1208X);
8517     SstackS = ((SstackS) + -8);
8518     *((long *) (SstackS)) = (long) (template_1205X);
8519     goto L36717;}
8520   else {
8521     if ((1 == spec_1207X)) {
8522       SstackS = ((SstackS) + -8);
8523       *((long *) (SstackS)) = (long) (template_1205X);
8524       goto L36717;}
8525     else {
8526       if ((2 == spec_1207X)) {
8527         x_1209X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8528         SstackS = ((SstackS) + -8);
8529         *((long *) (SstackS)) = (long) (x_1209X);
8530         goto L36717;}
8531       else {
8532         if ((4 == spec_1207X)) {
8533           x_1210X = SvalS;
8534           SstackS = ((SstackS) + -8);
8535           *((long *) (SstackS)) = (long) (x_1210X);
8536           goto L36717;}
8537         else {
8538           if ((6 == spec_1207X)) {
8539             x_1211X = SvalS;
8540             SstackS = ((SstackS) + -8);
8541             *((long *) (SstackS)) = (long) (x_1211X);
8542             x_1212X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8543             SstackS = ((SstackS) + -8);
8544             *((long *) (SstackS)) = (long) (x_1212X);
8545             goto L36717;}
8546           else {
8547             if ((5 == spec_1207X)) {
8548               x_1213X = SvalS;
8549               SstackS = ((SstackS) + -8);
8550               *((long *) (SstackS)) = (long) (x_1213X);
8551               SstackS = ((SstackS) + -8);
8552               *((long *) (SstackS)) = (long) (template_1205X);
8553               goto L36717;}
8554             else {
8555               if ((7 == spec_1207X)) {
8556                 x_1214X = SvalS;
8557                 SstackS = ((SstackS) + -8);
8558                 *((long *) (SstackS)) = (long) (x_1214X);
8559                 x_1215X = *((long *) ((((char *) (-3 + (SvalS)))) + 8));
8560                 SstackS = ((SstackS) + -8);
8561                 *((long *) (SstackS)) = (long) (x_1215X);
8562                 SstackS = ((SstackS) + -8);
8563                 *((long *) (SstackS)) = (long) (template_1205X);
8564                 goto L36717;}
8565               else {
8566                 goto L36717;}}}}}}}}
8567  L33910: {
8568   arg0K0 = (2 + nargs_1169X);
8569   arg0K1 = 25;
8570   arg0K2 = 0;
8571   arg0K3 = opcode_1170X;
8572   goto L66534;}
8573  L33990: {
8574   merged_arg5K0 = "exception handler is not a closure";
8575 #ifdef USE_DIRECT_THREADING
8576   loseD0_return_address = &&loseD0_return_1;
8577 #else
8578   loseD0_return_tag = 1;
8579 #endif
8580   goto loseD0;
8581  loseD0_return_1:
8582   goto L33910;}
8583  L32511: {
8584 
8585 #ifdef USE_DIRECT_THREADING
8586   pending_interruptP_return_address = &&pending_interruptP_return_1;
8587 #else
8588   pending_interruptP_return_tag = 1;
8589 #endif
8590   goto pending_interruptP;
8591  pending_interruptP_return_1:
8592   v_1216X = pending_interruptP0_return_value;
8593   if (v_1216X) {
8594     goto L33027;}
8595   else {
8596     goto L32518;}}
8597  L32518: {
8598   arg3K0 = (Scode_pointerS);
8599   goto L36269;}
8600  L66614: {
8601   v_1217X = arg0K0;
8602   merged_arg0K0 = v_1217X;
8603   merged_arg0K1 = stack_arg_count_1134X;
8604   merged_arg0K2 = list_args_1135X;
8605   merged_arg0K3 = list_arg_count_1136X;
8606 #ifdef USE_DIRECT_THREADING
8607   rest_list_setupAgc_return_address = &&rest_list_setupAgc_return_1;
8608 #else
8609   rest_list_setupAgc_return_tag = 1;
8610 #endif
8611   goto rest_list_setupAgc;
8612  rest_list_setupAgc_return_1:
8613   SstackS = ((SstackS) + -8);
8614   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(final_stack_arg_count_1193X, 2)));
8615   SstackS = ((SstackS) + -8);
8616   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(total_arg_count_1139X, 2)));
8617   arg0K0 = skip_1186X;
8618   goto L66563;}
8619  L32850: {
8620   n_1218X = (Spending_interruptsS) & (Senabled_interruptsS);
8621   arg0K0 = 0;
8622   arg0K1 = 1;
8623   goto L32903;}
8624  L65742: {
8625   tag_1219X = arg0K0;
8626   arg0K0 = tag_1219X;
8627   goto L65746;}
8628  L36717: {
8629   Slast_code_calledS = code_1203X;
8630   Scode_pointerS = ((((char *) (-3 + code_1203X))) + (1 + used_1204X));
8631   merged_arg0K0 = needed_stack_space_1206X;
8632 #ifdef USE_DIRECT_THREADING
8633   ensure_stack_spaceB_return_address = &&ensure_stack_spaceB_return_1;
8634 #else
8635   ensure_stack_spaceB_return_tag = 1;
8636 #endif
8637   goto ensure_stack_spaceB;
8638  ensure_stack_spaceB_return_1:
8639   v_1220X = ensure_stack_spaceB0_return_value;
8640   if (v_1220X) {
8641 #ifdef USE_DIRECT_THREADING
8642     pending_interruptP_return_address = &&pending_interruptP_return_2;
8643 #else
8644     pending_interruptP_return_tag = 2;
8645 #endif
8646     goto pending_interruptP;
8647    pending_interruptP_return_2:
8648     v_1221X = pending_interruptP0_return_value;
8649     if (v_1221X) {
8650       goto L33027;}
8651     else {
8652       goto L36731;}}
8653   else {
8654     goto L36731;}}
8655  L33027: {
8656   x_1222X = SvalS;
8657   SstackS = ((SstackS) + -8);
8658   *((long *) (SstackS)) = (long) (x_1222X);
8659   code_1223X = current_code_vector();
8660   pc_1224X = (Scode_pointerS) - (((char *) (-3 + code_1223X)));
8661   SstackS = ((SstackS) + -8);
8662   *((long *) (SstackS)) = (long) (code_1223X);
8663   SstackS = ((SstackS) + -8);
8664   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(pc_1224X, 2)));
8665   x_1225X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
8666   SstackS = ((SstackS) + -8);
8667   *((long *) (SstackS)) = (long) (x_1225X);
8668   x_1226X = Scurrent_threadS;
8669   addr_1227X = (((char *) (-3 + x_1226X))) + 24;S48_WRITE_BARRIER(x_1226X, addr_1227X, 1);
8670   *((long *) addr_1227X) = (long) (1);
8671   n_1228X = Senabled_interruptsS;
8672   SstackS = ((SstackS) + -8);
8673   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1228X, 2)));
8674   code_1229X = Sinterrupted_byte_opcode_return_codeS;
8675   v_1230X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
8676   SstackS = ((SstackS) + -8);
8677   *((long *) (SstackS)) = (long) ((4 + (PS_SHIFT_LEFT_INLINE(v_1230X, 2))));
8678   SstackS = ((SstackS) + -8);
8679   *((long *) (SstackS)) = (long) ((((long) ((((char *) (-3 + code_1229X))) + 13))));
8680   ScontS = (SstackS);
8681   goto L32850;}
8682  L36269: {
8683   code_pointer_1231X = arg3K0;
8684 #ifdef USE_DIRECT_THREADING
8685   static void *Jtable36269[] = { &&Jlabel36269_0,
8686     &&Jlabel36269_1, &&Jlabel36269_2, &&Jlabel36269_3, &&Jlabel36269_4, &&Jlabel36269_5, &&Jlabel36269_6,
8687     &&Jlabel36269_7, &&Jlabel36269_8, &&Jlabel36269_9, &&Jlabel36269_10, &&Jlabel36269_11, &&Jlabel36269_12,
8688     &&Jlabel36269_13, &&Jlabel36269_14, &&Jlabel36269_15, &&Jlabel36269_16, &&Jlabel36269_17, &&Jlabel36269_18,
8689     &&Jlabel36269_19, &&Jlabel36269_20, &&Jlabel36269_21, &&Jlabel36269_22, &&Jlabel36269_23, &&Jlabel36269_24,
8690     &&Jlabel36269_25, &&Jlabel36269_26, &&Jlabel36269_27, &&Jlabel36269_28, &&Jlabel36269_29, &&Jlabel36269_30,
8691     &&Jlabel36269_31, &&Jlabel36269_32, &&Jlabel36269_33, &&Jlabel36269_34, &&Jlabel36269_35, &&Jlabel36269_36,
8692     &&Jlabel36269_37, &&Jlabel36269_38, &&Jlabel36269_39, &&Jlabel36269_40, &&Jlabel36269_41, &&Jlabel36269_42,
8693     &&Jlabel36269_43, &&Jlabel36269_44, &&Jlabel36269_45, &&Jlabel36269_46, &&Jlabel36269_47, &&Jlabel36269_48,
8694     &&Jlabel36269_49, &&Jlabel36269_50, &&Jlabel36269_51, &&Jlabel36269_52, &&Jlabel36269_53, &&Jlabel36269_54,
8695     &&Jlabel36269_55, &&Jlabel36269_56, &&Jlabel36269_57, &&Jlabel36269_58, &&Jlabel36269_59, &&Jlabel36269_60,
8696     &&Jlabel36269_61, &&Jlabel36269_62, &&Jlabel36269_63, &&Jlabel36269_64, &&Jlabel36269_65, &&Jlabel36269_66,
8697     &&Jlabel36269_67, &&Jlabel36269_68, &&Jlabel36269_69, &&Jlabel36269_70, &&Jlabel36269_71, &&Jlabel36269_72,
8698     &&Jlabel36269_73, &&Jlabel36269_74, &&Jlabel36269_75, &&Jlabel36269_76, &&Jlabel36269_77, &&Jlabel36269_78,
8699     &&Jlabel36269_79, &&Jlabel36269_80, &&Jlabel36269_81, &&Jlabel36269_82, &&Jlabel36269_83, &&Jlabel36269_84,
8700     &&Jlabel36269_85, &&Jlabel36269_86, &&Jlabel36269_87, &&Jlabel36269_88, &&Jlabel36269_89, &&Jlabel36269_90,
8701     &&Jlabel36269_91, &&Jlabel36269_92, &&Jlabel36269_93, &&Jlabel36269_94, &&Jlabel36269_95, &&Jlabel36269_96,
8702     &&Jlabel36269_97, &&Jlabel36269_98, &&Jlabel36269_99, &&Jlabel36269_100, &&Jlabel36269_101, &&Jlabel36269_102,
8703     &&Jlabel36269_103, &&Jlabel36269_104, &&Jlabel36269_105, &&Jlabel36269_106, &&Jlabel36269_107, &&Jlabel36269_108,
8704     &&Jlabel36269_109, &&Jlabel36269_110, &&Jlabel36269_111, &&Jlabel36269_112, &&Jlabel36269_113, &&Jlabel36269_114,
8705     &&Jlabel36269_115, &&Jlabel36269_116, &&Jlabel36269_117, &&Jlabel36269_118, &&Jlabel36269_119, &&Jlabel36269_120,
8706     &&Jlabel36269_121, &&Jlabel36269_122, &&Jlabel36269_123, &&Jlabel36269_124, &&Jlabel36269_125, &&Jlabel36269_126,
8707     &&Jlabel36269_127, &&Jlabel36269_128, &&Jlabel36269_129, &&Jlabel36269_130, &&Jlabel36269_131, &&Jlabel36269_132,
8708     &&Jlabel36269_133, &&Jlabel36269_134, &&Jlabel36269_135, &&Jlabel36269_136, &&Jlabel36269_137, &&Jlabel36269_138,
8709     &&Jlabel36269_139, &&Jlabel36269_140, &&Jlabel36269_141, &&Jlabel36269_142, &&Jlabel36269_143, &&Jlabel36269_144,
8710     &&Jlabel36269_145, &&Jlabel36269_146, &&Jlabel36269_147, &&Jlabel36269_148, &&Jlabel36269_149, &&Jlabel36269_150,
8711     &&Jlabel36269_151, &&Jlabel36269_152, &&Jlabel36269_153, &&Jlabel36269_154, &&Jlabel36269_155, &&Jlabel36269_156,
8712     &&Jlabel36269_157, &&Jlabel36269_158, &&Jlabel36269_159, &&Jlabel36269_160, &&Jlabel36269_161, &&Jlabel36269_162,
8713     &&Jlabel36269_163, &&Jlabel36269_164, &&Jlabel36269_165, &&Jlabel36269_166, &&Jlabel36269_167, &&Jlabel36269_168,
8714     &&Jlabel36269_169, &&Jlabel36269_170, &&Jlabel36269_171, &&Jlabel36269_172, &&Jlabel36269_173, &&Jlabel36269_174,
8715     &&Jlabel36269_175, &&Jlabel36269_176, &&Jlabel36269_177, &&Jlabel36269_178, &&Jlabel36269_179, &&Jlabel36269_180,
8716     &&Jlabel36269_181, &&Jlabel36269_182, &&Jlabel36269_183, &&Jlabel36269_184, &&Jlabel36269_185, &&Jlabel36269_186,
8717     &&Jlabel36269_187, &&Jlabel36269_188, &&Jlabel36269_189, &&Jlabel36269_190, &&Jlabel36269_191, &&Jlabel36269_192,
8718     &&Jlabel36269_193, &&Jlabel36269_194, &&Jlabel36269_195, &&Jlabel36269_196, &&Jlabel36269_197, &&Jlabel36269_198,
8719     &&Jlabel36269_199, &&Jlabel36269_200, &&Jlabel36269_201, &&Jlabel36269_202, &&Jlabel36269_203, &&Jlabel36269_204 };
8720   goto *Jtable36269[(*((unsigned char *) code_pointer_1231X))];
8721 #else
8722   switch ((*((unsigned char *) code_pointer_1231X))) {
8723 #endif
8724 
8725 #ifdef USE_DIRECT_THREADING
8726 Jlabel36269_0:
8727 Jlabel36269_31:
8728 Jlabel36269_45:
8729 Jlabel36269_141:
8730 #else
8731     case 0 :
8732     case 31 :
8733     case 45 :
8734     case 141 :
8735 #endif
8736       {push_exception_setupB(15, 1);
8737       n_1232X = *((unsigned char *) (Scode_pointerS));
8738       SstackS = ((SstackS) + -8);
8739       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1232X, 2)));
8740       arg0K0 = 1;
8741       goto L33828;}
8742 #ifndef USE_DIRECT_THREADING
8743       break;
8744 #endif
8745 
8746 #ifdef USE_DIRECT_THREADING
8747 Jlabel36269_1:
8748 #else
8749     case 1 :
8750 #endif
8751       {
8752       SvalS = (-512 + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 2)));
8753       Scode_pointerS = ((Scode_pointerS) + 2);
8754       arg3K0 = (Scode_pointerS);
8755       goto L36269;}
8756 #ifndef USE_DIRECT_THREADING
8757       break;
8758 #endif
8759 
8760 #ifdef USE_DIRECT_THREADING
8761 Jlabel36269_2:
8762 #else
8763     case 2 :
8764 #endif
8765       {
8766       x_1233X = SvalS;
8767       SstackS = ((SstackS) + -8);
8768       *((long *) (SstackS)) = (long) (x_1233X);
8769       SvalS = (-512 + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 2)));
8770       Scode_pointerS = ((Scode_pointerS) + 2);
8771       arg3K0 = (Scode_pointerS);
8772       goto L36269;}
8773 #ifndef USE_DIRECT_THREADING
8774       break;
8775 #endif
8776 
8777 #ifdef USE_DIRECT_THREADING
8778 Jlabel36269_3:
8779 #else
8780     case 3 :
8781 #endif
8782       {
8783       x_1234X = -512 + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 2));
8784       SstackS = ((SstackS) + -8);
8785       *((long *) (SstackS)) = (long) (x_1234X);
8786       Scode_pointerS = ((Scode_pointerS) + 2);
8787       arg3K0 = (Scode_pointerS);
8788       goto L36269;}
8789 #ifndef USE_DIRECT_THREADING
8790       break;
8791 #endif
8792 
8793 #ifdef USE_DIRECT_THREADING
8794 Jlabel36269_4:
8795 #else
8796     case 4 :
8797 #endif
8798       {
8799       template_1235X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3))));
8800       index_1236X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
8801       location_1237X = *((long *) ((((char *) (-3 + template_1235X))) + (PS_SHIFT_LEFT_INLINE(index_1236X, 3))));
8802       SvalS = (*((long *) ((((char *) (-3 + location_1237X))) + 8)));
8803       if ((17 == (255 & (SvalS)))) {push_exception_setupB(1, 5);
8804         SstackS = ((SstackS) + -8);
8805         *((long *) (SstackS)) = (long) (location_1237X);
8806         SstackS = ((SstackS) + -8);
8807         *((long *) (SstackS)) = (long) (template_1235X);
8808         SstackS = ((SstackS) + -8);
8809         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1236X, 2)));
8810         arg0K0 = 3;
8811         goto L33828;}
8812       else {
8813         Scode_pointerS = ((Scode_pointerS) + 5);
8814         arg3K0 = (Scode_pointerS);
8815         goto L36269;}}
8816 #ifndef USE_DIRECT_THREADING
8817       break;
8818 #endif
8819 
8820 #ifdef USE_DIRECT_THREADING
8821 Jlabel36269_5:
8822 #else
8823     case 5 :
8824 #endif
8825       {
8826       template_1238X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3))));
8827       index_1239X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
8828       location_1240X = *((long *) ((((char *) (-3 + template_1238X))) + (PS_SHIFT_LEFT_INLINE(index_1239X, 3))));
8829       if ((273 == (*((long *) ((((char *) (-3 + location_1240X))) + 8))))) {push_exception_setupB(1, 5);
8830         SstackS = ((SstackS) + -8);
8831         *((long *) (SstackS)) = (long) (location_1240X);
8832         SstackS = ((SstackS) + -8);
8833         *((long *) (SstackS)) = (long) (template_1238X);
8834         SstackS = ((SstackS) + -8);
8835         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1239X, 2)));
8836         x_1241X = SvalS;
8837         SstackS = ((SstackS) + -8);
8838         *((long *) (SstackS)) = (long) (x_1241X);
8839         arg0K0 = 4;
8840         goto L33828;}
8841       else {
8842         val_1242X = SvalS;
8843         addr_1243X = (((char *) (-3 + location_1240X))) + 8;S48_WRITE_BARRIER(location_1240X, addr_1243X, val_1242X);
8844         *((long *) addr_1243X) = (long) (val_1242X);
8845         SvalS = 13;
8846         Scode_pointerS = ((Scode_pointerS) + 5);
8847         arg3K0 = (Scode_pointerS);
8848         goto L36269;}}
8849 #ifndef USE_DIRECT_THREADING
8850       break;
8851 #endif
8852 
8853 #ifdef USE_DIRECT_THREADING
8854 Jlabel36269_6:
8855 #else
8856     case 6 :
8857 #endif
8858       {
8859       total_count_1244X = *((unsigned char *) ((Scode_pointerS) + 1));
8860       closures_1245X = *((unsigned char *) ((Scode_pointerS) + 2));s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(((1 + total_count_1244X) + (3 * closures_1245X)), 3)));
8861       len_1246X = PS_SHIFT_LEFT_INLINE(total_count_1244X, 3);
8862       addr_1247X = s48_allocate_small((8 + len_1246X));
8863       *((long *) addr_1247X) = (long) ((10 + (PS_SHIFT_LEFT_INLINE(len_1246X, 8))));
8864       new_env_1248X = 3 + (((long) (addr_1247X + 8)));
8865       if ((0 == closures_1245X)) {
8866         arg0K0 = new_env_1248X;
8867         arg0K1 = 0;
8868         arg0K2 = 2;
8869         arg0K3 = total_count_1244X;
8870         goto L14635;}
8871       else {
8872         template_1249X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 3))));
8873         arg0K0 = closures_1245X;
8874         arg0K1 = 0;
8875         arg0K2 = 3;
8876         goto L25091;}}
8877 #ifndef USE_DIRECT_THREADING
8878       break;
8879 #endif
8880 
8881 #ifdef USE_DIRECT_THREADING
8882 Jlabel36269_7:
8883 #else
8884     case 7 :
8885 #endif
8886       {
8887       total_count_1250X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
8888       closures_1251X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(((1 + total_count_1250X) + (3 * closures_1251X)), 3)));
8889       len_1252X = PS_SHIFT_LEFT_INLINE(total_count_1250X, 3);
8890       addr_1253X = s48_allocate_small((8 + len_1252X));
8891       *((long *) addr_1253X) = (long) ((10 + (PS_SHIFT_LEFT_INLINE(len_1252X, 8))));
8892       new_env_1254X = 3 + (((long) (addr_1253X + 8)));
8893       if ((0 == closures_1251X)) {
8894         arg0K0 = new_env_1254X;
8895         arg0K1 = 0;
8896         arg0K2 = 4;
8897         arg0K3 = total_count_1250X;
8898         goto L15430;}
8899       else {
8900         template_1255X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 5))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 6)))), 3))));
8901         arg0K0 = closures_1251X;
8902         arg0K1 = 0;
8903         arg0K2 = 6;
8904         goto L25167;}}
8905 #ifndef USE_DIRECT_THREADING
8906       break;
8907 #endif
8908 
8909 #ifdef USE_DIRECT_THREADING
8910 Jlabel36269_8:
8911 #else
8912     case 8 :
8913 #endif
8914       {
8915       x_1256X = SvalS;
8916       x_1257X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3))));
8917       addr_1258X = (((char *) (-3 + x_1257X))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 3));S48_WRITE_BARRIER(x_1257X, addr_1258X, x_1256X);
8918       *((long *) addr_1258X) = (long) (x_1256X);
8919       SvalS = 13;
8920       Scode_pointerS = ((Scode_pointerS) + 3);
8921       arg3K0 = (Scode_pointerS);
8922       goto L36269;}
8923 #ifndef USE_DIRECT_THREADING
8924       break;
8925 #endif
8926 
8927 #ifdef USE_DIRECT_THREADING
8928 Jlabel36269_9:
8929 #else
8930     case 9 :
8931 #endif
8932       {
8933       value_1259X = SvalS;
8934       x_1260X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3))));
8935       addr_1261X = (((char *) (-3 + x_1260X))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 3)))), 3));S48_WRITE_BARRIER(x_1260X, addr_1261X, value_1259X);
8936       *((long *) addr_1261X) = (long) (value_1259X);
8937       SvalS = 13;
8938       Scode_pointerS = ((Scode_pointerS) + 5);
8939       arg3K0 = (Scode_pointerS);
8940       goto L36269;}
8941 #ifndef USE_DIRECT_THREADING
8942       break;
8943 #endif
8944 
8945 #ifdef USE_DIRECT_THREADING
8946 Jlabel36269_10:
8947 #else
8948     case 10 :
8949 #endif
8950       {
8951       SvalS = (*((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))))))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 3)))));
8952       Scode_pointerS = ((Scode_pointerS) + 3);
8953       arg3K0 = (Scode_pointerS);
8954       goto L36269;}
8955 #ifndef USE_DIRECT_THREADING
8956       break;
8957 #endif
8958 
8959 #ifdef USE_DIRECT_THREADING
8960 Jlabel36269_11:
8961 #else
8962     case 11 :
8963 #endif
8964       {
8965       SvalS = (*((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3)))))))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))), 3)))));
8966       Scode_pointerS = ((Scode_pointerS) + 5);
8967       arg3K0 = (Scode_pointerS);
8968       goto L36269;}
8969 #ifndef USE_DIRECT_THREADING
8970       break;
8971 #endif
8972 
8973 #ifdef USE_DIRECT_THREADING
8974 Jlabel36269_12:
8975 #else
8976     case 12 :
8977 #endif
8978       {
8979       free_count_1262X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
8980       size_1263X = 1 + free_count_1262X;s48_make_availableAgc((8 + (PS_SHIFT_LEFT_INLINE(size_1263X, 3))));
8981       len_1264X = PS_SHIFT_LEFT_INLINE(size_1263X, 3);
8982       addr_1265X = s48_allocate_small((8 + len_1264X));
8983       *((long *) addr_1265X) = (long) ((14 + (PS_SHIFT_LEFT_INLINE(len_1264X, 8))));
8984       closure_1266X = 3 + (((long) (addr_1265X + 8)));
8985       *((long *) (((char *) (-3 + closure_1266X)))) = (long) ((SvalS));
8986       arg0K0 = free_count_1262X;
8987       goto L38920;}
8988 #ifndef USE_DIRECT_THREADING
8989       break;
8990 #endif
8991 
8992 #ifdef USE_DIRECT_THREADING
8993 Jlabel36269_13:
8994 #else
8995     case 13 :
8996 #endif
8997       {
8998       x_1267X = SvalS;
8999       SstackS = ((SstackS) + -8);
9000       *((long *) (SstackS)) = (long) (x_1267X);
9001       Scode_pointerS = ((Scode_pointerS) + 1);
9002       arg3K0 = (Scode_pointerS);
9003       goto L36269;}
9004 #ifndef USE_DIRECT_THREADING
9005       break;
9006 #endif
9007 
9008 #ifdef USE_DIRECT_THREADING
9009 Jlabel36269_14:
9010 #else
9011     case 14 :
9012 #endif
9013       {
9014       SstackS = ((SstackS) + -8);
9015       *((long *) (SstackS)) = (long) (1);
9016       Scode_pointerS = ((Scode_pointerS) + 1);
9017       arg3K0 = (Scode_pointerS);
9018       goto L36269;}
9019 #ifndef USE_DIRECT_THREADING
9020       break;
9021 #endif
9022 
9023 #ifdef USE_DIRECT_THREADING
9024 Jlabel36269_15:
9025 #else
9026     case 15 :
9027 #endif
9028       {
9029       value_1268X = *((long *) (SstackS));
9030       SstackS = ((SstackS) + 8);
9031       SvalS = value_1268X;
9032       Scode_pointerS = ((Scode_pointerS) + 1);
9033       arg3K0 = (Scode_pointerS);
9034       goto L36269;}
9035 #ifndef USE_DIRECT_THREADING
9036       break;
9037 #endif
9038 
9039 #ifdef USE_DIRECT_THREADING
9040 Jlabel36269_16:
9041 #else
9042     case 16 :
9043 #endif
9044       {
9045       SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE((0 - ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), 3))));
9046       Scode_pointerS = ((Scode_pointerS) + 3);
9047       arg3K0 = (Scode_pointerS);
9048       goto L36269;}
9049 #ifndef USE_DIRECT_THREADING
9050       break;
9051 #endif
9052 
9053 #ifdef USE_DIRECT_THREADING
9054 Jlabel36269_17:
9055 #else
9056     case 17 :
9057 #endif
9058       {
9059       arg0K0 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
9060       goto L67299;}
9061 #ifndef USE_DIRECT_THREADING
9062       break;
9063 #endif
9064 
9065 #ifdef USE_DIRECT_THREADING
9066 Jlabel36269_18:
9067 #else
9068     case 18 :
9069 #endif
9070       {
9071       SvalS = (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))));
9072       Scode_pointerS = ((Scode_pointerS) + 2);
9073       arg3K0 = (Scode_pointerS);
9074       goto L36269;}
9075 #ifndef USE_DIRECT_THREADING
9076       break;
9077 #endif
9078 
9079 #ifdef USE_DIRECT_THREADING
9080 Jlabel36269_19:
9081 #else
9082     case 19 :
9083 #endif
9084       {
9085       x_1269X = SvalS;
9086       SstackS = ((SstackS) + -8);
9087       *((long *) (SstackS)) = (long) (x_1269X);
9088       SvalS = (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))));
9089       Scode_pointerS = ((Scode_pointerS) + 2);
9090       arg3K0 = (Scode_pointerS);
9091       goto L36269;}
9092 #ifndef USE_DIRECT_THREADING
9093       break;
9094 #endif
9095 
9096 #ifdef USE_DIRECT_THREADING
9097 Jlabel36269_20:
9098 #else
9099     case 20 :
9100 #endif
9101       {
9102       x_1270X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3))));
9103       SstackS = ((SstackS) + -8);
9104       *((long *) (SstackS)) = (long) (x_1270X);
9105       Scode_pointerS = ((Scode_pointerS) + 2);
9106       arg3K0 = (Scode_pointerS);
9107       goto L36269;}
9108 #ifndef USE_DIRECT_THREADING
9109       break;
9110 #endif
9111 
9112 #ifdef USE_DIRECT_THREADING
9113 Jlabel36269_21:
9114 #else
9115     case 21 :
9116 #endif
9117       {
9118       SvalS = (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3)))));
9119       Scode_pointerS = ((Scode_pointerS) + 3);
9120       arg3K0 = (Scode_pointerS);
9121       goto L36269;}
9122 #ifndef USE_DIRECT_THREADING
9123       break;
9124 #endif
9125 
9126 #ifdef USE_DIRECT_THREADING
9127 Jlabel36269_22:
9128 #else
9129     case 22 :
9130 #endif
9131       {
9132       *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))) = (long) ((SvalS));
9133       Scode_pointerS = ((Scode_pointerS) + 2);
9134       arg3K0 = (Scode_pointerS);
9135       goto L36269;}
9136 #ifndef USE_DIRECT_THREADING
9137       break;
9138 #endif
9139 
9140 #ifdef USE_DIRECT_THREADING
9141 Jlabel36269_23:
9142 #else
9143     case 23 :
9144 #endif
9145       {
9146       *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3)))) = (long) ((SvalS));
9147       Scode_pointerS = ((Scode_pointerS) + 3);
9148       arg3K0 = (Scode_pointerS);
9149       goto L36269;}
9150 #ifndef USE_DIRECT_THREADING
9151       break;
9152 #endif
9153 
9154 #ifdef USE_DIRECT_THREADING
9155 Jlabel36269_24:
9156 #else
9157     case 24 :
9158 #endif
9159       {
9160       SvalS = (*((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))))))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 3)))));
9161       Scode_pointerS = ((Scode_pointerS) + 3);
9162       arg3K0 = (Scode_pointerS);
9163       goto L36269;}
9164 #ifndef USE_DIRECT_THREADING
9165       break;
9166 #endif
9167 
9168 #ifdef USE_DIRECT_THREADING
9169 Jlabel36269_25:
9170 #else
9171     case 25 :
9172 #endif
9173       {
9174       x_1271X = SvalS;
9175       SstackS = ((SstackS) + -8);
9176       *((long *) (SstackS)) = (long) (x_1271X);
9177       SvalS = (*((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))))))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 3)))));
9178       Scode_pointerS = ((Scode_pointerS) + 3);
9179       arg3K0 = (Scode_pointerS);
9180       goto L36269;}
9181 #ifndef USE_DIRECT_THREADING
9182       break;
9183 #endif
9184 
9185 #ifdef USE_DIRECT_THREADING
9186 Jlabel36269_26:
9187 #else
9188     case 26 :
9189 #endif
9190       {
9191       x_1272X = *((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 3)))))))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 2))), 3))));
9192       SstackS = ((SstackS) + -8);
9193       *((long *) (SstackS)) = (long) (x_1272X);
9194       Scode_pointerS = ((Scode_pointerS) + 3);
9195       arg3K0 = (Scode_pointerS);
9196       goto L36269;}
9197 #ifndef USE_DIRECT_THREADING
9198       break;
9199 #endif
9200 
9201 #ifdef USE_DIRECT_THREADING
9202 Jlabel36269_27:
9203 #else
9204     case 27 :
9205 #endif
9206       {
9207       SvalS = (*((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))), 3)))))))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))), 3)))));
9208       Scode_pointerS = ((Scode_pointerS) + 5);
9209       arg3K0 = (Scode_pointerS);
9210       goto L36269;}
9211 #ifndef USE_DIRECT_THREADING
9212       break;
9213 #endif
9214 
9215 #ifdef USE_DIRECT_THREADING
9216 Jlabel36269_28:
9217 #else
9218     case 28 :
9219 #endif
9220       {
9221       x_1273X = SvalS;
9222       SstackS = ((SstackS) + -8);
9223       *((long *) (SstackS)) = (long) (x_1273X);
9224       n_moves_1274X = *((unsigned char *) ((Scode_pointerS) + 1));
9225       arg0K0 = 0;
9226       goto L38254;}
9227 #ifndef USE_DIRECT_THREADING
9228       break;
9229 #endif
9230 
9231 #ifdef USE_DIRECT_THREADING
9232 Jlabel36269_29:
9233 #else
9234     case 29 :
9235 #endif
9236       {
9237       x_1275X = SvalS;
9238       SstackS = ((SstackS) + -8);
9239       *((long *) (SstackS)) = (long) (x_1275X);
9240       n_moves_1276X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
9241       arg0K0 = 0;
9242       goto L38171;}
9243 #ifndef USE_DIRECT_THREADING
9244       break;
9245 #endif
9246 
9247 #ifdef USE_DIRECT_THREADING
9248 Jlabel36269_30:
9249 #else
9250     case 30 :
9251 #endif
9252       {s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((-4 & (PS_SHIFT_RIGHT_INLINE(((Sstack_endS) - (SstackS)), 1))), 3)));
9253       arg_count_1277X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
9254       top_1278X = SstackS;
9255       if ((1 == (((long) (ScontS))))) {
9256         arg0K0 = 1;
9257         goto L31432;}
9258       else {
9259         v_1279X = really_preserve_continuation(0);
9260         arg0K0 = v_1279X;
9261         goto L31432;}}
9262 #ifndef USE_DIRECT_THREADING
9263       break;
9264 #endif
9265 
9266 #ifdef USE_DIRECT_THREADING
9267 Jlabel36269_32:
9268 #else
9269     case 32 :
9270 #endif
9271       {
9272       stack_arg_count_1280X = *((unsigned char *) ((Scode_pointerS) + 3));
9273       code_pointer_1281X = (Scode_pointerS) + ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
9274       ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_arg_count_1280X, 3)));
9275       *((long *) (ScontS)) = (long) ((((long) code_pointer_1281X)));
9276       arg0K0 = stack_arg_count_1280X;
9277       goto L66461;}
9278 #ifndef USE_DIRECT_THREADING
9279       break;
9280 #endif
9281 
9282 #ifdef USE_DIRECT_THREADING
9283 Jlabel36269_33:
9284 #else
9285     case 33 :
9286 #endif
9287       {
9288       stack_arg_count_1282X = *((unsigned char *) ((Scode_pointerS) + 1));
9289       merged_arg0K0 = stack_arg_count_1282X;
9290 #ifdef USE_DIRECT_THREADING
9291       move_args_above_contB_return_address = &&move_args_above_contB_return_0;
9292 #else
9293       move_args_above_contB_return_tag = 0;
9294 #endif
9295       goto move_args_above_contB;
9296      move_args_above_contB_return_0:
9297       arg0K0 = stack_arg_count_1282X;
9298       goto L66461;}
9299 #ifndef USE_DIRECT_THREADING
9300       break;
9301 #endif
9302 
9303 #ifdef USE_DIRECT_THREADING
9304 Jlabel36269_34:
9305 #else
9306     case 34 :
9307 #endif
9308       {
9309       stack_arg_count_1283X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
9310       return_pointer_offset_1284X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
9311       if ((0 == return_pointer_offset_1284X)) {
9312         merged_arg0K0 = stack_arg_count_1283X;
9313 #ifdef USE_DIRECT_THREADING
9314         move_args_above_contB_return_address = &&move_args_above_contB_return_1;
9315 #else
9316         move_args_above_contB_return_tag = 1;
9317 #endif
9318         goto move_args_above_contB;
9319        move_args_above_contB_return_1:
9320         goto L33631;}
9321       else {
9322         code_pointer_1285X = (Scode_pointerS) + return_pointer_offset_1284X;
9323         ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_arg_count_1283X, 3)));
9324         *((long *) (ScontS)) = (long) ((((long) code_pointer_1285X)));
9325         goto L33631;}}
9326 #ifndef USE_DIRECT_THREADING
9327       break;
9328 #endif
9329 
9330 #ifdef USE_DIRECT_THREADING
9331 Jlabel36269_35:
9332 #else
9333     case 35 :
9334 #endif
9335       {
9336       v_1286X = *((unsigned char *) ((Scode_pointerS) + 4));
9337       if ((0 == v_1286X)) {
9338         arg0K0 = 2;
9339         goto L67391;}
9340       else {
9341         arg0K0 = 4;
9342         goto L67391;}}
9343 #ifndef USE_DIRECT_THREADING
9344       break;
9345 #endif
9346 
9347 #ifdef USE_DIRECT_THREADING
9348 Jlabel36269_36:
9349 #else
9350     case 36 :
9351 #endif
9352       {
9353       v_1287X = *((unsigned char *) ((Scode_pointerS) + 4));
9354       if ((0 == v_1287X)) {
9355         arg0K0 = 2;
9356         goto L32783;}
9357       else {
9358         arg0K0 = 4;
9359         goto L32783;}}
9360 #ifndef USE_DIRECT_THREADING
9361       break;
9362 #endif
9363 
9364 #ifdef USE_DIRECT_THREADING
9365 Jlabel36269_37:
9366 #else
9367     case 37 :
9368 #endif
9369       {
9370       v_1288X = *((unsigned char *) ((Scode_pointerS) + 5));
9371       if ((0 == v_1288X)) {
9372         arg0K0 = 2;
9373         goto L32735;}
9374       else {
9375         arg0K0 = 4;
9376         goto L32735;}}
9377 #ifndef USE_DIRECT_THREADING
9378       break;
9379 #endif
9380 
9381 #ifdef USE_DIRECT_THREADING
9382 Jlabel36269_38:
9383 #else
9384     case 38 :
9385 #endif
9386       {
9387       v_1289X = (s48_Sstack_limitS) == (((char *) -1));
9388       if (v_1289X) {
9389 #ifdef USE_DIRECT_THREADING
9390         pending_interruptP_return_address = &&pending_interruptP_return_3;
9391 #else
9392         pending_interruptP_return_tag = 3;
9393 #endif
9394         goto pending_interruptP;
9395        pending_interruptP_return_3:
9396         v_1290X = pending_interruptP0_return_value;
9397         if (v_1290X) {
9398           goto L33027;}
9399         else {
9400           goto L67404;}}
9401       else {
9402         goto L67404;}}
9403 #ifndef USE_DIRECT_THREADING
9404       break;
9405 #endif
9406 
9407 #ifdef USE_DIRECT_THREADING
9408 Jlabel36269_39:
9409 #else
9410     case 39 :
9411 #endif
9412       {
9413       list_args_1291X = *((long *) (SstackS));
9414       SstackS = ((SstackS) + 8);
9415       stack_nargs_1292X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
9416       merged_arg0K0 = list_args_1291X;
9417 #ifdef USE_DIRECT_THREADING
9418       okay_argument_list_return_address = &&okay_argument_list_return_0;
9419 #else
9420       okay_argument_list_return_tag = 0;
9421 #endif
9422       goto okay_argument_list;
9423      okay_argument_list_return_0:
9424       okayP_1293X = okay_argument_list0_return_value;
9425       length_1294X = okay_argument_list1_return_value;
9426       if (okayP_1293X) {
9427         return_pointer_offset_1295X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
9428         if ((0 == return_pointer_offset_1295X)) {
9429           merged_arg0K0 = stack_nargs_1292X;
9430 #ifdef USE_DIRECT_THREADING
9431           move_args_above_contB_return_address = &&move_args_above_contB_return_2;
9432 #else
9433           move_args_above_contB_return_tag = 2;
9434 #endif
9435           goto move_args_above_contB;
9436          move_args_above_contB_return_2:
9437           arg0K0 = stack_nargs_1292X;
9438           arg0K1 = list_args_1291X;
9439           arg0K2 = length_1294X;
9440           goto L65483;}
9441         else {
9442           code_pointer_1296X = (Scode_pointerS) + return_pointer_offset_1295X;
9443           ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_nargs_1292X, 3)));
9444           *((long *) (ScontS)) = (long) ((((long) code_pointer_1296X)));
9445           arg0K0 = stack_nargs_1292X;
9446           arg0K1 = list_args_1291X;
9447           arg0K2 = length_1294X;
9448           goto L65483;}}
9449       else {
9450         merged_arg0K0 = list_args_1291X;
9451         merged_arg0K1 = stack_nargs_1292X;
9452 #ifdef USE_DIRECT_THREADING
9453         pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_1;
9454 #else
9455         pop_args_GlistSAgc_return_tag = 1;
9456 #endif
9457         goto pop_args_GlistSAgc;
9458        pop_args_GlistSAgc_return_1:
9459         args_1297X = pop_args_GlistSAgc0_return_value;push_exception_setupB(5, 0);
9460         x_1298X = SvalS;
9461         SstackS = ((SstackS) + -8);
9462         *((long *) (SstackS)) = (long) (x_1298X);
9463         SstackS = ((SstackS) + -8);
9464         *((long *) (SstackS)) = (long) (args_1297X);
9465         arg0K0 = 2;
9466         goto L33828;}}
9467 #ifndef USE_DIRECT_THREADING
9468       break;
9469 #endif
9470 
9471 #ifdef USE_DIRECT_THREADING
9472 Jlabel36269_40:
9473 #else
9474     case 40 :
9475 #endif
9476       {
9477       SstackS = ((SstackS) + 8);
9478       p_1299X = *((long *) (SstackS));
9479       SstackS = ((SstackS) + 8);
9480       stack_nargs_1300X = PS_SHIFT_RIGHT_INLINE(p_1299X, 2);
9481       SvalS = (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_nargs_1300X, 3)))));
9482       merged_arg0K0 = stack_nargs_1300X;
9483 #ifdef USE_DIRECT_THREADING
9484       move_args_above_contB_return_address = &&move_args_above_contB_return_3;
9485 #else
9486       move_args_above_contB_return_tag = 3;
9487 #endif
9488       goto move_args_above_contB;
9489      move_args_above_contB_return_3:
9490       rest_list_1301X = *((long *) (SstackS));
9491       SstackS = ((SstackS) + 8);
9492       if ((25 == rest_list_1301X)) {
9493         v_1302X = *((long *) (SstackS));
9494         SstackS = ((SstackS) + 8);
9495         arg0K0 = v_1302X;
9496         arg0K1 = (-2 + stack_nargs_1300X);
9497         goto L23674;}
9498       else {
9499         if ((25 == (*((long *) ((((char *) (-3 + rest_list_1301X))) + 8))))) {
9500           arg0K0 = (*((long *) (((char *) (-3 + rest_list_1301X)))));
9501           arg0K1 = (-1 + stack_nargs_1300X);
9502           goto L23674;}
9503         else {
9504           arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_1301X))) + 8)))))) + 8)));
9505           arg0K1 = rest_list_1301X;
9506           goto L23719;}}}
9507 #ifndef USE_DIRECT_THREADING
9508       break;
9509 #endif
9510 
9511 #ifdef USE_DIRECT_THREADING
9512 Jlabel36269_41:
9513 #else
9514     case 41 :
9515 #endif
9516       {
9517       cont_1303X = *((long *) (SstackS));
9518       SstackS = ((SstackS) + 8);
9519       if ((3 == (3 & cont_1303X))) {
9520         if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + cont_1303X))))), 2))))) {
9521           merged_arg0K0 = cont_1303X;
9522           merged_arg0K1 = 0;
9523 #ifdef USE_DIRECT_THREADING
9524           copy_continuation_from_heapB_return_address = &&copy_continuation_from_heapB_return_0;
9525 #else
9526           copy_continuation_from_heapB_return_tag = 0;
9527 #endif
9528           goto copy_continuation_from_heapB;
9529          copy_continuation_from_heapB_return_0:
9530           goto L33589;}
9531         else {
9532           goto L33598;}}
9533       else {
9534         goto L33598;}}
9535 #ifndef USE_DIRECT_THREADING
9536       break;
9537 #endif
9538 
9539 #ifdef USE_DIRECT_THREADING
9540 Jlabel36269_42:
9541 #else
9542     case 42 :
9543 #endif
9544       {
9545       goto L66072;}
9546 #ifndef USE_DIRECT_THREADING
9547       break;
9548 #endif
9549 
9550 #ifdef USE_DIRECT_THREADING
9551 Jlabel36269_43:
9552 #else
9553     case 43 :
9554 #endif
9555       {
9556       arg0K0 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
9557       arg0K1 = 25;
9558       arg0K2 = 0;
9559       goto L33256;}
9560 #ifndef USE_DIRECT_THREADING
9561       break;
9562 #endif
9563 
9564 #ifdef USE_DIRECT_THREADING
9565 Jlabel36269_44:
9566 #else
9567     case 44 :
9568 #endif
9569       {
9570       p_1304X = *((long *) (SstackS));
9571       SstackS = ((SstackS) + 8);
9572       p_1305X = *((long *) (SstackS));
9573       SstackS = ((SstackS) + 8);
9574       stack_nargs_1306X = PS_SHIFT_RIGHT_INLINE(p_1305X, 2);
9575       rest_list_1307X = *((long *) (SstackS));
9576       SstackS = ((SstackS) + 8);
9577       arg0K0 = stack_nargs_1306X;
9578       arg0K1 = rest_list_1307X;
9579       arg0K2 = ((PS_SHIFT_RIGHT_INLINE(p_1304X, 2)) - stack_nargs_1306X);
9580       goto L33256;}
9581 #ifndef USE_DIRECT_THREADING
9582       break;
9583 #endif
9584 
9585 #ifdef USE_DIRECT_THREADING
9586 Jlabel36269_46:
9587 #else
9588     case 46 :
9589 #endif
9590       {
9591       template_1308X = *((long *) ((((char *) (-3 + (*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))), 3)))))))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 5))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 6)))), 3))));
9592       code_1309X = *((long *) (((char *) (-3 + template_1308X))));
9593       nargs_1310X = *((unsigned char *) ((Scode_pointerS) + 7));
9594       return_pointer_offset_1311X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
9595       if ((0 == return_pointer_offset_1311X)) {
9596         merged_arg0K0 = nargs_1310X;
9597 #ifdef USE_DIRECT_THREADING
9598         move_args_above_contB_return_address = &&move_args_above_contB_return_4;
9599 #else
9600         move_args_above_contB_return_tag = 4;
9601 #endif
9602         goto move_args_above_contB;
9603        move_args_above_contB_return_4:
9604         goto L37912;}
9605       else {
9606         code_pointer_1312X = (Scode_pointerS) + return_pointer_offset_1311X;
9607         ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(nargs_1310X, 3)));
9608         *((long *) (ScontS)) = (long) ((((long) code_pointer_1312X)));
9609         goto L37912;}}
9610 #ifndef USE_DIRECT_THREADING
9611       break;
9612 #endif
9613 
9614 #ifdef USE_DIRECT_THREADING
9615 Jlabel36269_47:
9616 #else
9617     case 47 :
9618 #endif
9619       {
9620       if ((1 == (SvalS))) {
9621         Scode_pointerS = ((Scode_pointerS) + ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
9622         arg3K0 = (Scode_pointerS);
9623         goto L36269;}
9624       else {
9625         Scode_pointerS = ((Scode_pointerS) + 3);
9626         arg3K0 = (Scode_pointerS);
9627         goto L36269;}}
9628 #ifndef USE_DIRECT_THREADING
9629       break;
9630 #endif
9631 
9632 #ifdef USE_DIRECT_THREADING
9633 Jlabel36269_48:
9634 #else
9635     case 48 :
9636 #endif
9637       {
9638       Scode_pointerS = ((Scode_pointerS) + 3);
9639       arg3K0 = (Scode_pointerS);
9640       goto L36269;}
9641 #ifndef USE_DIRECT_THREADING
9642       break;
9643 #endif
9644 
9645 #ifdef USE_DIRECT_THREADING
9646 Jlabel36269_49:
9647 #else
9648     case 49 :
9649 #endif
9650       {
9651       Scode_pointerS = ((Scode_pointerS) + ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
9652       arg3K0 = (Scode_pointerS);
9653       goto L36269;}
9654 #ifndef USE_DIRECT_THREADING
9655       break;
9656 #endif
9657 
9658 #ifdef USE_DIRECT_THREADING
9659 Jlabel36269_50:
9660 #else
9661     case 50 :
9662 #endif
9663       {
9664       Scode_pointerS = ((Scode_pointerS) + (0 - ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))));
9665       arg3K0 = (Scode_pointerS);
9666       goto L36269;}
9667 #ifndef USE_DIRECT_THREADING
9668       break;
9669 #endif
9670 
9671 #ifdef USE_DIRECT_THREADING
9672 Jlabel36269_51:
9673 #else
9674     case 51 :
9675 #endif
9676       {
9677       if ((0 == (3 & (SvalS)))) {
9678         p_1313X = SvalS;
9679         max_1314X = *((unsigned char *) ((Scode_pointerS) + 1));
9680         val_1315X = PS_SHIFT_RIGHT_INLINE(p_1313X, 2);
9681         if ((val_1315X < 0)) {
9682           goto L36588;}
9683         else {
9684           if ((val_1315X < max_1314X)) {
9685             index_1316X = 1 + (PS_SHIFT_LEFT_INLINE(val_1315X, 1));
9686             arg0K0 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + index_1316X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_1316X)))));
9687             goto L36590;}
9688           else {
9689             goto L36588;}}}
9690       else {push_exception_setupB(5, 0);
9691         x_1317X = SvalS;
9692         SstackS = ((SstackS) + -8);
9693         *((long *) (SstackS)) = (long) (x_1317X);
9694         arg0K0 = 1;
9695         goto L33828;}}
9696 #ifndef USE_DIRECT_THREADING
9697       break;
9698 #endif
9699 
9700 #ifdef USE_DIRECT_THREADING
9701 Jlabel36269_52:
9702 #else
9703     case 52 :
9704 #endif
9705       {
9706       stack_nargs_1318X = PS_SHIFT_RIGHT_INLINE((*((long *) (SstackS))), 2);
9707       if ((0 == stack_nargs_1318X)) {
9708         rest_list_1319X = *((long *) ((SstackS) + 8));
9709         arg0_1320X = *((long *) ((SstackS) + 16));
9710         SstackS = ((SstackS) + -8);
9711         *((long *) (SstackS)) = (long) (arg0_1320X);
9712         SvalS = (*((long *) (((char *) (-3 + rest_list_1319X)))));
9713         goto L37177;}
9714       else {
9715         arg0_1321X = *((long *) ((SstackS) + (8 + (PS_SHIFT_LEFT_INLINE(stack_nargs_1318X, 3)))));
9716         arg1_1322X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_nargs_1318X, 3))));
9717         *((long *) ((SstackS) + (8 + (PS_SHIFT_LEFT_INLINE(stack_nargs_1318X, 3))))) = (long) (1);
9718         *((long *) (SstackS)) = (long) ((-4 + (PS_SHIFT_LEFT_INLINE(stack_nargs_1318X, 2))));
9719         SstackS = ((SstackS) + -8);
9720         *((long *) (SstackS)) = (long) (arg0_1321X);
9721         SvalS = arg1_1322X;
9722         goto L37177;}}
9723 #ifndef USE_DIRECT_THREADING
9724       break;
9725 #endif
9726 
9727 #ifdef USE_DIRECT_THREADING
9728 Jlabel36269_53:
9729 #else
9730     case 53 :
9731 #endif
9732       {
9733       stack_nargs_1323X = PS_SHIFT_RIGHT_INLINE((*((long *) (SstackS))), 2);
9734       if ((stack_nargs_1323X == 0)) {
9735         rest_list_1324X = *((long *) ((SstackS) + 8));
9736         if ((25 == (*((long *) ((((char *) (-3 + rest_list_1324X))) + 8))))) {
9737           arg0K0 = 1;
9738           goto L36486;}
9739         else {
9740           *((long *) ((SstackS) + 8)) = (long) ((*((long *) ((((char *) (-3 + rest_list_1324X))) + 8))));
9741           *((long *) ((SstackS) + 16)) = (long) ((SvalS));
9742           arg0K0 = -2;
9743           goto L36486;}}
9744       else {
9745         if ((stack_nargs_1323X == 1)) {
9746           if ((25 == (*((long *) ((SstackS) + 8))))) {
9747             arg0K0 = 1;
9748             goto L36486;}
9749           else {
9750             *((long *) (SstackS)) = (long) (0);
9751             *((long *) ((SstackS) + 16)) = (long) ((SvalS));
9752             arg0K0 = -2;
9753             goto L36486;}}
9754         else {
9755           *((long *) ((SstackS) + (8 + (PS_SHIFT_LEFT_INLINE(stack_nargs_1323X, 3))))) = (long) ((SvalS));
9756           arg0K0 = -2;
9757           goto L36486;}}}
9758 #ifndef USE_DIRECT_THREADING
9759       break;
9760 #endif
9761 
9762 #ifdef USE_DIRECT_THREADING
9763 Jlabel36269_54:
9764 #else
9765     case 54 :
9766 #endif
9767       {
9768       if ((1 == (SvalS))) {
9769         Scode_pointerS = ((Scode_pointerS) + 1);
9770         arg3K0 = (Scode_pointerS);
9771         goto L36269;}
9772       else {
9773         x_1325X = PS_SHIFT_RIGHT_INLINE((*((long *) (SstackS))), 2);
9774         if ((x_1325X == 0)) {
9775           rest_list_1326X = *((long *) ((SstackS) + 8));
9776           if ((25 == (*((long *) ((((char *) (-3 + rest_list_1326X))) + 8))))) {
9777             arg0K0 = 1;
9778             goto L37068;}
9779           else {
9780             *((long *) ((SstackS) + 8)) = (long) ((*((long *) ((((char *) (-3 + rest_list_1326X))) + 8))));
9781             *((long *) ((SstackS) + 16)) = (long) ((*((long *) (((char *) (-3 + rest_list_1326X))))));
9782             arg0K0 = -2;
9783             goto L37068;}}
9784         else {
9785           if ((x_1325X == 1)) {
9786             if ((25 == (*((long *) ((SstackS) + 8))))) {
9787               arg0K0 = 1;
9788               goto L37068;}
9789             else {
9790               *((long *) (SstackS)) = (long) (0);
9791               arg0K0 = -2;
9792               goto L37068;}}
9793           else {
9794             arg0K0 = -2;
9795             goto L37068;}}}}
9796 #ifndef USE_DIRECT_THREADING
9797       break;
9798 #endif
9799 
9800 #ifdef USE_DIRECT_THREADING
9801 Jlabel36269_55:
9802 #else
9803     case 55 :
9804 #endif
9805       {
9806       arg2_1327X = *((long *) (SstackS));
9807       SstackS = ((SstackS) + 8);
9808       x_1328X = SvalS;
9809       if ((arg2_1327X == x_1328X)) {
9810         arg0K0 = 5;
9811         goto L67452;}
9812       else {
9813         arg0K0 = 1;
9814         goto L67452;}}
9815 #ifndef USE_DIRECT_THREADING
9816       break;
9817 #endif
9818 
9819 #ifdef USE_DIRECT_THREADING
9820 Jlabel36269_56:
9821 #else
9822     case 56 :
9823 #endif
9824       {
9825       x_1329X = SvalS;
9826       if ((0 == (3 & x_1329X))) {
9827         arg0K0 = 5;
9828         goto L67464;}
9829       else {
9830         if ((3 == (3 & x_1329X))) {
9831           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1329X))))), 2))))) {
9832             arg0K0 = 5;
9833             goto L67464;}
9834           else {
9835             goto L21091;}}
9836         else {
9837           goto L21091;}}}
9838 #ifndef USE_DIRECT_THREADING
9839       break;
9840 #endif
9841 
9842 #ifdef USE_DIRECT_THREADING
9843 Jlabel36269_57:
9844 #else
9845     case 57 :
9846 #endif
9847       {
9848       n_1330X = SvalS;
9849       if ((0 == (3 & n_1330X))) {
9850         goto L56404;}
9851       else {
9852         if ((3 == (3 & n_1330X))) {
9853           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1330X))))), 2))))) {
9854             goto L56404;}
9855           else {
9856             goto L56405;}}
9857         else {
9858           goto L56405;}}}
9859 #ifndef USE_DIRECT_THREADING
9860       break;
9861 #endif
9862 
9863 #ifdef USE_DIRECT_THREADING
9864 Jlabel36269_58:
9865 #else
9866     case 58 :
9867 #endif
9868       {
9869       n_1331X = SvalS;
9870       if ((0 == (3 & n_1331X))) {
9871         goto L56561;}
9872       else {
9873         if ((3 == (3 & n_1331X))) {
9874           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1331X))))), 2))))) {
9875             goto L56561;}
9876           else {
9877             goto L56554;}}
9878         else {
9879           goto L56554;}}}
9880 #ifndef USE_DIRECT_THREADING
9881       break;
9882 #endif
9883 
9884 #ifdef USE_DIRECT_THREADING
9885 Jlabel36269_59:
9886 #else
9887     case 59 :
9888 #endif
9889       {
9890       arg0K0 = (SvalS);
9891       goto L56764;}
9892 #ifndef USE_DIRECT_THREADING
9893       break;
9894 #endif
9895 
9896 #ifdef USE_DIRECT_THREADING
9897 Jlabel36269_60:
9898 #else
9899     case 60 :
9900 #endif
9901       {
9902       arg0K0 = (SvalS);
9903       goto L56764;}
9904 #ifndef USE_DIRECT_THREADING
9905       break;
9906 #endif
9907 
9908 #ifdef USE_DIRECT_THREADING
9909 Jlabel36269_61:
9910 #else
9911     case 61 :
9912 #endif
9913       {
9914       n_1332X = SvalS;
9915       if ((0 == (3 & n_1332X))) {
9916         goto L47901;}
9917       else {
9918         if ((3 == (3 & n_1332X))) {
9919           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1332X))))), 2))))) {
9920             goto L47901;}
9921           else {
9922             goto L47902;}}
9923         else {
9924           goto L47902;}}}
9925 #ifndef USE_DIRECT_THREADING
9926       break;
9927 #endif
9928 
9929 #ifdef USE_DIRECT_THREADING
9930 Jlabel36269_62:
9931 #else
9932     case 62 :
9933 #endif
9934       {
9935       x_1333X = SvalS;push_exception_setupB(5, 1);
9936       SstackS = ((SstackS) + -8);
9937       *((long *) (SstackS)) = (long) (x_1333X);
9938       arg0K0 = 1;
9939       goto L33828;}
9940 #ifndef USE_DIRECT_THREADING
9941       break;
9942 #endif
9943 
9944 #ifdef USE_DIRECT_THREADING
9945 Jlabel36269_63:
9946 #else
9947     case 63 :
9948 #endif
9949       {
9950       x_1334X = SvalS;push_exception_setupB(5, 1);
9951       SstackS = ((SstackS) + -8);
9952       *((long *) (SstackS)) = (long) (x_1334X);
9953       arg0K0 = 1;
9954       goto L33828;}
9955 #ifndef USE_DIRECT_THREADING
9956       break;
9957 #endif
9958 
9959 #ifdef USE_DIRECT_THREADING
9960 Jlabel36269_64:
9961 #else
9962     case 64 :
9963 #endif
9964       {
9965       arg2_1335X = *((long *) (SstackS));
9966       SstackS = ((SstackS) + 8);
9967       y_1336X = SvalS;
9968       if ((0 == (3 & (arg2_1335X | y_1336X)))) {s48_make_availableAgc(24);
9969         x_1337X = (PS_SHIFT_RIGHT_INLINE(arg2_1335X, 2)) + (PS_SHIFT_RIGHT_INLINE(y_1336X, 2));
9970         if ((2305843009213693951 < x_1337X)) {
9971           goto L48027;}
9972         else {
9973           if ((x_1337X < -2305843009213693952)) {
9974             goto L48027;}
9975           else {
9976             arg0K0 = (PS_SHIFT_LEFT_INLINE(x_1337X, 2));
9977             goto L47973;}}}
9978       else {
9979         if ((0 == (3 & arg2_1335X))) {
9980           goto L47979;}
9981         else {
9982           if ((3 == (3 & arg2_1335X))) {
9983             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1335X))))), 2))))) {
9984               goto L47979;}
9985             else {
9986               goto L47988;}}
9987           else {
9988             goto L47988;}}}}
9989 #ifndef USE_DIRECT_THREADING
9990       break;
9991 #endif
9992 
9993 #ifdef USE_DIRECT_THREADING
9994 Jlabel36269_65:
9995 #else
9996     case 65 :
9997 #endif
9998       {
9999       arg2_1338X = *((long *) (SstackS));
10000       SstackS = ((SstackS) + 8);
10001       y_1339X = SvalS;
10002       if ((0 == (3 & (arg2_1338X | y_1339X)))) {
10003         a_1340X = PS_SHIFT_RIGHT_INLINE(arg2_1338X, 2);
10004         b_1341X = PS_SHIFT_RIGHT_INLINE(y_1339X, 2);
10005         if ((a_1340X < 0)) {
10006           arg0K0 = (0 - a_1340X);
10007           goto L12468;}
10008         else {
10009           arg0K0 = a_1340X;
10010           goto L12468;}}
10011       else {
10012         if ((0 == (3 & arg2_1338X))) {
10013           goto L58548;}
10014         else {
10015           if ((3 == (3 & arg2_1338X))) {
10016             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1338X))))), 2))))) {
10017               goto L58548;}
10018             else {
10019               goto L58557;}}
10020           else {
10021             goto L58557;}}}}
10022 #ifndef USE_DIRECT_THREADING
10023       break;
10024 #endif
10025 
10026 #ifdef USE_DIRECT_THREADING
10027 Jlabel36269_66:
10028 #else
10029     case 66 :
10030 #endif
10031       {
10032       arg2_1342X = *((long *) (SstackS));
10033       SstackS = ((SstackS) + 8);
10034       y_1343X = SvalS;
10035       if ((0 == (3 & (arg2_1342X | y_1343X)))) {s48_make_availableAgc(24);
10036         x_1344X = (PS_SHIFT_RIGHT_INLINE(arg2_1342X, 2)) - (PS_SHIFT_RIGHT_INLINE(y_1343X, 2));
10037         if ((2305843009213693951 < x_1344X)) {
10038           goto L48316;}
10039         else {
10040           if ((x_1344X < -2305843009213693952)) {
10041             goto L48316;}
10042           else {
10043             arg0K0 = (PS_SHIFT_LEFT_INLINE(x_1344X, 2));
10044             goto L48262;}}}
10045       else {
10046         if ((0 == (3 & arg2_1342X))) {
10047           goto L48268;}
10048         else {
10049           if ((3 == (3 & arg2_1342X))) {
10050             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1342X))))), 2))))) {
10051               goto L48268;}
10052             else {
10053               goto L48277;}}
10054           else {
10055             goto L48277;}}}}
10056 #ifndef USE_DIRECT_THREADING
10057       break;
10058 #endif
10059 
10060 #ifdef USE_DIRECT_THREADING
10061 Jlabel36269_67:
10062 #else
10063     case 67 :
10064 #endif
10065       {
10066       arg2_1345X = *((long *) (SstackS));
10067       SstackS = ((SstackS) + 8);
10068       y_1346X = SvalS;
10069       if ((0 == y_1346X)) {push_exception_setupB(5, 1);
10070         SstackS = ((SstackS) + -8);
10071         *((long *) (SstackS)) = (long) (arg2_1345X);
10072         SstackS = ((SstackS) + -8);
10073         *((long *) (SstackS)) = (long) (y_1346X);
10074         arg0K0 = 2;
10075         goto L33828;}
10076       else {
10077         if ((0 == (3 & (arg2_1345X | y_1346X)))) {
10078           if ((0 == y_1346X)) {push_exception_setupB(5, 1);
10079             SstackS = ((SstackS) + -8);
10080             *((long *) (SstackS)) = (long) (arg2_1345X);
10081             SstackS = ((SstackS) + -8);
10082             *((long *) (SstackS)) = (long) (y_1346X);
10083             arg0K0 = 2;
10084             goto L33828;}
10085           else {
10086             a_1347X = PS_SHIFT_RIGHT_INLINE(arg2_1345X, 2);
10087             b_1348X = PS_SHIFT_RIGHT_INLINE(y_1346X, 2);
10088             if ((a_1347X < 0)) {
10089               arg0K0 = (0 - a_1347X);
10090               goto L12726;}
10091             else {
10092               arg0K0 = a_1347X;
10093               goto L12726;}}}
10094         else {
10095           if ((0 == (3 & arg2_1345X))) {
10096             goto L58801;}
10097           else {
10098             if ((3 == (3 & arg2_1345X))) {
10099               if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1345X))))), 2))))) {
10100                 goto L58801;}
10101               else {
10102                 goto L58838;}}
10103             else {
10104               goto L58838;}}}}}
10105 #ifndef USE_DIRECT_THREADING
10106       break;
10107 #endif
10108 
10109 #ifdef USE_DIRECT_THREADING
10110 Jlabel36269_68:
10111 #else
10112     case 68 :
10113 #endif
10114       {
10115       arg2_1349X = *((long *) (SstackS));
10116       SstackS = ((SstackS) + 8);
10117       y_1350X = SvalS;
10118       if ((0 == (3 & (arg2_1349X | y_1350X)))) {
10119         if ((arg2_1349X == y_1350X)) {
10120           arg0K0 = 5;
10121           goto L48547;}
10122         else {
10123           arg0K0 = 1;
10124           goto L48547;}}
10125       else {
10126         if ((0 == (3 & arg2_1349X))) {
10127           goto L48553;}
10128         else {
10129           if ((3 == (3 & arg2_1349X))) {
10130             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1349X))))), 2))))) {
10131               goto L48553;}
10132             else {
10133               goto L48564;}}
10134           else {
10135             goto L48564;}}}}
10136 #ifndef USE_DIRECT_THREADING
10137       break;
10138 #endif
10139 
10140 #ifdef USE_DIRECT_THREADING
10141 Jlabel36269_69:
10142 #else
10143     case 69 :
10144 #endif
10145       {
10146       arg2_1351X = *((long *) (SstackS));
10147       SstackS = ((SstackS) + 8);
10148       y_1352X = SvalS;
10149       if ((0 == (3 & (arg2_1351X | y_1352X)))) {
10150         if ((arg2_1351X < y_1352X)) {
10151           arg0K0 = 5;
10152           goto L48807;}
10153         else {
10154           arg0K0 = 1;
10155           goto L48807;}}
10156       else {
10157         if ((0 == (3 & arg2_1351X))) {
10158           goto L48813;}
10159         else {
10160           if ((3 == (3 & arg2_1351X))) {
10161             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1351X))))), 2))))) {
10162               goto L48813;}
10163             else {
10164               goto L48824;}}
10165           else {
10166             goto L48824;}}}}
10167 #ifndef USE_DIRECT_THREADING
10168       break;
10169 #endif
10170 
10171 #ifdef USE_DIRECT_THREADING
10172 Jlabel36269_70:
10173 #else
10174     case 70 :
10175 #endif
10176       {
10177       arg2_1353X = *((long *) (SstackS));
10178       SstackS = ((SstackS) + 8);
10179       y_1354X = SvalS;
10180       if ((0 == (3 & (arg2_1353X | y_1354X)))) {
10181         if ((y_1354X < arg2_1353X)) {
10182           arg0K0 = 5;
10183           goto L49130;}
10184         else {
10185           arg0K0 = 1;
10186           goto L49130;}}
10187       else {
10188         if ((0 == (3 & arg2_1353X))) {
10189           goto L49136;}
10190         else {
10191           if ((3 == (3 & arg2_1353X))) {
10192             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1353X))))), 2))))) {
10193               goto L49136;}
10194             else {
10195               goto L49147;}}
10196           else {
10197             goto L49147;}}}}
10198 #ifndef USE_DIRECT_THREADING
10199       break;
10200 #endif
10201 
10202 #ifdef USE_DIRECT_THREADING
10203 Jlabel36269_71:
10204 #else
10205     case 71 :
10206 #endif
10207       {
10208       arg2_1355X = *((long *) (SstackS));
10209       SstackS = ((SstackS) + 8);
10210       y_1356X = SvalS;
10211       if ((0 == (3 & (arg2_1355X | y_1356X)))) {
10212         if ((y_1356X < arg2_1355X)) {
10213           arg0K0 = 1;
10214           goto L49453;}
10215         else {
10216           arg0K0 = 5;
10217           goto L49453;}}
10218       else {
10219         if ((0 == (3 & arg2_1355X))) {
10220           goto L49459;}
10221         else {
10222           if ((3 == (3 & arg2_1355X))) {
10223             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1355X))))), 2))))) {
10224               goto L49459;}
10225             else {
10226               goto L49470;}}
10227           else {
10228             goto L49470;}}}}
10229 #ifndef USE_DIRECT_THREADING
10230       break;
10231 #endif
10232 
10233 #ifdef USE_DIRECT_THREADING
10234 Jlabel36269_72:
10235 #else
10236     case 72 :
10237 #endif
10238       {
10239       arg2_1357X = *((long *) (SstackS));
10240       SstackS = ((SstackS) + 8);
10241       y_1358X = SvalS;
10242       if ((0 == (3 & (arg2_1357X | y_1358X)))) {
10243         if ((arg2_1357X < y_1358X)) {
10244           arg0K0 = 1;
10245           goto L49747;}
10246         else {
10247           arg0K0 = 5;
10248           goto L49747;}}
10249       else {
10250         if ((0 == (3 & arg2_1357X))) {
10251           goto L49753;}
10252         else {
10253           if ((3 == (3 & arg2_1357X))) {
10254             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1357X))))), 2))))) {
10255               goto L49753;}
10256             else {
10257               goto L49764;}}
10258           else {
10259             goto L49764;}}}}
10260 #ifndef USE_DIRECT_THREADING
10261       break;
10262 #endif
10263 
10264 #ifdef USE_DIRECT_THREADING
10265 Jlabel36269_73:
10266 #else
10267     case 73 :
10268 #endif
10269       {
10270       arg2_1359X = *((long *) (SstackS));
10271       SstackS = ((SstackS) + 8);
10272       y_1360X = SvalS;
10273       if ((0 == y_1360X)) {push_exception_setupB(5, 1);
10274         SstackS = ((SstackS) + -8);
10275         *((long *) (SstackS)) = (long) (arg2_1359X);
10276         SstackS = ((SstackS) + -8);
10277         *((long *) (SstackS)) = (long) (y_1360X);
10278         arg0K0 = 2;
10279         goto L33828;}
10280       else {
10281         if ((0 == (3 & (arg2_1359X | y_1360X)))) {
10282           if ((0 == y_1360X)) {
10283             val_1361X = Hinteger_op8731(arg2_1359X, y_1360X);
10284             SvalS = val_1361X;
10285             Scode_pointerS = ((Scode_pointerS) + 1);
10286             arg3K0 = (Scode_pointerS);
10287             goto L36269;}
10288           else {
10289             a_1362X = PS_SHIFT_RIGHT_INLINE(arg2_1359X, 2);
10290             b_1363X = PS_SHIFT_RIGHT_INLINE(y_1360X, 2);
10291             if ((a_1362X < 0)) {
10292               arg0K0 = (0 - a_1362X);
10293               goto L13173;}
10294             else {
10295               arg0K0 = a_1362X;
10296               goto L13173;}}}
10297         else {
10298           if ((0 == (3 & arg2_1359X))) {
10299             goto L50053;}
10300           else {
10301             if ((3 == (3 & arg2_1359X))) {
10302               if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1359X))))), 2))))) {
10303                 goto L50053;}
10304               else {
10305                 goto L50062;}}
10306             else {
10307               goto L50062;}}}}}
10308 #ifndef USE_DIRECT_THREADING
10309       break;
10310 #endif
10311 
10312 #ifdef USE_DIRECT_THREADING
10313 Jlabel36269_74:
10314 #else
10315     case 74 :
10316 #endif
10317       {
10318       arg2_1364X = *((long *) (SstackS));
10319       SstackS = ((SstackS) + 8);
10320       y_1365X = SvalS;
10321       if ((0 == y_1365X)) {push_exception_setupB(5, 1);
10322         SstackS = ((SstackS) + -8);
10323         *((long *) (SstackS)) = (long) (arg2_1364X);
10324         SstackS = ((SstackS) + -8);
10325         *((long *) (SstackS)) = (long) (y_1365X);
10326         arg0K0 = 2;
10327         goto L33828;}
10328       else {
10329         if ((0 == (3 & (arg2_1364X | y_1365X)))) {
10330           if ((0 == y_1365X)) {
10331             val_1366X = Hinteger_op8662(arg2_1364X, y_1365X);
10332             SvalS = val_1366X;
10333             Scode_pointerS = ((Scode_pointerS) + 1);
10334             arg3K0 = (Scode_pointerS);
10335             goto L36269;}
10336           else {
10337             a_1367X = PS_SHIFT_RIGHT_INLINE(arg2_1364X, 2);
10338             if ((a_1367X < 0)) {
10339               arg0K0 = (0 - a_1367X);
10340               goto L50267;}
10341             else {
10342               arg0K0 = a_1367X;
10343               goto L50267;}}}
10344         else {
10345           if ((0 == (3 & arg2_1364X))) {
10346             goto L50229;}
10347           else {
10348             if ((3 == (3 & arg2_1364X))) {
10349               if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1364X))))), 2))))) {
10350                 goto L50229;}
10351               else {
10352                 goto L50238;}}
10353             else {
10354               goto L50238;}}}}}
10355 #ifndef USE_DIRECT_THREADING
10356       break;
10357 #endif
10358 
10359 #ifdef USE_DIRECT_THREADING
10360 Jlabel36269_75:
10361 #else
10362     case 75 :
10363 #endif
10364       {
10365       n_1368X = SvalS;
10366       if ((0 == (3 & n_1368X))) {
10367         goto L50416;}
10368       else {
10369         if ((3 == (3 & n_1368X))) {
10370           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1368X))))), 2))))) {
10371             goto L50416;}
10372           else {
10373             goto L50417;}}
10374         else {
10375           goto L50417;}}}
10376 #ifndef USE_DIRECT_THREADING
10377       break;
10378 #endif
10379 
10380 #ifdef USE_DIRECT_THREADING
10381 Jlabel36269_76:
10382 #else
10383     case 76 :
10384 #endif
10385       {
10386       n_1369X = SvalS;
10387       if ((0 == (3 & n_1369X))) {
10388         goto L50471;}
10389       else {
10390         if ((3 == (3 & n_1369X))) {
10391           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1369X))))), 2))))) {
10392             goto L50471;}
10393           else {
10394             goto L50472;}}
10395         else {
10396           goto L50472;}}}
10397 #ifndef USE_DIRECT_THREADING
10398       break;
10399 #endif
10400 
10401 #ifdef USE_DIRECT_THREADING
10402 Jlabel36269_77:
10403 #else
10404     case 77 :
10405 #endif
10406       {
10407       n_1370X = SvalS;
10408       if ((0 == (3 & n_1370X))) {
10409         goto L50526;}
10410       else {
10411         if ((3 == (3 & n_1370X))) {
10412           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1370X))))), 2))))) {
10413             goto L50526;}
10414           else {
10415             goto L50529;}}
10416         else {
10417           goto L50529;}}}
10418 #ifndef USE_DIRECT_THREADING
10419       break;
10420 #endif
10421 
10422 #ifdef USE_DIRECT_THREADING
10423 Jlabel36269_78:
10424 #else
10425     case 78 :
10426 #endif
10427       {
10428       n_1371X = SvalS;
10429       if ((0 == (3 & n_1371X))) {
10430         goto L50586;}
10431       else {
10432         if ((3 == (3 & n_1371X))) {
10433           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1371X))))), 2))))) {
10434             goto L50586;}
10435           else {
10436             goto L50587;}}
10437         else {
10438           goto L50587;}}}
10439 #ifndef USE_DIRECT_THREADING
10440       break;
10441 #endif
10442 
10443 #ifdef USE_DIRECT_THREADING
10444 Jlabel36269_79:
10445 #else
10446     case 79 :
10447 #endif
10448       {
10449       n_1372X = SvalS;
10450       if ((0 == (3 & n_1372X))) {
10451         goto L50641;}
10452       else {
10453         if ((3 == (3 & n_1372X))) {
10454           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1372X))))), 2))))) {
10455             goto L50641;}
10456           else {
10457             goto L50644;}}
10458         else {
10459           goto L50644;}}}
10460 #ifndef USE_DIRECT_THREADING
10461       break;
10462 #endif
10463 
10464 #ifdef USE_DIRECT_THREADING
10465 Jlabel36269_80:
10466 #else
10467     case 80 :
10468 #endif
10469       {
10470       x_1373X = SvalS;push_exception_setupB(5, 1);
10471       SstackS = ((SstackS) + -8);
10472       *((long *) (SstackS)) = (long) (x_1373X);
10473       arg0K0 = 1;
10474       goto L33828;}
10475 #ifndef USE_DIRECT_THREADING
10476       break;
10477 #endif
10478 
10479 #ifdef USE_DIRECT_THREADING
10480 Jlabel36269_81:
10481 #else
10482     case 81 :
10483 #endif
10484       {
10485       x_1374X = SvalS;push_exception_setupB(5, 1);
10486       SstackS = ((SstackS) + -8);
10487       *((long *) (SstackS)) = (long) (x_1374X);
10488       arg0K0 = 1;
10489       goto L33828;}
10490 #ifndef USE_DIRECT_THREADING
10491       break;
10492 #endif
10493 
10494 #ifdef USE_DIRECT_THREADING
10495 Jlabel36269_82:
10496 #else
10497     case 82 :
10498 #endif
10499       {
10500       x_1375X = SvalS;push_exception_setupB(5, 1);
10501       SstackS = ((SstackS) + -8);
10502       *((long *) (SstackS)) = (long) (x_1375X);
10503       arg0K0 = 1;
10504       goto L33828;}
10505 #ifndef USE_DIRECT_THREADING
10506       break;
10507 #endif
10508 
10509 #ifdef USE_DIRECT_THREADING
10510 Jlabel36269_83:
10511 #else
10512     case 83 :
10513 #endif
10514       {
10515       x_1376X = SvalS;push_exception_setupB(5, 1);
10516       SstackS = ((SstackS) + -8);
10517       *((long *) (SstackS)) = (long) (x_1376X);
10518       arg0K0 = 1;
10519       goto L33828;}
10520 #ifndef USE_DIRECT_THREADING
10521       break;
10522 #endif
10523 
10524 #ifdef USE_DIRECT_THREADING
10525 Jlabel36269_84:
10526 #else
10527     case 84 :
10528 #endif
10529       {
10530       x_1377X = SvalS;push_exception_setupB(5, 1);
10531       SstackS = ((SstackS) + -8);
10532       *((long *) (SstackS)) = (long) (x_1377X);
10533       arg0K0 = 1;
10534       goto L33828;}
10535 #ifndef USE_DIRECT_THREADING
10536       break;
10537 #endif
10538 
10539 #ifdef USE_DIRECT_THREADING
10540 Jlabel36269_85:
10541 #else
10542     case 85 :
10543 #endif
10544       {
10545       x_1378X = SvalS;push_exception_setupB(5, 1);
10546       SstackS = ((SstackS) + -8);
10547       *((long *) (SstackS)) = (long) (x_1378X);
10548       arg0K0 = 1;
10549       goto L33828;}
10550 #ifndef USE_DIRECT_THREADING
10551       break;
10552 #endif
10553 
10554 #ifdef USE_DIRECT_THREADING
10555 Jlabel36269_86:
10556 #else
10557     case 86 :
10558 #endif
10559       {
10560       x_1379X = SvalS;push_exception_setupB(5, 1);
10561       SstackS = ((SstackS) + -8);
10562       *((long *) (SstackS)) = (long) (x_1379X);
10563       arg0K0 = 1;
10564       goto L33828;}
10565 #ifndef USE_DIRECT_THREADING
10566       break;
10567 #endif
10568 
10569 #ifdef USE_DIRECT_THREADING
10570 Jlabel36269_87:
10571 #else
10572     case 87 :
10573 #endif
10574       {
10575       x_1380X = SvalS;push_exception_setupB(5, 1);
10576       SstackS = ((SstackS) + -8);
10577       *((long *) (SstackS)) = (long) (x_1380X);
10578       arg0K0 = 1;
10579       goto L33828;}
10580 #ifndef USE_DIRECT_THREADING
10581       break;
10582 #endif
10583 
10584 #ifdef USE_DIRECT_THREADING
10585 Jlabel36269_88:
10586 #else
10587     case 88 :
10588 #endif
10589       {
10590       x_1381X = SvalS;
10591       if ((0 == (3 & x_1381X))) {
10592         goto L60130;}
10593       else {
10594         if ((3 == (3 & x_1381X))) {
10595           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1381X))))), 2))))) {
10596             goto L60130;}
10597           else {
10598             goto L60133;}}
10599         else {
10600           goto L60133;}}}
10601 #ifndef USE_DIRECT_THREADING
10602       break;
10603 #endif
10604 
10605 #ifdef USE_DIRECT_THREADING
10606 Jlabel36269_89:
10607 #else
10608     case 89 :
10609 #endif
10610       {
10611       x_1382X = SvalS;
10612       if ((0 == (3 & x_1382X))) {
10613         goto L63588;}
10614       else {
10615         if ((3 == (3 & x_1382X))) {
10616           if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1382X))))), 2))))) {
10617             goto L63588;}
10618           else {
10619             goto L63591;}}
10620         else {
10621           goto L63591;}}}
10622 #ifndef USE_DIRECT_THREADING
10623       break;
10624 #endif
10625 
10626 #ifdef USE_DIRECT_THREADING
10627 Jlabel36269_90:
10628 #else
10629     case 90 :
10630 #endif
10631       {
10632       x_1383X = SvalS;push_exception_setupB(5, 1);
10633       SstackS = ((SstackS) + -8);
10634       *((long *) (SstackS)) = (long) (x_1383X);
10635       arg0K0 = 1;
10636       goto L33828;}
10637 #ifndef USE_DIRECT_THREADING
10638       break;
10639 #endif
10640 
10641 #ifdef USE_DIRECT_THREADING
10642 Jlabel36269_91:
10643 #else
10644     case 91 :
10645 #endif
10646       {
10647       arg2_1384X = *((long *) (SstackS));
10648       SstackS = ((SstackS) + 8);
10649       x_1385X = SvalS;push_exception_setupB(5, 1);
10650       SstackS = ((SstackS) + -8);
10651       *((long *) (SstackS)) = (long) (arg2_1384X);
10652       SstackS = ((SstackS) + -8);
10653       *((long *) (SstackS)) = (long) (x_1385X);
10654       arg0K0 = 2;
10655       goto L33828;}
10656 #ifndef USE_DIRECT_THREADING
10657       break;
10658 #endif
10659 
10660 #ifdef USE_DIRECT_THREADING
10661 Jlabel36269_92:
10662 #else
10663     case 92 :
10664 #endif
10665       {
10666       arg2_1386X = *((long *) (SstackS));
10667       SstackS = ((SstackS) + 8);
10668       x_1387X = SvalS;push_exception_setupB(5, 1);
10669       SstackS = ((SstackS) + -8);
10670       *((long *) (SstackS)) = (long) (arg2_1386X);
10671       SstackS = ((SstackS) + -8);
10672       *((long *) (SstackS)) = (long) (x_1387X);
10673       arg0K0 = 2;
10674       goto L33828;}
10675 #ifndef USE_DIRECT_THREADING
10676       break;
10677 #endif
10678 
10679 #ifdef USE_DIRECT_THREADING
10680 Jlabel36269_93:
10681 #else
10682     case 93 :
10683 #endif
10684       {
10685       arg2_1388X = *((long *) (SstackS));
10686       SstackS = ((SstackS) + 8);
10687       x_1389X = SvalS;push_exception_setupB(5, 1);
10688       SstackS = ((SstackS) + -8);
10689       *((long *) (SstackS)) = (long) (arg2_1388X);
10690       SstackS = ((SstackS) + -8);
10691       *((long *) (SstackS)) = (long) (x_1389X);
10692       arg0K0 = 2;
10693       goto L33828;}
10694 #ifndef USE_DIRECT_THREADING
10695       break;
10696 #endif
10697 
10698 #ifdef USE_DIRECT_THREADING
10699 Jlabel36269_94:
10700 #else
10701     case 94 :
10702 #endif
10703       {
10704       x_1390X = SvalS;
10705       if ((0 == (3 & x_1390X))) {
10706         SvalS = (~ (3 | x_1390X));
10707         Scode_pointerS = ((Scode_pointerS) + 1);
10708         arg3K0 = (Scode_pointerS);
10709         goto L36269;}
10710       else {
10711         if ((0 == (3 & x_1390X))) {
10712           goto L50787;}
10713         else {
10714           if ((3 == (3 & x_1390X))) {
10715             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1390X))))), 2))))) {
10716               goto L50787;}
10717             else {
10718               goto L50790;}}
10719           else {
10720             goto L50790;}}}}
10721 #ifndef USE_DIRECT_THREADING
10722       break;
10723 #endif
10724 
10725 #ifdef USE_DIRECT_THREADING
10726 Jlabel36269_95:
10727 #else
10728     case 95 :
10729 #endif
10730       {
10731       x_1391X = SvalS;
10732       if ((0 == (3 & x_1391X))) {
10733         x_1392X = PS_SHIFT_RIGHT_INLINE(x_1391X, 2);
10734         if ((x_1392X < 0)) {
10735           arg0K0 = (~ x_1392X);
10736           goto L50878;}
10737         else {
10738           arg0K0 = x_1392X;
10739           goto L50878;}}
10740       else {
10741         if ((0 == (3 & x_1391X))) {
10742           goto L50861;}
10743         else {
10744           if ((3 == (3 & x_1391X))) {
10745             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1391X))))), 2))))) {
10746               goto L50861;}
10747             else {
10748               goto L50864;}}
10749           else {
10750             goto L50864;}}}}
10751 #ifndef USE_DIRECT_THREADING
10752       break;
10753 #endif
10754 
10755 #ifdef USE_DIRECT_THREADING
10756 Jlabel36269_96:
10757 #else
10758     case 96 :
10759 #endif
10760       {
10761       arg2_1393X = *((long *) (SstackS));
10762       SstackS = ((SstackS) + 8);
10763       y_1394X = SvalS;
10764       if ((0 == (3 & (arg2_1393X | y_1394X)))) {
10765         SvalS = (arg2_1393X & y_1394X);
10766         Scode_pointerS = ((Scode_pointerS) + 1);
10767         arg3K0 = (Scode_pointerS);
10768         goto L36269;}
10769       else {
10770         if ((0 == (3 & arg2_1393X))) {
10771           goto L50963;}
10772         else {
10773           if ((3 == (3 & arg2_1393X))) {
10774             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1393X))))), 2))))) {
10775               goto L50963;}
10776             else {
10777               goto L50972;}}
10778           else {
10779             goto L50972;}}}}
10780 #ifndef USE_DIRECT_THREADING
10781       break;
10782 #endif
10783 
10784 #ifdef USE_DIRECT_THREADING
10785 Jlabel36269_97:
10786 #else
10787     case 97 :
10788 #endif
10789       {
10790       arg2_1395X = *((long *) (SstackS));
10791       SstackS = ((SstackS) + 8);
10792       y_1396X = SvalS;
10793       if ((0 == (3 & (arg2_1395X | y_1396X)))) {
10794         SvalS = (arg2_1395X | y_1396X);
10795         Scode_pointerS = ((Scode_pointerS) + 1);
10796         arg3K0 = (Scode_pointerS);
10797         goto L36269;}
10798       else {
10799         if ((0 == (3 & arg2_1395X))) {
10800           goto L51126;}
10801         else {
10802           if ((3 == (3 & arg2_1395X))) {
10803             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1395X))))), 2))))) {
10804               goto L51126;}
10805             else {
10806               goto L51135;}}
10807           else {
10808             goto L51135;}}}}
10809 #ifndef USE_DIRECT_THREADING
10810       break;
10811 #endif
10812 
10813 #ifdef USE_DIRECT_THREADING
10814 Jlabel36269_98:
10815 #else
10816     case 98 :
10817 #endif
10818       {
10819       arg2_1397X = *((long *) (SstackS));
10820       SstackS = ((SstackS) + 8);
10821       y_1398X = SvalS;
10822       if ((0 == (3 & (arg2_1397X | y_1398X)))) {
10823         SvalS = (arg2_1397X ^ y_1398X);
10824         Scode_pointerS = ((Scode_pointerS) + 1);
10825         arg3K0 = (Scode_pointerS);
10826         goto L36269;}
10827       else {
10828         if ((0 == (3 & arg2_1397X))) {
10829           goto L51289;}
10830         else {
10831           if ((3 == (3 & arg2_1397X))) {
10832             if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1397X))))), 2))))) {
10833               goto L51289;}
10834             else {
10835               goto L51298;}}
10836           else {
10837             goto L51298;}}}}
10838 #ifndef USE_DIRECT_THREADING
10839       break;
10840 #endif
10841 
10842 #ifdef USE_DIRECT_THREADING
10843 Jlabel36269_99:
10844 #else
10845     case 99 :
10846 #endif
10847       {
10848       arg2_1399X = *((long *) (SstackS));
10849       SstackS = ((SstackS) + 8);
10850       y_1400X = SvalS;
10851       if ((3 == (3 & y_1400X))) {
10852         if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1400X))))), 2))))) {
10853           v_1401X = s48_bignum_test((((char *) (-3 + y_1400X))));
10854           if ((1 == v_1401X)) {push_exception_setupB(7, 1);
10855             SstackS = ((SstackS) + -8);
10856             *((long *) (SstackS)) = (long) (arg2_1399X);
10857             SstackS = ((SstackS) + -8);
10858             *((long *) (SstackS)) = (long) (y_1400X);
10859             arg0K0 = 2;
10860             goto L33828;}
10861           else {
10862             if ((0 == (3 & arg2_1399X))) {
10863               if ((arg2_1399X < 0)) {
10864                 arg0K0 = -4;
10865                 goto L47681;}
10866               else {
10867                 arg0K0 = 0;
10868                 goto L47681;}}
10869             else {
10870               if ((3 == (3 & arg2_1399X))) {
10871                 if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1399X))))), 2))))) {
10872                   v_1402X = s48_bignum_test((((char *) (-3 + arg2_1399X))));
10873                   if ((1 == v_1402X)) {
10874                     arg0K0 = 0;
10875                     goto L47697;}
10876                   else {
10877                     arg0K0 = -4;
10878                     goto L47697;}}
10879                 else {
10880                   goto L47698;}}
10881               else {
10882                 goto L47698;}}}}
10883         else {
10884           goto L59188;}}
10885       else {
10886         goto L59188;}}
10887 #ifndef USE_DIRECT_THREADING
10888       break;
10889 #endif
10890 
10891 #ifdef USE_DIRECT_THREADING
10892 Jlabel36269_100:
10893 #else
10894     case 100 :
10895 #endif
10896       {
10897       x_1403X = SvalS;
10898       if ((9 == (255 & x_1403X))) {
10899         arg0K0 = 5;
10900         goto L67723;}
10901       else {
10902         arg0K0 = 1;
10903         goto L67723;}}
10904 #ifndef USE_DIRECT_THREADING
10905       break;
10906 #endif
10907 
10908 #ifdef USE_DIRECT_THREADING
10909 Jlabel36269_101:
10910 #else
10911     case 101 :
10912 #endif
10913       {
10914       arg2_1404X = *((long *) (SstackS));
10915       SstackS = ((SstackS) + 8);
10916       if ((9 == (255 & arg2_1404X))) {
10917         if ((9 == (255 & (SvalS)))) {
10918           x_1405X = SvalS;
10919           if ((arg2_1404X == x_1405X)) {
10920             arg0K0 = 5;
10921             goto L56205;}
10922           else {
10923             arg0K0 = 1;
10924             goto L56205;}}
10925         else {
10926           goto L56176;}}
10927       else {
10928         goto L56176;}}
10929 #ifndef USE_DIRECT_THREADING
10930       break;
10931 #endif
10932 
10933 #ifdef USE_DIRECT_THREADING
10934 Jlabel36269_102:
10935 #else
10936     case 102 :
10937 #endif
10938       {
10939       arg2_1406X = *((long *) (SstackS));
10940       SstackS = ((SstackS) + 8);
10941       if ((9 == (255 & arg2_1406X))) {
10942         if ((9 == (255 & (SvalS)))) {
10943           x_1407X = SvalS;
10944           if ((arg2_1406X < x_1407X)) {
10945             arg0K0 = 5;
10946             goto L56113;}
10947           else {
10948             arg0K0 = 1;
10949             goto L56113;}}
10950         else {
10951           goto L56084;}}
10952       else {
10953         goto L56084;}}
10954 #ifndef USE_DIRECT_THREADING
10955       break;
10956 #endif
10957 
10958 #ifdef USE_DIRECT_THREADING
10959 Jlabel36269_103:
10960 #else
10961     case 103 :
10962 #endif
10963       {
10964       if ((9 == (255 & (SvalS)))) {
10965         SvalS = (-4 & (PS_SHIFT_RIGHT_INLINE((SvalS), 6)));
10966         Scode_pointerS = ((Scode_pointerS) + 1);
10967         arg3K0 = (Scode_pointerS);
10968         goto L36269;}
10969       else {push_exception_setupB(5, 1);
10970         x_1408X = SvalS;
10971         SstackS = ((SstackS) + -8);
10972         *((long *) (SstackS)) = (long) (x_1408X);
10973         arg0K0 = 1;
10974         goto L33828;}}
10975 #ifndef USE_DIRECT_THREADING
10976       break;
10977 #endif
10978 
10979 #ifdef USE_DIRECT_THREADING
10980 Jlabel36269_104:
10981 #else
10982     case 104 :
10983 #endif
10984       {
10985       if ((0 == (3 & (SvalS)))) {
10986         x_1409X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
10987         if ((x_1409X < 0)) {
10988           goto L60439;}
10989         else {
10990           if ((55295 < x_1409X)) {
10991             if ((x_1409X < 57344)) {
10992               goto L60439;}
10993             else {
10994               if ((1114111 < x_1409X)) {
10995                 goto L60439;}
10996               else {
10997                 goto L60445;}}}
10998           else {
10999             goto L60445;}}}
11000       else {push_exception_setupB(5, 1);
11001         x_1410X = SvalS;
11002         SstackS = ((SstackS) + -8);
11003         *((long *) (SstackS)) = (long) (x_1410X);
11004         arg0K0 = 1;
11005         goto L33828;}}
11006 #ifndef USE_DIRECT_THREADING
11007       break;
11008 #endif
11009 
11010 #ifdef USE_DIRECT_THREADING
11011 Jlabel36269_105:
11012 #else
11013     case 105 :
11014 #endif
11015       {
11016       if ((0 == (3 & (SvalS)))) {
11017         x_1411X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11018         if ((x_1411X < 0)) {
11019           arg0K0 = 1;
11020           goto L56011;}
11021         else {
11022           if ((55295 < x_1411X)) {
11023             if ((x_1411X < 57344)) {
11024               arg0K0 = 1;
11025               goto L56011;}
11026             else {
11027               if ((1114111 < x_1411X)) {
11028                 arg0K0 = 1;
11029                 goto L56011;}
11030               else {
11031                 arg0K0 = 5;
11032                 goto L56011;}}}
11033           else {
11034             arg0K0 = 5;
11035             goto L56011;}}}
11036       else {push_exception_setupB(5, 1);
11037         x_1412X = SvalS;
11038         SstackS = ((SstackS) + -8);
11039         *((long *) (SstackS)) = (long) (x_1412X);
11040         arg0K0 = 1;
11041         goto L33828;}}
11042 #ifndef USE_DIRECT_THREADING
11043       break;
11044 #endif
11045 
11046 #ifdef USE_DIRECT_THREADING
11047 Jlabel36269_106:
11048 #else
11049     case 106 :
11050 #endif
11051       {
11052       x_1413X = SvalS;
11053       if ((21 == x_1413X)) {
11054         arg0K0 = 5;
11055         goto L67756;}
11056       else {
11057         arg0K0 = 1;
11058         goto L67756;}}
11059 #ifndef USE_DIRECT_THREADING
11060       break;
11061 #endif
11062 
11063 #ifdef USE_DIRECT_THREADING
11064 Jlabel36269_107:
11065 #else
11066     case 107 :
11067 #endif
11068       {
11069       x_1414X = SvalS;
11070       type_1415X = *((unsigned char *) ((Scode_pointerS) + 1));
11071       if ((3 == (3 & x_1414X))) {
11072         if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1414X))))), 2))) == type_1415X)) {
11073           arg0K0 = 5;
11074           goto L67770;}
11075         else {
11076           arg0K0 = 1;
11077           goto L67770;}}
11078       else {
11079         arg0K0 = 1;
11080         goto L67770;}}
11081 #ifndef USE_DIRECT_THREADING
11082       break;
11083 #endif
11084 
11085 #ifdef USE_DIRECT_THREADING
11086 Jlabel36269_108:
11087 #else
11088     case 108 :
11089 #endif
11090       {
11091       stob_1416X = SvalS;
11092       type_1417X = *((unsigned char *) ((Scode_pointerS) + 1));
11093       if ((3 == (3 & stob_1416X))) {
11094         if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + stob_1416X))))), 2))) == type_1417X)) {
11095           SvalS = (-4 & (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + stob_1416X))))), 8))), 1)));
11096           Scode_pointerS = ((Scode_pointerS) + 2);
11097           arg3K0 = (Scode_pointerS);
11098           goto L36269;}
11099         else {
11100           goto L39050;}}
11101       else {
11102         goto L39050;}}
11103 #ifndef USE_DIRECT_THREADING
11104       break;
11105 #endif
11106 
11107 #ifdef USE_DIRECT_THREADING
11108 Jlabel36269_109:
11109 #else
11110     case 109 :
11111 #endif
11112       {
11113       len_1418X = *((unsigned char *) ((Scode_pointerS) + 1));s48_make_availableAgc((8 + (PS_SHIFT_LEFT_INLINE(len_1418X, 3))));
11114       type_1419X = *((unsigned char *) ((Scode_pointerS) + 2));
11115       len_1420X = PS_SHIFT_LEFT_INLINE(len_1418X, 3);
11116       addr_1421X = s48_allocate_small((8 + len_1420X));
11117       *((long *) addr_1421X) = (long) ((2 + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE(len_1420X, 6)) + type_1419X), 2))));
11118       new_1422X = 3 + (((long) (addr_1421X + 8)));
11119       if ((len_1418X < 1)) {
11120         goto L39155;}
11121       else {
11122         *((long *) ((((char *) (-3 + new_1422X))) + (-8 + (PS_SHIFT_LEFT_INLINE(len_1418X, 3))))) = (long) ((SvalS));
11123         arg0K0 = (-2 + len_1418X);
11124         goto L39139;}}
11125 #ifndef USE_DIRECT_THREADING
11126       break;
11127 #endif
11128 
11129 #ifdef USE_DIRECT_THREADING
11130 Jlabel36269_110:
11131 #else
11132     case 110 :
11133 #endif
11134       {
11135       p_1423X = *((long *) (SstackS));
11136       SstackS = ((SstackS) + 8);
11137       len_1424X = PS_SHIFT_RIGHT_INLINE(p_1423X, 2);s48_make_availableAgc((8 + (PS_SHIFT_LEFT_INLINE(len_1424X, 3))));
11138       type_1425X = *((unsigned char *) ((Scode_pointerS) + 1));
11139       len_1426X = PS_SHIFT_LEFT_INLINE(len_1424X, 3);
11140       addr_1427X = s48_allocate_small((8 + len_1426X));
11141       *((long *) addr_1427X) = (long) ((2 + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE(len_1426X, 6)) + type_1425X), 2))));
11142       new_1428X = 3 + (((long) (addr_1427X + 8)));
11143       p_1429X = *((long *) (SstackS));
11144       SstackS = ((SstackS) + 8);
11145       stack_nargs_1430X = PS_SHIFT_RIGHT_INLINE(p_1429X, 2);
11146       rest_list_1431X = *((long *) (SstackS));
11147       SstackS = ((SstackS) + 8);
11148       arg0K0 = (-1 + stack_nargs_1430X);
11149       goto L39273;}
11150 #ifndef USE_DIRECT_THREADING
11151       break;
11152 #endif
11153 
11154 #ifdef USE_DIRECT_THREADING
11155 Jlabel36269_111:
11156 #else
11157     case 111 :
11158 #endif
11159       {
11160       stob_1432X = SvalS;
11161       type_1433X = *((unsigned char *) ((Scode_pointerS) + 1));
11162       offset_1434X = *((unsigned char *) ((Scode_pointerS) + 2));
11163       if ((3 == (3 & stob_1432X))) {
11164         if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + stob_1432X))))), 2))) == type_1433X)) {
11165           SvalS = (*((long *) ((((char *) (-3 + stob_1432X))) + (PS_SHIFT_LEFT_INLINE(offset_1434X, 3)))));
11166           Scode_pointerS = ((Scode_pointerS) + 3);
11167           arg3K0 = (Scode_pointerS);
11168           goto L36269;}
11169         else {
11170           goto L39441;}}
11171       else {
11172         goto L39441;}}
11173 #ifndef USE_DIRECT_THREADING
11174       break;
11175 #endif
11176 
11177 #ifdef USE_DIRECT_THREADING
11178 Jlabel36269_112:
11179 #else
11180     case 112 :
11181 #endif
11182       {
11183       arg2_1435X = *((long *) (SstackS));
11184       SstackS = ((SstackS) + 8);
11185       value_1436X = SvalS;
11186       type_1437X = *((unsigned char *) ((Scode_pointerS) + 1));
11187       offset_1438X = *((unsigned char *) ((Scode_pointerS) + 2));
11188       if ((3 == (3 & arg2_1435X))) {
11189         if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1435X))))), 2))) == type_1437X)) {
11190           if ((3 == (3 & arg2_1435X))) {
11191             if ((0 == (128 & (*((long *) (((char *) (-11 + arg2_1435X)))))))) {
11192               v_1439X = *((unsigned char *) ((Scode_pointerS) + 3));
11193               if ((0 == v_1439X)) {
11194                 goto L39583;}
11195               else {
11196                 if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
11197                   goto L39583;}
11198                 else {
11199                   merged_arg0K0 = arg2_1435X;
11200                   merged_arg0K1 = (PS_SHIFT_LEFT_INLINE(offset_1438X, 2));
11201                   merged_arg0K2 = value_1436X;
11202 #ifdef USE_DIRECT_THREADING
11203                   proposal_d_write_return_address = &&proposal_d_write_return_0;
11204 #else
11205                   proposal_d_write_return_tag = 0;
11206 #endif
11207                   goto proposal_d_write;
11208                  proposal_d_write_return_0:
11209                   goto L39592;}}}
11210             else {
11211               goto L39551;}}
11212           else {
11213             goto L39551;}}
11214         else {
11215           goto L39608;}}
11216       else {
11217         goto L39608;}}
11218 #ifndef USE_DIRECT_THREADING
11219       break;
11220 #endif
11221 
11222 #ifdef USE_DIRECT_THREADING
11223 Jlabel36269_113:
11224 #else
11225     case 113 :
11226 #endif
11227       {
11228       arg2_1440X = *((long *) (SstackS));
11229       SstackS = ((SstackS) + 8);
11230       init_1441X = SvalS;
11231       type_1442X = *((unsigned char *) ((Scode_pointerS) + 1));
11232       if ((0 == (3 & arg2_1440X))) {
11233         len_1443X = PS_SHIFT_RIGHT_INLINE(arg2_1440X, 2);
11234         if ((len_1443X < 0)) {
11235           goto L39809;}
11236         else {
11237           if ((9007199254740992 < len_1443X)) {
11238             goto L39809;}
11239           else {
11240             Stemp0S = init_1441X;
11241             len_in_bytes_1444X = PS_SHIFT_LEFT_INLINE(len_1443X, 3);
11242             addr_1445X = s48_allocate_tracedAgc((8 + len_in_bytes_1444X));
11243             if ((addr_1445X == NULL)) {
11244               arg0K0 = 1;
11245               goto L39826;}
11246             else {
11247               *((long *) addr_1445X) = (long) ((2 + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE(len_in_bytes_1444X, 6)) + type_1442X), 2))));
11248               arg0K0 = (3 + (((long) (addr_1445X + 8))));
11249               goto L39826;}}}}
11250       else {push_exception_setupB(5, 2);
11251         SstackS = ((SstackS) + -8);
11252         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1442X, 2)));
11253         SstackS = ((SstackS) + -8);
11254         *((long *) (SstackS)) = (long) (arg2_1440X);
11255         SstackS = ((SstackS) + -8);
11256         *((long *) (SstackS)) = (long) (init_1441X);
11257         arg0K0 = 3;
11258         goto L33828;}}
11259 #ifndef USE_DIRECT_THREADING
11260       break;
11261 #endif
11262 
11263 #ifdef USE_DIRECT_THREADING
11264 Jlabel36269_114:
11265 #else
11266     case 114 :
11267 #endif
11268       {
11269       arg2_1446X = *((long *) (SstackS));
11270       SstackS = ((SstackS) + 8);
11271       index_1447X = SvalS;
11272       type_1448X = *((unsigned char *) ((Scode_pointerS) + 1));
11273       if ((0 == (3 & index_1447X))) {
11274         if ((3 == (3 & arg2_1446X))) {
11275           if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1446X))))), 2))) == type_1448X)) {
11276             len_1449X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1446X))))), 8))), 3);
11277             index_1450X = PS_SHIFT_RIGHT_INLINE(index_1447X, 2);
11278             if ((index_1450X < 0)) {
11279               goto L40099;}
11280             else {
11281               if ((index_1450X < len_1449X)) {
11282                 v_1451X = *((unsigned char *) ((Scode_pointerS) + 2));
11283                 if ((0 == v_1451X)) {
11284                   goto L40089;}
11285                 else {
11286                   if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
11287                     goto L40089;}
11288                   else {
11289                     merged_arg0K0 = arg2_1446X;
11290                     merged_arg0K1 = index_1447X;
11291 #ifdef USE_DIRECT_THREADING
11292                     proposal_d_read_return_address = &&proposal_d_read_return_0;
11293 #else
11294                     proposal_d_read_return_tag = 0;
11295 #endif
11296                     goto proposal_d_read;
11297                    proposal_d_read_return_0:
11298                     v_1452X = proposal_d_read0_return_value;
11299                     arg0K0 = v_1452X;
11300                     goto L40098;}}}
11301               else {
11302                 goto L40099;}}}
11303           else {
11304             goto L40054;}}
11305         else {
11306           goto L40054;}}
11307       else {
11308         goto L40054;}}
11309 #ifndef USE_DIRECT_THREADING
11310       break;
11311 #endif
11312 
11313 #ifdef USE_DIRECT_THREADING
11314 Jlabel36269_115:
11315 #else
11316     case 115 :
11317 #endif
11318       {
11319       arg2_1453X = *((long *) (SstackS));
11320       SstackS = ((SstackS) + 8);
11321       arg3_1454X = *((long *) (SstackS));
11322       SstackS = ((SstackS) + 8);
11323       value_1455X = SvalS;
11324       type_1456X = *((unsigned char *) ((Scode_pointerS) + 1));
11325       if ((0 == (3 & arg2_1453X))) {
11326         if ((3 == (3 & arg3_1454X))) {
11327           if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1454X))))), 2))) == type_1456X)) {
11328             if ((3 == (3 & arg3_1454X))) {
11329               if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1454X)))))))) {
11330                 len_1457X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1454X))))), 8))), 3);
11331                 index_1458X = PS_SHIFT_RIGHT_INLINE(arg2_1453X, 2);
11332                 if ((index_1458X < 0)) {
11333                   goto L40392;}
11334                 else {
11335                   if ((index_1458X < len_1457X)) {
11336                     v_1459X = *((unsigned char *) ((Scode_pointerS) + 2));
11337                     if ((0 == v_1459X)) {
11338                       goto L40382;}
11339                     else {
11340                       if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
11341                         goto L40382;}
11342                       else {
11343                         merged_arg0K0 = arg3_1454X;
11344                         merged_arg0K1 = arg2_1453X;
11345                         merged_arg0K2 = value_1455X;
11346 #ifdef USE_DIRECT_THREADING
11347                         proposal_d_write_return_address = &&proposal_d_write_return_1;
11348 #else
11349                         proposal_d_write_return_tag = 1;
11350 #endif
11351                         goto proposal_d_write;
11352                        proposal_d_write_return_1:
11353                         goto L40391;}}}
11354                   else {
11355                     goto L40392;}}}
11356               else {
11357                 goto L40345;}}
11358             else {
11359               goto L40345;}}
11360           else {
11361             goto L40329;}}
11362         else {
11363           goto L40329;}}
11364       else {
11365         goto L40329;}}
11366 #ifndef USE_DIRECT_THREADING
11367       break;
11368 #endif
11369 
11370 #ifdef USE_DIRECT_THREADING
11371 Jlabel36269_116:
11372 #else
11373     case 116 :
11374 #endif
11375       {
11376       addr_1460X = s48_allocate_untracedAgc(16);
11377       if ((addr_1460X == NULL)) {
11378         arg0K0 = 1;
11379         goto L67813;}
11380       else {
11381         *((long *) addr_1460X) = (long) (2122);
11382         arg0K0 = (3 + (((long) (addr_1460X + 8))));
11383         goto L67813;}}
11384 #ifndef USE_DIRECT_THREADING
11385       break;
11386 #endif
11387 
11388 #ifdef USE_DIRECT_THREADING
11389 Jlabel36269_117:
11390 #else
11391     case 117 :
11392 #endif
11393       {
11394       arg2_1461X = *((long *) (SstackS));
11395       SstackS = ((SstackS) + 8);
11396       if ((0 == (3 & (arg2_1461X | (SvalS))))) {
11397         len_1462X = PS_SHIFT_RIGHT_INLINE(arg2_1461X, 2);
11398         init_1463X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11399         if ((len_1462X < 0)) {
11400           goto L51585;}
11401         else {
11402           if ((9007199254740992 < (PS_SHIFT_RIGHT_INLINE((7 + len_1462X), 3)))) {
11403             goto L51585;}
11404           else {
11405             addr_1464X = s48_allocate_untracedAgc((8 + len_1462X));
11406             if ((addr_1464X == NULL)) {
11407               arg0K0 = 1;
11408               goto L51610;}
11409             else {
11410               *((long *) addr_1464X) = (long) ((70 + (PS_SHIFT_LEFT_INLINE(len_1462X, 8))));
11411               arg0K0 = (3 + (((long) (addr_1464X + 8))));
11412               goto L51610;}}}}
11413       else {push_exception_setupB(5, 1);
11414         SstackS = ((SstackS) + -8);
11415         *((long *) (SstackS)) = (long) (arg2_1461X);
11416         x_1465X = SvalS;
11417         SstackS = ((SstackS) + -8);
11418         *((long *) (SstackS)) = (long) (x_1465X);
11419         arg0K0 = 2;
11420         goto L33828;}}
11421 #ifndef USE_DIRECT_THREADING
11422       break;
11423 #endif
11424 
11425 #ifdef USE_DIRECT_THREADING
11426 Jlabel36269_118:
11427 #else
11428     case 118 :
11429 #endif
11430       {
11431       obj_1466X = SvalS;
11432       if ((3 == (3 & obj_1466X))) {
11433         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1466X))))), 2))))) {
11434           SvalS = (PS_SHIFT_LEFT_INLINE((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + (SvalS)))))), 8)), 2));
11435           Scode_pointerS = ((Scode_pointerS) + 1);
11436           arg3K0 = (Scode_pointerS);
11437           goto L36269;}
11438         else {
11439           goto L64863;}}
11440       else {
11441         goto L64863;}}
11442 #ifndef USE_DIRECT_THREADING
11443       break;
11444 #endif
11445 
11446 #ifdef USE_DIRECT_THREADING
11447 Jlabel36269_119:
11448 #else
11449     case 119 :
11450 #endif
11451       {
11452       arg2_1467X = *((long *) (SstackS));
11453       SstackS = ((SstackS) + 8);
11454       if ((3 == (3 & arg2_1467X))) {
11455         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1467X))))), 2))))) {
11456           if ((0 == (3 & (SvalS)))) {
11457             index_1468X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11458             len_1469X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1467X))))), 8);
11459             if ((index_1468X < 0)) {
11460               goto L60582;}
11461             else {
11462               if ((index_1468X < len_1469X)) {
11463                 SvalS = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + arg2_1467X))) + index_1468X))), 2));
11464                 Scode_pointerS = ((Scode_pointerS) + 1);
11465                 arg3K0 = (Scode_pointerS);
11466                 goto L36269;}
11467               else {
11468                 goto L60582;}}}
11469           else {
11470             goto L64269;}}
11471         else {
11472           goto L64269;}}
11473       else {
11474         goto L64269;}}
11475 #ifndef USE_DIRECT_THREADING
11476       break;
11477 #endif
11478 
11479 #ifdef USE_DIRECT_THREADING
11480 Jlabel36269_120:
11481 #else
11482     case 120 :
11483 #endif
11484       {
11485       arg2_1470X = *((long *) (SstackS));
11486       SstackS = ((SstackS) + 8);
11487       arg3_1471X = *((long *) (SstackS));
11488       SstackS = ((SstackS) + 8);
11489       if ((3 == (3 & arg3_1471X))) {
11490         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1471X))))), 2))))) {
11491           if ((0 == (3 & (arg2_1470X | (SvalS))))) {
11492             index_1472X = PS_SHIFT_RIGHT_INLINE(arg2_1470X, 2);
11493             Kchar_1473X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11494             if ((3 == (3 & arg3_1471X))) {
11495               if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1471X)))))))) {
11496                 len_1474X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1471X))))), 8);
11497                 if ((index_1472X < 0)) {
11498                   goto L57784;}
11499                 else {
11500                   if ((index_1472X < len_1474X)) {
11501                     *((unsigned char *) ((((char *) (-3 + arg3_1471X))) + index_1472X)) = (unsigned char) (Kchar_1473X);
11502                     SvalS = 13;
11503                     Scode_pointerS = ((Scode_pointerS) + 1);
11504                     arg3K0 = (Scode_pointerS);
11505                     goto L36269;}
11506                   else {
11507                     goto L57784;}}}
11508               else {
11509                 goto L57763;}}
11510             else {
11511               goto L57763;}}
11512           else {
11513             goto L62929;}}
11514         else {
11515           goto L62929;}}
11516       else {
11517         goto L62929;}}
11518 #ifndef USE_DIRECT_THREADING
11519       break;
11520 #endif
11521 
11522 #ifdef USE_DIRECT_THREADING
11523 Jlabel36269_121:
11524 #else
11525     case 121 :
11526 #endif
11527       {
11528       arg2_1475X = *((long *) (SstackS));
11529       SstackS = ((SstackS) + 8);
11530       if ((0 == (3 & (arg2_1475X | (SvalS))))) {
11531         len_1476X = PS_SHIFT_RIGHT_INLINE(arg2_1475X, 2);
11532         init_1477X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11533         x_1478X = s48_gc_can_allocate_unmovableP();
11534         if (x_1478X) {
11535           if ((len_1476X < 0)) {
11536             goto L51796;}
11537           else {
11538             if ((9007199254740992 < (PS_SHIFT_RIGHT_INLINE((7 + len_1476X), 3)))) {
11539               goto L51796;}
11540             else {
11541               addr_1479X = s48_allocate_untraced_unmovableAgc((8 + len_1476X));
11542               if ((addr_1479X == NULL)) {
11543                 arg0K0 = 1;
11544                 goto L51821;}
11545               else {
11546                 *((long *) addr_1479X) = (long) ((70 + (PS_SHIFT_LEFT_INLINE(len_1476X, 8))));
11547                 arg0K0 = (3 + (((long) (addr_1479X + 8))));
11548                 goto L51821;}}}}
11549         else {push_exception_setupB(15, 1);
11550           arg0K0 = 0;
11551           goto L33828;}}
11552       else {push_exception_setupB(5, 1);
11553         SstackS = ((SstackS) + -8);
11554         *((long *) (SstackS)) = (long) (arg2_1475X);
11555         x_1480X = SvalS;
11556         SstackS = ((SstackS) + -8);
11557         *((long *) (SstackS)) = (long) (x_1480X);
11558         arg0K0 = 2;
11559         goto L33828;}}
11560 #ifndef USE_DIRECT_THREADING
11561       break;
11562 #endif
11563 
11564 #ifdef USE_DIRECT_THREADING
11565 Jlabel36269_122:
11566 #else
11567     case 122 :
11568 #endif
11569       {
11570       arg2_1481X = *((long *) (SstackS));
11571       SstackS = ((SstackS) + 8);
11572       if ((0 == (3 & arg2_1481X))) {
11573         if ((9 == (255 & (SvalS)))) {
11574           len_1482X = PS_SHIFT_RIGHT_INLINE(arg2_1481X, 2);
11575           init_1483X = PS_SHIFT_RIGHT_INLINE((SvalS), 8);
11576           if ((len_1482X < 0)) {
11577             goto L52015;}
11578           else {
11579             if ((9007199254740992 < (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_LEFT_INLINE(len_1482X, 2))), 3)))) {
11580               goto L52015;}
11581             else {
11582               len_1484X = PS_SHIFT_LEFT_INLINE(len_1482X, 2);
11583               addr_1485X = s48_allocate_untracedAgc((8 + len_1484X));
11584               if ((addr_1485X == NULL)) {
11585                 arg0K0 = 1;
11586                 goto L52040;}
11587               else {
11588                 *((long *) addr_1485X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_1484X, 8))));
11589                 arg0K0 = (3 + (((long) (addr_1485X + 8))));
11590                 goto L52040;}}}}
11591         else {
11592           goto L60738;}}
11593       else {
11594         goto L60738;}}
11595 #ifndef USE_DIRECT_THREADING
11596       break;
11597 #endif
11598 
11599 #ifdef USE_DIRECT_THREADING
11600 Jlabel36269_123:
11601 #else
11602     case 123 :
11603 #endif
11604       {
11605       obj_1486X = SvalS;
11606       if ((3 == (3 & obj_1486X))) {
11607         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1486X))))), 2))))) {
11608           x_1487X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + (SvalS)))))), 8)) / 4;
11609           SvalS = (PS_SHIFT_LEFT_INLINE(x_1487X, 2));
11610           Scode_pointerS = ((Scode_pointerS) + 1);
11611           arg3K0 = (Scode_pointerS);
11612           goto L36269;}
11613         else {
11614           goto L64913;}}
11615       else {
11616         goto L64913;}}
11617 #ifndef USE_DIRECT_THREADING
11618       break;
11619 #endif
11620 
11621 #ifdef USE_DIRECT_THREADING
11622 Jlabel36269_124:
11623 #else
11624     case 124 :
11625 #endif
11626       {
11627       arg2_1488X = *((long *) (SstackS));
11628       SstackS = ((SstackS) + 8);
11629       if ((3 == (3 & arg2_1488X))) {
11630         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1488X))))), 2))))) {
11631           if ((0 == (3 & (SvalS)))) {
11632             index_1489X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11633             len_1490X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1488X))))), 8)) / 4;
11634             if ((index_1489X < 0)) {
11635               goto L60803;}
11636             else {
11637               if ((index_1489X < len_1490X)) {
11638                 arg0K0 = 0;
11639                 arg0K1 = 0;
11640                 arg0K2 = 0;
11641                 goto L60831;}
11642               else {
11643                 goto L60803;}}}
11644           else {
11645             goto L64387;}}
11646         else {
11647           goto L64387;}}
11648       else {
11649         goto L64387;}}
11650 #ifndef USE_DIRECT_THREADING
11651       break;
11652 #endif
11653 
11654 #ifdef USE_DIRECT_THREADING
11655 Jlabel36269_125:
11656 #else
11657     case 125 :
11658 #endif
11659       {
11660       arg2_1491X = *((long *) (SstackS));
11661       SstackS = ((SstackS) + 8);
11662       arg3_1492X = *((long *) (SstackS));
11663       SstackS = ((SstackS) + 8);
11664       if ((3 == (3 & arg3_1492X))) {
11665         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1492X))))), 2))))) {
11666           if ((0 == (3 & arg2_1491X))) {
11667             if ((9 == (255 & (SvalS)))) {
11668               index_1493X = PS_SHIFT_RIGHT_INLINE(arg2_1491X, 2);
11669               Kchar_1494X = PS_SHIFT_RIGHT_INLINE((SvalS), 8);
11670               if ((3 == (3 & arg3_1492X))) {
11671                 if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1492X)))))))) {
11672                   len_1495X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1492X))))), 8)) / 4;
11673                   if ((index_1493X < 0)) {
11674                     goto L57939;}
11675                   else {
11676                     if ((index_1493X < len_1495X)) {
11677                       arg0K0 = 0;
11678                       arg0K1 = 0;
11679                       arg0K2 = Kchar_1494X;
11680                       goto L58003;}
11681                     else {
11682                       goto L57939;}}}
11683                 else {
11684                   goto L57918;}}
11685               else {
11686                 goto L57918;}}
11687             else {
11688               goto L63059;}}
11689           else {
11690             goto L63059;}}
11691         else {
11692           goto L63059;}}
11693       else {
11694         goto L63059;}}
11695 #ifndef USE_DIRECT_THREADING
11696       break;
11697 #endif
11698 
11699 #ifdef USE_DIRECT_THREADING
11700 Jlabel36269_126:
11701 #else
11702     case 126 :
11703 #endif
11704       {
11705       arg2_1496X = *((long *) (SstackS));
11706       SstackS = ((SstackS) + 8);
11707       arg3_1497X = *((long *) (SstackS));
11708       SstackS = ((SstackS) + 8);
11709       arg4_1498X = *((long *) (SstackS));
11710       SstackS = ((SstackS) + 8);
11711       arg5_1499X = *((long *) (SstackS));
11712       SstackS = ((SstackS) + 8);
11713       if ((3 == (3 & arg5_1499X))) {
11714         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg5_1499X))))), 2))))) {
11715           if ((0 == (3 & arg4_1498X))) {
11716             if ((3 == (3 & arg3_1497X))) {
11717               if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1497X))))), 2))))) {
11718                 if ((0 == (3 & (arg2_1496X | (SvalS))))) {
11719                   from_index_1500X = PS_SHIFT_RIGHT_INLINE(arg4_1498X, 2);
11720                   to_index_1501X = PS_SHIFT_RIGHT_INLINE(arg2_1496X, 2);
11721                   count_1502X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
11722                   if ((from_index_1500X < 0)) {
11723                     goto L40742;}
11724                   else {
11725                     y_1503X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg5_1499X))))), 8)) / 4;
11726                     if ((y_1503X < (from_index_1500X + count_1502X))) {
11727                       goto L40742;}
11728                     else {
11729                       if ((to_index_1501X < 0)) {
11730                         goto L40742;}
11731                       else {
11732                         y_1504X = (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1497X))))), 8)) / 4;
11733                         if ((y_1504X < (to_index_1501X + count_1502X))) {
11734                           goto L40742;}
11735                         else {
11736                           if ((3 == (3 & arg3_1497X))) {
11737                             if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1497X)))))))) {
11738                               if ((count_1502X < 0)) {
11739                                 goto L40742;}
11740                               else {
11741                                 memmove((void *)((((char *) (-3 + arg3_1497X))) + (PS_SHIFT_LEFT_INLINE(to_index_1501X, 2))), (void *)((((char *) (-3 + arg5_1499X))) + (PS_SHIFT_LEFT_INLINE(from_index_1500X, 2))),(PS_SHIFT_LEFT_INLINE(count_1502X, 2)));
11742                                 SvalS = 13;
11743                                 Scode_pointerS = ((Scode_pointerS) + 1);
11744                                 arg3K0 = (Scode_pointerS);
11745                                 goto L36269;}}
11746                             else {
11747                               goto L40742;}}
11748                           else {
11749                             goto L40742;}}}}}}
11750                 else {
11751                   goto L46639;}}
11752               else {
11753                 goto L46639;}}
11754             else {
11755               goto L46639;}}
11756           else {
11757             goto L46639;}}
11758         else {
11759           goto L46639;}}
11760       else {
11761         goto L46639;}}
11762 #ifndef USE_DIRECT_THREADING
11763       break;
11764 #endif
11765 
11766 #ifdef USE_DIRECT_THREADING
11767 Jlabel36269_127:
11768 #else
11769     case 127 :
11770 #endif
11771       {s48_make_availableAgc(24);
11772       obj_1505X = SvalS;
11773       if ((3 == (3 & obj_1505X))) {
11774         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1505X))))), 2))))) {
11775           table_1506X = Sthe_symbol_tableS;
11776           string_1507X = SvalS;
11777           v_1508X = Haction5350(string_1507X);
11778           index_1509X = 1023 & v_1508X;
11779           link_1510X = *((long *) ((((char *) (-3 + table_1506X))) + (PS_SHIFT_LEFT_INLINE(index_1509X, 3))));
11780           if ((0 == (3 & link_1510X))) {
11781             arg0K0 = (3 + (-4 & link_1510X));
11782             goto L30792;}
11783           else {
11784             arg0K0 = link_1510X;
11785             goto L30792;}}
11786         else {
11787           goto L47843;}}
11788       else {
11789         goto L47843;}}
11790 #ifndef USE_DIRECT_THREADING
11791       break;
11792 #endif
11793 
11794 #ifdef USE_DIRECT_THREADING
11795 Jlabel36269_128:
11796 #else
11797     case 128 :
11798 #endif
11799       {
11800       obj_1511X = SvalS;
11801       if ((3 == (3 & obj_1511X))) {
11802         if ((4 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1511X))))), 2))))) {
11803           x_1512X = SvalS;
11804           descriptor_1513X = *((long *) ((((char *) (-3 + x_1512X))) + 8));
11805           if ((17 == (255 & descriptor_1513X))) {
11806             if ((529 == (*((long *) ((((char *) (-3 + x_1512X))) + 8))))) {
11807               arg0K0 = 5;
11808               goto L62615;}
11809             else {
11810               arg0K0 = 1;
11811               goto L62615;}}
11812           else {
11813             arg0K0 = 5;
11814             goto L62615;}}
11815         else {
11816           goto L62596;}}
11817       else {
11818         goto L62596;}}
11819 #ifndef USE_DIRECT_THREADING
11820       break;
11821 #endif
11822 
11823 #ifdef USE_DIRECT_THREADING
11824 Jlabel36269_129:
11825 #else
11826     case 129 :
11827 #endif
11828       {
11829       arg2_1514X = *((long *) (SstackS));
11830       SstackS = ((SstackS) + 8);
11831       if ((3 == (3 & arg2_1514X))) {
11832         if ((4 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1514X))))), 2))))) {
11833           x_1515X = SvalS;
11834           if ((1 == x_1515X)) {
11835             goto L57541;}
11836           else {
11837             if ((5 == x_1515X)) {
11838               goto L57541;}
11839             else {
11840               goto L57548;}}}
11841         else {
11842           goto L57548;}}
11843       else {
11844         goto L57548;}}
11845 #ifndef USE_DIRECT_THREADING
11846       break;
11847 #endif
11848 
11849 #ifdef USE_DIRECT_THREADING
11850 Jlabel36269_130:
11851 #else
11852     case 130 :
11853 #endif
11854       {
11855       x_1516X = SvalS;
11856       if ((3 == (3 & x_1516X))) {
11857         if ((0 == (128 & (*((long *) (((char *) (-11 + x_1516X)))))))) {
11858           arg0K0 = 1;
11859           goto L67892;}
11860         else {
11861           arg0K0 = 5;
11862           goto L67892;}}
11863       else {
11864         arg0K0 = 5;
11865         goto L67892;}}
11866 #ifndef USE_DIRECT_THREADING
11867       break;
11868 #endif
11869 
11870 #ifdef USE_DIRECT_THREADING
11871 Jlabel36269_131:
11872 #else
11873     case 131 :
11874 #endif
11875       {
11876       x_1517X = SvalS;
11877       if ((3 == (3 & x_1517X))) {
11878         if ((0 == (128 & (*((long *) (((char *) (-11 + x_1517X)))))))) {
11879           *((long *) (((char *) (-11 + x_1517X)))) = (long) ((128 | (*((long *) (((char *) (-11 + x_1517X)))))));
11880           goto L67905;}
11881         else {
11882           goto L67905;}}
11883       else {
11884         goto L67905;}}
11885 #ifndef USE_DIRECT_THREADING
11886       break;
11887 #endif
11888 
11889 #ifdef USE_DIRECT_THREADING
11890 Jlabel36269_132:
11891 #else
11892     case 132 :
11893 #endif
11894       {s48_make_availableAgc(64);
11895       arg2_1518X = *((long *) (SstackS));
11896       SstackS = ((SstackS) + 8);
11897       arg3_1519X = *((long *) (SstackS));
11898       SstackS = ((SstackS) + 8);
11899       arg4_1520X = *((long *) (SstackS));
11900       SstackS = ((SstackS) + 8);
11901       if ((0 == (3 & arg2_1518X))) {
11902         mode_1521X = PS_SHIFT_RIGHT_INLINE(arg2_1518X, 2);
11903         close_silentlyP_1522X = SvalS;
11904         if ((1 == mode_1521X)) {
11905           goto L52466;}
11906         else {
11907           if ((2 == mode_1521X)) {
11908             goto L52466;}
11909           else {
11910             if ((3 == mode_1521X)) {
11911               goto L52466;}
11912             else {
11913               if ((4 == mode_1521X)) {
11914                 goto L52466;}
11915               else {push_exception_setupB(5, 1);
11916                 SstackS = ((SstackS) + -8);
11917                 *((long *) (SstackS)) = (long) (arg4_1520X);
11918                 SstackS = ((SstackS) + -8);
11919                 *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
11920                 arg0K0 = 2;
11921                 goto L33828;}}}}}
11922       else {push_exception_setupB(5, 1);
11923         SstackS = ((SstackS) + -8);
11924         *((long *) (SstackS)) = (long) (arg4_1520X);
11925         SstackS = ((SstackS) + -8);
11926         *((long *) (SstackS)) = (long) (arg3_1519X);
11927         SstackS = ((SstackS) + -8);
11928         *((long *) (SstackS)) = (long) (arg2_1518X);
11929         x_1523X = SvalS;
11930         SstackS = ((SstackS) + -8);
11931         *((long *) (SstackS)) = (long) (x_1523X);
11932         arg0K0 = 4;
11933         goto L33828;}}
11934 #ifndef USE_DIRECT_THREADING
11935       break;
11936 #endif
11937 
11938 #ifdef USE_DIRECT_THREADING
11939 Jlabel36269_133:
11940 #else
11941     case 133 :
11942 #endif
11943       {
11944       obj_1524X = SvalS;
11945       if ((3 == (3 & obj_1524X))) {
11946         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1524X))))), 2))))) {
11947           channel_1525X = SvalS;
11948           if ((0 == (*((long *) (((char *) (-3 + channel_1525X))))))) {push_exception_setupB(5, 1);
11949             SstackS = ((SstackS) + -8);
11950             *((long *) (SstackS)) = (long) (channel_1525X);
11951             arg0K0 = 1;
11952             goto L33828;}
11953           else {
11954             status_1526X = close_channelB(channel_1525X);
11955             if ((status_1526X == NO_ERRORS)) {
11956               SvalS = 13;
11957               Scode_pointerS = ((Scode_pointerS) + 1);
11958               arg3K0 = (Scode_pointerS);
11959               goto L36269;}
11960             else {push_exception_setupB(25, 1);
11961               SstackS = ((SstackS) + -8);
11962               *((long *) (SstackS)) = (long) (channel_1525X);
11963               SstackS = ((SstackS) + -8);
11964               *((long *) (SstackS)) = (long) (status_1526X);
11965               arg0K0 = 2;
11966               goto L33828;}}}
11967         else {
11968           goto L67922;}}
11969       else {
11970         goto L67922;}}
11971 #ifndef USE_DIRECT_THREADING
11972       break;
11973 #endif
11974 
11975 #ifdef USE_DIRECT_THREADING
11976 Jlabel36269_134:
11977 #else
11978     case 134 :
11979 #endif
11980       {s48_make_availableAgc(16);
11981       arg2_1527X = *((long *) (SstackS));
11982       SstackS = ((SstackS) + 8);
11983       arg3_1528X = *((long *) (SstackS));
11984       SstackS = ((SstackS) + 8);
11985       arg4_1529X = *((long *) (SstackS));
11986       SstackS = ((SstackS) + 8);
11987       arg5_1530X = *((long *) (SstackS));
11988       SstackS = ((SstackS) + 8);
11989       if ((3 == (3 & arg5_1530X))) {
11990         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg5_1530X))))), 2))))) {
11991           if ((0 == (3 & (arg3_1528X | arg2_1527X)))) {
11992             x_1531X = SvalS;
11993             if ((1 == x_1531X)) {
11994               goto L61095;}
11995             else {
11996               if ((5 == x_1531X)) {
11997                 goto L61095;}
11998               else {
11999                 goto L61106;}}}
12000           else {
12001             goto L61106;}}
12002         else {
12003           goto L61106;}}
12004       else {
12005         goto L61106;}}
12006 #ifndef USE_DIRECT_THREADING
12007       break;
12008 #endif
12009 
12010 #ifdef USE_DIRECT_THREADING
12011 Jlabel36269_135:
12012 #else
12013     case 135 :
12014 #endif
12015       {s48_make_availableAgc(16);
12016       arg2_1532X = *((long *) (SstackS));
12017       SstackS = ((SstackS) + 8);
12018       arg3_1533X = *((long *) (SstackS));
12019       SstackS = ((SstackS) + 8);
12020       arg4_1534X = *((long *) (SstackS));
12021       SstackS = ((SstackS) + 8);
12022       if ((3 == (3 & arg4_1534X))) {
12023         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1534X))))), 2))))) {
12024           if ((0 == (3 & (arg2_1532X | (SvalS))))) {
12025             start_1535X = PS_SHIFT_RIGHT_INLINE(arg2_1532X, 2);
12026             count_1536X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
12027             v_1537X = 8 == (*((long *) (((char *) (-3 + arg4_1534X)))));
12028             if (v_1537X) {
12029               if ((3 == (3 & arg3_1533X))) {
12030                 if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1533X))))), 2))))) {
12031                   if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1533X))))), 8)) < (start_1535X + count_1536X))) {
12032                     goto L53099;}
12033                   else {
12034                     got_1538X = ps_write_fd((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + arg4_1534X))) + 16))), 2)), ((((char *) (-3 + arg3_1533X))) + start_1535X), count_1536X, &pendingP_1539X, &status_1540X);
12035                     if ((status_1540X == NO_ERRORS)) {
12036                       if (pendingP_1539X) {
12037                         addr_1541X = (((char *) (-3 + arg4_1534X))) + 40;S48_WRITE_BARRIER(arg4_1534X, addr_1541X, 5);
12038                         *((long *) addr_1541X) = (long) (5);
12039                         arg0K0 = 1;
12040                         goto L53098;}
12041                       else {
12042                         arg0K0 = (PS_SHIFT_LEFT_INLINE(got_1538X, 2));
12043                         goto L53098;}}
12044                     else {
12045                       addr_1542X = s48_allocate_small(16);
12046                       *((long *) addr_1542X) = (long) (2070);
12047                       x_1543X = 3 + (((long) (addr_1542X + 8)));
12048                       *((long *) (((char *) (-3 + x_1543X)))) = (long) ((PS_SHIFT_LEFT_INLINE(status_1540X, 2)));
12049                       arg0K0 = x_1543X;
12050                       goto L53098;}}}
12051                 else {
12052                   goto L53099;}}
12053               else {
12054                 goto L53099;}}
12055             else {
12056               goto L53099;}}
12057           else {
12058             goto L61309;}}
12059         else {
12060           goto L61309;}}
12061       else {
12062         goto L61309;}}
12063 #ifndef USE_DIRECT_THREADING
12064       break;
12065 #endif
12066 
12067 #ifdef USE_DIRECT_THREADING
12068 Jlabel36269_136:
12069 #else
12070     case 136 :
12071 #endif
12072       {
12073       if ((0 == (3 & (SvalS)))) {
12074         param_1544X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
12075         if ((0 == param_1544X)) {
12076           x_1545X = ps_io_buffer_size();
12077           SvalS = (PS_SHIFT_LEFT_INLINE(x_1545X, 2));
12078           Scode_pointerS = ((Scode_pointerS) + 1);
12079           arg3K0 = (Scode_pointerS);
12080           goto L36269;}
12081         else {
12082           if ((1 == param_1544X)) {
12083             x_1546X = ps_io_crlf_p();
12084             if (x_1546X) {
12085               arg0K0 = 5;
12086               goto L64084;}
12087             else {
12088               arg0K0 = 1;
12089               goto L64084;}}
12090           else {push_exception_setupB(18, 1);
12091             SstackS = ((SstackS) + -8);
12092             *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(param_1544X, 2)));
12093             arg0K0 = 1;
12094             goto L33828;}}}
12095       else {push_exception_setupB(5, 1);
12096         x_1547X = SvalS;
12097         SstackS = ((SstackS) + -8);
12098         *((long *) (SstackS)) = (long) (x_1547X);
12099         arg0K0 = 1;
12100         goto L33828;}}
12101 #ifndef USE_DIRECT_THREADING
12102       break;
12103 #endif
12104 
12105 #ifdef USE_DIRECT_THREADING
12106 Jlabel36269_137:
12107 #else
12108     case 137 :
12109 #endif
12110       {
12111       obj_1548X = SvalS;
12112       if ((3 == (3 & obj_1548X))) {
12113         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1548X))))), 2))))) {
12114           channel_1549X = SvalS;
12115           if ((0 == (*((long *) (((char *) (-3 + channel_1549X))))))) {push_exception_setupB(5, 1);
12116             SstackS = ((SstackS) + -8);
12117             *((long *) (SstackS)) = (long) (channel_1549X);
12118             arg0K0 = 1;
12119             goto L33828;}
12120           else {
12121             readyP_1550X = ps_check_fd((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_1549X))) + 16))), 2)), (4 == (*((long *) (((char *) (-3 + channel_1549X)))))), &status_1551X);
12122             if ((status_1551X == NO_ERRORS)) {
12123               if (readyP_1550X) {
12124                 arg0K0 = 5;
12125                 goto L57094;}
12126               else {
12127                 arg0K0 = 1;
12128                 goto L57094;}}
12129             else {push_exception_setupB(25, 1);
12130               SstackS = ((SstackS) + -8);
12131               *((long *) (SstackS)) = (long) (channel_1549X);
12132               SstackS = ((SstackS) + -8);
12133               *((long *) (SstackS)) = (long) (status_1551X);
12134               arg0K0 = 2;
12135               goto L33828;}}}
12136         else {
12137           goto L67955;}}
12138       else {
12139         goto L67955;}}
12140 #ifndef USE_DIRECT_THREADING
12141       break;
12142 #endif
12143 
12144 #ifdef USE_DIRECT_THREADING
12145 Jlabel36269_138:
12146 #else
12147     case 138 :
12148 #endif
12149       {
12150       obj_1552X = SvalS;
12151       if ((3 == (3 & obj_1552X))) {
12152         if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1552X))))), 2))))) {
12153           channel_1553X = SvalS;
12154           head_1554X = Spending_channels_headS;
12155           if ((1 == head_1554X)) {
12156             addr_1555X = (((char *) (-3 + channel_1553X))) + 40;S48_WRITE_BARRIER(channel_1553X, addr_1555X, 1);
12157             *((long *) addr_1555X) = (long) (1);
12158             n_1556X = ps_abort_fd_op((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_1553X))) + 16))), 2)));
12159             arg0K0 = (PS_SHIFT_LEFT_INLINE(n_1556X, 2));
12160             goto L61457;}
12161           else {
12162             if ((channel_1553X == head_1554X)) {
12163               channel_1557X = Spending_channels_headS;
12164               next_1558X = *((long *) ((((char *) (-3 + channel_1557X))) + 32));
12165               Spending_channels_headS = next_1558X;
12166               addr_1559X = (((char *) (-3 + channel_1557X))) + 32;S48_WRITE_BARRIER(channel_1557X, addr_1559X, 1);
12167               *((long *) addr_1559X) = (long) (1);
12168               if ((1 == next_1558X)) {
12169                 Spending_channels_tailS = 1;
12170                 goto L17689;}
12171               else {
12172                 goto L17689;}}
12173             else {
12174               arg0K0 = (*((long *) ((((char *) (-3 + head_1554X))) + 32)));
12175               arg0K1 = head_1554X;
12176               goto L17707;}}}
12177         else {
12178           goto L61440;}}
12179       else {
12180         goto L61440;}}
12181 #ifndef USE_DIRECT_THREADING
12182       break;
12183 #endif
12184 
12185 #ifdef USE_DIRECT_THREADING
12186 Jlabel36269_139:
12187 #else
12188     case 139 :
12189 #endif
12190       {s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((3 * (Snumber_of_channelsS)), 3)));
12191       arg0K0 = (-1 + (Snumber_of_channelsS));
12192       arg0K1 = 25;
12193       goto L24821;}
12194 #ifndef USE_DIRECT_THREADING
12195       break;
12196 #endif
12197 
12198 #ifdef USE_DIRECT_THREADING
12199 Jlabel36269_140:
12200 #else
12201     case 140 :
12202 #endif
12203       {
12204       addr_1560X = s48_allocate_weakAgc(16);
12205       *((long *) addr_1560X) = (long) (2102);
12206       weak_pointer_1561X = 3 + (((long) (addr_1560X + 8)));
12207       *((long *) (((char *) (-3 + weak_pointer_1561X)))) = (long) ((SvalS));
12208       SvalS = weak_pointer_1561X;
12209       Scode_pointerS = ((Scode_pointerS) + 1);
12210       arg3K0 = (Scode_pointerS);
12211       goto L36269;}
12212 #ifndef USE_DIRECT_THREADING
12213       break;
12214 #endif
12215 
12216 #ifdef USE_DIRECT_THREADING
12217 Jlabel36269_142:
12218 #else
12219     case 142 :
12220 #endif
12221       {
12222       SvalS = (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)));
12223       Scode_pointerS = ((Scode_pointerS) + 1);
12224       arg3K0 = (Scode_pointerS);
12225       goto L36269;}
12226 #ifndef USE_DIRECT_THREADING
12227       break;
12228 #endif
12229 
12230 #ifdef USE_DIRECT_THREADING
12231 Jlabel36269_143:
12232 #else
12233     case 143 :
12234 #endif
12235       {
12236       proposal_1562X = SvalS;
12237       if ((1 == proposal_1562X)) {
12238         goto L53320;}
12239       else {
12240         if ((3 == (3 & proposal_1562X))) {
12241           if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + proposal_1562X))))), 2))))) {
12242             if ((4 == (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + proposal_1562X))))), 8))), 3)))) {
12243               if ((1 == (*((long *) (((char *) (-3 + proposal_1562X))))))) {
12244                 goto L53320;}
12245               else {
12246                 goto L53351;}}
12247             else {
12248               goto L53351;}}
12249           else {
12250             goto L53351;}}
12251         else {
12252           goto L53351;}}}
12253 #ifndef USE_DIRECT_THREADING
12254       break;
12255 #endif
12256 
12257 #ifdef USE_DIRECT_THREADING
12258 Jlabel36269_144:
12259 #else
12260     case 144 :
12261 #endif
12262       {
12263       proposal_1563X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
12264       if ((1 == proposal_1563X)) {push_exception_setupB(27, 1);
12265         arg0K0 = 0;
12266         goto L33828;}
12267       else {GET_PROPOSAL_LOCK();
12268         log_1564X = *((long *) ((((char *) (-3 + proposal_1563X))) + 8));
12269         arg0K0 = 0;
12270         goto L14809;}}
12271 #ifndef USE_DIRECT_THREADING
12272       break;
12273 #endif
12274 
12275 #ifdef USE_DIRECT_THREADING
12276 Jlabel36269_145:
12277 #else
12278     case 145 :
12279 #endif
12280       {
12281       stob_1565X = SvalS;
12282       type_1566X = *((unsigned char *) ((Scode_pointerS) + 1));
12283       offset_1567X = *((unsigned char *) ((Scode_pointerS) + 2));
12284       if ((3 == (3 & stob_1565X))) {
12285         if (((31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + stob_1565X))))), 2))) == type_1566X)) {
12286           x_1568X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
12287           if ((1 == x_1568X)) {
12288             arg0K0 = (*((long *) ((((char *) (-3 + stob_1565X))) + (PS_SHIFT_LEFT_INLINE(offset_1567X, 3)))));
12289             goto L41026;}
12290           else {
12291             merged_arg0K0 = stob_1565X;
12292             merged_arg0K1 = (PS_SHIFT_LEFT_INLINE(offset_1567X, 2));
12293 #ifdef USE_DIRECT_THREADING
12294             proposal_d_read_return_address = &&proposal_d_read_return_1;
12295 #else
12296             proposal_d_read_return_tag = 1;
12297 #endif
12298             goto proposal_d_read;
12299            proposal_d_read_return_1:
12300             v_1569X = proposal_d_read0_return_value;
12301             arg0K0 = v_1569X;
12302             goto L41026;}}
12303         else {
12304           goto L41027;}}
12305       else {
12306         goto L41027;}}
12307 #ifndef USE_DIRECT_THREADING
12308       break;
12309 #endif
12310 
12311 #ifdef USE_DIRECT_THREADING
12312 Jlabel36269_146:
12313 #else
12314     case 146 :
12315 #endif
12316       {
12317       arg2_1570X = *((long *) (SstackS));
12318       SstackS = ((SstackS) + 8);
12319       arg3_1571X = *((long *) (SstackS));
12320       SstackS = ((SstackS) + 8);
12321       arg4_1572X = *((long *) (SstackS));
12322       SstackS = ((SstackS) + 8);
12323       arg5_1573X = *((long *) (SstackS));
12324       SstackS = ((SstackS) + 8);
12325       if ((3 == (3 & arg5_1573X))) {
12326         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg5_1573X))))), 2))))) {
12327           if ((0 == (3 & arg4_1572X))) {
12328             if ((3 == (3 & arg3_1571X))) {
12329               if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1571X))))), 2))))) {
12330                 if ((0 == (3 & (arg2_1570X | (SvalS))))) {
12331                   from_index_1574X = PS_SHIFT_RIGHT_INLINE(arg4_1572X, 2);
12332                   to_index_1575X = PS_SHIFT_RIGHT_INLINE(arg2_1570X, 2);
12333                   count_1576X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
12334                   v_1577X = *((unsigned char *) ((Scode_pointerS) + 1));
12335                   if ((from_index_1574X < 0)) {
12336                     goto L41120;}
12337                   else {
12338                     if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg5_1573X))))), 8)) < (from_index_1574X + count_1576X))) {
12339                       goto L41120;}
12340                     else {
12341                       if ((to_index_1575X < 0)) {
12342                         goto L41120;}
12343                       else {
12344                         if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1571X))))), 8)) < (to_index_1575X + count_1576X))) {
12345                           goto L41120;}
12346                         else {
12347                           if ((count_1576X < 0)) {
12348                             goto L41120;}
12349                           else {
12350                             if ((3 == (3 & arg3_1571X))) {
12351                               if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1571X)))))))) {
12352                                 if ((0 == v_1577X)) {
12353                                   goto L41196;}
12354                                 else {
12355                                   if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
12356                                     goto L41196;}
12357                                   else {
12358                                     arg0K0 = 4096;
12359                                     arg0K1 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)))))) + 24)));
12360                                     goto L41339;}}}
12361                               else {
12362                                 goto L41164;}}
12363                             else {
12364                               goto L41164;}}}}}}}
12365                 else {
12366                   goto L46905;}}
12367               else {
12368                 goto L46905;}}
12369             else {
12370               goto L46905;}}
12371           else {
12372             goto L46905;}}
12373         else {
12374           goto L46905;}}
12375       else {
12376         goto L46905;}}
12377 #ifndef USE_DIRECT_THREADING
12378       break;
12379 #endif
12380 
12381 #ifdef USE_DIRECT_THREADING
12382 Jlabel36269_147:
12383 #else
12384     case 147 :
12385 #endif
12386       {
12387       arg2_1578X = *((long *) (SstackS));
12388       SstackS = ((SstackS) + 8);
12389       if ((3 == (3 & arg2_1578X))) {
12390         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1578X))))), 2))))) {
12391           if ((0 == (3 & (SvalS)))) {
12392             index_1579X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
12393             len_1580X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1578X))))), 8);
12394             if ((index_1579X < 0)) {
12395               goto L41566;}
12396             else {
12397               if ((index_1579X < len_1580X)) {
12398                 x_1581X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
12399                 if ((1 == x_1581X)) {
12400                   arg0K0 = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + arg2_1578X))) + index_1579X))), 2));
12401                   goto L41565;}
12402                 else {
12403                   index_1582X = PS_SHIFT_LEFT_INLINE(index_1579X, 2);
12404                   log_1583X = *((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)))))) + 16));
12405                   arg0K0 = 0;
12406                   goto L24562;}}
12407               else {
12408                 goto L41566;}}}
12409           else {
12410             goto L47101;}}
12411         else {
12412           goto L47101;}}
12413       else {
12414         goto L47101;}}
12415 #ifndef USE_DIRECT_THREADING
12416       break;
12417 #endif
12418 
12419 #ifdef USE_DIRECT_THREADING
12420 Jlabel36269_148:
12421 #else
12422     case 148 :
12423 #endif
12424       {
12425       arg2_1584X = *((long *) (SstackS));
12426       SstackS = ((SstackS) + 8);
12427       arg3_1585X = *((long *) (SstackS));
12428       SstackS = ((SstackS) + 8);
12429       if ((3 == (3 & arg3_1585X))) {
12430         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1585X))))), 2))))) {
12431           if ((0 == (3 & arg2_1584X))) {
12432             index_1586X = PS_SHIFT_RIGHT_INLINE(arg2_1584X, 2);
12433             byte_1587X = SvalS;
12434             if ((3 == (3 & arg3_1585X))) {
12435               if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1585X)))))))) {
12436                 if ((0 == (3 & byte_1587X))) {
12437                   len_1588X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1585X))))), 8);
12438                   if ((index_1586X < 0)) {
12439                     goto L41696;}
12440                   else {
12441                     if ((index_1586X < len_1588X)) {
12442                       x_1589X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
12443                       if ((1 == x_1589X)) {
12444                         *((unsigned char *) ((((char *) (-3 + arg3_1585X))) + index_1586X)) = (unsigned char) ((PS_SHIFT_RIGHT_INLINE(byte_1587X, 2)));
12445                         goto L41695;}
12446                       else {
12447                         index_1590X = PS_SHIFT_LEFT_INLINE(index_1586X, 2);
12448                         log_1591X = *((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)))))) + 16));
12449                         arg0K0 = 0;
12450                         goto L24738;}}
12451                     else {
12452                       goto L41696;}}}
12453                 else {push_exception_setupB(5, 1);
12454                   SstackS = ((SstackS) + -8);
12455                   *((long *) (SstackS)) = (long) (arg3_1585X);
12456                   SstackS = ((SstackS) + -8);
12457                   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1586X, 2)));
12458                   SstackS = ((SstackS) + -8);
12459                   *((long *) (SstackS)) = (long) (byte_1587X);
12460                   arg0K0 = 3;
12461                   goto L33828;}}
12462               else {
12463                 goto L41645;}}
12464             else {
12465               goto L41645;}}
12466           else {
12467             goto L47206;}}
12468         else {
12469           goto L47206;}}
12470       else {
12471         goto L47206;}}
12472 #ifndef USE_DIRECT_THREADING
12473       break;
12474 #endif
12475 
12476 #ifdef USE_DIRECT_THREADING
12477 Jlabel36269_149:
12478 #else
12479     case 149 :
12480 #endif
12481       {
12482       SvalS = 529;
12483       Scode_pointerS = ((Scode_pointerS) + 1);
12484       arg3K0 = (Scode_pointerS);
12485       goto L36269;}
12486 #ifndef USE_DIRECT_THREADING
12487       break;
12488 #endif
12489 
12490 #ifdef USE_DIRECT_THREADING
12491 Jlabel36269_150:
12492 #else
12493     case 150 :
12494 #endif
12495       {
12496       SvalS = 13;
12497       Scode_pointerS = ((Scode_pointerS) + 1);
12498       arg3K0 = (Scode_pointerS);
12499       goto L36269;}
12500 #ifndef USE_DIRECT_THREADING
12501       break;
12502 #endif
12503 
12504 #ifdef USE_DIRECT_THREADING
12505 Jlabel36269_151:
12506 #else
12507     case 151 :
12508 #endif
12509       {
12510       x_1592X = SvalS;push_exception_setupB(16, 1);
12511       SstackS = ((SstackS) + -8);
12512       *((long *) (SstackS)) = (long) (x_1592X);
12513       arg0K0 = 1;
12514       goto L33828;}
12515 #ifndef USE_DIRECT_THREADING
12516       break;
12517 #endif
12518 
12519 #ifdef USE_DIRECT_THREADING
12520 Jlabel36269_152:
12521 #else
12522     case 152 :
12523 #endif
12524       {
12525       SvalS = 1;
12526       Scode_pointerS = ((Scode_pointerS) + 1);
12527       arg3K0 = (Scode_pointerS);
12528       goto L36269;}
12529 #ifndef USE_DIRECT_THREADING
12530       break;
12531 #endif
12532 
12533 #ifdef USE_DIRECT_THREADING
12534 Jlabel36269_153:
12535 #else
12536     case 153 :
12537 #endif
12538       {
12539       SvalS = 21;
12540       Scode_pointerS = ((Scode_pointerS) + 1);
12541       arg3K0 = (Scode_pointerS);
12542       goto L36269;}
12543 #ifndef USE_DIRECT_THREADING
12544       break;
12545 #endif
12546 
12547 #ifdef USE_DIRECT_THREADING
12548 Jlabel36269_154:
12549 #else
12550     case 154 :
12551 #endif
12552       {
12553       arg2_1593X = *((long *) (SstackS));
12554       SstackS = ((SstackS) + 8);
12555       arg3_1594X = *((long *) (SstackS));
12556       SstackS = ((SstackS) + 8);
12557       arg4_1595X = *((long *) (SstackS));
12558       SstackS = ((SstackS) + 8);
12559       if ((3 == (3 & arg4_1595X))) {
12560         if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1595X))))), 2))))) {
12561           if ((3 == (3 & arg2_1593X))) {
12562             if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1593X))))), 2))))) {
12563               obj_1596X = SvalS;
12564               if ((3 == (3 & obj_1596X))) {
12565                 if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1596X))))), 2))))) {
12566                   undumpables_1597X = SvalS;
12567                   port_1598X = ps_open_output_file((((char *)(((char *) (-3 + arg4_1595X))))), &status_1599X);
12568                   if ((status_1599X == NO_ERRORS)) {
12569                     status_1600X = ps_write_string((((char *)(((char *) (-3 + arg2_1593X))))), port_1598X);
12570                     if ((status_1600X == NO_ERRORS)) {
12571                       status_1601X = s48_write_image(arg3_1594X, undumpables_1597X, port_1598X);
12572                       if ((status_1601X == NO_ERRORS)) {
12573                         status_1602X = ps_close(port_1598X);
12574                         if ((status_1602X == NO_ERRORS)) {
12575                           SvalS = 13;
12576                           Scode_pointerS = ((Scode_pointerS) + 1);
12577                           arg3K0 = (Scode_pointerS);
12578                           goto L36269;}
12579                         else {
12580                           arg0K0 = status_1602X;
12581                           goto L58172;}}
12582                       else {
12583                         close_status_1603X = ps_close(port_1598X);
12584                         if ((close_status_1603X == NO_ERRORS)) {
12585                           arg0K0 = status_1601X;
12586                           goto L58172;}
12587                         else {
12588                           arg0K0 = close_status_1603X;
12589                           goto L58172;}}}
12590                     else {
12591                       close_status_1604X = ps_close(port_1598X);
12592                       if ((close_status_1604X == NO_ERRORS)) {
12593                         arg0K0 = status_1600X;
12594                         goto L58172;}
12595                       else {
12596                         arg0K0 = close_status_1604X;
12597                         goto L58172;}}}
12598                   else {
12599                     arg0K0 = status_1599X;
12600                     goto L58172;}}
12601                 else {
12602                   goto L63244;}}
12603               else {
12604                 goto L63244;}}
12605             else {
12606               goto L63244;}}
12607           else {
12608             goto L63244;}}
12609         else {
12610           goto L63244;}}
12611       else {
12612         goto L63244;}}
12613 #ifndef USE_DIRECT_THREADING
12614       break;
12615 #endif
12616 
12617 #ifdef USE_DIRECT_THREADING
12618 Jlabel36269_155:
12619 #else
12620     case 155 :
12621 #endif
12622       {
12623       SvalS = 13;s48_collect(1);
12624       Scode_pointerS = ((Scode_pointerS) + 1);
12625       arg3K0 = (Scode_pointerS);
12626       goto L36269;}
12627 #ifndef USE_DIRECT_THREADING
12628       break;
12629 #endif
12630 
12631 #ifdef USE_DIRECT_THREADING
12632 Jlabel36269_156:
12633 #else
12634     case 156 :
12635 #endif
12636       {
12637       obj_1605X = SvalS;
12638       if ((3 == (3 & obj_1605X))) {
12639         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1605X))))), 2))))) {
12640           x_1606X = Haction5350((SvalS));
12641           SvalS = (PS_SHIFT_LEFT_INLINE(x_1606X, 2));
12642           Scode_pointerS = ((Scode_pointerS) + 1);
12643           arg3K0 = (Scode_pointerS);
12644           goto L36269;}
12645         else {
12646           goto L63952;}}
12647       else {
12648         goto L63952;}}
12649 #ifndef USE_DIRECT_THREADING
12650       break;
12651 #endif
12652 
12653 #ifdef USE_DIRECT_THREADING
12654 Jlabel36269_157:
12655 #else
12656     case 157 :
12657 #endif
12658       {s48_make_availableAgc(48);
12659       arg2_1607X = *((long *) (SstackS));
12660       SstackS = ((SstackS) + 8);
12661       proc_1608X = SvalS;
12662       if ((3 == (3 & arg2_1607X))) {
12663         if ((3 == (3 & proc_1608X))) {
12664           if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + proc_1608X))))), 2))))) {GET_PROPOSAL_LOCK();
12665             addr_1609X = s48_allocate_small(24);
12666             *((long *) addr_1609X) = (long) (4098);
12667             x_1610X = 3 + (((long) (addr_1609X + 8)));
12668             *((long *) (((char *) (-3 + x_1610X)))) = (long) (arg2_1607X);
12669             *((long *) ((((char *) (-3 + x_1610X))) + 8)) = (long) (proc_1608X);
12670             b_1611X = SHARED_REF((Sfinalizer_alistS));
12671             addr_1612X = s48_allocate_small(24);
12672             *((long *) addr_1612X) = (long) (4098);
12673             x_1613X = 3 + (((long) (addr_1612X + 8)));
12674             *((long *) (((char *) (-3 + x_1613X)))) = (long) (x_1610X);
12675             *((long *) ((((char *) (-3 + x_1613X))) + 8)) = (long) (b_1611X);SHARED_SETB((Sfinalizer_alistS), x_1613X);RELEASE_PROPOSAL_LOCK();
12676             SvalS = 13;
12677             Scode_pointerS = ((Scode_pointerS) + 1);
12678             arg3K0 = (Scode_pointerS);
12679             goto L36269;}
12680           else {
12681             goto L58428;}}
12682         else {
12683           goto L58428;}}
12684       else {
12685         goto L58428;}}
12686 #ifndef USE_DIRECT_THREADING
12687       break;
12688 #endif
12689 
12690 #ifdef USE_DIRECT_THREADING
12691 Jlabel36269_158:
12692 #else
12693     case 158 :
12694 #endif
12695       {
12696       arg2_1614X = *((long *) (SstackS));
12697       SstackS = ((SstackS) + 8);
12698       if ((0 == (3 & arg2_1614X))) {
12699         key_1615X = PS_SHIFT_RIGHT_INLINE(arg2_1614X, 2);
12700         other_1616X = SvalS;
12701         if ((6 == key_1615X)) {
12702           SvalS = (-4 & other_1616X);
12703           Scode_pointerS = ((Scode_pointerS) + 1);
12704           arg3K0 = (Scode_pointerS);
12705           goto L36269;}
12706         else {
12707           if ((0 == key_1615X)) {
12708             x_1617X = s48_available();
12709             SvalS = (PS_SHIFT_LEFT_INLINE(x_1617X, 2));
12710             Scode_pointerS = ((Scode_pointerS) + 1);
12711             arg3K0 = (Scode_pointerS);
12712             goto L36269;}
12713           else {
12714             if ((1 == key_1615X)) {
12715               bytes_1618X = s48_heap_size();
12716               SvalS = (-4 & (PS_SHIFT_RIGHT_INLINE((7 + bytes_1618X), 1)));
12717               Scode_pointerS = ((Scode_pointerS) + 1);
12718               arg3K0 = (Scode_pointerS);
12719               goto L36269;}
12720             else {
12721               if ((2 == key_1615X)) {
12722                 x_1619X = s48_max_heap_size();
12723                 SvalS = (PS_SHIFT_LEFT_INLINE(x_1619X, 2));
12724                 Scode_pointerS = ((Scode_pointerS) + 1);
12725                 arg3K0 = (Scode_pointerS);
12726                 goto L36269;}
12727               else {
12728                 if ((3 == key_1615X)) {
12729                   SvalS = (PS_SHIFT_LEFT_INLINE(((Sstack_endS) - (Sstack_beginS)), 2));
12730                   Scode_pointerS = ((Scode_pointerS) + 1);
12731                   arg3K0 = (Scode_pointerS);
12732                   goto L36269;}
12733                 else {
12734                   if ((4 == key_1615X)) {
12735                     x_1620X = s48_gc_count();
12736                     SvalS = (PS_SHIFT_LEFT_INLINE(x_1620X, 2));
12737                     Scode_pointerS = ((Scode_pointerS) + 1);
12738                     arg3K0 = (Scode_pointerS);
12739                     goto L36269;}
12740                   else {
12741                     if ((5 == key_1615X)) {push_exception_setupB(15, 1);
12742                       SstackS = ((SstackS) + -8);
12743                       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(key_1615X, 2)));
12744                       SstackS = ((SstackS) + -8);
12745                       *((long *) (SstackS)) = (long) (other_1616X);
12746                       arg0K0 = 2;
12747                       goto L33828;}
12748                     else {push_exception_setupB(18, 1);
12749                       SstackS = ((SstackS) + -8);
12750                       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(key_1615X, 2)));
12751                       SstackS = ((SstackS) + -8);
12752                       *((long *) (SstackS)) = (long) (other_1616X);
12753                       arg0K0 = 2;
12754                       goto L33828;}}}}}}}}
12755       else {push_exception_setupB(5, 1);
12756         SstackS = ((SstackS) + -8);
12757         *((long *) (SstackS)) = (long) (arg2_1614X);
12758         x_1621X = SvalS;
12759         SstackS = ((SstackS) + -8);
12760         *((long *) (SstackS)) = (long) (x_1621X);
12761         arg0K0 = 2;
12762         goto L33828;}}
12763 #ifndef USE_DIRECT_THREADING
12764       break;
12765 #endif
12766 
12767 #ifdef USE_DIRECT_THREADING
12768 Jlabel36269_159:
12769 #else
12770     case 159 :
12771 #endif
12772       {
12773       if ((0 == (3 & (SvalS)))) {
12774         type_1622X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
12775         arg4K0 = 1;
12776         goto L61576;}
12777       else {push_exception_setupB(5, 1);
12778         x_1623X = SvalS;
12779         SstackS = ((SstackS) + -8);
12780         *((long *) (SstackS)) = (long) (x_1623X);
12781         arg0K0 = 1;
12782         goto L33828;}}
12783 #ifndef USE_DIRECT_THREADING
12784       break;
12785 #endif
12786 
12787 #ifdef USE_DIRECT_THREADING
12788 Jlabel36269_160:
12789 #else
12790     case 160 :
12791 #endif
12792       {
12793       x_1624X = SvalS;
12794       arg4K0 = 1;
12795       arg0K1 = x_1624X;
12796       goto L68075;}
12797 #ifndef USE_DIRECT_THREADING
12798       break;
12799 #endif
12800 
12801 #ifdef USE_DIRECT_THREADING
12802 Jlabel36269_161:
12803 #else
12804     case 161 :
12805 #endif
12806       {
12807       SvalS = (Scurrent_threadS);
12808       Scode_pointerS = ((Scode_pointerS) + 1);
12809       arg3K0 = (Scode_pointerS);
12810       goto L36269;}
12811 #ifndef USE_DIRECT_THREADING
12812       break;
12813 #endif
12814 
12815 #ifdef USE_DIRECT_THREADING
12816 Jlabel36269_162:
12817 #else
12818     case 162 :
12819 #endif
12820       {
12821       Scurrent_threadS = (SvalS);
12822       SvalS = 13;
12823       Scode_pointerS = ((Scode_pointerS) + 1);
12824       arg3K0 = (Scode_pointerS);
12825       goto L36269;}
12826 #ifndef USE_DIRECT_THREADING
12827       break;
12828 #endif
12829 
12830 #ifdef USE_DIRECT_THREADING
12831 Jlabel36269_163:
12832 #else
12833     case 163 :
12834 #endif
12835       {
12836       val_1625X = SHARED_REF((Ssession_dataS));
12837       SvalS = val_1625X;
12838       Scode_pointerS = ((Scode_pointerS) + 1);
12839       arg3K0 = (Scode_pointerS);
12840       goto L36269;}
12841 #ifndef USE_DIRECT_THREADING
12842       break;
12843 #endif
12844 
12845 #ifdef USE_DIRECT_THREADING
12846 Jlabel36269_164:
12847 #else
12848     case 164 :
12849 #endif
12850       {SHARED_SETB((Ssession_dataS), (SvalS));
12851       SvalS = 13;
12852       Scode_pointerS = ((Scode_pointerS) + 1);
12853       arg3K0 = (Scode_pointerS);
12854       goto L36269;}
12855 #ifndef USE_DIRECT_THREADING
12856       break;
12857 #endif
12858 
12859 #ifdef USE_DIRECT_THREADING
12860 Jlabel36269_165:
12861 #else
12862     case 165 :
12863 #endif
12864       {
12865       obj_1626X = SvalS;
12866       if ((3 == (3 & obj_1626X))) {
12867         if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1626X))))), 2))))) {
12868           if (((PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + (SvalS)))))), 8))), 3)) < 205)) {
12869             goto L38030;}
12870           else {
12871             temp_1627X = SHARED_REF((Sexception_handlersS));SHARED_SETB((Sexception_handlersS), (SvalS));
12872             SvalS = temp_1627X;
12873             Scode_pointerS = ((Scode_pointerS) + 1);
12874             arg3K0 = (Scode_pointerS);
12875             goto L36269;}}
12876         else {
12877           goto L38030;}}
12878       else {
12879         goto L38030;}}
12880 #ifndef USE_DIRECT_THREADING
12881       break;
12882 #endif
12883 
12884 #ifdef USE_DIRECT_THREADING
12885 Jlabel36269_166:
12886 #else
12887     case 166 :
12888 #endif
12889       {
12890       data_1628X = 3 + (((long) (SstackS)));
12891       SstackS = ((SstackS) + 40);
12892       code_1629X = *((long *) ((((char *) (-3 + data_1628X))) + 16));
12893       exception_1630X = *((long *) ((((char *) (-3 + data_1628X))) + 24));
12894       size_1631X = *((long *) ((((char *) (-3 + data_1628X))) + 32));
12895       pc_1632X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + data_1628X))) + 8))), 2);
12896       opcode_1633X = *((unsigned char *) ((((char *) (-3 + code_1629X))) + pc_1632X));
12897       if ((opcode_1633X < 55)) {
12898         if ((4 == opcode_1633X)) {
12899           goto L36351;}
12900         else {
12901           if ((5 == opcode_1633X)) {
12902             goto L36351;}
12903           else {
12904             Slast_code_calledS = code_1629X;
12905             Scode_pointerS = ((((char *) (-3 + code_1629X))) + pc_1632X);push_exception_setupB(29, 1);
12906             SstackS = ((SstackS) + -8);
12907             *((long *) (SstackS)) = (long) (exception_1630X);
12908             arg0K0 = 1;
12909             goto L33828;}}}
12910       else {
12911         goto L36351;}}
12912 #ifndef USE_DIRECT_THREADING
12913       break;
12914 #endif
12915 
12916 #ifdef USE_DIRECT_THREADING
12917 Jlabel36269_167:
12918 #else
12919     case 167 :
12920 #endif
12921       {
12922       data_1634X = 3 + (((long) (SstackS)));
12923       SstackS = ((SstackS) + 32);
12924       exception_1635X = *((long *) ((((char *) (-3 + data_1634X))) + 8));
12925       bc_code_1636X = *((long *) ((((char *) (-3 + data_1634X))) + 24));
12926       bc_pc_1637X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + data_1634X))) + 16))), 2);
12927       opcode_1638X = *((unsigned char *) ((((char *) (-3 + bc_code_1636X))) + bc_pc_1637X));
12928       if ((opcode_1638X < 55)) {
12929         if ((4 == opcode_1638X)) {
12930           goto L34091;}
12931         else {
12932           if ((5 == opcode_1638X)) {
12933             goto L34091;}
12934           else {
12935             Slast_code_calledS = bc_code_1636X;
12936             Scode_pointerS = ((((char *) (-3 + bc_code_1636X))) + bc_pc_1637X);push_exception_setupB(29, 1);
12937             SstackS = ((SstackS) + -8);
12938             *((long *) (SstackS)) = (long) (exception_1635X);
12939             arg0K0 = 1;
12940             goto L33828;}}}
12941       else {
12942         goto L34091;}}
12943 #ifndef USE_DIRECT_THREADING
12944       break;
12945 #endif
12946 
12947 #ifdef USE_DIRECT_THREADING
12948 Jlabel36269_168:
12949 #else
12950     case 168 :
12951 #endif
12952       {
12953       obj_1639X = SvalS;
12954       if ((3 == (3 & obj_1639X))) {
12955         if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1639X))))), 2))))) {
12956           if (((PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + (SvalS)))))), 8))), 3)) < 7)) {
12957             goto L36920;}
12958           else {
12959             temp_1640X = SHARED_REF((Sinterrupt_handlersS));SHARED_SETB((Sinterrupt_handlersS), (SvalS));
12960             SvalS = temp_1640X;
12961             Scode_pointerS = ((Scode_pointerS) + 1);
12962             arg3K0 = (Scode_pointerS);
12963             goto L36269;}}
12964         else {
12965           goto L36920;}}
12966       else {
12967         goto L36920;}}
12968 #ifndef USE_DIRECT_THREADING
12969       break;
12970 #endif
12971 
12972 #ifdef USE_DIRECT_THREADING
12973 Jlabel36269_169:
12974 #else
12975     case 169 :
12976 #endif
12977       {
12978       old_1641X = Senabled_interruptsS;
12979       p_1642X = SvalS;
12980       Senabled_interruptsS = (PS_SHIFT_RIGHT_INLINE(p_1642X, 2));
12981       if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
12982         s48_Sstack_limitS = (Sreal_stack_limitS);
12983         if ((s48_Spending_eventsPS)) {
12984           s48_Sstack_limitS = (((char *) -1));
12985           goto L68123;}
12986         else {
12987           goto L68123;}}
12988       else {
12989         s48_Sstack_limitS = (((char *) -1));
12990         goto L68123;}}
12991 #ifndef USE_DIRECT_THREADING
12992       break;
12993 #endif
12994 
12995 #ifdef USE_DIRECT_THREADING
12996 Jlabel36269_170:
12997 #else
12998     case 170 :
12999 #endif
13000       {
13001       SstackS = ((SstackS) + 8);
13002 #ifdef USE_DIRECT_THREADING
13003       s48_pop_interrupt_state_return_address = &&s48_pop_interrupt_state_return_0;
13004 #else
13005       s48_pop_interrupt_state_return_tag = 0;
13006 #endif
13007       goto s48_pop_interrupt_state;
13008      s48_pop_interrupt_state_return_0:
13009       pc_1643X = *((long *) (SstackS));
13010       SstackS = ((SstackS) + 8);
13011       code_1644X = *((long *) (SstackS));
13012       SstackS = ((SstackS) + 8);
13013       Slast_code_calledS = code_1644X;
13014       Scode_pointerS = ((((char *) (-3 + code_1644X))) + (PS_SHIFT_RIGHT_INLINE(pc_1643X, 2)));
13015       v_1645X = *((long *) (SstackS));
13016       SstackS = ((SstackS) + 8);
13017       SvalS = v_1645X;
13018       arg3K0 = (Scode_pointerS);
13019       goto L36269;}
13020 #ifndef USE_DIRECT_THREADING
13021       break;
13022 #endif
13023 
13024 #ifdef USE_DIRECT_THREADING
13025 Jlabel36269_171:
13026 #else
13027     case 171 :
13028 #endif
13029       {
13030       SstackS = ((SstackS) + 8);
13031 #ifdef USE_DIRECT_THREADING
13032       s48_pop_interrupt_state_return_address = &&s48_pop_interrupt_state_return_1;
13033 #else
13034       s48_pop_interrupt_state_return_tag = 1;
13035 #endif
13036       goto s48_pop_interrupt_state;
13037      s48_pop_interrupt_state_return_1:
13038       v_1646X = *((long *) (SstackS));
13039       SstackS = ((SstackS) + 8);
13040       SvalS = v_1646X;
13041       p_1647X = *((long *) (SstackS));
13042       SstackS = ((SstackS) + 8);
13043       v_1648X = s48_call_native_procedure((SvalS), (PS_SHIFT_RIGHT_INLINE(p_1647X, 2)));
13044       arg0K0 = v_1648X;
13045       goto L65742;}
13046 #ifndef USE_DIRECT_THREADING
13047       break;
13048 #endif
13049 
13050 #ifdef USE_DIRECT_THREADING
13051 Jlabel36269_172:
13052 #else
13053     case 172 :
13054 #endif
13055       {
13056       SstackS = ((SstackS) + 8);
13057 #ifdef USE_DIRECT_THREADING
13058       s48_pop_interrupt_state_return_address = &&s48_pop_interrupt_state_return_2;
13059 #else
13060       s48_pop_interrupt_state_return_tag = 2;
13061 #endif
13062       goto s48_pop_interrupt_state;
13063      s48_pop_interrupt_state_return_2:
13064       return_address_1649X = *((long *) (SstackS));
13065       SstackS = ((SstackS) + 8);
13066       template_1650X = *((long *) (SstackS));
13067       SstackS = ((SstackS) + 8);
13068       v_1651X = *((long *) (SstackS));
13069       SstackS = ((SstackS) + 8);
13070       SvalS = v_1651X;
13071       v_1652X = s48_jump_to_native_address(return_address_1649X, template_1650X);
13072       arg0K0 = v_1652X;
13073       goto L65742;}
13074 #ifndef USE_DIRECT_THREADING
13075       break;
13076 #endif
13077 
13078 #ifdef USE_DIRECT_THREADING
13079 Jlabel36269_173:
13080 #else
13081     case 173 :
13082 #endif
13083       {
13084       if ((0 == (3 & (SvalS)))) {
13085         p_1653X = SvalS;
13086         Spending_interruptsS = (-2 & (Spending_interruptsS));
13087         if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
13088           s48_Sstack_limitS = (Sreal_stack_limitS);
13089           if ((s48_Spending_eventsPS)) {
13090             s48_Sstack_limitS = (((char *) -1));
13091             goto L65078;}
13092           else {
13093             goto L65078;}}
13094         else {
13095           s48_Sstack_limitS = (((char *) -1));
13096           goto L65078;}}
13097       else {push_exception_setupB(5, 1);
13098         x_1654X = SvalS;
13099         SstackS = ((SstackS) + -8);
13100         *((long *) (SstackS)) = (long) (x_1654X);
13101         arg0K0 = 1;
13102         goto L33828;}}
13103 #ifndef USE_DIRECT_THREADING
13104       break;
13105 #endif
13106 
13107 #ifdef USE_DIRECT_THREADING
13108 Jlabel36269_174:
13109 #else
13110     case 174 :
13111 #endif
13112       {
13113       arg2_1655X = *((long *) (SstackS));
13114       SstackS = ((SstackS) + 8);
13115       if ((0 == (3 & arg2_1655X))) {
13116         x_1656X = SvalS;
13117         if ((1 == x_1656X)) {
13118           goto L62808;}
13119         else {
13120           if ((5 == x_1656X)) {
13121             goto L62808;}
13122           else {
13123             goto L62813;}}}
13124       else {
13125         goto L62813;}}
13126 #ifndef USE_DIRECT_THREADING
13127       break;
13128 #endif
13129 
13130 #ifdef USE_DIRECT_THREADING
13131 Jlabel36269_175:
13132 #else
13133     case 175 :
13134 #endif
13135       {
13136       p_1657X = *((long *) (SstackS));
13137       SstackS = ((SstackS) + 8);
13138       nargs_1658X = PS_SHIFT_RIGHT_INLINE(p_1657X, 2);
13139       p_1659X = *((long *) (SstackS));
13140       SstackS = ((SstackS) + 8);
13141       rest_list_1660X = *((long *) (SstackS));
13142       SstackS = ((SstackS) + 8);
13143       if ((61 < nargs_1658X)) {push_exception_setupB(20, 1);
13144         x_1661X = *((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE((-4 & p_1659X), 1)))));
13145         SstackS = ((SstackS) + -8);
13146         *((long *) (SstackS)) = (long) (x_1661X);
13147         SstackS = ((SstackS) + -8);
13148         *((long *) (SstackS)) = (long) (nargs_1658X);
13149         arg0K0 = 2;
13150         goto L33828;}
13151       else {
13152         arg0K0 = rest_list_1660X;
13153         goto L41907;}}
13154 #ifndef USE_DIRECT_THREADING
13155       break;
13156 #endif
13157 
13158 #ifdef USE_DIRECT_THREADING
13159 Jlabel36269_176:
13160 #else
13161     case 176 :
13162 #endif
13163       {
13164       p_1662X = *((long *) (SstackS));
13165       SstackS = ((SstackS) + 8);
13166       nargs_1663X = PS_SHIFT_RIGHT_INLINE(p_1662X, 2);
13167       p_1664X = *((long *) (SstackS));
13168       SstackS = ((SstackS) + 8);
13169       rest_list_1665X = *((long *) (SstackS));
13170       SstackS = ((SstackS) + 8);
13171       if ((61 < nargs_1663X)) {push_exception_setupB(20, 1);
13172         x_1666X = *((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE((-4 & p_1664X), 1)))));
13173         SstackS = ((SstackS) + -8);
13174         *((long *) (SstackS)) = (long) (x_1666X);
13175         SstackS = ((SstackS) + -8);
13176         *((long *) (SstackS)) = (long) (nargs_1663X);
13177         arg0K0 = 2;
13178         goto L33828;}
13179       else {
13180         arg0K0 = rest_list_1665X;
13181         goto L42208;}}
13182 #ifndef USE_DIRECT_THREADING
13183       break;
13184 #endif
13185 
13186 #ifdef USE_DIRECT_THREADING
13187 Jlabel36269_177:
13188 #else
13189     case 177 :
13190 #endif
13191       {s48_make_availableAgc(40);
13192       arg2_1667X = *((long *) (SstackS));
13193       SstackS = ((SstackS) + 8);
13194       if ((3 == (3 & arg2_1667X))) {
13195         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1667X))))), 2))))) {
13196           x_1668X = SvalS;
13197           if ((1 == x_1668X)) {
13198             goto L61671;}
13199           else {
13200             if ((5 == x_1668X)) {
13201               goto L61671;}
13202             else {
13203               goto L61676;}}}
13204         else {
13205           goto L61676;}}
13206       else {
13207         goto L61676;}}
13208 #ifndef USE_DIRECT_THREADING
13209       break;
13210 #endif
13211 
13212 #ifdef USE_DIRECT_THREADING
13213 Jlabel36269_178:
13214 #else
13215     case 178 :
13216 #endif
13217       {
13218       arg2_1669X = *((long *) (SstackS));
13219       SstackS = ((SstackS) + 8);
13220       if ((3 == (3 & arg2_1669X))) {
13221         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1669X))))), 2))))) {
13222           x_1670X = SvalS;
13223           if ((1 == x_1670X)) {
13224             goto L46052;}
13225           else {
13226             if ((5 == x_1670X)) {
13227               goto L46052;}
13228             else {
13229               goto L46057;}}}
13230         else {
13231           goto L46057;}}
13232       else {
13233         goto L46057;}}
13234 #ifndef USE_DIRECT_THREADING
13235       break;
13236 #endif
13237 
13238 #ifdef USE_DIRECT_THREADING
13239 Jlabel36269_179:
13240 #else
13241     case 179 :
13242 #endif
13243       {
13244       arg4K0 = 1;
13245       goto L68185;}
13246 #ifndef USE_DIRECT_THREADING
13247       break;
13248 #endif
13249 
13250 #ifdef USE_DIRECT_THREADING
13251 Jlabel36269_180:
13252 #else
13253     case 180 :
13254 #endif
13255       {
13256       arg_1671X = SvalS;
13257       if ((3 == (3 & arg_1671X))) {
13258         if ((14 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg_1671X))))), 2))))) {
13259           uid_val_1672X = *((long *) ((((char *) (-3 + arg_1671X))) + 16));
13260           if ((0 == (3 & uid_val_1672X))) {
13261             uid_1673X = PS_SHIFT_RIGHT_INLINE(uid_val_1672X, 2);
13262             if ((uid_1673X < (Snumber_of_event_typesS))) {
13263               val_1674X = PS_SHIFT_LEFT_INLINE(uid_1673X, 2);
13264               addr_1675X = (((char *) (-3 + arg_1671X))) + 16;S48_WRITE_BARRIER(arg_1671X, addr_1675X, val_1674X);
13265               *((long *) addr_1675X) = (long) (val_1674X);
13266               merged_arg0K0 = uid_1673X;
13267 #ifdef USE_DIRECT_THREADING
13268               use_event_type_uidB_return_address = &&use_event_type_uidB_return_0;
13269 #else
13270               use_event_type_uidB_return_tag = 0;
13271 #endif
13272               goto use_event_type_uidB;
13273              use_event_type_uidB_return_0:
13274               arg0K0 = uid_1673X;
13275               goto L65386;}
13276             else {
13277               v_1676X = add_external_event_types((1 + uid_1673X));
13278               if (v_1676X) {
13279                 val_1677X = PS_SHIFT_LEFT_INLINE(uid_1673X, 2);
13280                 addr_1678X = (((char *) (-3 + arg_1671X))) + 16;S48_WRITE_BARRIER(arg_1671X, addr_1678X, val_1677X);
13281                 *((long *) addr_1678X) = (long) (val_1677X);
13282                 merged_arg0K0 = uid_1673X;
13283 #ifdef USE_DIRECT_THREADING
13284                 use_event_type_uidB_return_address = &&use_event_type_uidB_return_1;
13285 #else
13286                 use_event_type_uidB_return_tag = 1;
13287 #endif
13288                 goto use_event_type_uidB;
13289                use_event_type_uidB_return_1:
13290                 arg0K0 = uid_1673X;
13291                 goto L65386;}
13292               else {
13293                 arg0K0 = -1;
13294                 goto L65386;}}}
13295           else {
13296 #ifdef USE_DIRECT_THREADING
13297             unused_event_type_uid_return_address = &&unused_event_type_uid_return_0;
13298 #else
13299             unused_event_type_uid_return_tag = 0;
13300 #endif
13301             goto unused_event_type_uid;
13302            unused_event_type_uid_return_0:
13303             uid_1679X = unused_event_type_uid0_return_value;
13304             if ((-1 == uid_1679X)) {
13305               arg0K0 = uid_1679X;
13306               goto L65386;}
13307             else {
13308               val_1680X = PS_SHIFT_LEFT_INLINE(uid_1679X, 2);
13309               addr_1681X = (((char *) (-3 + arg_1671X))) + 16;S48_WRITE_BARRIER(arg_1671X, addr_1681X, val_1680X);
13310               *((long *) addr_1681X) = (long) (val_1680X);
13311               merged_arg0K0 = uid_1679X;
13312 #ifdef USE_DIRECT_THREADING
13313               use_event_type_uidB_return_address = &&use_event_type_uidB_return_2;
13314 #else
13315               use_event_type_uidB_return_tag = 2;
13316 #endif
13317               goto use_event_type_uidB;
13318              use_event_type_uidB_return_2:
13319               arg0K0 = uid_1679X;
13320               goto L65386;}}}
13321         else {
13322           goto L65387;}}
13323       else {
13324         goto L65387;}}
13325 #ifndef USE_DIRECT_THREADING
13326       break;
13327 #endif
13328 
13329 #ifdef USE_DIRECT_THREADING
13330 Jlabel36269_181:
13331 #else
13332     case 181 :
13333 #endif
13334       {
13335       if ((0 == (3 & (SvalS)))) {
13336         index_1682X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13337         if ((index_1682X < (Snumber_of_event_typesS))) {
13338           goto L6577;}
13339         else {
13340           ps_write_string("trying to unregister invalid external event: ", (stderr));
13341           ps_write_integer(index_1682X, (stderr));
13342           { long ignoreXX;
13343           PS_WRITE_CHAR(10, (stderr), ignoreXX) }
13344           ps_error("assertion violation", 0);
13345           goto L6577;}}
13346       else {push_exception_setupB(5, 1);
13347         x_1683X = SvalS;
13348         SstackS = ((SstackS) + -8);
13349         *((long *) (SstackS)) = (long) (x_1683X);
13350         arg0K0 = 1;
13351         goto L33828;}}
13352 #ifndef USE_DIRECT_THREADING
13353       break;
13354 #endif
13355 
13356 #ifdef USE_DIRECT_THREADING
13357 Jlabel36269_182:
13358 #else
13359     case 182 :
13360 #endif
13361       {
13362       arg2_1684X = *((long *) (SstackS));
13363       SstackS = ((SstackS) + 8);
13364       if ((0 == (3 & arg2_1684X))) {
13365         option_1685X = PS_SHIFT_RIGHT_INLINE(arg2_1684X, 2);
13366         other_1686X = SvalS;
13367         if ((2 == option_1685X)) {
13368           x_1687X = CHEAP_TIME();
13369           SvalS = (PS_SHIFT_LEFT_INLINE(x_1687X, 2));
13370           Scode_pointerS = ((Scode_pointerS) + 1);
13371           arg3K0 = (Scode_pointerS);
13372           goto L36269;}
13373         else {
13374           if ((0 == option_1685X)) {
13375             seconds_1688X = s48_run_time(&mseconds_1689X);
13376             arg0K0 = option_1685X;
13377             arg0K1 = seconds_1688X;
13378             arg0K2 = mseconds_1689X;
13379             goto L63886;}
13380           else {
13381             if ((1 == option_1685X)) {
13382               seconds_1690X = s48_real_time(&mseconds_1691X);
13383               arg0K0 = option_1685X;
13384               arg0K1 = seconds_1690X;
13385               arg0K2 = mseconds_1691X;
13386               goto L63886;}
13387             else {
13388               if ((3 == option_1685X)) {
13389                 seconds_1692X = s48_gc_run_time(&mseconds_1693X);
13390                 arg0K0 = option_1685X;
13391                 arg0K1 = seconds_1692X;
13392                 arg0K2 = mseconds_1693X;
13393                 goto L63886;}
13394               else {push_exception_setupB(18, 1);
13395                 SstackS = ((SstackS) + -8);
13396                 *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(option_1685X, 2)));
13397                 SstackS = ((SstackS) + -8);
13398                 *((long *) (SstackS)) = (long) (other_1686X);
13399                 arg0K0 = 2;
13400                 goto L33828;}}}}}
13401       else {push_exception_setupB(5, 1);
13402         SstackS = ((SstackS) + -8);
13403         *((long *) (SstackS)) = (long) (arg2_1684X);
13404         x_1694X = SvalS;
13405         SstackS = ((SstackS) + -8);
13406         *((long *) (SstackS)) = (long) (x_1694X);
13407         arg0K0 = 2;
13408         goto L33828;}}
13409 #ifndef USE_DIRECT_THREADING
13410       break;
13411 #endif
13412 
13413 #ifdef USE_DIRECT_THREADING
13414 Jlabel36269_183:
13415 #else
13416     case 183 :
13417 #endif
13418       {
13419       if ((0 == (3 & (SvalS)))) {
13420         key_1695X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13421         if ((0 == key_1695X)) {
13422           val_1696X = enter_stringAgc_n(S48_HOST_ARCHITECTURE, (strlen((char *) S48_HOST_ARCHITECTURE)));
13423           SvalS = val_1696X;
13424           Scode_pointerS = ((Scode_pointerS) + 1);
13425           arg3K0 = (Scode_pointerS);
13426           goto L36269;}
13427         else {
13428           if ((1 == key_1695X)) {
13429             string_1697X = s48_get_os_string_encoding();
13430             val_1698X = enter_stringAgc_n(string_1697X, (strlen((char *) string_1697X)));
13431             SvalS = val_1698X;
13432             Scode_pointerS = ((Scode_pointerS) + 1);
13433             arg3K0 = (Scode_pointerS);
13434             goto L36269;}
13435           else {push_exception_setupB(18, 1);
13436             SstackS = ((SstackS) + -8);
13437             *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(key_1695X, 2)));
13438             arg0K0 = 1;
13439             goto L33828;}}}
13440       else {push_exception_setupB(5, 1);
13441         x_1699X = SvalS;
13442         SstackS = ((SstackS) + -8);
13443         *((long *) (SstackS)) = (long) (x_1699X);
13444         arg0K0 = 1;
13445         goto L33828;}}
13446 #ifndef USE_DIRECT_THREADING
13447       break;
13448 #endif
13449 
13450 #ifdef USE_DIRECT_THREADING
13451 Jlabel36269_184:
13452 #else
13453     case 184 :
13454 #endif
13455       {
13456       arg2_1700X = *((long *) (SstackS));
13457       SstackS = ((SstackS) + 8);
13458       if ((0 == (3 & arg2_1700X))) {
13459         key_1701X = PS_SHIFT_RIGHT_INLINE(arg2_1700X, 2);
13460         value_1702X = SvalS;
13461         status_1703X = s48_extended_vm(key_1701X, value_1702X);
13462         if ((0 == status_1703X)) {
13463           SvalS = (s48_Sextension_valueS);
13464           Scode_pointerS = ((Scode_pointerS) + 1);
13465           arg3K0 = (Scode_pointerS);
13466           goto L36269;}
13467         else {
13468           if ((1 == status_1703X)) {push_exception_setupB(23, 1);
13469             SstackS = ((SstackS) + -8);
13470             *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(key_1701X, 2)));
13471             SstackS = ((SstackS) + -8);
13472             *((long *) (SstackS)) = (long) (value_1702X);
13473             arg0K0 = 2;
13474             goto L33828;}
13475           else {push_exception_setupB(24, 1);
13476             SstackS = ((SstackS) + -8);
13477             *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(key_1701X, 2)));
13478             SstackS = ((SstackS) + -8);
13479             *((long *) (SstackS)) = (long) (value_1702X);
13480             arg0K0 = 2;
13481             goto L33828;}}}
13482       else {push_exception_setupB(5, 1);
13483         SstackS = ((SstackS) + -8);
13484         *((long *) (SstackS)) = (long) (arg2_1700X);
13485         x_1704X = SvalS;
13486         SstackS = ((SstackS) + -8);
13487         *((long *) (SstackS)) = (long) (x_1704X);
13488         arg0K0 = 2;
13489         goto L33828;}}
13490 #ifndef USE_DIRECT_THREADING
13491       break;
13492 #endif
13493 
13494 #ifdef USE_DIRECT_THREADING
13495 Jlabel36269_185:
13496 #else
13497     case 185 :
13498 #endif
13499       {
13500       arg2_1705X = *((long *) (SstackS));
13501       SstackS = ((SstackS) + 8);
13502       x_1706X = SvalS;
13503       Senabled_interruptsS = -1;
13504       if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
13505         s48_Sstack_limitS = (Sreal_stack_limitS);
13506         if ((s48_Spending_eventsPS)) {
13507           s48_Sstack_limitS = (((char *) -1));
13508           goto L68259;}
13509         else {
13510           goto L68259;}}
13511       else {
13512         s48_Sstack_limitS = (((char *) -1));
13513         goto L68259;}}
13514 #ifndef USE_DIRECT_THREADING
13515       break;
13516 #endif
13517 
13518 #ifdef USE_DIRECT_THREADING
13519 Jlabel36269_186:
13520 #else
13521     case 186 :
13522 #endif
13523       {
13524       arg2_1707X = *((long *) (SstackS));
13525       SstackS = ((SstackS) + 8);
13526       if ((3 == (3 & arg2_1707X))) {
13527         if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1707X))))), 2))))) {
13528           obj_1708X = SvalS;
13529           if ((3 == (3 & obj_1708X))) {
13530             if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1708X))))), 2))))) {
13531               x_1709X = SvalS;
13532               len_1710X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1707X))))), 8);
13533               if ((len_1710X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_1709X))))), 8)))) {
13534                 if (((!memcmp((void *)(((char *) (-3 + x_1709X))), (void *)(((char *) (-3 + arg2_1707X))),len_1710X)))) {
13535                   arg0K0 = 5;
13536                   goto L55791;}
13537                 else {
13538                   arg0K0 = 1;
13539                   goto L55791;}}
13540               else {
13541                 arg0K0 = 1;
13542                 goto L55791;}}
13543             else {
13544               goto L55756;}}
13545           else {
13546             goto L55756;}}
13547         else {
13548           goto L55756;}}
13549       else {
13550         goto L55756;}}
13551 #ifndef USE_DIRECT_THREADING
13552       break;
13553 #endif
13554 
13555 #ifdef USE_DIRECT_THREADING
13556 Jlabel36269_187:
13557 #else
13558     case 187 :
13559 #endif
13560       {s48_make_availableAgc((8 + (-8 & (7 + (-4 & (SvalS))))));
13561       arg2_1711X = *((long *) (SstackS));
13562       SstackS = ((SstackS) + 8);
13563       if ((0 == (3 & (SvalS)))) {
13564         n_1712X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13565         if ((3 == (3 & arg2_1711X))) {
13566           if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1711X))))), 2))))) {
13567             goto L54189;}
13568           else {
13569             goto L54141;}}
13570         else {
13571           goto L54141;}}
13572       else {push_exception_setupB(5, 1);
13573         SstackS = ((SstackS) + -8);
13574         *((long *) (SstackS)) = (long) (arg2_1711X);
13575         x_1713X = SvalS;
13576         SstackS = ((SstackS) + -8);
13577         *((long *) (SstackS)) = (long) (x_1713X);
13578         arg0K0 = 2;
13579         goto L33828;}}
13580 #ifndef USE_DIRECT_THREADING
13581       break;
13582 #endif
13583 
13584 #ifdef USE_DIRECT_THREADING
13585 Jlabel36269_188:
13586 #else
13587     case 188 :
13588 #endif
13589       {
13590       arg2_1714X = *((long *) (SstackS));
13591       SstackS = ((SstackS) + 8);
13592       list_1715X = SvalS;
13593       arg0K0 = list_1715X;
13594       arg0K1 = list_1715X;
13595       arg4K2 = 1;
13596       goto L57157;}
13597 #ifndef USE_DIRECT_THREADING
13598       break;
13599 #endif
13600 
13601 #ifdef USE_DIRECT_THREADING
13602 Jlabel36269_189:
13603 #else
13604     case 189 :
13605 #endif
13606       {
13607       if ((529 == (SvalS))) {push_exception_setupB(0, 1);
13608         arg0K0 = 0;
13609         goto L33828;}
13610       else {
13611         Scode_pointerS = ((Scode_pointerS) + 1);
13612         arg3K0 = (Scode_pointerS);
13613         goto L36269;}}
13614 #ifndef USE_DIRECT_THREADING
13615       break;
13616 #endif
13617 
13618 #ifdef USE_DIRECT_THREADING
13619 Jlabel36269_190:
13620 #else
13621     case 190 :
13622 #endif
13623       {
13624       arg2_1716X = *((long *) (SstackS));
13625       SstackS = ((SstackS) + 8);
13626       x_1717X = not_record_typeP(arg2_1716X);
13627       if (x_1717X) {
13628         goto L55602;}
13629       else {
13630         x_1718X = not_record_typeP((SvalS));
13631         if (x_1718X) {
13632           goto L55602;}
13633         else {
13634           x_1719X = SvalS;
13635           if ((arg2_1716X == x_1719X)) {
13636             arg0K0 = 5;
13637             goto L55643;}
13638           else {
13639             ec2_1720X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + x_1719X))) + 64))), 2);
13640             if (((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + arg2_1716X))) + 64))), 2)) < ec2_1720X)) {
13641               arg0K0 = 1;
13642               goto L55643;}
13643             else {
13644               if (((*((long *) ((((char *) (-3 + arg2_1716X))) + (88 + (PS_SHIFT_LEFT_INLINE(ec2_1720X, 3)))))) == x_1719X)) {
13645                 arg0K0 = 5;
13646                 goto L55643;}
13647               else {
13648                 arg0K0 = 1;
13649                 goto L55643;}}}}}}
13650 #ifndef USE_DIRECT_THREADING
13651       break;
13652 #endif
13653 
13654 #ifdef USE_DIRECT_THREADING
13655 Jlabel36269_191:
13656 #else
13657     case 191 :
13658 #endif
13659       {
13660       arg2_1721X = *((long *) (SstackS));
13661       SstackS = ((SstackS) + 8);
13662       arg3_1722X = *((long *) (SstackS));
13663       SstackS = ((SstackS) + 8);
13664       if ((0 == (3 & (SvalS)))) {
13665         index_1723X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13666         if ((3 == (3 & arg3_1722X))) {
13667           if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1722X))))), 2))))) {
13668             rt1_1724X = *((long *) (((char *) (-3 + arg3_1722X))));
13669             if ((rt1_1724X == arg2_1721X)) {
13670               goto L42559;}
13671             else {
13672               ec2_1725X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + arg2_1721X))) + 64))), 2);
13673               if (((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + rt1_1724X))) + 64))), 2)) < ec2_1725X)) {
13674                 goto L42558;}
13675               else {
13676                 if (((*((long *) ((((char *) (-3 + rt1_1724X))) + (88 + (PS_SHIFT_LEFT_INLINE(ec2_1725X, 3)))))) == arg2_1721X)) {
13677                   goto L42559;}
13678                 else {
13679                   goto L42558;}}}}
13680           else {
13681             goto L42558;}}
13682         else {
13683           goto L42558;}}
13684       else {push_exception_setupB(5, 1);
13685         SstackS = ((SstackS) + -8);
13686         *((long *) (SstackS)) = (long) (arg3_1722X);
13687         SstackS = ((SstackS) + -8);
13688         *((long *) (SstackS)) = (long) (arg2_1721X);
13689         x_1726X = SvalS;
13690         SstackS = ((SstackS) + -8);
13691         *((long *) (SstackS)) = (long) (x_1726X);
13692         arg0K0 = 3;
13693         goto L33828;}}
13694 #ifndef USE_DIRECT_THREADING
13695       break;
13696 #endif
13697 
13698 #ifdef USE_DIRECT_THREADING
13699 Jlabel36269_192:
13700 #else
13701     case 192 :
13702 #endif
13703       {
13704       arg2_1727X = *((long *) (SstackS));
13705       SstackS = ((SstackS) + 8);
13706       arg3_1728X = *((long *) (SstackS));
13707       SstackS = ((SstackS) + 8);
13708       arg4_1729X = *((long *) (SstackS));
13709       SstackS = ((SstackS) + 8);
13710       if ((0 == (3 & arg2_1727X))) {
13711         index_1730X = PS_SHIFT_RIGHT_INLINE(arg2_1727X, 2);
13712         value_1731X = SvalS;
13713         if ((3 == (3 & arg4_1729X))) {
13714           if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1729X))))), 2))))) {
13715             rt1_1732X = *((long *) (((char *) (-3 + arg4_1729X))));
13716             if ((rt1_1732X == arg3_1728X)) {
13717               goto L42849;}
13718             else {
13719               ec2_1733X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + arg3_1728X))) + 64))), 2);
13720               if (((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + rt1_1732X))) + 64))), 2)) < ec2_1733X)) {
13721                 goto L42848;}
13722               else {
13723                 if (((*((long *) ((((char *) (-3 + rt1_1732X))) + (88 + (PS_SHIFT_LEFT_INLINE(ec2_1733X, 3)))))) == arg3_1728X)) {
13724                   goto L42849;}
13725                 else {
13726                   goto L42848;}}}}
13727           else {
13728             goto L42848;}}
13729         else {
13730           goto L42848;}}
13731       else {push_exception_setupB(5, 1);
13732         SstackS = ((SstackS) + -8);
13733         *((long *) (SstackS)) = (long) (arg4_1729X);
13734         SstackS = ((SstackS) + -8);
13735         *((long *) (SstackS)) = (long) (arg3_1728X);
13736         SstackS = ((SstackS) + -8);
13737         *((long *) (SstackS)) = (long) (arg2_1727X);
13738         x_1734X = SvalS;
13739         SstackS = ((SstackS) + -8);
13740         *((long *) (SstackS)) = (long) (x_1734X);
13741         arg0K0 = 4;
13742         goto L33828;}}
13743 #ifndef USE_DIRECT_THREADING
13744       break;
13745 #endif
13746 
13747 #ifdef USE_DIRECT_THREADING
13748 Jlabel36269_193:
13749 #else
13750     case 193 :
13751 #endif
13752       {
13753       arg2_1735X = *((long *) (SstackS));
13754       SstackS = ((SstackS) + 8);
13755       arg3_1736X = *((long *) (SstackS));
13756       SstackS = ((SstackS) + 8);
13757       arg4_1737X = *((long *) (SstackS));
13758       SstackS = ((SstackS) + 8);
13759       arg5_1738X = *((long *) (SstackS));
13760       SstackS = ((SstackS) + 8);
13761       if ((0 == (3 & arg5_1738X))) {
13762         if ((9 == (255 & arg4_1737X))) {
13763           if ((3 == (3 & arg3_1736X))) {
13764             if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1736X))))), 2))))) {
13765               if ((0 == (3 & (arg2_1735X | (SvalS))))) {
13766                 encoding_1739X = PS_SHIFT_RIGHT_INLINE(arg5_1738X, 2);
13767                 value_1740X = PS_SHIFT_RIGHT_INLINE(arg4_1737X, 8);
13768                 start_1741X = PS_SHIFT_RIGHT_INLINE(arg2_1735X, 2);
13769                 count_1742X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13770                 if ((3 == (3 & arg3_1736X))) {
13771                   if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1736X)))))))) {
13772                     if ((start_1741X < 0)) {
13773                       goto L34463;}
13774                     else {
13775                       if ((count_1742X < 0)) {
13776                         goto L34463;}
13777                       else {
13778                         if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1736X))))), 8)) < (start_1741X + count_1742X))) {
13779                           goto L34463;}
13780                         else {
13781                           buffer_1743X = (((char *) (-3 + arg3_1736X))) + start_1741X;
13782                           if ((0 == encoding_1739X)) {
13783                             if ((count_1742X < 1)) {
13784                               arg4K0 = 1;
13785                               arg4K1 = 1;
13786                               arg4K2 = 1;
13787                               arg0K3 = 1;
13788                               goto L34492;}
13789                             else {
13790                               if ((value_1740X < 128)) {
13791                                 *((unsigned char *) buffer_1743X) = (unsigned char) (value_1740X);
13792                                 arg4K0 = 1;
13793                                 arg4K1 = 1;
13794                                 arg4K2 = 0;
13795                                 arg0K3 = 1;
13796                                 goto L34492;}
13797                               else {
13798                                 arg4K0 = 1;
13799                                 arg4K1 = 0;
13800                                 arg4K2 = 0;
13801                                 arg0K3 = 0;
13802                                 goto L34492;}}}
13803                           else {
13804                             if ((1 == encoding_1739X)) {
13805                               if ((count_1742X < 1)) {
13806                                 arg4K0 = 1;
13807                                 arg4K1 = 1;
13808                                 arg4K2 = 1;
13809                                 arg0K3 = 1;
13810                                 goto L34492;}
13811                               else {
13812                                 if ((value_1740X < 256)) {
13813                                   *((unsigned char *) buffer_1743X) = (unsigned char) (value_1740X);
13814                                   arg4K0 = 1;
13815                                   arg4K1 = 1;
13816                                   arg4K2 = 0;
13817                                   arg0K3 = 1;
13818                                   goto L34492;}
13819                                 else {
13820                                   arg4K0 = 1;
13821                                   arg4K1 = 0;
13822                                   arg4K2 = 0;
13823                                   arg0K3 = 0;
13824                                   goto L34492;}}}
13825                             else {
13826                               if ((2 == encoding_1739X)) {
13827                                 encoding_okP_1744X = encode_scalar_valueUutf_8(value_1740X, buffer_1743X, count_1742X, &out_of_spaceP_1745X, &count_1746X);
13828                                 arg4K0 = 1;
13829                                 arg4K1 = encoding_okP_1744X;
13830                                 arg4K2 = out_of_spaceP_1745X;
13831                                 arg0K3 = count_1746X;
13832                                 goto L34492;}
13833                               else {
13834                                 if ((3 == encoding_1739X)) {
13835                                   encoding_okP_1747X = encode_scalar_valueUutf_16le(value_1740X, buffer_1743X, count_1742X, &out_of_spaceP_1748X, &count_1749X);
13836                                   arg4K0 = 1;
13837                                   arg4K1 = encoding_okP_1747X;
13838                                   arg4K2 = out_of_spaceP_1748X;
13839                                   arg0K3 = count_1749X;
13840                                   goto L34492;}
13841                                 else {
13842                                   if ((4 == encoding_1739X)) {
13843                                     encoding_okP_1750X = encode_scalar_valueUutf_16be(value_1740X, buffer_1743X, count_1742X, &out_of_spaceP_1751X, &count_1752X);
13844                                     arg4K0 = 1;
13845                                     arg4K1 = encoding_okP_1750X;
13846                                     arg4K2 = out_of_spaceP_1751X;
13847                                     arg0K3 = count_1752X;
13848                                     goto L34492;}
13849                                   else {
13850                                     if ((5 == encoding_1739X)) {
13851                                       if ((count_1742X < 4)) {
13852                                         arg4K0 = 1;
13853                                         arg4K1 = 1;
13854                                         arg4K2 = 1;
13855                                         arg0K3 = 4;
13856                                         goto L34492;}
13857                                       else {
13858                                         *((unsigned char *) buffer_1743X) = (unsigned char) ((255 & value_1740X));
13859                                         *((unsigned char *) (buffer_1743X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_1740X), 8)));
13860                                         *((unsigned char *) (buffer_1743X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_1740X), 16)));
13861                                         *((unsigned char *) (buffer_1743X + 3)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_1740X, 24)));
13862                                         arg4K0 = 1;
13863                                         arg4K1 = 1;
13864                                         arg4K2 = 0;
13865                                         arg0K3 = 4;
13866                                         goto L34492;}}
13867                                     else {
13868                                       if ((6 == encoding_1739X)) {
13869                                         if ((count_1742X < 4)) {
13870                                           arg4K0 = 1;
13871                                           arg4K1 = 1;
13872                                           arg4K2 = 1;
13873                                           arg0K3 = 4;
13874                                           goto L34492;}
13875                                         else {
13876                                           *((unsigned char *) buffer_1743X) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_1740X, 24)));
13877                                           *((unsigned char *) (buffer_1743X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_1740X), 16)));
13878                                           *((unsigned char *) (buffer_1743X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_1740X), 8)));
13879                                           *((unsigned char *) (buffer_1743X + 3)) = (unsigned char) ((255 & value_1740X));
13880                                           arg4K0 = 1;
13881                                           arg4K1 = 1;
13882                                           arg4K2 = 0;
13883                                           arg0K3 = 4;
13884                                           goto L34492;}}
13885                                       else {
13886                                         arg4K0 = 0;
13887                                         arg4K1 = 0;
13888                                         arg4K2 = 0;
13889                                         arg0K3 = 0;
13890                                         goto L34492;}}}}}}}}}}}
13891                   else {
13892                     goto L34463;}}
13893                 else {
13894                   goto L34463;}}
13895               else {
13896                 goto L35315;}}
13897             else {
13898               goto L35315;}}
13899           else {
13900             goto L35315;}}
13901         else {
13902           goto L35315;}}
13903       else {
13904         goto L35315;}}
13905 #ifndef USE_DIRECT_THREADING
13906       break;
13907 #endif
13908 
13909 #ifdef USE_DIRECT_THREADING
13910 Jlabel36269_194:
13911 #else
13912     case 194 :
13913 #endif
13914       {
13915       arg2_1753X = *((long *) (SstackS));
13916       SstackS = ((SstackS) + 8);
13917       arg3_1754X = *((long *) (SstackS));
13918       SstackS = ((SstackS) + 8);
13919       arg4_1755X = *((long *) (SstackS));
13920       SstackS = ((SstackS) + 8);
13921       arg5_1756X = *((long *) (SstackS));
13922       SstackS = ((SstackS) + 8);
13923       if ((0 == (3 & arg5_1756X))) {
13924         if ((9 == (255 & arg4_1755X))) {
13925           if ((3 == (3 & arg3_1754X))) {
13926             if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1754X))))), 2))))) {
13927               if ((0 == (3 & (arg2_1753X | (SvalS))))) {
13928                 encoding_1757X = PS_SHIFT_RIGHT_INLINE(arg5_1756X, 2);
13929                 value_1758X = PS_SHIFT_RIGHT_INLINE(arg4_1755X, 8);
13930                 start_1759X = PS_SHIFT_RIGHT_INLINE(arg2_1753X, 2);
13931                 count_1760X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
13932                 if ((3 == (3 & arg3_1754X))) {
13933                   if ((0 == (128 & (*((long *) (((char *) (-11 + arg3_1754X)))))))) {
13934                     if ((start_1759X < 0)) {
13935                       goto L54344;}
13936                     else {
13937                       if ((count_1760X < 0)) {
13938                         goto L54344;}
13939                       else {
13940                         if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1754X))))), 8)) < (start_1759X + count_1760X))) {
13941                           goto L54344;}
13942                         else {
13943                           buffer_1761X = (((char *) (-3 + arg3_1754X))) + start_1759X;
13944                           if ((0 == encoding_1757X)) {
13945                             if ((count_1760X < 1)) {
13946                               goto L54380;}
13947                             else {
13948                               if ((value_1758X < 128)) {
13949                                 *((unsigned char *) buffer_1761X) = (unsigned char) (value_1758X);
13950                                 goto L54380;}
13951                               else {
13952                                 goto L54380;}}}
13953                           else {
13954                             if ((1 == encoding_1757X)) {
13955                               if ((count_1760X < 1)) {
13956                                 goto L54380;}
13957                               else {
13958                                 if ((value_1758X < 256)) {
13959                                   *((unsigned char *) buffer_1761X) = (unsigned char) (value_1758X);
13960                                   goto L54380;}
13961                                 else {
13962                                   goto L54380;}}}
13963                             else {
13964                               if ((2 == encoding_1757X)) {encode_scalar_valueUutf_8(value_1758X, buffer_1761X, count_1760X, &out_of_spaceP_1762X, &count_1763X);
13965                                 goto L54380;}
13966                               else {
13967                                 if ((3 == encoding_1757X)) {encode_scalar_valueUutf_16le(value_1758X, buffer_1761X, count_1760X, &out_of_spaceP_1764X, &count_1765X);
13968                                   goto L54380;}
13969                                 else {
13970                                   if ((4 == encoding_1757X)) {encode_scalar_valueUutf_16be(value_1758X, buffer_1761X, count_1760X, &out_of_spaceP_1766X, &count_1767X);
13971                                     goto L54380;}
13972                                   else {
13973                                     if ((5 == encoding_1757X)) {
13974                                       if ((count_1760X < 4)) {
13975                                         goto L54380;}
13976                                       else {
13977                                         *((unsigned char *) buffer_1761X) = (unsigned char) ((255 & value_1758X));
13978                                         *((unsigned char *) (buffer_1761X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_1758X), 8)));
13979                                         *((unsigned char *) (buffer_1761X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_1758X), 16)));
13980                                         *((unsigned char *) (buffer_1761X + 3)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_1758X, 24)));
13981                                         goto L54380;}}
13982                                     else {
13983                                       if ((6 == encoding_1757X)) {
13984                                         if ((count_1760X < 4)) {
13985                                           goto L54380;}
13986                                         else {
13987                                           *((unsigned char *) buffer_1761X) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_1758X, 24)));
13988                                           *((unsigned char *) (buffer_1761X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_1758X), 16)));
13989                                           *((unsigned char *) (buffer_1761X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_1758X), 8)));
13990                                           *((unsigned char *) (buffer_1761X + 3)) = (unsigned char) ((255 & value_1758X));
13991                                           goto L54380;}}
13992                                       else {push_exception_setupB(18, 1);
13993                                         SstackS = ((SstackS) + -8);
13994                                         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1757X, 2)));
13995                                         arg0K0 = 1;
13996                                         goto L33828;}}}}}}}}}}}
13997                   else {
13998                     goto L54344;}}
13999                 else {
14000                   goto L54344;}}
14001               else {
14002                 goto L62080;}}
14003             else {
14004               goto L62080;}}
14005           else {
14006             goto L62080;}}
14007         else {
14008           goto L62080;}}
14009       else {
14010         goto L62080;}}
14011 #ifndef USE_DIRECT_THREADING
14012       break;
14013 #endif
14014 
14015 #ifdef USE_DIRECT_THREADING
14016 Jlabel36269_195:
14017 #else
14018     case 195 :
14019 #endif
14020       {
14021       arg2_1768X = *((long *) (SstackS));
14022       SstackS = ((SstackS) + 8);
14023       arg3_1769X = *((long *) (SstackS));
14024       SstackS = ((SstackS) + 8);
14025       arg4_1770X = *((long *) (SstackS));
14026       SstackS = ((SstackS) + 8);
14027       if ((0 == (3 & arg4_1770X))) {
14028         if ((3 == (3 & arg3_1769X))) {
14029           if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1769X))))), 2))))) {
14030             if ((0 == (3 & (arg2_1768X | (SvalS))))) {
14031               encoding_1771X = PS_SHIFT_RIGHT_INLINE(arg4_1770X, 2);
14032               start_1772X = PS_SHIFT_RIGHT_INLINE(arg2_1768X, 2);
14033               count_1773X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
14034               if ((start_1772X < 0)) {
14035                 goto L34812;}
14036               else {
14037                 if ((count_1773X < 0)) {
14038                   goto L34812;}
14039                 else {
14040                   if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1769X))))), 8)) < (start_1772X + count_1773X))) {
14041                     goto L34812;}
14042                   else {
14043                     buffer_1774X = (((char *) (-3 + arg3_1769X))) + start_1772X;
14044                     if ((0 == encoding_1771X)) {
14045                       arg4K0 = 1;
14046                       arg4K1 = 1;
14047                       arg4K2 = 0;
14048                       arg0K3 = (*((unsigned char *) buffer_1774X));
14049                       arg0K4 = 1;
14050                       goto L34838;}
14051                     else {
14052                       if ((1 == encoding_1771X)) {
14053                         arg4K0 = 1;
14054                         arg4K1 = 1;
14055                         arg4K2 = 0;
14056                         arg0K3 = (*((unsigned char *) buffer_1774X));
14057                         arg0K4 = 1;
14058                         goto L34838;}
14059                       else {
14060                         if ((2 == encoding_1771X)) {
14061                           okP_1775X = decode_scalar_valueUutf_8(buffer_1774X, count_1773X, &incompleteP_1776X, &value_1777X, &count_1778X);
14062                           arg4K0 = 1;
14063                           arg4K1 = okP_1775X;
14064                           arg4K2 = incompleteP_1776X;
14065                           arg0K3 = value_1777X;
14066                           arg0K4 = count_1778X;
14067                           goto L34838;}
14068                         else {
14069                           if ((3 == encoding_1771X)) {
14070                             okP_1779X = decode_scalar_valueUutf_16le(buffer_1774X, count_1773X, &incompleteP_1780X, &value_1781X, &count_1782X);
14071                             arg4K0 = 1;
14072                             arg4K1 = okP_1779X;
14073                             arg4K2 = incompleteP_1780X;
14074                             arg0K3 = value_1781X;
14075                             arg0K4 = count_1782X;
14076                             goto L34838;}
14077                           else {
14078                             if ((4 == encoding_1771X)) {
14079                               okP_1783X = decode_scalar_valueUutf_16be(buffer_1774X, count_1773X, &incompleteP_1784X, &value_1785X, &count_1786X);
14080                               arg4K0 = 1;
14081                               arg4K1 = okP_1783X;
14082                               arg4K2 = incompleteP_1784X;
14083                               arg0K3 = value_1785X;
14084                               arg0K4 = count_1786X;
14085                               goto L34838;}
14086                             else {
14087                               if ((5 == encoding_1771X)) {
14088                                 if ((count_1773X < 4)) {
14089                                   arg4K0 = 1;
14090                                   arg4K1 = 1;
14091                                   arg4K2 = 1;
14092                                   arg0K3 = 0;
14093                                   arg0K4 = 4;
14094                                   goto L34838;}
14095                                 else {
14096                                   code_point_1787X = (((*((unsigned char *) buffer_1774X)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1774X + 1))), 8))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1774X + 2))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1774X + 3))), 24));
14097                                   if ((code_point_1787X < 0)) {
14098                                     arg4K0 = 1;
14099                                     arg4K1 = 0;
14100                                     arg4K2 = 0;
14101                                     arg0K3 = 0;
14102                                     arg0K4 = 0;
14103                                     goto L34838;}
14104                                   else {
14105                                     if ((55295 < code_point_1787X)) {
14106                                       if ((code_point_1787X < 57344)) {
14107                                         arg4K0 = 1;
14108                                         arg4K1 = 0;
14109                                         arg4K2 = 0;
14110                                         arg0K3 = 0;
14111                                         arg0K4 = 0;
14112                                         goto L34838;}
14113                                       else {
14114                                         if ((1114111 < code_point_1787X)) {
14115                                           arg4K0 = 1;
14116                                           arg4K1 = 0;
14117                                           arg4K2 = 0;
14118                                           arg0K3 = 0;
14119                                           arg0K4 = 0;
14120                                           goto L34838;}
14121                                         else {
14122                                           arg4K0 = 1;
14123                                           arg4K1 = 1;
14124                                           arg4K2 = 0;
14125                                           arg0K3 = code_point_1787X;
14126                                           arg0K4 = 4;
14127                                           goto L34838;}}}
14128                                     else {
14129                                       arg4K0 = 1;
14130                                       arg4K1 = 1;
14131                                       arg4K2 = 0;
14132                                       arg0K3 = code_point_1787X;
14133                                       arg0K4 = 4;
14134                                       goto L34838;}}}}
14135                               else {
14136                                 if ((6 == encoding_1771X)) {
14137                                   if ((count_1773X < 4)) {
14138                                     arg4K0 = 1;
14139                                     arg4K1 = 1;
14140                                     arg4K2 = 1;
14141                                     arg0K3 = 0;
14142                                     arg0K4 = 4;
14143                                     goto L34838;}
14144                                   else {
14145                                     code_point_1788X = (((PS_SHIFT_LEFT_INLINE((*((unsigned char *) buffer_1774X)), 24)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1774X + 1))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1774X + 2))), 8))) + (*((unsigned char *) (buffer_1774X + 3)));
14146                                     if ((code_point_1788X < 0)) {
14147                                       arg4K0 = 1;
14148                                       arg4K1 = 0;
14149                                       arg4K2 = 0;
14150                                       arg0K3 = 0;
14151                                       arg0K4 = 0;
14152                                       goto L34838;}
14153                                     else {
14154                                       if ((55295 < code_point_1788X)) {
14155                                         if ((code_point_1788X < 57344)) {
14156                                           arg4K0 = 1;
14157                                           arg4K1 = 0;
14158                                           arg4K2 = 0;
14159                                           arg0K3 = 0;
14160                                           arg0K4 = 0;
14161                                           goto L34838;}
14162                                         else {
14163                                           if ((1114111 < code_point_1788X)) {
14164                                             arg4K0 = 1;
14165                                             arg4K1 = 0;
14166                                             arg4K2 = 0;
14167                                             arg0K3 = 0;
14168                                             arg0K4 = 0;
14169                                             goto L34838;}
14170                                           else {
14171                                             arg4K0 = 1;
14172                                             arg4K1 = 1;
14173                                             arg4K2 = 0;
14174                                             arg0K3 = code_point_1788X;
14175                                             arg0K4 = 4;
14176                                             goto L34838;}}}
14177                                       else {
14178                                         arg4K0 = 1;
14179                                         arg4K1 = 1;
14180                                         arg4K2 = 0;
14181                                         arg0K3 = code_point_1788X;
14182                                         arg0K4 = 4;
14183                                         goto L34838;}}}}
14184                                 else {
14185                                   arg4K0 = 0;
14186                                   arg4K1 = 0;
14187                                   arg4K2 = 0;
14188                                   arg0K3 = 0;
14189                                   arg0K4 = 0;
14190                                   goto L34838;}}}}}}}}}}}
14191             else {
14192               goto L35511;}}
14193           else {
14194             goto L35511;}}
14195         else {
14196           goto L35511;}}
14197       else {
14198         goto L35511;}}
14199 #ifndef USE_DIRECT_THREADING
14200       break;
14201 #endif
14202 
14203 #ifdef USE_DIRECT_THREADING
14204 Jlabel36269_196:
14205 #else
14206     case 196 :
14207 #endif
14208       {
14209       arg2_1789X = *((long *) (SstackS));
14210       SstackS = ((SstackS) + 8);
14211       arg3_1790X = *((long *) (SstackS));
14212       SstackS = ((SstackS) + 8);
14213       arg4_1791X = *((long *) (SstackS));
14214       SstackS = ((SstackS) + 8);
14215       if ((0 == (3 & arg4_1791X))) {
14216         if ((3 == (3 & arg3_1790X))) {
14217           if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg3_1790X))))), 2))))) {
14218             if ((0 == (3 & (arg2_1789X | (SvalS))))) {
14219               encoding_1792X = PS_SHIFT_RIGHT_INLINE(arg4_1791X, 2);
14220               start_1793X = PS_SHIFT_RIGHT_INLINE(arg2_1789X, 2);
14221               count_1794X = PS_SHIFT_RIGHT_INLINE((SvalS), 2);
14222               if ((start_1793X < 0)) {
14223                 goto L54798;}
14224               else {
14225                 if ((count_1794X < 0)) {
14226                   goto L54798;}
14227                 else {
14228                   if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1790X))))), 8)) < (start_1793X + count_1794X))) {
14229                     goto L54798;}
14230                   else {
14231                     buffer_1795X = (((char *) (-3 + arg3_1790X))) + start_1793X;
14232                     if ((0 == encoding_1792X)) {
14233                       goto L54951;}
14234                     else {
14235                       if ((1 == encoding_1792X)) {
14236                         goto L54951;}
14237                       else {
14238                         if ((2 == encoding_1792X)) {decode_scalar_valueUutf_8(buffer_1795X, count_1794X, &incompleteP_1796X, &value_1797X, &count_1798X);
14239                           goto L54951;}
14240                         else {
14241                           if ((3 == encoding_1792X)) {decode_scalar_valueUutf_16le(buffer_1795X, count_1794X, &incompleteP_1799X, &value_1800X, &count_1801X);
14242                             goto L54951;}
14243                           else {
14244                             if ((4 == encoding_1792X)) {decode_scalar_valueUutf_16be(buffer_1795X, count_1794X, &incompleteP_1802X, &value_1803X, &count_1804X);
14245                               goto L54951;}
14246                             else {
14247                               if ((5 == encoding_1792X)) {
14248                                 if ((count_1794X < 4)) {
14249                                   goto L54951;}
14250                                 else {
14251                                   code_point_1805X = (((*((unsigned char *) buffer_1795X)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1795X + 1))), 8))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1795X + 2))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1795X + 3))), 24));
14252                                   if ((code_point_1805X < 0)) {
14253                                     goto L54951;}
14254                                   else {
14255                                     if ((55295 < code_point_1805X)) {
14256                                       if ((code_point_1805X < 57344)) {
14257                                         goto L54951;}
14258                                       else {
14259                                         if ((1114111 < code_point_1805X)) {
14260                                           goto L54951;}
14261                                         else {
14262                                           goto L54951;}}}
14263                                     else {
14264                                       goto L54951;}}}}
14265                               else {
14266                                 if ((6 == encoding_1792X)) {
14267                                   if ((count_1794X < 4)) {
14268                                     goto L54951;}
14269                                   else {
14270                                     code_point_1806X = (((PS_SHIFT_LEFT_INLINE((*((unsigned char *) buffer_1795X)), 24)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1795X + 1))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_1795X + 2))), 8))) + (*((unsigned char *) (buffer_1795X + 3)));
14271                                     if ((code_point_1806X < 0)) {
14272                                       goto L54951;}
14273                                     else {
14274                                       if ((55295 < code_point_1806X)) {
14275                                         if ((code_point_1806X < 57344)) {
14276                                           goto L54951;}
14277                                         else {
14278                                           if ((1114111 < code_point_1806X)) {
14279                                             goto L54951;}
14280                                           else {
14281                                             goto L54951;}}}
14282                                       else {
14283                                         goto L54951;}}}}
14284                                 else {push_exception_setupB(18, 1);
14285                                   SstackS = ((SstackS) + -8);
14286                                   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1792X, 2)));
14287                                   arg0K0 = 1;
14288                                   goto L33828;}}}}}}}}}}}
14289             else {
14290               goto L62276;}}
14291           else {
14292             goto L62276;}}
14293         else {
14294           goto L62276;}}
14295       else {
14296         goto L62276;}}
14297 #ifndef USE_DIRECT_THREADING
14298       break;
14299 #endif
14300 
14301 #ifdef USE_DIRECT_THREADING
14302 Jlabel36269_197:
14303 #else
14304     case 197 :
14305 #endif
14306       {
14307       v_1807X = *((unsigned char *) ((Scode_pointerS) + 1));
14308       if ((0 == v_1807X)) {
14309         arg0K0 = (SvalS);
14310         goto L43130;}
14311       else {
14312         merged_arg0K0 = 0;
14313 #ifdef USE_DIRECT_THREADING
14314         get_current_port_return_address = &&get_current_port_return_0;
14315 #else
14316         get_current_port_return_tag = 0;
14317 #endif
14318         goto get_current_port;
14319        get_current_port_return_0:
14320         v_1808X = get_current_port0_return_value;
14321         arg0K0 = v_1808X;
14322         goto L43130;}}
14323 #ifndef USE_DIRECT_THREADING
14324       break;
14325 #endif
14326 
14327 #ifdef USE_DIRECT_THREADING
14328 Jlabel36269_198:
14329 #else
14330     case 198 :
14331 #endif
14332       {
14333       v_1809X = *((unsigned char *) ((Scode_pointerS) + 1));
14334       if ((0 == v_1809X)) {
14335         arg0K0 = (SvalS);
14336         goto L43332;}
14337       else {
14338         merged_arg0K0 = 0;
14339 #ifdef USE_DIRECT_THREADING
14340         get_current_port_return_address = &&get_current_port_return_1;
14341 #else
14342         get_current_port_return_tag = 1;
14343 #endif
14344         goto get_current_port;
14345        get_current_port_return_1:
14346         v_1810X = get_current_port0_return_value;
14347         arg0K0 = v_1810X;
14348         goto L43332;}}
14349 #ifndef USE_DIRECT_THREADING
14350       break;
14351 #endif
14352 
14353 #ifdef USE_DIRECT_THREADING
14354 Jlabel36269_199:
14355 #else
14356     case 199 :
14357 #endif
14358       {
14359       v_1811X = *((unsigned char *) ((Scode_pointerS) + 1));
14360       if ((0 == v_1811X)) {
14361         v_1812X = *((long *) (SstackS));
14362         SstackS = ((SstackS) + 8);
14363         arg0K0 = v_1812X;
14364         arg0K1 = (SvalS);
14365         goto L43527;}
14366       else {
14367         merged_arg0K0 = 4;
14368 #ifdef USE_DIRECT_THREADING
14369         get_current_port_return_address = &&get_current_port_return_2;
14370 #else
14371         get_current_port_return_tag = 2;
14372 #endif
14373         goto get_current_port;
14374        get_current_port_return_2:
14375         v_1813X = get_current_port0_return_value;
14376         arg0K0 = (SvalS);
14377         arg0K1 = v_1813X;
14378         goto L43527;}}
14379 #ifndef USE_DIRECT_THREADING
14380       break;
14381 #endif
14382 
14383 #ifdef USE_DIRECT_THREADING
14384 Jlabel36269_200:
14385 #else
14386     case 200 :
14387 #endif
14388       {
14389       v_1814X = *((unsigned char *) ((Scode_pointerS) + 1));
14390       if ((0 == v_1814X)) {
14391         arg0K0 = (SvalS);
14392         goto L43796;}
14393       else {
14394         merged_arg0K0 = 0;
14395 #ifdef USE_DIRECT_THREADING
14396         get_current_port_return_address = &&get_current_port_return_3;
14397 #else
14398         get_current_port_return_tag = 3;
14399 #endif
14400         goto get_current_port;
14401        get_current_port_return_3:
14402         v_1815X = get_current_port0_return_value;
14403         arg0K0 = v_1815X;
14404         goto L43796;}}
14405 #ifndef USE_DIRECT_THREADING
14406       break;
14407 #endif
14408 
14409 #ifdef USE_DIRECT_THREADING
14410 Jlabel36269_201:
14411 #else
14412     case 201 :
14413 #endif
14414       {
14415       v_1816X = *((unsigned char *) ((Scode_pointerS) + 1));
14416       if ((0 == v_1816X)) {
14417         arg0K0 = (SvalS);
14418         goto L44444;}
14419       else {
14420         merged_arg0K0 = 0;
14421 #ifdef USE_DIRECT_THREADING
14422         get_current_port_return_address = &&get_current_port_return_4;
14423 #else
14424         get_current_port_return_tag = 4;
14425 #endif
14426         goto get_current_port;
14427        get_current_port_return_4:
14428         v_1817X = get_current_port0_return_value;
14429         arg0K0 = v_1817X;
14430         goto L44444;}}
14431 #ifndef USE_DIRECT_THREADING
14432       break;
14433 #endif
14434 
14435 #ifdef USE_DIRECT_THREADING
14436 Jlabel36269_202:
14437 #else
14438     case 202 :
14439 #endif
14440       {
14441       v_1818X = *((unsigned char *) ((Scode_pointerS) + 1));
14442       if ((0 == v_1818X)) {
14443         v_1819X = *((long *) (SstackS));
14444         SstackS = ((SstackS) + 8);
14445         arg0K0 = v_1819X;
14446         arg0K1 = (SvalS);
14447         goto L45013;}
14448       else {
14449         merged_arg0K0 = 4;
14450 #ifdef USE_DIRECT_THREADING
14451         get_current_port_return_address = &&get_current_port_return_5;
14452 #else
14453         get_current_port_return_tag = 5;
14454 #endif
14455         goto get_current_port;
14456        get_current_port_return_5:
14457         v_1820X = get_current_port0_return_value;
14458         arg0K0 = (SvalS);
14459         arg0K1 = v_1820X;
14460         goto L45013;}}
14461 #ifndef USE_DIRECT_THREADING
14462       break;
14463 #endif
14464 
14465 #ifdef USE_DIRECT_THREADING
14466 Jlabel36269_203:
14467 #else
14468     case 203 :
14469 #endif
14470       {
14471       if ((0 == (3 & (SvalS)))) {
14472         raw_1821X = ps_error_string((PS_SHIFT_RIGHT_INLINE((SvalS), 2)));
14473         len_1822X = 1 + (strlen((char *) raw_1821X));
14474         addr_1823X = s48_allocate_untracedAgc((8 + len_1822X));
14475         if ((addr_1823X == NULL)) {
14476           arg0K0 = 1;
14477           goto L55281;}
14478         else {
14479           *((long *) addr_1823X) = (long) ((70 + (PS_SHIFT_LEFT_INLINE(len_1822X, 8))));
14480           arg0K0 = (3 + (((long) (addr_1823X + 8))));
14481           goto L55281;}}
14482       else {push_exception_setupB(5, 1);
14483         x_1824X = SvalS;
14484         SstackS = ((SstackS) + -8);
14485         *((long *) (SstackS)) = (long) (x_1824X);
14486         arg0K0 = 1;
14487         goto L33828;}}
14488 #ifndef USE_DIRECT_THREADING
14489       break;
14490 #endif
14491 
14492 #ifdef USE_DIRECT_THREADING
14493 Jlabel36269_204:
14494 #else
14495     case 204 :
14496 #endif
14497       {
14498       x_1825X = SvalS;
14499       out_1826X = stderr;
14500       arg0K0 = x_1825X;
14501       goto L57410;}
14502 #ifndef USE_DIRECT_THREADING
14503       break;
14504 #endif
14505 
14506 #ifndef USE_DIRECT_THREADING
14507   }
14508 #endif
14509 }
14510  L32903: {
14511   i_1827X = arg0K0;
14512   m_1828X = arg0K1;
14513   if ((0 == (n_1218X & m_1828X))) {
14514     arg0K0 = (1 + i_1827X);
14515     arg0K1 = (PS_SHIFT_LEFT_INLINE(m_1828X, 1));
14516     goto L32903;}
14517   else {
14518     Spending_interruptsS = ((Spending_interruptsS) & (~ m_1828X));
14519     handlers_1829X = SHARED_REF((Sinterrupt_handlersS));
14520     if ((i_1827X == 0)) {
14521       x_1830X = Sinterrupted_templateS;
14522       SstackS = ((SstackS) + -8);
14523       *((long *) (SstackS)) = (long) (x_1830X);
14524       Sinterrupted_templateS = 1;
14525       n_1831X = Senabled_interruptsS;
14526       SstackS = ((SstackS) + -8);
14527       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1831X, 2)));
14528       arg0K0 = 2;
14529       goto L32860;}
14530     else {
14531       if ((i_1827X == 3)) {
14532         goto L17901;}
14533       else {
14534         if ((i_1827X == 2)) {
14535           goto L17901;}
14536         else {
14537           if ((i_1827X == 4)) {
14538             channel_1832X = Spending_channels_headS;
14539             next_1833X = *((long *) ((((char *) (-3 + channel_1832X))) + 32));
14540             Spending_channels_headS = next_1833X;
14541             addr_1834X = (((char *) (-3 + channel_1832X))) + 32;S48_WRITE_BARRIER(channel_1832X, addr_1834X, 1);
14542             *((long *) addr_1834X) = (long) (1);
14543             if ((1 == next_1833X)) {
14544               Spending_channels_tailS = 1;
14545               arg0K0 = channel_1832X;
14546               goto L17918;}
14547             else {
14548               arg0K0 = channel_1832X;
14549               goto L17918;}}
14550           else {
14551             if ((i_1827X == 5)) {
14552               v_1835X = (Sos_signal_ring_startS) == (Sos_signal_ring_endS);
14553               if (v_1835X) {
14554                 ps_error("This cannot happen: OS signal ring empty", 0);
14555                 goto L18139;}
14556               else {
14557                 goto L18139;}}
14558             else {
14559               if ((i_1827X == 6)) {
14560                 uid_1836X = s48_dequeue_external_event(&still_readyP_1837X);
14561                 SstackS = ((SstackS) + -8);
14562                 *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(uid_1836X, 2)));
14563                 if (still_readyP_1837X) {
14564                   Spending_interruptsS = (64 | (Spending_interruptsS));
14565                   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
14566                     s48_Sstack_limitS = (Sreal_stack_limitS);
14567                     if ((s48_Spending_eventsPS)) {
14568                       s48_Sstack_limitS = (((char *) -1));
14569                       goto L17990;}
14570                     else {
14571                       goto L17990;}}
14572                   else {
14573                     s48_Sstack_limitS = (((char *) -1));
14574                     goto L17990;}}
14575                 else {
14576                   goto L17990;}}
14577               else {
14578                 n_1838X = Senabled_interruptsS;
14579                 SstackS = ((SstackS) + -8);
14580                 *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1838X, 2)));
14581                 arg0K0 = 1;
14582                 goto L32860;}}}}}}}}
14583  L65746: {
14584   tag_1839X = arg0K0;
14585   if ((tag_1839X == 0)) {
14586     arg0K0 = (s48_Snative_protocolS);
14587     arg0K1 = 25;
14588     arg0K2 = 0;
14589     goto L33256;}
14590   else {
14591     if ((tag_1839X == 1)) {
14592       stack_arg_count_1840X = s48_Snative_protocolS;
14593       obj_1841X = SvalS;
14594       if ((3 == (3 & obj_1841X))) {
14595         if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1841X))))), 2))))) {
14596           arg0K0 = stack_arg_count_1840X;
14597           arg0K1 = 25;
14598           arg0K2 = 0;
14599           arg0K3 = -1;
14600           goto L66534;}
14601         else {
14602           arg0K0 = 3;
14603           arg0K1 = stack_arg_count_1840X;
14604           arg0K2 = 25;
14605           arg0K3 = 0;
14606           goto L33518;}}
14607       else {
14608         arg0K0 = 3;
14609         arg0K1 = stack_arg_count_1840X;
14610         arg0K2 = 25;
14611         arg0K3 = 0;
14612         goto L33518;}}
14613     else {
14614       if ((tag_1839X == 2)) {
14615         template_1842X = *((long *) (SstackS));
14616         SstackS = ((SstackS) + 8);
14617         return_address_1843X = *((long *) (SstackS));
14618         SstackS = ((SstackS) + 8);
14619 #ifdef USE_DIRECT_THREADING
14620         pending_interruptP_return_address = &&pending_interruptP_return_4;
14621 #else
14622         pending_interruptP_return_tag = 4;
14623 #endif
14624         goto pending_interruptP;
14625        pending_interruptP_return_4:
14626         v_1844X = pending_interruptP0_return_value;
14627         if (v_1844X) {
14628           x_1845X = SvalS;
14629           SstackS = ((SstackS) + -8);
14630           *((long *) (SstackS)) = (long) (x_1845X);
14631           SstackS = ((SstackS) + -8);
14632           *((long *) (SstackS)) = (long) (template_1842X);
14633           SstackS = ((SstackS) + -8);
14634           *((long *) (SstackS)) = (long) (return_address_1843X);
14635           x_1846X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
14636           SstackS = ((SstackS) + -8);
14637           *((long *) (SstackS)) = (long) (x_1846X);
14638           x_1847X = Scurrent_threadS;
14639           addr_1848X = (((char *) (-3 + x_1847X))) + 24;S48_WRITE_BARRIER(x_1847X, addr_1848X, 1);
14640           *((long *) addr_1848X) = (long) (1);
14641           n_1849X = Senabled_interruptsS;
14642           SstackS = ((SstackS) + -8);
14643           *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1849X, 2)));
14644           code_1850X = Snative_poll_return_codeS;
14645           v_1851X = PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3);
14646           SstackS = ((SstackS) + -8);
14647           *((long *) (SstackS)) = (long) ((4 + (PS_SHIFT_LEFT_INLINE(v_1851X, 2))));
14648           SstackS = ((SstackS) + -8);
14649           *((long *) (SstackS)) = (long) ((((long) ((((char *) (-3 + code_1850X))) + 13))));
14650           ScontS = (SstackS);
14651           goto L32850;}
14652         else {
14653           v_1852X = s48_jump_to_native_address(return_address_1843X, template_1842X);
14654           arg0K0 = v_1852X;
14655           goto L65746;}}
14656       else {
14657         if ((tag_1839X == 3)) {
14658           ps_error("unexpected native return value", 1, tag_1839X);
14659           arg0K0 = v_1853X;
14660           goto L71002;}
14661         else {
14662           if ((tag_1839X == 4)) {
14663             arg3K0 = (Scode_pointerS);
14664             goto L36269;}
14665           else {
14666             if ((tag_1839X == 5)) {
14667               maybe_cont_1854X = *((long *) (SstackS));
14668               SstackS = ((SstackS) + 8);
14669               stack_nargs_1855X = s48_Snative_protocolS;
14670               list_args_1856X = *((long *) (SstackS));
14671               SstackS = ((SstackS) + 8);
14672               merged_arg0K0 = list_args_1856X;
14673 #ifdef USE_DIRECT_THREADING
14674               okay_argument_list_return_address = &&okay_argument_list_return_1;
14675 #else
14676               okay_argument_list_return_tag = 1;
14677 #endif
14678               goto okay_argument_list;
14679              okay_argument_list_return_1:
14680               okayP_1857X = okay_argument_list0_return_value;
14681               length_1858X = okay_argument_list1_return_value;
14682               if (okayP_1857X) {
14683                 if ((0 == maybe_cont_1854X)) {
14684                   merged_arg0K0 = stack_nargs_1855X;
14685 #ifdef USE_DIRECT_THREADING
14686                   move_args_above_contB_return_address = &&move_args_above_contB_return_5;
14687 #else
14688                   move_args_above_contB_return_tag = 5;
14689 #endif
14690                   goto move_args_above_contB;
14691                  move_args_above_contB_return_5:
14692                   arg0K0 = stack_nargs_1855X;
14693                   arg0K1 = list_args_1856X;
14694                   arg0K2 = length_1858X;
14695                   goto L65483;}
14696                 else {
14697                   ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_nargs_1855X, 3)));
14698                   *((long *) (ScontS)) = (long) ((((long) (((char *) maybe_cont_1854X)))));
14699                   arg0K0 = stack_nargs_1855X;
14700                   arg0K1 = list_args_1856X;
14701                   arg0K2 = length_1858X;
14702                   goto L65483;}}
14703               else {
14704                 merged_arg0K0 = list_args_1856X;
14705                 merged_arg0K1 = stack_nargs_1855X;
14706 #ifdef USE_DIRECT_THREADING
14707                 pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_2;
14708 #else
14709                 pop_args_GlistSAgc_return_tag = 2;
14710 #endif
14711                 goto pop_args_GlistSAgc;
14712                pop_args_GlistSAgc_return_2:
14713                 args_1859X = pop_args_GlistSAgc0_return_value;push_exception_setupB(5, 0);
14714                 x_1860X = SvalS;
14715                 SstackS = ((SstackS) + -8);
14716                 *((long *) (SstackS)) = (long) (x_1860X);
14717                 SstackS = ((SstackS) + -8);
14718                 *((long *) (SstackS)) = (long) (args_1859X);
14719                 arg0K0 = 2;
14720                 goto L33828;}}
14721             else {
14722               if ((tag_1839X == 6)) {push_exception_setupB(16, 1);
14723                 x_1861X = SvalS;
14724                 SstackS = ((SstackS) + -8);
14725                 *((long *) (SstackS)) = (long) (x_1861X);
14726                 arg0K0 = 1;
14727                 goto L33828;}
14728               else {
14729                 ps_error("unexpected native return value", 1, tag_1839X);
14730                 arg0K0 = v_1862X;
14731                 goto L71002;}}}}}}}}
14732  L36731: {
14733   arg3K0 = (Scode_pointerS);
14734   goto L36269;}
14735  L14635: {
14736   new_env_1863X = arg0K0;
14737   i_1864X = arg0K1;
14738   offset_1865X = arg0K2;
14739   total_count_1866X = arg0K3;
14740   arg0K0 = (*((unsigned char *) ((Scode_pointerS) + (1 + offset_1865X))));
14741   arg0K1 = i_1864X;
14742   arg0K2 = (1 + offset_1865X);
14743   goto L14641;}
14744  L25091: {
14745   count_1867X = arg0K0;
14746   i_1868X = arg0K1;
14747   offset_1869X = arg0K2;
14748   if ((0 == count_1867X)) {
14749     arg0K0 = new_env_1248X;
14750     arg0K1 = i_1868X;
14751     arg0K2 = offset_1869X;
14752     arg0K3 = total_count_1244X;
14753     goto L14635;}
14754   else {
14755     a_1870X = *((long *) ((((char *) (-3 + template_1249X))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1869X)))), 3))));
14756     addr_1871X = s48_allocate_small(24);
14757     *((long *) addr_1871X) = (long) (4110);
14758     x_1872X = 3 + (((long) (addr_1871X + 8)));
14759     *((long *) (((char *) (-3 + x_1872X)))) = (long) (a_1870X);
14760     *((long *) ((((char *) (-3 + x_1872X))) + 8)) = (long) (new_env_1248X);
14761     addr_1873X = (((char *) (-3 + new_env_1248X))) + (PS_SHIFT_LEFT_INLINE(i_1868X, 3));S48_WRITE_BARRIER(new_env_1248X, addr_1873X, x_1872X);
14762     *((long *) addr_1873X) = (long) (x_1872X);
14763     arg0K0 = (-1 + count_1867X);
14764     arg0K1 = (1 + i_1868X);
14765     arg0K2 = (1 + offset_1869X);
14766     goto L25091;}}
14767  L15430: {
14768   new_env_1874X = arg0K0;
14769   i_1875X = arg0K1;
14770   offset_1876X = arg0K2;
14771   total_count_1877X = arg0K3;
14772   arg0K0 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1876X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + offset_1876X)))));
14773   arg0K1 = i_1875X;
14774   arg0K2 = (2 + offset_1876X);
14775   goto L15436;}
14776  L25167: {
14777   count_1878X = arg0K0;
14778   i_1879X = arg0K1;
14779   offset_1880X = arg0K2;
14780   if ((0 == count_1878X)) {
14781     arg0K0 = new_env_1254X;
14782     arg0K1 = i_1879X;
14783     arg0K2 = offset_1880X;
14784     arg0K3 = total_count_1250X;
14785     goto L15430;}
14786   else {
14787     a_1881X = *((long *) ((((char *) (-3 + template_1255X))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1880X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + offset_1880X))))), 3))));
14788     addr_1882X = s48_allocate_small(24);
14789     *((long *) addr_1882X) = (long) (4110);
14790     x_1883X = 3 + (((long) (addr_1882X + 8)));
14791     *((long *) (((char *) (-3 + x_1883X)))) = (long) (a_1881X);
14792     *((long *) ((((char *) (-3 + x_1883X))) + 8)) = (long) (new_env_1254X);
14793     addr_1884X = (((char *) (-3 + new_env_1254X))) + (PS_SHIFT_LEFT_INLINE(i_1879X, 3));S48_WRITE_BARRIER(new_env_1254X, addr_1884X, x_1883X);
14794     *((long *) addr_1884X) = (long) (x_1883X);
14795     arg0K0 = (-1 + count_1878X);
14796     arg0K1 = (1 + i_1879X);
14797     arg0K2 = (2 + offset_1880X);
14798     goto L25167;}}
14799  L38920: {
14800   i_1885X = arg0K0;
14801   if ((0 == i_1885X)) {
14802     SvalS = closure_1266X;
14803     Scode_pointerS = ((Scode_pointerS) + 3);
14804     arg3K0 = (Scode_pointerS);
14805     goto L36269;}
14806   else {
14807     value_1886X = *((long *) (SstackS));
14808     SstackS = ((SstackS) + 8);
14809     *((long *) ((((char *) (-3 + closure_1266X))) + (PS_SHIFT_LEFT_INLINE(i_1885X, 3)))) = (long) (value_1886X);
14810     arg0K0 = (-1 + i_1885X);
14811     goto L38920;}}
14812  L67299: {
14813   n_1887X = arg0K0;
14814   if ((0 == n_1887X)) {
14815     Scode_pointerS = ((Scode_pointerS) + 3);
14816     arg3K0 = (Scode_pointerS);
14817     goto L36269;}
14818   else {
14819     SstackS = ((SstackS) + -8);
14820     *((long *) (SstackS)) = (long) (1);
14821     arg0K0 = (-1 + n_1887X);
14822     goto L67299;}}
14823  L38254: {
14824   move_1888X = arg0K0;
14825   if ((move_1888X == n_moves_1274X)) {
14826     value_1889X = *((long *) (SstackS));
14827     SstackS = ((SstackS) + 8);
14828     SvalS = value_1889X;
14829     Scode_pointerS = ((Scode_pointerS) + (2 + (PS_SHIFT_LEFT_INLINE(n_moves_1274X, 1))));
14830     arg3K0 = (Scode_pointerS);
14831     goto L36269;}
14832   else {
14833     index_1890X = 1 + (PS_SHIFT_LEFT_INLINE(move_1888X, 1));
14834     *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (2 + index_1890X)))), 3)))) = (long) ((*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + index_1890X)))), 3))))));
14835     arg0K0 = (1 + move_1888X);
14836     goto L38254;}}
14837  L38171: {
14838   move_1891X = arg0K0;
14839   if ((move_1891X == n_moves_1276X)) {
14840     value_1892X = *((long *) (SstackS));
14841     SstackS = ((SstackS) + 8);
14842     SvalS = value_1892X;
14843     Scode_pointerS = ((Scode_pointerS) + (3 + (PS_SHIFT_LEFT_INLINE(n_moves_1276X, 2))));
14844     arg3K0 = (Scode_pointerS);
14845     goto L36269;}
14846   else {
14847     index_1893X = 2 + (PS_SHIFT_LEFT_INLINE(move_1891X, 2));
14848     value_1894X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + index_1893X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_1893X))))), 3))));
14849     index_1895X = 2 + index_1893X;
14850     *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + index_1895X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_1895X))))), 3)))) = (long) (value_1894X);
14851     arg0K0 = (1 + move_1891X);
14852     goto L38171;}}
14853  L31432: {
14854   cont_1896X = arg0K0;
14855   SstackS = (ScontS);
14856   arg3K0 = ((SstackS) + -8);
14857   arg3K1 = (top_1278X + (-8 + (PS_SHIFT_LEFT_INLINE(arg_count_1277X, 3))));
14858   goto L31458;}
14859  L66461: {
14860   stack_arg_count_1897X = arg0K0;
14861   obj_1898X = SvalS;
14862   if ((3 == (3 & obj_1898X))) {
14863     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1898X))))), 2))))) {
14864       template_1899X = *((long *) (((char *) (-3 + (SvalS)))));
14865       code_1900X = *((long *) (((char *) (-3 + template_1899X))));
14866       protocol_1901X = *((unsigned char *) ((((char *) (-3 + code_1900X))) + 1));
14867       if ((protocol_1901X == stack_arg_count_1897X)) {
14868         arg0K0 = code_1900X;
14869         arg0K1 = 2;
14870         arg0K2 = 3;
14871         arg0K3 = template_1899X;
14872         goto L32500;}
14873       else {
14874         if (((127 & protocol_1901X) == stack_arg_count_1897X)) {
14875           if (((SstackS) < (s48_Sstack_limitS))) {
14876             interruptP_1902X = (s48_Sstack_limitS) == (((char *) -1));
14877             s48_Sstack_limitS = (Sreal_stack_limitS);
14878             if (((SstackS) < (Sreal_stack_limitS))) {s48_copy_stack_into_heap();
14879               if (((SstackS) < (Sreal_stack_limitS))) {
14880                 ps_error("VM's stack is too small (how can this happen?)", 0);
14881                 if (interruptP_1902X) {
14882                   goto L65947;}
14883                 else {
14884                   goto L65954;}}
14885               else {
14886                 if (interruptP_1902X) {
14887                   goto L65947;}
14888                 else {
14889                   goto L65954;}}}
14890             else {
14891               if (interruptP_1902X) {
14892                 goto L65947;}
14893               else {
14894                 goto L65954;}}}
14895           else {
14896             goto L65954;}}
14897         else {
14898           arg0K0 = stack_arg_count_1897X;
14899           arg0K1 = 25;
14900           arg0K2 = 0;
14901           arg0K3 = -1;
14902           goto L66534;}}}
14903     else {
14904       arg0K0 = 3;
14905       arg0K1 = stack_arg_count_1897X;
14906       arg0K2 = 25;
14907       arg0K3 = 0;
14908       goto L33518;}}
14909   else {
14910     arg0K0 = 3;
14911     arg0K1 = stack_arg_count_1897X;
14912     arg0K2 = 25;
14913     arg0K3 = 0;
14914     goto L33518;}}
14915  L33631: {
14916   obj_1903X = SvalS;
14917   if ((3 == (3 & obj_1903X))) {
14918     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1903X))))), 2))))) {
14919       arg0K0 = stack_arg_count_1283X;
14920       arg0K1 = 25;
14921       arg0K2 = 0;
14922       arg0K3 = -1;
14923       goto L66534;}
14924     else {
14925       arg0K0 = 3;
14926       arg0K1 = stack_arg_count_1283X;
14927       arg0K2 = 25;
14928       arg0K3 = 0;
14929       goto L33518;}}
14930   else {
14931     arg0K0 = 3;
14932     arg0K1 = stack_arg_count_1283X;
14933     arg0K2 = 25;
14934     arg0K3 = 0;
14935     goto L33518;}}
14936  L67391: {
14937   skip_1904X = arg0K0;
14938   merged_arg0K0 = (*((unsigned char *) ((Scode_pointerS) + 1)));
14939 #ifdef USE_DIRECT_THREADING
14940   move_args_above_contB_return_address = &&move_args_above_contB_return_6;
14941 #else
14942   move_args_above_contB_return_tag = 6;
14943 #endif
14944   goto move_args_above_contB;
14945  move_args_above_contB_return_6:
14946   template_1905X = *((long *) (((char *) (-3 + (SvalS)))));
14947   arg0K0 = (*((long *) (((char *) (-3 + template_1905X)))));
14948   arg0K1 = skip_1904X;
14949   arg0K2 = (1 + skip_1904X);
14950   arg0K3 = template_1905X;
14951   goto L32500;}
14952  L32783: {
14953   skip_1906X = arg0K0;
14954   stack_arg_count_1907X = *((unsigned char *) ((Scode_pointerS) + 3));
14955   code_pointer_1908X = (Scode_pointerS) + ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
14956   ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_arg_count_1907X, 3)));
14957   *((long *) (ScontS)) = (long) ((((long) code_pointer_1908X)));
14958   template_1909X = *((long *) (((char *) (-3 + (SvalS)))));
14959   arg0K0 = (*((long *) (((char *) (-3 + template_1909X)))));
14960   arg0K1 = skip_1906X;
14961   arg0K2 = (1 + skip_1906X);
14962   arg0K3 = template_1909X;
14963   goto L32500;}
14964  L32735: {
14965   skip_1910X = arg0K0;
14966   stack_arg_count_1911X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 3))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
14967   return_pointer_offset_1912X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + 1))), 8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
14968   if ((0 == return_pointer_offset_1912X)) {
14969     merged_arg0K0 = stack_arg_count_1911X;
14970 #ifdef USE_DIRECT_THREADING
14971     move_args_above_contB_return_address = &&move_args_above_contB_return_7;
14972 #else
14973     move_args_above_contB_return_tag = 7;
14974 #endif
14975     goto move_args_above_contB;
14976    move_args_above_contB_return_7:
14977     goto L32740;}
14978   else {
14979     code_pointer_1913X = (Scode_pointerS) + return_pointer_offset_1912X;
14980     ScontS = ((SstackS) + (PS_SHIFT_LEFT_INLINE(stack_arg_count_1911X, 3)));
14981     *((long *) (ScontS)) = (long) ((((long) code_pointer_1913X)));
14982     goto L32740;}}
14983  L67404: {
14984   Scode_pointerS = ((Scode_pointerS) + 1);
14985   arg3K0 = (Scode_pointerS);
14986   goto L36269;}
14987  L65483: {
14988   stack_arg_count_1914X = arg0K0;
14989   list_args_1915X = arg0K1;
14990   list_arg_count_1916X = arg0K2;
14991   if ((0 == list_arg_count_1916X)) {
14992     obj_1917X = SvalS;
14993     if ((3 == (3 & obj_1917X))) {
14994       if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1917X))))), 2))))) {
14995         arg0K0 = stack_arg_count_1914X;
14996         arg0K1 = 25;
14997         arg0K2 = 0;
14998         arg0K3 = -1;
14999         goto L66534;}
15000       else {
15001         arg0K0 = 3;
15002         arg0K1 = stack_arg_count_1914X;
15003         arg0K2 = 25;
15004         arg0K3 = 0;
15005         goto L33518;}}
15006     else {
15007       arg0K0 = 3;
15008       arg0K1 = stack_arg_count_1914X;
15009       arg0K2 = 25;
15010       arg0K3 = 0;
15011       goto L33518;}}
15012   else {
15013     obj_1918X = SvalS;
15014     if ((3 == (3 & obj_1918X))) {
15015       if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1918X))))), 2))))) {
15016         arg0K0 = stack_arg_count_1914X;
15017         arg0K1 = list_args_1915X;
15018         arg0K2 = list_arg_count_1916X;
15019         arg0K3 = -1;
15020         goto L66534;}
15021       else {
15022         arg0K0 = 3;
15023         arg0K1 = stack_arg_count_1914X;
15024         arg0K2 = list_args_1915X;
15025         arg0K3 = list_arg_count_1916X;
15026         goto L33518;}}
15027     else {
15028       arg0K0 = 3;
15029       arg0K1 = stack_arg_count_1914X;
15030       arg0K2 = list_args_1915X;
15031       arg0K3 = list_arg_count_1916X;
15032       goto L33518;}}}
15033  L23674: {
15034   list_args_1919X = arg0K0;
15035   stack_nargs_1920X = arg0K1;
15036   merged_arg0K0 = list_args_1919X;
15037 #ifdef USE_DIRECT_THREADING
15038   okay_argument_list_return_address = &&okay_argument_list_return_2;
15039 #else
15040   okay_argument_list_return_tag = 2;
15041 #endif
15042   goto okay_argument_list;
15043  okay_argument_list_return_2:
15044   okayP_1921X = okay_argument_list0_return_value;
15045   list_arg_count_1922X = okay_argument_list1_return_value;
15046   if (okayP_1921X) {
15047     arg0K0 = stack_nargs_1920X;
15048     arg0K1 = list_args_1919X;
15049     arg0K2 = list_arg_count_1922X;
15050     goto L65483;}
15051   else {
15052     merged_arg0K0 = list_args_1919X;
15053     merged_arg0K1 = stack_nargs_1920X;
15054 #ifdef USE_DIRECT_THREADING
15055     pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_3;
15056 #else
15057     pop_args_GlistSAgc_return_tag = 3;
15058 #endif
15059     goto pop_args_GlistSAgc;
15060    pop_args_GlistSAgc_return_3:
15061     args_1923X = pop_args_GlistSAgc0_return_value;push_exception_setupB(5, 0);
15062     x_1924X = SvalS;
15063     SstackS = ((SstackS) + -8);
15064     *((long *) (SstackS)) = (long) (x_1924X);
15065     SstackS = ((SstackS) + -8);
15066     *((long *) (SstackS)) = (long) (args_1923X);
15067     arg0K0 = 2;
15068     goto L33828;}}
15069  L23719: {
15070   list_1925X = arg0K0;
15071   follower_1926X = arg0K1;
15072   if ((25 == list_1925X)) {
15073     list_args_1927X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + follower_1926X))) + 8)))))));
15074     addr_1928X = (((char *) (-3 + follower_1926X))) + 8;S48_WRITE_BARRIER(follower_1926X, addr_1928X, list_args_1927X);
15075     *((long *) addr_1928X) = (long) (list_args_1927X);
15076     arg0K0 = rest_list_1301X;
15077     arg0K1 = (-1 + stack_nargs_1300X);
15078     goto L23674;}
15079   else {
15080     arg0K0 = (*((long *) ((((char *) (-3 + list_1925X))) + 8)));
15081     arg0K1 = (*((long *) ((((char *) (-3 + follower_1926X))) + 8)));
15082     goto L23719;}}
15083  L33589: {
15084   obj_1929X = SvalS;
15085   if ((3 == (3 & obj_1929X))) {
15086     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_1929X))))), 2))))) {
15087       arg0K0 = 0;
15088       arg0K1 = 25;
15089       arg0K2 = 0;
15090       arg0K3 = -1;
15091       goto L66534;}
15092     else {
15093       arg0K0 = 3;
15094       arg0K1 = 0;
15095       arg0K2 = 25;
15096       arg0K3 = 0;
15097       goto L33518;}}
15098   else {
15099     arg0K0 = 3;
15100     arg0K1 = 0;
15101     arg0K2 = 25;
15102     arg0K3 = 0;
15103     goto L33518;}}
15104  L33598: {
15105   SstackS = (Sbottom_of_stackS);
15106   Sheap_continuationS = cont_1303X;
15107   ScontS = (Sbottom_of_stackS);
15108   goto L33589;}
15109  L66072: {
15110   code_pointer_1930X = ((char *) (*((long *) (ScontS))));
15111   protocol_1931X = *((unsigned char *) (code_pointer_1930X + 1));
15112   if ((1 == protocol_1931X)) {
15113     goto L66089;}
15114   else {
15115     if ((66 == protocol_1931X)) {
15116       goto L66089;}
15117     else {
15118       if ((129 == protocol_1931X)) {
15119         arg0K0 = 2;
15120         goto L65874;}
15121       else {
15122         if ((194 == protocol_1931X)) {
15123           arg0K0 = 2;
15124           goto L65874;}
15125         else {
15126           if ((71 == protocol_1931X)) {
15127             cont_1932X = Sheap_continuationS;
15128             if ((3 == (3 & cont_1932X))) {
15129               if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + cont_1932X))))), 2))))) {
15130                 merged_arg0K0 = cont_1932X;
15131                 merged_arg0K1 = 0;
15132 #ifdef USE_DIRECT_THREADING
15133                 copy_continuation_from_heapB_return_address = &&copy_continuation_from_heapB_return_1;
15134 #else
15135                 copy_continuation_from_heapB_return_tag = 1;
15136 #endif
15137                 goto copy_continuation_from_heapB;
15138                copy_continuation_from_heapB_return_1:
15139                 goto L66072;}
15140               else {
15141                 arg0K0 = cont_1932X;
15142                 goto L34190;}}
15143             else {
15144               arg0K0 = cont_1932X;
15145               goto L34190;}}
15146           else {
15147             if ((70 == protocol_1931X)) {
15148               offset_1933X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (code_pointer_1930X + 2))), 8)) + (*((unsigned char *) (code_pointer_1930X + 3)));
15149               proc_1934X = *((long *) ((ScontS) + 8));
15150               if ((0 == offset_1933X)) {
15151                 cont_1935X = ScontS;
15152                 pointer_1936X = (((char *) (*((long *) cont_1935X)))) + -2;
15153                 size_1937X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_1936X)), 8)) + (*((unsigned char *) (pointer_1936X + 1)));
15154                 if ((65535 == size_1937X)) {
15155                   arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_1935X + 8))), 2));
15156                   goto L66233;}
15157                 else {
15158                   arg0K0 = size_1937X;
15159                   goto L66233;}}
15160               else {
15161                 ScontS = ((ScontS) + 8);
15162                 *((long *) (ScontS)) = (long) ((((long) (code_pointer_1930X + offset_1933X))));
15163                 SstackS = (ScontS);
15164                 goto L66138;}}
15165             else {
15166               if ((65 == protocol_1931X)) {
15167                 wants_stack_args_1938X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (code_pointer_1930X + 2))), 8)) + (*((unsigned char *) (code_pointer_1930X + 3)));
15168                 if ((0 == wants_stack_args_1938X)) {
15169 #ifdef USE_DIRECT_THREADING
15170                   pop_continuationB_return_address = &&pop_continuationB_return_0;
15171 #else
15172                   pop_continuationB_return_tag = 0;
15173 #endif
15174                   goto pop_continuationB;
15175                  pop_continuationB_return_0:s48_make_availableAgc(24);
15176                   a_1939X = SvalS;
15177                   addr_1940X = s48_allocate_small(24);
15178                   *((long *) addr_1940X) = (long) (4098);
15179                   x_1941X = 3 + (((long) (addr_1940X + 8)));
15180                   *((long *) (((char *) (-3 + x_1941X)))) = (long) (a_1939X);
15181                   *((long *) ((((char *) (-3 + x_1941X))) + 8)) = (long) (25);
15182                   SstackS = ((SstackS) + -8);
15183                   *((long *) (SstackS)) = (long) (x_1941X);
15184                   Scode_pointerS = ((Scode_pointerS) + 4);
15185                   arg3K0 = (Scode_pointerS);
15186                   goto L36269;}
15187                 else {
15188                   if ((1 == wants_stack_args_1938X)) {
15189 #ifdef USE_DIRECT_THREADING
15190                     pop_continuationB_return_address = &&pop_continuationB_return_1;
15191 #else
15192                     pop_continuationB_return_tag = 1;
15193 #endif
15194                     goto pop_continuationB;
15195                    pop_continuationB_return_1:
15196                     x_1942X = SvalS;
15197                     SstackS = ((SstackS) + -8);
15198                     *((long *) (SstackS)) = (long) (x_1942X);
15199                     SstackS = ((SstackS) + -8);
15200                     *((long *) (SstackS)) = (long) (25);
15201                     Scode_pointerS = ((Scode_pointerS) + 4);
15202                     arg3K0 = (Scode_pointerS);
15203                     goto L36269;}
15204                   else {
15205                     x_1943X = SvalS;
15206                     SstackS = ((SstackS) + -8);
15207                     *((long *) (SstackS)) = (long) (x_1943X);
15208                     merged_arg0K0 = 25;
15209                     merged_arg0K1 = 1;
15210 #ifdef USE_DIRECT_THREADING
15211                     pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_4;
15212 #else
15213                     pop_args_GlistSAgc_return_tag = 4;
15214 #endif
15215                     goto pop_args_GlistSAgc;
15216                    pop_args_GlistSAgc_return_4:
15217                     args_1944X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
15218                     SstackS = ((SstackS) + -8);
15219                     *((long *) (SstackS)) = (long) (1);
15220                     SstackS = ((SstackS) + -8);
15221                     *((long *) (SstackS)) = (long) (args_1944X);
15222                     arg0K0 = 2;
15223                     goto L33828;}}}
15224               else {
15225                 x_1945X = SvalS;
15226                 SstackS = ((SstackS) + -8);
15227                 *((long *) (SstackS)) = (long) (x_1945X);
15228                 merged_arg0K0 = 25;
15229                 merged_arg0K1 = 1;
15230 #ifdef USE_DIRECT_THREADING
15231                 pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_5;
15232 #else
15233                 pop_args_GlistSAgc_return_tag = 5;
15234 #endif
15235                 goto pop_args_GlistSAgc;
15236                pop_args_GlistSAgc_return_5:
15237                 args_1946X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
15238                 SstackS = ((SstackS) + -8);
15239                 *((long *) (SstackS)) = (long) (1);
15240                 SstackS = ((SstackS) + -8);
15241                 *((long *) (SstackS)) = (long) (args_1946X);
15242                 arg0K0 = 2;
15243                 goto L33828;}}}}}}}}
15244  L33256: {
15245   stack_nargs_1947X = arg0K0;
15246   list_args_1948X = arg0K1;
15247   list_arg_count_1949X = arg0K2;
15248   code_pointer_1950X = ((char *) (*((long *) (ScontS))));
15249   protocol_1951X = *((unsigned char *) (code_pointer_1950X + 1));
15250   if ((1 == protocol_1951X)) {
15251     if ((1 == (stack_nargs_1947X + list_arg_count_1949X))) {
15252       if ((1 == stack_nargs_1947X)) {
15253         v_1952X = *((long *) (SstackS));
15254         SstackS = ((SstackS) + 8);
15255         arg0K0 = v_1952X;
15256         goto L33345;}
15257       else {
15258         arg0K0 = (*((long *) (((char *) (-3 + list_args_1948X)))));
15259         goto L33345;}}
15260     else {
15261       arg0K0 = stack_nargs_1947X;
15262       arg0K1 = list_args_1948X;
15263       goto L34273;}}
15264   else {
15265     if ((66 == protocol_1951X)) {
15266 #ifdef USE_DIRECT_THREADING
15267       pop_continuationB_return_address = &&pop_continuationB_return_2;
15268 #else
15269       pop_continuationB_return_tag = 2;
15270 #endif
15271       goto pop_continuationB;
15272      pop_continuationB_return_2:
15273       arg0K0 = 1;
15274       goto L36703;}
15275     else {
15276       if ((127 < protocol_1951X)) {
15277         if ((129 == protocol_1951X)) {
15278           if ((1 == (stack_nargs_1947X + list_arg_count_1949X))) {
15279             if ((1 == stack_nargs_1947X)) {
15280               v_1953X = *((long *) (SstackS));
15281               SstackS = ((SstackS) + 8);
15282               arg0K0 = v_1953X;
15283               goto L66418;}
15284             else {
15285               arg0K0 = (*((long *) (((char *) (-3 + list_args_1948X)))));
15286               goto L66418;}}
15287           else {
15288             merged_arg0K0 = list_args_1948X;
15289             merged_arg0K1 = stack_nargs_1947X;
15290 #ifdef USE_DIRECT_THREADING
15291             pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_6;
15292 #else
15293             pop_args_GlistSAgc_return_tag = 6;
15294 #endif
15295             goto pop_args_GlistSAgc;
15296            pop_args_GlistSAgc_return_6:
15297             args_1954X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
15298             SstackS = ((SstackS) + -8);
15299             *((long *) (SstackS)) = (long) (1);
15300             SstackS = ((SstackS) + -8);
15301             *((long *) (SstackS)) = (long) (args_1954X);
15302             arg0K0 = 2;
15303             goto L33828;}}
15304         else {
15305           if ((194 == protocol_1951X)) {
15306             arg0K0 = 2;
15307             goto L65874;}
15308           else {
15309             ps_error("unknown native return protocol", 1, protocol_1951X);
15310             merged_arg0K0 = list_args_1948X;
15311             merged_arg0K1 = stack_nargs_1947X;
15312 #ifdef USE_DIRECT_THREADING
15313             pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_7;
15314 #else
15315             pop_args_GlistSAgc_return_tag = 7;
15316 #endif
15317             goto pop_args_GlistSAgc;
15318            pop_args_GlistSAgc_return_7:
15319             args_1955X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
15320             SstackS = ((SstackS) + -8);
15321             *((long *) (SstackS)) = (long) (1);
15322             SstackS = ((SstackS) + -8);
15323             *((long *) (SstackS)) = (long) (args_1955X);
15324             arg0K0 = 2;
15325             goto L33828;}}}
15326       else {
15327         if ((71 == protocol_1951X)) {
15328           cont_1956X = Sheap_continuationS;
15329           if ((3 == (3 & cont_1956X))) {
15330             if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + cont_1956X))))), 2))))) {
15331               merged_arg0K0 = cont_1956X;
15332               merged_arg0K1 = stack_nargs_1947X;
15333 #ifdef USE_DIRECT_THREADING
15334               copy_continuation_from_heapB_return_address = &&copy_continuation_from_heapB_return_2;
15335 #else
15336               copy_continuation_from_heapB_return_tag = 2;
15337 #endif
15338               goto copy_continuation_from_heapB;
15339              copy_continuation_from_heapB_return_2:
15340               arg0K0 = stack_nargs_1947X;
15341               arg0K1 = list_args_1948X;
15342               arg0K2 = list_arg_count_1949X;
15343               goto L33256;}
15344             else {
15345               goto L33291;}}
15346           else {
15347             goto L33291;}}
15348         else {
15349           if ((70 == protocol_1951X)) {
15350             SvalS = (*((long *) ((ScontS) + 8)));
15351             offset_1957X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (code_pointer_1950X + 2))), 8)) + (*((unsigned char *) (code_pointer_1950X + 3)));
15352             if ((0 == offset_1957X)) {
15353               cont_1958X = ScontS;
15354               pointer_1959X = (((char *) (*((long *) cont_1958X)))) + -2;
15355               size_1960X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_1959X)), 8)) + (*((unsigned char *) (pointer_1959X + 1)));
15356               if ((65535 == size_1960X)) {
15357                 arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_1958X + 8))), 2));
15358                 goto L33408;}
15359               else {
15360                 arg0K0 = size_1960X;
15361                 goto L33408;}}
15362             else {
15363               ScontS = ((ScontS) + 8);
15364               *((long *) (ScontS)) = (long) ((((long) (code_pointer_1950X + offset_1957X))));
15365               merged_arg0K0 = stack_nargs_1947X;
15366 #ifdef USE_DIRECT_THREADING
15367               move_args_above_contB_return_address = &&move_args_above_contB_return_8;
15368 #else
15369               move_args_above_contB_return_tag = 8;
15370 #endif
15371               goto move_args_above_contB;
15372              move_args_above_contB_return_8:
15373               arg0K0 = stack_nargs_1947X;
15374               arg0K1 = list_args_1948X;
15375               arg0K2 = list_arg_count_1949X;
15376               goto L65483;}}
15377           else {
15378             if ((63 < protocol_1951X)) {
15379               if ((65 == protocol_1951X)) {
15380                 count_1961X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (code_pointer_1950X + 2))), 8)) + (*((unsigned char *) (code_pointer_1950X + 3)));
15381                 if (((stack_nargs_1947X + list_arg_count_1949X) < count_1961X)) {
15382                   merged_arg0K0 = list_args_1948X;
15383                   merged_arg0K1 = stack_nargs_1947X;
15384 #ifdef USE_DIRECT_THREADING
15385                   pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_8;
15386 #else
15387                   pop_args_GlistSAgc_return_tag = 8;
15388 #endif
15389                   goto pop_args_GlistSAgc;
15390                  pop_args_GlistSAgc_return_8:
15391                   args_1962X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
15392                   SstackS = ((SstackS) + -8);
15393                   *((long *) (SstackS)) = (long) (1);
15394                   SstackS = ((SstackS) + -8);
15395                   *((long *) (SstackS)) = (long) (args_1962X);
15396                   arg0K0 = 2;
15397                   goto L33828;}
15398                 else {
15399                   arg_top_1963X = SstackS;
15400 #ifdef USE_DIRECT_THREADING
15401                   pop_continuationB_return_address = &&pop_continuationB_return_3;
15402 #else
15403                   pop_continuationB_return_tag = 3;
15404 #endif
15405                   goto pop_continuationB;
15406                  pop_continuationB_return_3:
15407                   arg3K0 = ((SstackS) + -8);
15408                   arg3K1 = (arg_top_1963X + (-8 + (PS_SHIFT_LEFT_INLINE(stack_nargs_1947X, 3))));
15409                   goto L37760;}}
15410               else {
15411                 if ((64 == protocol_1951X)) {
15412                   arg0K0 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) (code_pointer_1950X + 2))), 8)) + (*((unsigned char *) (code_pointer_1950X + 3))));
15413                   arg0K1 = 3;
15414                   arg0K2 = stack_nargs_1947X;
15415                   arg0K3 = list_args_1948X;
15416                   arg0K4 = list_arg_count_1949X;
15417                   goto L37612;}
15418                 else {
15419                   ps_error("unknown protocol", 1, protocol_1951X);
15420                   arg0K0 = stack_nargs_1947X;
15421                   arg0K1 = list_args_1948X;
15422                   goto L34273;}}}
15423             else {
15424               arg0K0 = protocol_1951X;
15425               arg0K1 = 1;
15426               arg0K2 = stack_nargs_1947X;
15427               arg0K3 = list_args_1948X;
15428               arg0K4 = list_arg_count_1949X;
15429               goto L37612;}}}}}}}
15430  L37912: {
15431   if ((nargs_1310X == (*((unsigned char *) ((((char *) (-3 + code_1309X))) + 1))))) {
15432     arg0K0 = code_1309X;
15433     arg0K1 = 2;
15434     arg0K2 = 3;
15435     arg0K3 = template_1308X;
15436     goto L32500;}
15437   else {
15438     v_1964X = *((unsigned char *) ((((char *) (-3 + code_1309X))) + 1));
15439     if ((67 == v_1964X)) {
15440       if ((nargs_1310X == (*((unsigned char *) ((((char *) (-3 + code_1309X))) + (-3 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + code_1309X))))), 8)))))))) {
15441         index_1965X = -2 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + code_1309X))))), 8));
15442         arg0K0 = code_1309X;
15443         arg0K1 = 2;
15444         arg0K2 = template_1308X;
15445         arg0K3 = ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + code_1309X))) + index_1965X))), 8)) + (*((unsigned char *) ((((char *) (-3 + code_1309X))) + (1 + index_1965X)))));
15446         goto L36713;}
15447       else {
15448         goto L37934;}}
15449     else {
15450       goto L37934;}}}
15451  L36588: {
15452   arg0K0 = (2 + (PS_SHIFT_LEFT_INLINE(max_1314X, 1)));
15453   goto L36590;}
15454  L36590: {
15455   offset_1966X = arg0K0;
15456   Scode_pointerS = ((Scode_pointerS) + offset_1966X);
15457   arg3K0 = (Scode_pointerS);
15458   goto L36269;}
15459  L37177: {
15460   Scode_pointerS = ((Scode_pointerS) + 1);
15461   arg3K0 = (Scode_pointerS);
15462   goto L36269;}
15463  L36486: {
15464   delta_1967X = arg0K0;
15465   Scode_pointerS = ((Scode_pointerS) + delta_1967X);
15466   arg3K0 = (Scode_pointerS);
15467   goto L36269;}
15468  L37068: {
15469   delta_1968X = arg0K0;
15470   Scode_pointerS = ((Scode_pointerS) + delta_1968X);
15471   arg3K0 = (Scode_pointerS);
15472   goto L36269;}
15473  L67452: {
15474   val_1969X = arg0K0;
15475   SvalS = val_1969X;
15476   Scode_pointerS = ((Scode_pointerS) + 1);
15477   arg3K0 = (Scode_pointerS);
15478   goto L36269;}
15479  L67464: {
15480   val_1970X = arg0K0;
15481   SvalS = val_1970X;
15482   Scode_pointerS = ((Scode_pointerS) + 1);
15483   arg3K0 = (Scode_pointerS);
15484   goto L36269;}
15485  L21091: {
15486   if ((3 == (3 & x_1329X))) {
15487     if ((8 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1329X))))), 2))))) {
15488       arg0K0 = 5;
15489       goto L67464;}
15490     else {
15491       goto L21097;}}
15492   else {
15493     goto L21097;}}
15494  L56404: {
15495   SvalS = 5;
15496   Scode_pointerS = ((Scode_pointerS) + 1);
15497   arg3K0 = (Scode_pointerS);
15498   goto L36269;}
15499  L56405: {
15500   if ((3 == (3 & n_1330X))) {
15501     if ((11 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1330X))))), 2))))) {
15502       goto L56418;}
15503     else {
15504       goto L56413;}}
15505   else {
15506     goto L56413;}}
15507  L56561: {
15508   SvalS = 5;
15509   Scode_pointerS = ((Scode_pointerS) + 1);
15510   arg3K0 = (Scode_pointerS);
15511   goto L36269;}
15512  L56554: {
15513   if ((3 == (3 & n_1331X))) {
15514     if ((8 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1331X))))), 2))))) {
15515       goto L56561;}
15516     else {
15517       goto L56562;}}
15518   else {
15519     goto L56562;}}
15520  L56764: {
15521   n_1971X = arg0K0;
15522   if ((0 == (3 & n_1971X))) {
15523     goto L56797;}
15524   else {
15525     if ((3 == (3 & n_1971X))) {
15526       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1971X))))), 2))))) {
15527         goto L56797;}
15528       else {
15529         goto L56780;}}
15530     else {
15531       goto L56780;}}}
15532  L47901: {
15533   SvalS = 5;
15534   Scode_pointerS = ((Scode_pointerS) + 1);
15535   arg3K0 = (Scode_pointerS);
15536   goto L36269;}
15537  L47902: {
15538 push_exception_setupB(5, 1);
15539   SstackS = ((SstackS) + -8);
15540   *((long *) (SstackS)) = (long) (n_1332X);
15541   arg0K0 = 1;
15542   goto L33828;}
15543  L48027: {
15544   v_1972X = (char *) s48_long_to_bignum(x_1337X);
15545   v_1973X = enter_bignum(v_1972X);
15546   arg0K0 = v_1973X;
15547   goto L47973;}
15548  L47973: {
15549   val_1974X = arg0K0;
15550   SvalS = val_1974X;
15551   Scode_pointerS = ((Scode_pointerS) + 1);
15552   arg3K0 = (Scode_pointerS);
15553   goto L36269;}
15554  L47979: {
15555   if ((0 == (3 & y_1336X))) {
15556     goto L47985;}
15557   else {
15558     if ((3 == (3 & y_1336X))) {
15559       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1336X))))), 2))))) {
15560         goto L47985;}
15561       else {
15562         goto L47988;}}
15563     else {
15564       goto L47988;}}}
15565  L47988: {
15566   if ((3 == (3 & arg2_1335X))) {
15567     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1335X))))), 2))))) {
15568       if ((3 == (3 & y_1336X))) {
15569         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1336X))))), 2))))) {
15570           Stemp0S = arg2_1335X;
15571           Stemp1S = y_1336X;s48_make_availableAgc(16);
15572           value_1975X = Stemp0S;
15573           Stemp0S = 1;
15574           x_1976X = *((double *) (((char *) (-3 + value_1975X))));
15575           value_1977X = Stemp1S;
15576           Stemp1S = 1;
15577           y_1978X = *((double *) (((char *) (-3 + value_1977X))));
15578           addr_1979X = s48_allocate_small(16);
15579           *((long *) addr_1979X) = (long) (2122);
15580           Kdouble_1980X = 3 + (((long) (addr_1979X + 8)));
15581           *((double *) (((char *) (-3 + Kdouble_1980X)))) = (double) ((x_1976X + y_1978X));
15582           SvalS = Kdouble_1980X;
15583           Scode_pointerS = ((Scode_pointerS) + 1);
15584           arg3K0 = (Scode_pointerS);
15585           goto L36269;}
15586         else {
15587           goto L48002;}}
15588       else {
15589         goto L48002;}}
15590     else {
15591       goto L48002;}}
15592   else {
15593     goto L48002;}}
15594  L12468: {
15595   a_1981X = arg0K0;
15596   if ((b_1341X < 0)) {
15597     arg0K0 = (0 - b_1341X);
15598     goto L12472;}
15599   else {
15600     arg0K0 = b_1341X;
15601     goto L12472;}}
15602  L58548: {
15603   if ((0 == (3 & y_1339X))) {
15604     goto L58554;}
15605   else {
15606     if ((3 == (3 & y_1339X))) {
15607       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1339X))))), 2))))) {
15608         goto L58554;}
15609       else {
15610         goto L58557;}}
15611     else {
15612       goto L58557;}}}
15613  L58557: {
15614   if ((3 == (3 & arg2_1338X))) {
15615     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1338X))))), 2))))) {
15616       if ((3 == (3 & y_1339X))) {
15617         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1339X))))), 2))))) {
15618           Stemp0S = arg2_1338X;
15619           Stemp1S = y_1339X;s48_make_availableAgc(16);
15620           value_1982X = Stemp0S;
15621           Stemp0S = 1;
15622           x_1983X = *((double *) (((char *) (-3 + value_1982X))));
15623           value_1984X = Stemp1S;
15624           Stemp1S = 1;
15625           y_1985X = *((double *) (((char *) (-3 + value_1984X))));
15626           addr_1986X = s48_allocate_small(16);
15627           *((long *) addr_1986X) = (long) (2122);
15628           Kdouble_1987X = 3 + (((long) (addr_1986X + 8)));
15629           *((double *) (((char *) (-3 + Kdouble_1987X)))) = (double) ((x_1983X * y_1985X));
15630           SvalS = Kdouble_1987X;
15631           Scode_pointerS = ((Scode_pointerS) + 1);
15632           arg3K0 = (Scode_pointerS);
15633           goto L36269;}
15634         else {
15635           goto L58571;}}
15636       else {
15637         goto L58571;}}
15638     else {
15639       goto L58571;}}
15640   else {
15641     goto L58571;}}
15642  L48316: {
15643   v_1988X = (char *) s48_long_to_bignum(x_1344X);
15644   v_1989X = enter_bignum(v_1988X);
15645   arg0K0 = v_1989X;
15646   goto L48262;}
15647  L48262: {
15648   val_1990X = arg0K0;
15649   SvalS = val_1990X;
15650   Scode_pointerS = ((Scode_pointerS) + 1);
15651   arg3K0 = (Scode_pointerS);
15652   goto L36269;}
15653  L48268: {
15654   if ((0 == (3 & y_1343X))) {
15655     goto L48274;}
15656   else {
15657     if ((3 == (3 & y_1343X))) {
15658       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1343X))))), 2))))) {
15659         goto L48274;}
15660       else {
15661         goto L48277;}}
15662     else {
15663       goto L48277;}}}
15664  L48277: {
15665   if ((3 == (3 & arg2_1342X))) {
15666     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1342X))))), 2))))) {
15667       if ((3 == (3 & y_1343X))) {
15668         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1343X))))), 2))))) {
15669           Stemp0S = arg2_1342X;
15670           Stemp1S = y_1343X;s48_make_availableAgc(16);
15671           value_1991X = Stemp0S;
15672           Stemp0S = 1;
15673           x_1992X = *((double *) (((char *) (-3 + value_1991X))));
15674           value_1993X = Stemp1S;
15675           Stemp1S = 1;
15676           y_1994X = *((double *) (((char *) (-3 + value_1993X))));
15677           addr_1995X = s48_allocate_small(16);
15678           *((long *) addr_1995X) = (long) (2122);
15679           Kdouble_1996X = 3 + (((long) (addr_1995X + 8)));
15680           *((double *) (((char *) (-3 + Kdouble_1996X)))) = (double) ((x_1992X - y_1994X));
15681           SvalS = Kdouble_1996X;
15682           Scode_pointerS = ((Scode_pointerS) + 1);
15683           arg3K0 = (Scode_pointerS);
15684           goto L36269;}
15685         else {
15686           goto L48291;}}
15687       else {
15688         goto L48291;}}
15689     else {
15690       goto L48291;}}
15691   else {
15692     goto L48291;}}
15693  L12726: {
15694   a_1997X = arg0K0;
15695   if ((b_1348X < 0)) {
15696     arg0K0 = (0 - b_1348X);
15697     goto L12730;}
15698   else {
15699     arg0K0 = b_1348X;
15700     goto L12730;}}
15701  L58801: {
15702   if ((0 == (3 & y_1346X))) {
15703     goto L58807;}
15704   else {
15705     if ((3 == (3 & y_1346X))) {
15706       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1346X))))), 2))))) {
15707         goto L58807;}
15708       else {
15709         goto L58838;}}
15710     else {
15711       goto L58838;}}}
15712  L58838: {
15713   if ((3 == (3 & arg2_1345X))) {
15714     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1345X))))), 2))))) {
15715       if ((3 == (3 & y_1346X))) {
15716         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1346X))))), 2))))) {
15717           Stemp0S = arg2_1345X;
15718           Stemp1S = y_1346X;s48_make_availableAgc(16);
15719           value_1998X = Stemp0S;
15720           Stemp0S = 1;
15721           x_1999X = *((double *) (((char *) (-3 + value_1998X))));
15722           value_2000X = Stemp1S;
15723           Stemp1S = 1;
15724           value_2001X = x_1999X / (*((double *) (((char *) (-3 + value_2000X)))));
15725           addr_2002X = s48_allocate_small(16);
15726           *((long *) addr_2002X) = (long) (2122);
15727           Kdouble_2003X = 3 + (((long) (addr_2002X + 8)));
15728           *((double *) (((char *) (-3 + Kdouble_2003X)))) = (double) (value_2001X);
15729           SvalS = Kdouble_2003X;
15730           Scode_pointerS = ((Scode_pointerS) + 1);
15731           arg3K0 = (Scode_pointerS);
15732           goto L36269;}
15733         else {
15734           goto L58852;}}
15735       else {
15736         goto L58852;}}
15737     else {
15738       goto L58852;}}
15739   else {
15740     goto L58852;}}
15741  L48547: {
15742   val_2004X = arg0K0;
15743   SvalS = val_2004X;
15744   Scode_pointerS = ((Scode_pointerS) + 1);
15745   arg3K0 = (Scode_pointerS);
15746   goto L36269;}
15747  L48553: {
15748   if ((0 == (3 & y_1350X))) {
15749     goto L48559;}
15750   else {
15751     if ((3 == (3 & y_1350X))) {
15752       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1350X))))), 2))))) {
15753         goto L48559;}
15754       else {
15755         goto L48564;}}
15756     else {
15757       goto L48564;}}}
15758  L48564: {
15759   if ((3 == (3 & arg2_1349X))) {
15760     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1349X))))), 2))))) {
15761       if ((3 == (3 & y_1350X))) {
15762         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1350X))))), 2))))) {
15763           b_2005X = (*((double *) (((char *) (-3 + arg2_1349X))))) == (*((double *) (((char *) (-3 + y_1350X)))));
15764           if (b_2005X) {
15765             arg0K0 = 5;
15766             goto L48579;}
15767           else {
15768             arg0K0 = 1;
15769             goto L48579;}}
15770         else {
15771           goto L48580;}}
15772       else {
15773         goto L48580;}}
15774     else {
15775       goto L48580;}}
15776   else {
15777     goto L48580;}}
15778  L48807: {
15779   val_2006X = arg0K0;
15780   SvalS = val_2006X;
15781   Scode_pointerS = ((Scode_pointerS) + 1);
15782   arg3K0 = (Scode_pointerS);
15783   goto L36269;}
15784  L48813: {
15785   if ((0 == (3 & y_1352X))) {
15786     goto L48819;}
15787   else {
15788     if ((3 == (3 & y_1352X))) {
15789       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1352X))))), 2))))) {
15790         goto L48819;}
15791       else {
15792         goto L48824;}}
15793     else {
15794       goto L48824;}}}
15795  L48824: {
15796   if ((3 == (3 & arg2_1351X))) {
15797     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1351X))))), 2))))) {
15798       if ((3 == (3 & y_1352X))) {
15799         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1352X))))), 2))))) {
15800           b_2007X = (*((double *) (((char *) (-3 + arg2_1351X))))) < (*((double *) (((char *) (-3 + y_1352X)))));
15801           if (b_2007X) {
15802             arg0K0 = 5;
15803             goto L48839;}
15804           else {
15805             arg0K0 = 1;
15806             goto L48839;}}
15807         else {
15808           goto L48840;}}
15809       else {
15810         goto L48840;}}
15811     else {
15812       goto L48840;}}
15813   else {
15814     goto L48840;}}
15815  L49130: {
15816   val_2008X = arg0K0;
15817   SvalS = val_2008X;
15818   Scode_pointerS = ((Scode_pointerS) + 1);
15819   arg3K0 = (Scode_pointerS);
15820   goto L36269;}
15821  L49136: {
15822   if ((0 == (3 & y_1354X))) {
15823     goto L49142;}
15824   else {
15825     if ((3 == (3 & y_1354X))) {
15826       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1354X))))), 2))))) {
15827         goto L49142;}
15828       else {
15829         goto L49147;}}
15830     else {
15831       goto L49147;}}}
15832  L49147: {
15833   if ((3 == (3 & arg2_1353X))) {
15834     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1353X))))), 2))))) {
15835       if ((3 == (3 & y_1354X))) {
15836         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1354X))))), 2))))) {
15837           b_2009X = (*((double *) (((char *) (-3 + y_1354X))))) < (*((double *) (((char *) (-3 + arg2_1353X)))));
15838           if (b_2009X) {
15839             arg0K0 = 5;
15840             goto L49162;}
15841           else {
15842             arg0K0 = 1;
15843             goto L49162;}}
15844         else {
15845           goto L49163;}}
15846       else {
15847         goto L49163;}}
15848     else {
15849       goto L49163;}}
15850   else {
15851     goto L49163;}}
15852  L49453: {
15853   val_2010X = arg0K0;
15854   SvalS = val_2010X;
15855   Scode_pointerS = ((Scode_pointerS) + 1);
15856   arg3K0 = (Scode_pointerS);
15857   goto L36269;}
15858  L49459: {
15859   if ((0 == (3 & y_1356X))) {
15860     goto L49465;}
15861   else {
15862     if ((3 == (3 & y_1356X))) {
15863       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1356X))))), 2))))) {
15864         goto L49465;}
15865       else {
15866         goto L49470;}}
15867     else {
15868       goto L49470;}}}
15869  L49470: {
15870   if ((3 == (3 & arg2_1355X))) {
15871     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1355X))))), 2))))) {
15872       if ((3 == (3 & y_1356X))) {
15873         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1356X))))), 2))))) {
15874           if (((*((double *) (((char *) (-3 + y_1356X))))) < (*((double *) (((char *) (-3 + arg2_1355X))))))) {
15875             arg0K0 = 1;
15876             goto L49485;}
15877           else {
15878             arg0K0 = 5;
15879             goto L49485;}}
15880         else {
15881           goto L49486;}}
15882       else {
15883         goto L49486;}}
15884     else {
15885       goto L49486;}}
15886   else {
15887     goto L49486;}}
15888  L49747: {
15889   val_2011X = arg0K0;
15890   SvalS = val_2011X;
15891   Scode_pointerS = ((Scode_pointerS) + 1);
15892   arg3K0 = (Scode_pointerS);
15893   goto L36269;}
15894  L49753: {
15895   if ((0 == (3 & y_1358X))) {
15896     goto L49759;}
15897   else {
15898     if ((3 == (3 & y_1358X))) {
15899       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1358X))))), 2))))) {
15900         goto L49759;}
15901       else {
15902         goto L49764;}}
15903     else {
15904       goto L49764;}}}
15905  L49764: {
15906   if ((3 == (3 & arg2_1357X))) {
15907     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1357X))))), 2))))) {
15908       if ((3 == (3 & y_1358X))) {
15909         if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1358X))))), 2))))) {
15910           if (((*((double *) (((char *) (-3 + arg2_1357X))))) < (*((double *) (((char *) (-3 + y_1358X))))))) {
15911             arg0K0 = 1;
15912             goto L49779;}
15913           else {
15914             arg0K0 = 5;
15915             goto L49779;}}
15916         else {
15917           goto L49780;}}
15918       else {
15919         goto L49780;}}
15920     else {
15921       goto L49780;}}
15922   else {
15923     goto L49780;}}
15924  L13173: {
15925   a_2012X = arg0K0;
15926   if ((b_1363X < 0)) {
15927     arg0K0 = (0 - b_1363X);
15928     goto L13177;}
15929   else {
15930     arg0K0 = b_1363X;
15931     goto L13177;}}
15932  L50053: {
15933   if ((0 == (3 & y_1360X))) {
15934     goto L50059;}
15935   else {
15936     if ((3 == (3 & y_1360X))) {
15937       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1360X))))), 2))))) {
15938         goto L50059;}
15939       else {
15940         goto L50062;}}
15941     else {
15942       goto L50062;}}}
15943  L50062: {
15944 push_exception_setupB(5, 1);
15945   SstackS = ((SstackS) + -8);
15946   *((long *) (SstackS)) = (long) (arg2_1359X);
15947   SstackS = ((SstackS) + -8);
15948   *((long *) (SstackS)) = (long) (y_1360X);
15949   arg0K0 = 2;
15950   goto L33828;}
15951  L50267: {
15952   a_2013X = arg0K0;
15953   n_2014X = PS_SHIFT_RIGHT_INLINE(y_1365X, 2);
15954   if ((n_2014X < 0)) {
15955     arg0K0 = (0 - n_2014X);
15956     goto L50269;}
15957   else {
15958     arg0K0 = n_2014X;
15959     goto L50269;}}
15960  L50229: {
15961   if ((0 == (3 & y_1365X))) {
15962     goto L50235;}
15963   else {
15964     if ((3 == (3 & y_1365X))) {
15965       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1365X))))), 2))))) {
15966         goto L50235;}
15967       else {
15968         goto L50238;}}
15969     else {
15970       goto L50238;}}}
15971  L50238: {
15972 push_exception_setupB(5, 1);
15973   SstackS = ((SstackS) + -8);
15974   *((long *) (SstackS)) = (long) (arg2_1364X);
15975   SstackS = ((SstackS) + -8);
15976   *((long *) (SstackS)) = (long) (y_1365X);
15977   arg0K0 = 2;
15978   goto L33828;}
15979  L50416: {
15980   SvalS = n_1368X;
15981   Scode_pointerS = ((Scode_pointerS) + 1);
15982   arg3K0 = (Scode_pointerS);
15983   goto L36269;}
15984  L50417: {
15985 push_exception_setupB(5, 1);
15986   SstackS = ((SstackS) + -8);
15987   *((long *) (SstackS)) = (long) (n_1368X);
15988   arg0K0 = 1;
15989   goto L33828;}
15990  L50471: {
15991   SvalS = n_1369X;
15992   Scode_pointerS = ((Scode_pointerS) + 1);
15993   arg3K0 = (Scode_pointerS);
15994   goto L36269;}
15995  L50472: {
15996 push_exception_setupB(5, 1);
15997   SstackS = ((SstackS) + -8);
15998   *((long *) (SstackS)) = (long) (n_1369X);
15999   arg0K0 = 1;
16000   goto L33828;}
16001  L50526: {
16002   SvalS = 4;
16003   Scode_pointerS = ((Scode_pointerS) + 1);
16004   arg3K0 = (Scode_pointerS);
16005   goto L36269;}
16006  L50529: {
16007 push_exception_setupB(5, 1);
16008   SstackS = ((SstackS) + -8);
16009   *((long *) (SstackS)) = (long) (n_1370X);
16010   arg0K0 = 1;
16011   goto L33828;}
16012  L50586: {
16013   SvalS = n_1371X;
16014   Scode_pointerS = ((Scode_pointerS) + 1);
16015   arg3K0 = (Scode_pointerS);
16016   goto L36269;}
16017  L50587: {
16018 push_exception_setupB(5, 1);
16019   SstackS = ((SstackS) + -8);
16020   *((long *) (SstackS)) = (long) (n_1371X);
16021   arg0K0 = 1;
16022   goto L33828;}
16023  L50641: {
16024   SvalS = 0;
16025   Scode_pointerS = ((Scode_pointerS) + 1);
16026   arg3K0 = (Scode_pointerS);
16027   goto L36269;}
16028  L50644: {
16029 push_exception_setupB(5, 1);
16030   SstackS = ((SstackS) + -8);
16031   *((long *) (SstackS)) = (long) (n_1372X);
16032   arg0K0 = 1;
16033   goto L33828;}
16034  L60130: {
16035   x_2015X = SvalS;
16036   if ((0 == (3 & x_2015X))) {
16037     if ((0 < x_2015X)) {
16038       goto L60159;}
16039     else {
16040       goto L60153;}}
16041   else {
16042     v_2016X = s48_bignum_test((((char *) (-3 + x_2015X))));
16043     if ((-1 == v_2016X)) {
16044       goto L60153;}
16045     else {
16046       goto L60159;}}}
16047  L60133: {
16048 push_exception_setupB(5, 1);
16049   x_2017X = SvalS;
16050   SstackS = ((SstackS) + -8);
16051   *((long *) (SstackS)) = (long) (x_2017X);
16052   arg0K0 = 1;
16053   goto L33828;}
16054  L63588: {
16055   x_2018X = SvalS;
16056   if ((0 == (3 & x_2018X))) {
16057     n_2019X = PS_SHIFT_RIGHT_INLINE(x_2018X, 2);
16058     if ((n_2019X < 0)) {
16059       arg0K0 = (0 - n_2019X);
16060       goto L59138;}
16061     else {
16062       arg0K0 = n_2019X;
16063       goto L59138;}}
16064   else {
16065     if ((0 == (3 & x_2018X))) {
16066       arg0K0 = 1;
16067       arg0K1 = 3;
16068       goto L26745;}
16069     else {
16070       arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_2018X))))), 8))), 3)));
16071       arg0K1 = 0;
16072       goto L26745;}}}
16073  L63591: {
16074 push_exception_setupB(5, 1);
16075   x_2020X = SvalS;
16076   SstackS = ((SstackS) + -8);
16077   *((long *) (SstackS)) = (long) (x_2020X);
16078   arg0K0 = 1;
16079   goto L33828;}
16080  L50787: {
16081   val_2021X = integer_bitwise_not(x_1390X);
16082   SvalS = val_2021X;
16083   Scode_pointerS = ((Scode_pointerS) + 1);
16084   arg3K0 = (Scode_pointerS);
16085   goto L36269;}
16086  L50790: {
16087 push_exception_setupB(5, 1);
16088   SstackS = ((SstackS) + -8);
16089   *((long *) (SstackS)) = (long) (x_1390X);
16090   arg0K0 = 1;
16091   goto L33828;}
16092  L50878: {
16093   x_2022X = arg0K0;
16094   arg0K0 = x_2022X;
16095   arg0K1 = 0;
16096   goto L50884;}
16097  L50861: {
16098   val_2023X = integer_bit_count(x_1391X);
16099   SvalS = val_2023X;
16100   Scode_pointerS = ((Scode_pointerS) + 1);
16101   arg3K0 = (Scode_pointerS);
16102   goto L36269;}
16103  L50864: {
16104 push_exception_setupB(5, 1);
16105   SstackS = ((SstackS) + -8);
16106   *((long *) (SstackS)) = (long) (x_1391X);
16107   arg0K0 = 1;
16108   goto L33828;}
16109  L50963: {
16110   if ((0 == (3 & y_1394X))) {
16111     goto L50969;}
16112   else {
16113     if ((3 == (3 & y_1394X))) {
16114       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1394X))))), 2))))) {
16115         goto L50969;}
16116       else {
16117         goto L50972;}}
16118     else {
16119       goto L50972;}}}
16120  L50972: {
16121 push_exception_setupB(5, 1);
16122   SstackS = ((SstackS) + -8);
16123   *((long *) (SstackS)) = (long) (arg2_1393X);
16124   SstackS = ((SstackS) + -8);
16125   *((long *) (SstackS)) = (long) (y_1394X);
16126   arg0K0 = 2;
16127   goto L33828;}
16128  L51126: {
16129   if ((0 == (3 & y_1396X))) {
16130     goto L51132;}
16131   else {
16132     if ((3 == (3 & y_1396X))) {
16133       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1396X))))), 2))))) {
16134         goto L51132;}
16135       else {
16136         goto L51135;}}
16137     else {
16138       goto L51135;}}}
16139  L51135: {
16140 push_exception_setupB(5, 1);
16141   SstackS = ((SstackS) + -8);
16142   *((long *) (SstackS)) = (long) (arg2_1395X);
16143   SstackS = ((SstackS) + -8);
16144   *((long *) (SstackS)) = (long) (y_1396X);
16145   arg0K0 = 2;
16146   goto L33828;}
16147  L51289: {
16148   if ((0 == (3 & y_1398X))) {
16149     goto L51295;}
16150   else {
16151     if ((3 == (3 & y_1398X))) {
16152       if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + y_1398X))))), 2))))) {
16153         goto L51295;}
16154       else {
16155         goto L51298;}}
16156     else {
16157       goto L51298;}}}
16158  L51298: {
16159 push_exception_setupB(5, 1);
16160   SstackS = ((SstackS) + -8);
16161   *((long *) (SstackS)) = (long) (arg2_1397X);
16162   SstackS = ((SstackS) + -8);
16163   *((long *) (SstackS)) = (long) (y_1398X);
16164   arg0K0 = 2;
16165   goto L33828;}
16166  L47681: {
16167   val_2024X = arg0K0;
16168   SvalS = val_2024X;
16169   Scode_pointerS = ((Scode_pointerS) + 1);
16170   arg3K0 = (Scode_pointerS);
16171   goto L36269;}
16172  L47697: {
16173   val_2025X = arg0K0;
16174   SvalS = val_2025X;
16175   Scode_pointerS = ((Scode_pointerS) + 1);
16176   arg3K0 = (Scode_pointerS);
16177   goto L36269;}
16178  L47698: {
16179 push_exception_setupB(7, 1);
16180   SstackS = ((SstackS) + -8);
16181   *((long *) (SstackS)) = (long) (arg2_1399X);
16182   SstackS = ((SstackS) + -8);
16183   *((long *) (SstackS)) = (long) (y_1400X);
16184   arg0K0 = 2;
16185   goto L33828;}
16186  L59188: {
16187   if ((0 == (3 & y_1400X))) {
16188     if ((0 == (3 & arg2_1399X))) {
16189       value_2026X = PS_SHIFT_RIGHT_INLINE(arg2_1399X, 2);
16190       count_2027X = PS_SHIFT_RIGHT_INLINE(y_1400X, 2);
16191       if ((0 < count_2027X)) {
16192         PS_SHIFT_LEFT(value_2026X, count_2027X, x_2028X)
16193         result_2029X = x_2028X;
16194         if ((count_2027X < 62)) {
16195           PS_SHIFT_RIGHT(result_2029X, count_2027X, x_2030X)
16196           if ((value_2026X == x_2030X)) {
16197             if ((value_2026X < 0)) {
16198               if ((result_2029X < 0)) {s48_make_availableAgc(24);
16199                 if ((2305843009213693951 < result_2029X)) {
16200                   goto L59310;}
16201                 else {
16202                   if ((result_2029X < -2305843009213693952)) {
16203                     goto L59310;}
16204                   else {
16205                     arg0K0 = (PS_SHIFT_LEFT_INLINE(result_2029X, 2));
16206                     goto L59305;}}}
16207               else {
16208                 arg0K0 = arg2_1399X;
16209                 arg0K1 = y_1400X;
16210                 goto L59201;}}
16211             else {
16212               if ((result_2029X < 0)) {
16213                 arg0K0 = arg2_1399X;
16214                 arg0K1 = y_1400X;
16215                 goto L59201;}
16216               else {s48_make_availableAgc(24);
16217                 if ((2305843009213693951 < result_2029X)) {
16218                   goto L59332;}
16219                 else {
16220                   if ((result_2029X < -2305843009213693952)) {
16221                     goto L59332;}
16222                   else {
16223                     arg0K0 = (PS_SHIFT_LEFT_INLINE(result_2029X, 2));
16224                     goto L59327;}}}}}
16225           else {
16226             arg0K0 = arg2_1399X;
16227             arg0K1 = y_1400X;
16228             goto L59201;}}
16229         else {
16230           arg0K0 = arg2_1399X;
16231           arg0K1 = y_1400X;
16232           goto L59201;}}
16233       else {
16234         PS_SHIFT_RIGHT(value_2026X, (0 - count_2027X), x_2031X)
16235         x_2032X = x_2031X;s48_make_availableAgc(24);
16236         if ((2305843009213693951 < x_2032X)) {
16237           goto L59354;}
16238         else {
16239           if ((x_2032X < -2305843009213693952)) {
16240             goto L59354;}
16241           else {
16242             arg0K0 = (PS_SHIFT_LEFT_INLINE(x_2032X, 2));
16243             goto L59349;}}}}
16244     else {
16245       if ((3 == (3 & arg2_1399X))) {
16246         if ((19 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg2_1399X))))), 2))))) {
16247           y_2033X = PS_SHIFT_RIGHT_INLINE(y_1400X, 2);
16248           merged_arg0K0 = arg2_1399X;
16249           merged_arg0K1 = y_2033X;
16250 #ifdef USE_DIRECT_THREADING
16251           shift_space_return_address = &&shift_space_return_0;
16252 #else
16253           shift_space_return_tag = 0;
16254 #endif
16255           goto shift_space;
16256          shift_space_return_0:
16257           needed_2034X = shift_space0_return_value;
16258           Stemp0S = arg2_1399X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(needed_2034X, 3)));
16259           value_2035X = Stemp0S;
16260           Stemp0S = 1;
16261           if ((0 == (3 & value_2035X))) {
16262             v_2036X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_2035X, 2)));
16263             arg3K0 = v_2036X;
16264             goto L59385;}
16265           else {
16266             arg3K0 = (((char *) (-3 + value_2035X)));
16267             goto L59385;}}
16268         else {
16269           goto L59210;}}
16270       else {
16271         goto L59210;}}}
16272   else {push_exception_setupB(5, 1);
16273     SstackS = ((SstackS) + -8);
16274     *((long *) (SstackS)) = (long) (arg2_1399X);
16275     SstackS = ((SstackS) + -8);
16276     *((long *) (SstackS)) = (long) (y_1400X);
16277     arg0K0 = 2;
16278     goto L33828;}}
16279  L67723: {
16280   val_2037X = arg0K0;
16281   SvalS = val_2037X;
16282   Scode_pointerS = ((Scode_pointerS) + 1);
16283   arg3K0 = (Scode_pointerS);
16284   goto L36269;}
16285  L56205: {
16286   val_2038X = arg0K0;
16287   SvalS = val_2038X;
16288   Scode_pointerS = ((Scode_pointerS) + 1);
16289   arg3K0 = (Scode_pointerS);
16290   goto L36269;}
16291  L56176: {
16292 push_exception_setupB(5, 1);
16293   SstackS = ((SstackS) + -8);
16294   *((long *) (SstackS)) = (long) (arg2_1404X);
16295   x_2039X = SvalS;
16296   SstackS = ((SstackS) + -8);
16297   *((long *) (SstackS)) = (long) (x_2039X);
16298   arg0K0 = 2;
16299   goto L33828;}
16300  L56113: {
16301   val_2040X = arg0K0;
16302   SvalS = val_2040X;
16303   Scode_pointerS = ((Scode_pointerS) + 1);
16304   arg3K0 = (Scode_pointerS);
16305   goto L36269;}
16306  L56084: {
16307 push_exception_setupB(5, 1);
16308   SstackS = ((SstackS) + -8);
16309   *((long *) (SstackS)) = (long) (arg2_1406X);
16310   x_2041X = SvalS;
16311   SstackS = ((SstackS) + -8);
16312   *((long *) (SstackS)) = (long) (x_2041X);
16313   arg0K0 = 2;
16314   goto L33828;}
16315  L60439: {
16316 push_exception_setupB(5, 1);
16317   SstackS = ((SstackS) + -8);
16318   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(x_1409X, 2)));
16319   arg0K0 = 1;
16320   goto L33828;}
16321  L60445: {
16322   SvalS = (9 + (PS_SHIFT_LEFT_INLINE(x_1409X, 8)));
16323   Scode_pointerS = ((Scode_pointerS) + 1);
16324   arg3K0 = (Scode_pointerS);
16325   goto L36269;}
16326  L56011: {
16327   val_2042X = arg0K0;
16328   SvalS = val_2042X;
16329   Scode_pointerS = ((Scode_pointerS) + 1);
16330   arg3K0 = (Scode_pointerS);
16331   goto L36269;}
16332  L67756: {
16333   val_2043X = arg0K0;
16334   SvalS = val_2043X;
16335   Scode_pointerS = ((Scode_pointerS) + 1);
16336   arg3K0 = (Scode_pointerS);
16337   goto L36269;}
16338  L67770: {
16339   value_2044X = arg0K0;
16340   SvalS = value_2044X;
16341   Scode_pointerS = ((Scode_pointerS) + 2);
16342   arg3K0 = (Scode_pointerS);
16343   goto L36269;}
16344  L39050: {
16345 push_exception_setupB(5, 2);
16346   SstackS = ((SstackS) + -8);
16347   *((long *) (SstackS)) = (long) (stob_1416X);
16348   SstackS = ((SstackS) + -8);
16349   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1417X, 2)));
16350   arg0K0 = 2;
16351   goto L33828;}
16352  L39155: {
16353   SvalS = new_1422X;
16354   Scode_pointerS = ((Scode_pointerS) + 3);
16355   arg3K0 = (Scode_pointerS);
16356   goto L36269;}
16357  L39139: {
16358   i_2045X = arg0K0;
16359   if ((i_2045X < 0)) {
16360     goto L39155;}
16361   else {
16362     value_2046X = *((long *) (SstackS));
16363     SstackS = ((SstackS) + 8);
16364     *((long *) ((((char *) (-3 + new_1422X))) + (PS_SHIFT_LEFT_INLINE(i_2045X, 3)))) = (long) (value_2046X);
16365     arg0K0 = (-1 + i_2045X);
16366     goto L39139;}}
16367  L39273: {
16368   i_2047X = arg0K0;
16369   if ((i_2047X < 0)) {
16370     arg0K0 = stack_nargs_1430X;
16371     arg0K1 = rest_list_1431X;
16372     goto L39415;}
16373   else {
16374     value_2048X = *((long *) (SstackS));
16375     SstackS = ((SstackS) + 8);
16376     *((long *) ((((char *) (-3 + new_1428X))) + (PS_SHIFT_LEFT_INLINE(i_2047X, 3)))) = (long) (value_2048X);
16377     arg0K0 = (-1 + i_2047X);
16378     goto L39273;}}
16379  L39441: {
16380 push_exception_setupB(5, 3);
16381   SstackS = ((SstackS) + -8);
16382   *((long *) (SstackS)) = (long) (stob_1432X);
16383   SstackS = ((SstackS) + -8);
16384   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1433X, 2)));
16385   SstackS = ((SstackS) + -8);
16386   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(offset_1434X, 2)));
16387   arg0K0 = 3;
16388   goto L33828;}
16389  L39583: {
16390   addr_2049X = (((char *) (-3 + arg2_1435X))) + (PS_SHIFT_LEFT_INLINE(offset_1438X, 3));S48_WRITE_BARRIER(arg2_1435X, addr_2049X, value_1436X);
16391   *((long *) addr_2049X) = (long) (value_1436X);
16392   goto L39592;}
16393  L39592: {
16394   SvalS = 13;
16395   Scode_pointerS = ((Scode_pointerS) + 4);
16396   arg3K0 = (Scode_pointerS);
16397   goto L36269;}
16398  L39551: {
16399 push_exception_setupB(6, 4);
16400   SstackS = ((SstackS) + -8);
16401   *((long *) (SstackS)) = (long) (arg2_1435X);
16402   SstackS = ((SstackS) + -8);
16403   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1437X, 2)));
16404   SstackS = ((SstackS) + -8);
16405   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(offset_1438X, 2)));
16406   SstackS = ((SstackS) + -8);
16407   *((long *) (SstackS)) = (long) (value_1436X);
16408   arg0K0 = 4;
16409   goto L33828;}
16410  L39608: {
16411 push_exception_setupB(5, 4);
16412   SstackS = ((SstackS) + -8);
16413   *((long *) (SstackS)) = (long) (arg2_1435X);
16414   SstackS = ((SstackS) + -8);
16415   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1437X, 2)));
16416   SstackS = ((SstackS) + -8);
16417   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(offset_1438X, 2)));
16418   SstackS = ((SstackS) + -8);
16419   *((long *) (SstackS)) = (long) (value_1436X);
16420   arg0K0 = 4;
16421   goto L33828;}
16422  L39809: {
16423 push_exception_setupB(5, 2);
16424   SstackS = ((SstackS) + -8);
16425   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1442X, 2)));
16426   SstackS = ((SstackS) + -8);
16427   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1443X, 2)));
16428   SstackS = ((SstackS) + -8);
16429   *((long *) (SstackS)) = (long) (init_1441X);
16430   arg0K0 = 3;
16431   goto L33828;}
16432  L39826: {
16433   x_2050X = arg0K0;
16434   value_2051X = Stemp0S;
16435   Stemp0S = 1;
16436   if ((1 == x_2050X)) {push_exception_setupB(9, 2);
16437     SstackS = ((SstackS) + -8);
16438     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1442X, 2)));
16439     SstackS = ((SstackS) + -8);
16440     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1443X, 2)));
16441     SstackS = ((SstackS) + -8);
16442     *((long *) (SstackS)) = (long) (value_2051X);
16443     arg0K0 = 3;
16444     goto L33828;}
16445   else {
16446     arg0K0 = (-1 + len_1443X);
16447     goto L39852;}}
16448  L40099: {
16449 push_exception_setupB(8, 3);
16450   SstackS = ((SstackS) + -8);
16451   *((long *) (SstackS)) = (long) (arg2_1446X);
16452   SstackS = ((SstackS) + -8);
16453   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1448X, 2)));
16454   SstackS = ((SstackS) + -8);
16455   *((long *) (SstackS)) = (long) (index_1447X);
16456   arg0K0 = 3;
16457   goto L33828;}
16458  L40089: {
16459   arg0K0 = (*((long *) ((((char *) (-3 + arg2_1446X))) + (PS_SHIFT_LEFT_INLINE((-4 & index_1447X), 1)))));
16460   goto L40098;}
16461  L40098: {
16462   value_2052X = arg0K0;
16463   SvalS = value_2052X;
16464   Scode_pointerS = ((Scode_pointerS) + 3);
16465   arg3K0 = (Scode_pointerS);
16466   goto L36269;}
16467  L40054: {
16468 push_exception_setupB(5, 3);
16469   SstackS = ((SstackS) + -8);
16470   *((long *) (SstackS)) = (long) (arg2_1446X);
16471   SstackS = ((SstackS) + -8);
16472   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1448X, 2)));
16473   SstackS = ((SstackS) + -8);
16474   *((long *) (SstackS)) = (long) (index_1447X);
16475   arg0K0 = 3;
16476   goto L33828;}
16477  L40392: {
16478 push_exception_setupB(8, 3);
16479   SstackS = ((SstackS) + -8);
16480   *((long *) (SstackS)) = (long) (arg3_1454X);
16481   SstackS = ((SstackS) + -8);
16482   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1456X, 2)));
16483   SstackS = ((SstackS) + -8);
16484   *((long *) (SstackS)) = (long) (arg2_1453X);
16485   SstackS = ((SstackS) + -8);
16486   *((long *) (SstackS)) = (long) (value_1455X);
16487   arg0K0 = 4;
16488   goto L33828;}
16489  L40382: {
16490   addr_2053X = (((char *) (-3 + arg3_1454X))) + (PS_SHIFT_LEFT_INLINE((-4 & arg2_1453X), 1));S48_WRITE_BARRIER(arg3_1454X, addr_2053X, value_1455X);
16491   *((long *) addr_2053X) = (long) (value_1455X);
16492   goto L40391;}
16493  L40391: {
16494   SvalS = 13;
16495   Scode_pointerS = ((Scode_pointerS) + 3);
16496   arg3K0 = (Scode_pointerS);
16497   goto L36269;}
16498  L40345: {
16499 push_exception_setupB(6, 3);
16500   SstackS = ((SstackS) + -8);
16501   *((long *) (SstackS)) = (long) (arg3_1454X);
16502   SstackS = ((SstackS) + -8);
16503   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1456X, 2)));
16504   SstackS = ((SstackS) + -8);
16505   *((long *) (SstackS)) = (long) (arg2_1453X);
16506   SstackS = ((SstackS) + -8);
16507   *((long *) (SstackS)) = (long) (value_1455X);
16508   arg0K0 = 4;
16509   goto L33828;}
16510  L40329: {
16511 push_exception_setupB(5, 3);
16512   SstackS = ((SstackS) + -8);
16513   *((long *) (SstackS)) = (long) (arg3_1454X);
16514   SstackS = ((SstackS) + -8);
16515   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1456X, 2)));
16516   SstackS = ((SstackS) + -8);
16517   *((long *) (SstackS)) = (long) (arg2_1453X);
16518   SstackS = ((SstackS) + -8);
16519   *((long *) (SstackS)) = (long) (value_1455X);
16520   arg0K0 = 4;
16521   goto L33828;}
16522  L67813: {
16523   new_2054X = arg0K0;
16524   if ((1 == new_2054X)) {push_exception_setupB(9, 1);
16525     SstackS = ((SstackS) + -8);
16526     *((long *) (SstackS)) = (long) (72);
16527     arg0K0 = 1;
16528     goto L33828;}
16529   else {
16530     SvalS = new_2054X;
16531     Scode_pointerS = ((Scode_pointerS) + 1);
16532     arg3K0 = (Scode_pointerS);
16533     goto L36269;}}
16534  L51585: {
16535 push_exception_setupB(5, 1);
16536   SstackS = ((SstackS) + -8);
16537   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1462X, 2)));
16538   SstackS = ((SstackS) + -8);
16539   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(init_1463X, 2)));
16540   arg0K0 = 2;
16541   goto L33828;}
16542  L51610: {
16543   vector_2055X = arg0K0;
16544   if ((1 == vector_2055X)) {push_exception_setupB(9, 1);
16545     SstackS = ((SstackS) + -8);
16546     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1462X, 2)));
16547     SstackS = ((SstackS) + -8);
16548     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(init_1463X, 2)));
16549     arg0K0 = 2;
16550     goto L33828;}
16551   else {
16552     arg0K0 = (-1 + len_1462X);
16553     goto L51632;}}
16554  L64863: {
16555 push_exception_setupB(5, 1);
16556   x_2056X = SvalS;
16557   SstackS = ((SstackS) + -8);
16558   *((long *) (SstackS)) = (long) (x_2056X);
16559   arg0K0 = 1;
16560   goto L33828;}
16561  L60582: {
16562 push_exception_setupB(8, 1);
16563   SstackS = ((SstackS) + -8);
16564   *((long *) (SstackS)) = (long) (arg2_1467X);
16565   SstackS = ((SstackS) + -8);
16566   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1468X, 2)));
16567   arg0K0 = 2;
16568   goto L33828;}
16569  L64269: {
16570 push_exception_setupB(5, 1);
16571   SstackS = ((SstackS) + -8);
16572   *((long *) (SstackS)) = (long) (arg2_1467X);
16573   x_2057X = SvalS;
16574   SstackS = ((SstackS) + -8);
16575   *((long *) (SstackS)) = (long) (x_2057X);
16576   arg0K0 = 2;
16577   goto L33828;}
16578  L57784: {
16579 push_exception_setupB(8, 1);
16580   SstackS = ((SstackS) + -8);
16581   *((long *) (SstackS)) = (long) (arg3_1471X);
16582   SstackS = ((SstackS) + -8);
16583   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1472X, 2)));
16584   SstackS = ((SstackS) + -8);
16585   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(Kchar_1473X, 2)));
16586   arg0K0 = 3;
16587   goto L33828;}
16588  L57763: {
16589 push_exception_setupB(5, 1);
16590   SstackS = ((SstackS) + -8);
16591   *((long *) (SstackS)) = (long) (arg3_1471X);
16592   SstackS = ((SstackS) + -8);
16593   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1472X, 2)));
16594   SstackS = ((SstackS) + -8);
16595   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(Kchar_1473X, 2)));
16596   arg0K0 = 3;
16597   goto L33828;}
16598  L62929: {
16599 push_exception_setupB(5, 1);
16600   SstackS = ((SstackS) + -8);
16601   *((long *) (SstackS)) = (long) (arg3_1471X);
16602   SstackS = ((SstackS) + -8);
16603   *((long *) (SstackS)) = (long) (arg2_1470X);
16604   x_2058X = SvalS;
16605   SstackS = ((SstackS) + -8);
16606   *((long *) (SstackS)) = (long) (x_2058X);
16607   arg0K0 = 3;
16608   goto L33828;}
16609  L51796: {
16610 push_exception_setupB(5, 1);
16611   SstackS = ((SstackS) + -8);
16612   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1476X, 2)));
16613   SstackS = ((SstackS) + -8);
16614   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(init_1477X, 2)));
16615   arg0K0 = 2;
16616   goto L33828;}
16617  L51821: {
16618   vector_2059X = arg0K0;
16619   if ((1 == vector_2059X)) {push_exception_setupB(9, 1);
16620     SstackS = ((SstackS) + -8);
16621     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1476X, 2)));
16622     SstackS = ((SstackS) + -8);
16623     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(init_1477X, 2)));
16624     arg0K0 = 2;
16625     goto L33828;}
16626   else {
16627     arg0K0 = (-1 + len_1476X);
16628     goto L51843;}}
16629  L52015: {
16630 push_exception_setupB(5, 1);
16631   SstackS = ((SstackS) + -8);
16632   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1482X, 2)));
16633   SstackS = ((SstackS) + -8);
16634   *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(init_1483X, 8))));
16635   arg0K0 = 2;
16636   goto L33828;}
16637  L52040: {
16638   vector_2060X = arg0K0;
16639   if ((1 == vector_2060X)) {push_exception_setupB(9, 1);
16640     SstackS = ((SstackS) + -8);
16641     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1482X, 2)));
16642     SstackS = ((SstackS) + -8);
16643     *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(init_1483X, 8))));
16644     arg0K0 = 2;
16645     goto L33828;}
16646   else {
16647     arg0K0 = (-1 + len_1482X);
16648     goto L52062;}}
16649  L60738: {
16650 push_exception_setupB(5, 1);
16651   SstackS = ((SstackS) + -8);
16652   *((long *) (SstackS)) = (long) (arg2_1481X);
16653   x_2061X = SvalS;
16654   SstackS = ((SstackS) + -8);
16655   *((long *) (SstackS)) = (long) (x_2061X);
16656   arg0K0 = 2;
16657   goto L33828;}
16658  L64913: {
16659 push_exception_setupB(5, 1);
16660   x_2062X = SvalS;
16661   SstackS = ((SstackS) + -8);
16662   *((long *) (SstackS)) = (long) (x_2062X);
16663   arg0K0 = 1;
16664   goto L33828;}
16665  L60803: {
16666 push_exception_setupB(8, 1);
16667   SstackS = ((SstackS) + -8);
16668   *((long *) (SstackS)) = (long) (arg2_1488X);
16669   SstackS = ((SstackS) + -8);
16670   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1489X, 2)));
16671   arg0K0 = 2;
16672   goto L33828;}
16673  L60831: {
16674   bits_2063X = arg0K0;
16675   j_2064X = arg0K1;
16676   scalar_value_2065X = arg0K2;
16677   if ((j_2064X < 4)) {
16678     PS_SHIFT_LEFT((*((unsigned char *) ((((char *) (-3 + arg2_1488X))) + ((PS_SHIFT_LEFT_INLINE(index_1489X, 2)) + j_2064X)))), bits_2063X, x_2066X)
16679     arg0K0 = (8 + bits_2063X);
16680     arg0K1 = (1 + j_2064X);
16681     arg0K2 = (x_2066X + scalar_value_2065X);
16682     goto L60831;}
16683   else {
16684     SvalS = (9 + (PS_SHIFT_LEFT_INLINE(scalar_value_2065X, 8)));
16685     Scode_pointerS = ((Scode_pointerS) + 1);
16686     arg3K0 = (Scode_pointerS);
16687     goto L36269;}}
16688  L64387: {
16689 push_exception_setupB(5, 1);
16690   SstackS = ((SstackS) + -8);
16691   *((long *) (SstackS)) = (long) (arg2_1488X);
16692   x_2067X = SvalS;
16693   SstackS = ((SstackS) + -8);
16694   *((long *) (SstackS)) = (long) (x_2067X);
16695   arg0K0 = 2;
16696   goto L33828;}
16697  L57939: {
16698 push_exception_setupB(8, 1);
16699   SstackS = ((SstackS) + -8);
16700   *((long *) (SstackS)) = (long) (arg3_1492X);
16701   SstackS = ((SstackS) + -8);
16702   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1493X, 2)));
16703   SstackS = ((SstackS) + -8);
16704   *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(Kchar_1494X, 8))));
16705   arg0K0 = 3;
16706   goto L33828;}
16707  L58003: {
16708   bits_2068X = arg0K0;
16709   j_2069X = arg0K1;
16710   shifted_2070X = arg0K2;
16711   if ((j_2069X < 4)) {
16712     *((unsigned char *) ((((char *) (-3 + arg3_1492X))) + ((PS_SHIFT_LEFT_INLINE(index_1493X, 2)) + j_2069X))) = (unsigned char) ((255 & shifted_2070X));
16713     arg0K0 = (8 + bits_2068X);
16714     arg0K1 = (1 + j_2069X);
16715     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_2070X, 8));
16716     goto L58003;}
16717   else {
16718     SvalS = 13;
16719     Scode_pointerS = ((Scode_pointerS) + 1);
16720     arg3K0 = (Scode_pointerS);
16721     goto L36269;}}
16722  L57918: {
16723 push_exception_setupB(5, 1);
16724   SstackS = ((SstackS) + -8);
16725   *((long *) (SstackS)) = (long) (arg3_1492X);
16726   SstackS = ((SstackS) + -8);
16727   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1493X, 2)));
16728   SstackS = ((SstackS) + -8);
16729   *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(Kchar_1494X, 8))));
16730   arg0K0 = 3;
16731   goto L33828;}
16732  L63059: {
16733 push_exception_setupB(5, 1);
16734   SstackS = ((SstackS) + -8);
16735   *((long *) (SstackS)) = (long) (arg3_1492X);
16736   SstackS = ((SstackS) + -8);
16737   *((long *) (SstackS)) = (long) (arg2_1491X);
16738   x_2071X = SvalS;
16739   SstackS = ((SstackS) + -8);
16740   *((long *) (SstackS)) = (long) (x_2071X);
16741   arg0K0 = 3;
16742   goto L33828;}
16743  L40742: {
16744 push_exception_setupB(5, 1);
16745   SstackS = ((SstackS) + -8);
16746   *((long *) (SstackS)) = (long) (arg5_1499X);
16747   SstackS = ((SstackS) + -8);
16748   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(from_index_1500X, 2)));
16749   SstackS = ((SstackS) + -8);
16750   *((long *) (SstackS)) = (long) (arg3_1497X);
16751   SstackS = ((SstackS) + -8);
16752   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(to_index_1501X, 2)));
16753   SstackS = ((SstackS) + -8);
16754   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1502X, 2)));
16755   arg0K0 = 5;
16756   goto L33828;}
16757  L46639: {
16758 push_exception_setupB(5, 1);
16759   SstackS = ((SstackS) + -8);
16760   *((long *) (SstackS)) = (long) (arg5_1499X);
16761   SstackS = ((SstackS) + -8);
16762   *((long *) (SstackS)) = (long) (arg4_1498X);
16763   SstackS = ((SstackS) + -8);
16764   *((long *) (SstackS)) = (long) (arg3_1497X);
16765   SstackS = ((SstackS) + -8);
16766   *((long *) (SstackS)) = (long) (arg2_1496X);
16767   x_2072X = SvalS;
16768   SstackS = ((SstackS) + -8);
16769   *((long *) (SstackS)) = (long) (x_2072X);
16770   arg0K0 = 5;
16771   goto L33828;}
16772  L30792: {
16773   bucket_2073X = arg0K0;
16774   arg0K0 = bucket_2073X;
16775   goto L30798;}
16776  L47843: {
16777 push_exception_setupB(5, 1);
16778   x_2074X = SvalS;
16779   SstackS = ((SstackS) + -8);
16780   *((long *) (SstackS)) = (long) (x_2074X);
16781   arg0K0 = 1;
16782   goto L33828;}
16783  L62615: {
16784   val_2075X = arg0K0;
16785   SvalS = val_2075X;
16786   Scode_pointerS = ((Scode_pointerS) + 1);
16787   arg3K0 = (Scode_pointerS);
16788   goto L36269;}
16789  L62596: {
16790 push_exception_setupB(5, 1);
16791   x_2076X = SvalS;
16792   SstackS = ((SstackS) + -8);
16793   *((long *) (SstackS)) = (long) (x_2076X);
16794   arg0K0 = 1;
16795   goto L33828;}
16796  L57541: {
16797   if ((1 == (SvalS))) {
16798     addr_2077X = (((char *) (-3 + arg2_1514X))) + 8;S48_WRITE_BARRIER(arg2_1514X, addr_2077X, 273);
16799     *((long *) addr_2077X) = (long) (273);
16800     goto L57547;}
16801   else {
16802     if ((17 == (255 & (*((long *) ((((char *) (-3 + arg2_1514X))) + 8)))))) {
16803       addr_2078X = (((char *) (-3 + arg2_1514X))) + 8;S48_WRITE_BARRIER(arg2_1514X, addr_2078X, 529);
16804       *((long *) addr_2078X) = (long) (529);
16805       goto L57547;}
16806     else {
16807       goto L57547;}}}
16808  L57548: {
16809 push_exception_setupB(5, 1);
16810   SstackS = ((SstackS) + -8);
16811   *((long *) (SstackS)) = (long) (arg2_1514X);
16812   x_2079X = SvalS;
16813   SstackS = ((SstackS) + -8);
16814   *((long *) (SstackS)) = (long) (x_2079X);
16815   arg0K0 = 2;
16816   goto L33828;}
16817  L67892: {
16818   val_2080X = arg0K0;
16819   SvalS = val_2080X;
16820   Scode_pointerS = ((Scode_pointerS) + 1);
16821   arg3K0 = (Scode_pointerS);
16822   goto L36269;}
16823  L67905: {
16824   SvalS = x_1517X;
16825   Scode_pointerS = ((Scode_pointerS) + 1);
16826   arg3K0 = (Scode_pointerS);
16827   goto L36269;}
16828  L52466: {
16829   if ((0 == (3 & arg4_1520X))) {
16830     if (((PS_SHIFT_RIGHT_INLINE(arg4_1520X, 2)) < 0)) {push_exception_setupB(5, 1);
16831       SstackS = ((SstackS) + -8);
16832       *((long *) (SstackS)) = (long) (arg4_1520X);
16833       SstackS = ((SstackS) + -8);
16834       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
16835       arg0K0 = 2;
16836       goto L33828;}
16837     else {
16838       arg0K0 = (PS_SHIFT_RIGHT_INLINE(arg4_1520X, 2));
16839       goto L52252;}}
16840   else {
16841     if ((3 == (3 & arg4_1520X))) {
16842       if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1520X))))), 2))))) {
16843         filename_2081X = ((char *)(((char *) (-3 + arg4_1520X))));
16844         if ((1 == mode_1521X)) {
16845           goto L52314;}
16846         else {
16847           if ((3 == mode_1521X)) {
16848             goto L52314;}
16849           else {
16850             v_2082X = ps_open_fd(filename_2081X, 0, &v_2083X);
16851             arg0K0 = v_2082X;
16852             arg0K1 = v_2083X;
16853             goto L52323;}}}
16854       else {push_exception_setupB(5, 1);
16855         SstackS = ((SstackS) + -8);
16856         *((long *) (SstackS)) = (long) (arg4_1520X);
16857         SstackS = ((SstackS) + -8);
16858         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
16859         arg0K0 = 2;
16860         goto L33828;}}
16861     else {push_exception_setupB(5, 1);
16862       SstackS = ((SstackS) + -8);
16863       *((long *) (SstackS)) = (long) (arg4_1520X);
16864       SstackS = ((SstackS) + -8);
16865       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
16866       arg0K0 = 2;
16867       goto L33828;}}}
16868  L67922: {
16869 push_exception_setupB(5, 1);
16870   x_2084X = SvalS;
16871   SstackS = ((SstackS) + -8);
16872   *((long *) (SstackS)) = (long) (x_2084X);
16873   arg0K0 = 1;
16874   goto L33828;}
16875  L61095: {
16876   if ((1 == (SvalS))) {
16877     arg4K0 = 0;
16878     goto L61105;}
16879   else {
16880     arg4K0 = 1;
16881     goto L61105;}}
16882  L61106: {
16883 push_exception_setupB(5, 1);
16884   SstackS = ((SstackS) + -8);
16885   *((long *) (SstackS)) = (long) (arg5_1530X);
16886   SstackS = ((SstackS) + -8);
16887   *((long *) (SstackS)) = (long) (arg4_1529X);
16888   SstackS = ((SstackS) + -8);
16889   *((long *) (SstackS)) = (long) (arg3_1528X);
16890   SstackS = ((SstackS) + -8);
16891   *((long *) (SstackS)) = (long) (arg2_1527X);
16892   x_2085X = SvalS;
16893   SstackS = ((SstackS) + -8);
16894   *((long *) (SstackS)) = (long) (x_2085X);
16895   arg0K0 = 5;
16896   goto L33828;}
16897  L53099: {
16898 push_exception_setupB(5, 1);
16899   SstackS = ((SstackS) + -8);
16900   *((long *) (SstackS)) = (long) (arg4_1534X);
16901   SstackS = ((SstackS) + -8);
16902   *((long *) (SstackS)) = (long) (arg3_1533X);
16903   SstackS = ((SstackS) + -8);
16904   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_1535X, 2)));
16905   SstackS = ((SstackS) + -8);
16906   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1536X, 2)));
16907   arg0K0 = 4;
16908   goto L33828;}
16909  L53098: {
16910   val_2086X = arg0K0;
16911   SvalS = val_2086X;
16912   Scode_pointerS = ((Scode_pointerS) + 1);
16913   arg3K0 = (Scode_pointerS);
16914   goto L36269;}
16915  L61309: {
16916 push_exception_setupB(5, 1);
16917   SstackS = ((SstackS) + -8);
16918   *((long *) (SstackS)) = (long) (arg4_1534X);
16919   SstackS = ((SstackS) + -8);
16920   *((long *) (SstackS)) = (long) (arg3_1533X);
16921   SstackS = ((SstackS) + -8);
16922   *((long *) (SstackS)) = (long) (arg2_1532X);
16923   x_2087X = SvalS;
16924   SstackS = ((SstackS) + -8);
16925   *((long *) (SstackS)) = (long) (x_2087X);
16926   arg0K0 = 4;
16927   goto L33828;}
16928  L64084: {
16929   val_2088X = arg0K0;
16930   SvalS = val_2088X;
16931   Scode_pointerS = ((Scode_pointerS) + 1);
16932   arg3K0 = (Scode_pointerS);
16933   goto L36269;}
16934  L57094: {
16935   val_2089X = arg0K0;
16936   SvalS = val_2089X;
16937   Scode_pointerS = ((Scode_pointerS) + 1);
16938   arg3K0 = (Scode_pointerS);
16939   goto L36269;}
16940  L67955: {
16941 push_exception_setupB(5, 1);
16942   x_2090X = SvalS;
16943   SstackS = ((SstackS) + -8);
16944   *((long *) (SstackS)) = (long) (x_2090X);
16945   arg0K0 = 1;
16946   goto L33828;}
16947  L61457: {
16948   val_2091X = arg0K0;
16949   SvalS = val_2091X;
16950   Scode_pointerS = ((Scode_pointerS) + 1);
16951   arg3K0 = (Scode_pointerS);
16952   goto L36269;}
16953  L17689: {
16954   x_2092X = Spending_channels_headS;
16955   if ((1 == x_2092X)) {
16956     Spending_interruptsS = (-17 & (Spending_interruptsS));
16957     goto L17701;}
16958   else {
16959     goto L17701;}}
16960  L17707: {
16961   ch_2093X = arg0K0;
16962   prev_2094X = arg0K1;
16963   if ((1 == ch_2093X)) {
16964     addr_2095X = (((char *) (-3 + channel_1553X))) + 40;S48_WRITE_BARRIER(channel_1553X, addr_2095X, 1);
16965     *((long *) addr_2095X) = (long) (1);
16966     n_2096X = ps_abort_fd_op((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + channel_1553X))) + 16))), 2)));
16967     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_2096X, 2));
16968     goto L61457;}
16969   else {
16970     if ((ch_2093X == channel_1553X)) {
16971       y_2097X = Spending_channels_tailS;
16972       if ((ch_2093X == y_2097X)) {
16973         Spending_channels_tailS = prev_2094X;
16974         goto L17731;}
16975       else {
16976         goto L17731;}}
16977     else {
16978       arg0K0 = (*((long *) ((((char *) (-3 + ch_2093X))) + 32)));
16979       arg0K1 = ch_2093X;
16980       goto L17707;}}}
16981  L61440: {
16982 push_exception_setupB(5, 1);
16983   x_2098X = SvalS;
16984   SstackS = ((SstackS) + -8);
16985   *((long *) (SstackS)) = (long) (x_2098X);
16986   arg0K0 = 1;
16987   goto L33828;}
16988  L24821: {
16989   i_2099X = arg0K0;
16990   res_2100X = arg0K1;
16991   if ((-1 == i_2099X)) {
16992     SvalS = res_2100X;
16993     Scode_pointerS = ((Scode_pointerS) + 1);
16994     arg3K0 = (Scode_pointerS);
16995     goto L36269;}
16996   else {
16997     channel_2101X = *((Svm_channelsS) + i_2099X);
16998     if ((3 == (3 & channel_2101X))) {
16999       if ((6 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + channel_2101X))))), 2))))) {
17000         addr_2102X = s48_allocate_small(24);
17001         *((long *) addr_2102X) = (long) (4098);
17002         x_2103X = 3 + (((long) (addr_2102X + 8)));
17003         *((long *) (((char *) (-3 + x_2103X)))) = (long) (channel_2101X);
17004         *((long *) ((((char *) (-3 + x_2103X))) + 8)) = (long) (res_2100X);
17005         arg0K0 = x_2103X;
17006         goto L24835;}
17007       else {
17008         arg0K0 = res_2100X;
17009         goto L24835;}}
17010     else {
17011       arg0K0 = res_2100X;
17012       goto L24835;}}}
17013  L53320: {
17014   old_2104X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
17015   if ((1 == old_2104X)) {
17016     goto L53336;}
17017   else {
17018     addr_2105X = ((char *) (-3 + old_2104X));S48_WRITE_BARRIER(old_2104X, addr_2105X, 1);
17019     *((long *) addr_2105X) = (long) (1);
17020     goto L53336;}}
17021  L53351: {
17022   if ((proposal_1562X == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
17023     SvalS = 13;
17024     Scode_pointerS = ((Scode_pointerS) + 1);
17025     arg3K0 = (Scode_pointerS);
17026     goto L36269;}
17027   else {push_exception_setupB(5, 1);
17028     SstackS = ((SstackS) + -8);
17029     *((long *) (SstackS)) = (long) (proposal_1562X);
17030     arg0K0 = 1;
17031     goto L33828;}}
17032  L14809: {
17033   i_2106X = arg0K0;
17034   stob_2107X = *((long *) ((((char *) (-3 + log_1564X))) + (PS_SHIFT_LEFT_INLINE(i_2106X, 3))));
17035   if ((1 == stob_2107X)) {
17036     log_2108X = *((long *) ((((char *) (-3 + proposal_1563X))) + 16));
17037     arg0K0 = 0;
17038     goto L15047;}
17039   else {
17040     value_2109X = *((long *) ((((char *) (-3 + log_1564X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2106X, 3)))));
17041     verify_2110X = *((long *) ((((char *) (-3 + log_1564X))) + (24 + (PS_SHIFT_LEFT_INLINE(i_2106X, 3)))));
17042     if ((29 == verify_2110X)) {
17043       if ((3 == (3 & stob_2107X))) {
17044         if ((0 == (128 & (*((long *) (((char *) (-11 + stob_2107X)))))))) {
17045           goto L14861;}
17046         else {
17047           goto L53599;}}
17048       else {
17049         goto L53599;}}
17050     else {
17051       if ((verify_2110X == (*((long *) ((((char *) (-3 + stob_2107X))) + (PS_SHIFT_LEFT_INLINE((-4 & (*((long *) ((((char *) (-3 + log_1564X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2106X, 3))))))), 1))))))) {
17052         if ((verify_2110X == value_2109X)) {
17053           goto L14861;}
17054         else {
17055           if ((3 == (3 & stob_2107X))) {
17056             if ((0 == (128 & (*((long *) (((char *) (-11 + stob_2107X)))))))) {
17057               goto L14861;}
17058             else {
17059               goto L53599;}}
17060           else {
17061             goto L53599;}}}
17062       else {
17063         goto L53599;}}}}
17064  L41026: {
17065   value_2111X = arg0K0;
17066   SvalS = value_2111X;
17067   Scode_pointerS = ((Scode_pointerS) + 3);
17068   arg3K0 = (Scode_pointerS);
17069   goto L36269;}
17070  L41027: {
17071 push_exception_setupB(5, 3);
17072   SstackS = ((SstackS) + -8);
17073   *((long *) (SstackS)) = (long) (stob_1565X);
17074   SstackS = ((SstackS) + -8);
17075   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1566X, 2)));
17076   SstackS = ((SstackS) + -8);
17077   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(offset_1567X, 2)));
17078   arg0K0 = 3;
17079   goto L33828;}
17080  L41120: {
17081 push_exception_setupB(5, 2);
17082   SstackS = ((SstackS) + -8);
17083   *((long *) (SstackS)) = (long) (arg5_1573X);
17084   SstackS = ((SstackS) + -8);
17085   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(from_index_1574X, 2)));
17086   SstackS = ((SstackS) + -8);
17087   *((long *) (SstackS)) = (long) (arg3_1571X);
17088   SstackS = ((SstackS) + -8);
17089   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(to_index_1575X, 2)));
17090   SstackS = ((SstackS) + -8);
17091   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1576X, 2)));
17092   arg0K0 = 5;
17093   goto L33828;}
17094  L41196: {
17095   memmove((void *)((((char *) (-3 + arg3_1571X))) + to_index_1575X), (void *)((((char *) (-3 + arg5_1573X))) + from_index_1574X),count_1576X);
17096   SvalS = 13;
17097   Scode_pointerS = ((Scode_pointerS) + 2);
17098   arg3K0 = (Scode_pointerS);
17099   goto L36269;}
17100  L41339: {
17101   left_2112X = arg0K0;
17102   copies_2113X = arg0K1;
17103   if ((1 == copies_2113X)) {
17104     if ((left_2112X < count_1576X)) {
17105       goto L41120;}
17106     else {
17107       from_index_2114X = PS_SHIFT_LEFT_INLINE(from_index_1574X, 2);
17108       to_index_2115X = PS_SHIFT_LEFT_INLINE(to_index_1575X, 2);
17109       count_2116X = PS_SHIFT_LEFT_INLINE(count_1576X, 2);
17110       Stemp0S = arg5_1573X;
17111       Stemp1S = arg3_1571X;
17112       addr_2117X = s48_allocate_tracedAgc(56);
17113       if ((addr_2117X == NULL)) {
17114         arg0K0 = 1;
17115         goto L16501;}
17116       else {
17117         *((long *) addr_2117X) = (long) (12298);
17118         arg0K0 = (3 + (((long) (addr_2117X + 8))));
17119         goto L16501;}}}
17120   else {
17121     arg0K0 = (left_2112X - (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + copies_2113X))) + 32))), 2)));
17122     arg0K1 = (*((long *) ((((char *) (-3 + copies_2113X))) + 40)));
17123     goto L41339;}}
17124  L41164: {
17125 push_exception_setupB(6, 2);
17126   SstackS = ((SstackS) + -8);
17127   *((long *) (SstackS)) = (long) (arg5_1573X);
17128   SstackS = ((SstackS) + -8);
17129   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(from_index_1574X, 2)));
17130   SstackS = ((SstackS) + -8);
17131   *((long *) (SstackS)) = (long) (arg3_1571X);
17132   SstackS = ((SstackS) + -8);
17133   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(to_index_1575X, 2)));
17134   SstackS = ((SstackS) + -8);
17135   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1576X, 2)));
17136   arg0K0 = 5;
17137   goto L33828;}
17138  L46905: {
17139 push_exception_setupB(5, 1);
17140   SstackS = ((SstackS) + -8);
17141   *((long *) (SstackS)) = (long) (arg5_1573X);
17142   SstackS = ((SstackS) + -8);
17143   *((long *) (SstackS)) = (long) (arg4_1572X);
17144   SstackS = ((SstackS) + -8);
17145   *((long *) (SstackS)) = (long) (arg3_1571X);
17146   SstackS = ((SstackS) + -8);
17147   *((long *) (SstackS)) = (long) (arg2_1570X);
17148   x_2118X = SvalS;
17149   SstackS = ((SstackS) + -8);
17150   *((long *) (SstackS)) = (long) (x_2118X);
17151   arg0K0 = 5;
17152   goto L33828;}
17153  L41566: {
17154 push_exception_setupB(8, 1);
17155   SstackS = ((SstackS) + -8);
17156   *((long *) (SstackS)) = (long) (arg2_1578X);
17157   SstackS = ((SstackS) + -8);
17158   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1579X, 2)));
17159   arg0K0 = 2;
17160   goto L33828;}
17161  L41565: {
17162   value_2119X = arg0K0;
17163   SvalS = value_2119X;
17164   Scode_pointerS = ((Scode_pointerS) + 1);
17165   arg3K0 = (Scode_pointerS);
17166   goto L36269;}
17167  L24562: {
17168   i_2120X = arg0K0;
17169   next_stob_2121X = *((long *) ((((char *) (-3 + log_1583X))) + (PS_SHIFT_LEFT_INLINE(i_2120X, 3))));
17170   if ((1 == next_stob_2121X)) {
17171     v_2122X = add_log_entryAgc(2, i_2120X, arg2_1578X, index_1582X, (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + arg2_1578X))) + (PS_SHIFT_RIGHT_INLINE(index_1582X, 2))))), 2)), 1);
17172     arg0K0 = v_2122X;
17173     goto L41565;}
17174   else {
17175     if ((arg2_1578X == next_stob_2121X)) {
17176       if ((index_1582X == (*((long *) ((((char *) (-3 + log_1583X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2120X, 3)))))))) {
17177         arg0K0 = (*((long *) ((((char *) (-3 + log_1583X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2120X, 3))))));
17178         goto L41565;}
17179       else {
17180         goto L24584;}}
17181     else {
17182       goto L24584;}}}
17183  L47101: {
17184 push_exception_setupB(5, 1);
17185   SstackS = ((SstackS) + -8);
17186   *((long *) (SstackS)) = (long) (arg2_1578X);
17187   x_2123X = SvalS;
17188   SstackS = ((SstackS) + -8);
17189   *((long *) (SstackS)) = (long) (x_2123X);
17190   arg0K0 = 2;
17191   goto L33828;}
17192  L41696: {
17193 push_exception_setupB(8, 1);
17194   SstackS = ((SstackS) + -8);
17195   *((long *) (SstackS)) = (long) (arg3_1585X);
17196   SstackS = ((SstackS) + -8);
17197   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1586X, 2)));
17198   SstackS = ((SstackS) + -8);
17199   *((long *) (SstackS)) = (long) (byte_1587X);
17200   arg0K0 = 3;
17201   goto L33828;}
17202  L41695: {
17203   SvalS = 13;
17204   Scode_pointerS = ((Scode_pointerS) + 1);
17205   arg3K0 = (Scode_pointerS);
17206   goto L36269;}
17207  L24738: {
17208   i_2124X = arg0K0;
17209   next_stob_2125X = *((long *) ((((char *) (-3 + log_1591X))) + (PS_SHIFT_LEFT_INLINE(i_2124X, 3))));
17210   if ((1 == next_stob_2125X)) {add_log_entryAgc(2, i_2124X, arg3_1585X, index_1590X, byte_1587X, 0);
17211     goto L41695;}
17212   else {
17213     if ((arg3_1585X == next_stob_2125X)) {
17214       if ((index_1590X == (*((long *) ((((char *) (-3 + log_1591X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2124X, 3)))))))) {
17215         addr_2126X = (((char *) (-3 + log_1591X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2124X, 3)));S48_WRITE_BARRIER(log_1591X, addr_2126X, byte_1587X);
17216         *((long *) addr_2126X) = (long) (byte_1587X);
17217         goto L41695;}
17218       else {
17219         goto L24758;}}
17220     else {
17221       goto L24758;}}}
17222  L41645: {
17223 push_exception_setupB(6, 1);
17224   SstackS = ((SstackS) + -8);
17225   *((long *) (SstackS)) = (long) (arg3_1585X);
17226   SstackS = ((SstackS) + -8);
17227   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1586X, 2)));
17228   SstackS = ((SstackS) + -8);
17229   *((long *) (SstackS)) = (long) (byte_1587X);
17230   arg0K0 = 3;
17231   goto L33828;}
17232  L47206: {
17233 push_exception_setupB(5, 1);
17234   SstackS = ((SstackS) + -8);
17235   *((long *) (SstackS)) = (long) (arg3_1585X);
17236   SstackS = ((SstackS) + -8);
17237   *((long *) (SstackS)) = (long) (arg2_1584X);
17238   x_2127X = SvalS;
17239   SstackS = ((SstackS) + -8);
17240   *((long *) (SstackS)) = (long) (x_2127X);
17241   arg0K0 = 3;
17242   goto L33828;}
17243  L58172: {
17244   status_2128X = arg0K0;push_exception_setupB(25, 1);
17245   SstackS = ((SstackS) + -8);
17246   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(status_2128X, 2)));
17247   SstackS = ((SstackS) + -8);
17248   *((long *) (SstackS)) = (long) (arg4_1595X);
17249   SstackS = ((SstackS) + -8);
17250   *((long *) (SstackS)) = (long) (arg3_1594X);
17251   SstackS = ((SstackS) + -8);
17252   *((long *) (SstackS)) = (long) (arg2_1593X);
17253   arg0K0 = 4;
17254   goto L33828;}
17255  L63244: {
17256 push_exception_setupB(5, 1);
17257   SstackS = ((SstackS) + -8);
17258   *((long *) (SstackS)) = (long) (arg4_1595X);
17259   SstackS = ((SstackS) + -8);
17260   *((long *) (SstackS)) = (long) (arg3_1594X);
17261   SstackS = ((SstackS) + -8);
17262   *((long *) (SstackS)) = (long) (arg2_1593X);
17263   x_2129X = SvalS;
17264   SstackS = ((SstackS) + -8);
17265   *((long *) (SstackS)) = (long) (x_2129X);
17266   arg0K0 = 4;
17267   goto L33828;}
17268  L63952: {
17269 push_exception_setupB(5, 1);
17270   x_2130X = SvalS;
17271   SstackS = ((SstackS) + -8);
17272   *((long *) (SstackS)) = (long) (x_2130X);
17273   arg0K0 = 1;
17274   goto L33828;}
17275  L58428: {
17276 push_exception_setupB(5, 1);
17277   SstackS = ((SstackS) + -8);
17278   *((long *) (SstackS)) = (long) (arg2_1607X);
17279   SstackS = ((SstackS) + -8);
17280   *((long *) (SstackS)) = (long) (proc_1608X);
17281   arg0K0 = 2;
17282   goto L33828;}
17283  L61576: {
17284   firstP_2131X = arg4K0;
17285   vector_2132X = s48_find_all(type_1622X);
17286   if ((1 == vector_2132X)) {
17287     if (firstP_2131X) {s48_collect(1);
17288       arg4K0 = 0;
17289       goto L61576;}
17290     else {push_exception_setupB(9, 1);
17291       SstackS = ((SstackS) + -8);
17292       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(type_1622X, 2)));
17293       arg0K0 = 1;
17294       goto L33828;}}
17295   else {
17296     SvalS = vector_2132X;
17297     Scode_pointerS = ((Scode_pointerS) + 1);
17298     arg3K0 = (Scode_pointerS);
17299     goto L36269;}}
17300  L68075: {
17301   firstP_2133X = arg4K0;
17302   type_2134X = arg0K1;
17303   vector_2135X = s48_find_all_records(type_2134X);
17304   if ((1 == vector_2135X)) {
17305     if (firstP_2133X) {
17306       Stemp0S = type_2134X;s48_collect(1);
17307       value_2136X = Stemp0S;
17308       Stemp0S = 1;
17309       arg4K0 = 0;
17310       arg0K1 = value_2136X;
17311       goto L68075;}
17312     else {push_exception_setupB(9, 1);
17313       SstackS = ((SstackS) + -8);
17314       *((long *) (SstackS)) = (long) (type_2134X);
17315       arg0K0 = 1;
17316       goto L33828;}}
17317   else {
17318     SvalS = vector_2135X;
17319     Scode_pointerS = ((Scode_pointerS) + 1);
17320     arg3K0 = (Scode_pointerS);
17321     goto L36269;}}
17322  L38030: {
17323 push_exception_setupB(5, 1);
17324   x_2137X = SvalS;
17325   SstackS = ((SstackS) + -8);
17326   *((long *) (SstackS)) = (long) (x_2137X);
17327   arg0K0 = 1;
17328   goto L33828;}
17329  L36351: {
17330   Slast_code_calledS = code_1629X;
17331   Scode_pointerS = ((((char *) (-3 + code_1629X))) + (pc_1632X + (PS_SHIFT_RIGHT_INLINE(size_1631X, 2))));
17332   arg3K0 = (Scode_pointerS);
17333   goto L36269;}
17334  L34091: {
17335   ps_write_string("returning to nc ", (stderr));
17336   ps_write_integer((*((long *) (SstackS))), (stderr));
17337   arg0K0 = 0;
17338   arg0K1 = 25;
17339   arg0K2 = 0;
17340   goto L33256;}
17341  L36920: {
17342 push_exception_setupB(5, 1);
17343   x_2138X = SvalS;
17344   SstackS = ((SstackS) + -8);
17345   *((long *) (SstackS)) = (long) (x_2138X);
17346   arg0K0 = 1;
17347   goto L33828;}
17348  L68123: {
17349   SvalS = (PS_SHIFT_LEFT_INLINE(old_1641X, 2));
17350   Scode_pointerS = ((Scode_pointerS) + 1);
17351   arg3K0 = (Scode_pointerS);
17352   goto L36269;}
17353  L65078: {
17354   x_2139X = s48_schedule_alarm_interrupt((PS_SHIFT_RIGHT_INLINE(p_1653X, 2)));
17355   SvalS = (PS_SHIFT_LEFT_INLINE(x_2139X, 2));
17356   Scode_pointerS = ((Scode_pointerS) + 1);
17357   arg3K0 = (Scode_pointerS);
17358   goto L36269;}
17359  L62808: {
17360   if ((1 == (SvalS))) {
17361     arg4K0 = 0;
17362     goto L62812;}
17363   else {
17364     arg4K0 = 1;
17365     goto L62812;}}
17366  L62813: {
17367 push_exception_setupB(5, 1);
17368   SstackS = ((SstackS) + -8);
17369   *((long *) (SstackS)) = (long) (arg2_1655X);
17370   x_2140X = SvalS;
17371   SstackS = ((SstackS) + -8);
17372   *((long *) (SstackS)) = (long) (x_2140X);
17373   arg0K0 = 2;
17374   goto L33828;}
17375  L41907: {
17376   rest_list_2141X = arg0K0;
17377   if ((25 == rest_list_2141X)) {
17378     name_2142X = *((long *) ((SstackS) + (-16 + (PS_SHIFT_LEFT_INLINE(nargs_1658X, 3)))));
17379     proc_2143X = *((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE(nargs_1658X, 3)))));
17380     args_2144X = SstackS;
17381     if ((3 == (3 & name_2142X))) {
17382       if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + name_2142X))))), 2))))) {
17383         if ((3 == (3 & proc_2143X))) {
17384           if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + proc_2143X))))), 2))))) {
17385             if ((8 == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + proc_2143X))))), 8)))) {
17386               SstackS = (ScontS);
17387               result_2145X = s48_external_call(proc_2143X, name_2142X, (-2 + nargs_1658X), args_2144X);
17388               if ((Sexternal_exceptionPS)) {
17389                 Sexternal_exceptionPS = 0;
17390                 arg0K0 = (Sexternal_exception_nargsS);
17391                 goto L33828;}
17392               else {
17393                 SvalS = result_2145X;
17394                 Scode_pointerS = ((Scode_pointerS) + 1);
17395                 arg3K0 = (Scode_pointerS);
17396                 goto L36269;}}
17397             else {
17398               goto L42163;}}
17399           else {
17400             goto L42163;}}
17401         else {
17402           goto L42163;}}
17403       else {
17404         goto L42163;}}
17405     else {
17406       goto L42163;}}
17407   else {
17408     x_2146X = *((long *) (((char *) (-3 + rest_list_2141X))));
17409     SstackS = ((SstackS) + -8);
17410     *((long *) (SstackS)) = (long) (x_2146X);
17411     arg0K0 = (*((long *) ((((char *) (-3 + rest_list_2141X))) + 8)));
17412     goto L41907;}}
17413  L42208: {
17414   rest_list_2147X = arg0K0;
17415   if ((25 == rest_list_2147X)) {
17416     name_2148X = *((long *) ((SstackS) + (-16 + (PS_SHIFT_LEFT_INLINE(nargs_1663X, 3)))));
17417     proc_2149X = *((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE(nargs_1663X, 3)))));
17418     args_2150X = SstackS;
17419     if ((3 == (3 & name_2148X))) {
17420       if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + name_2148X))))), 2))))) {
17421         if ((3 == (3 & proc_2149X))) {
17422           if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + proc_2149X))))), 2))))) {
17423             if ((8 == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + proc_2149X))))), 8)))) {
17424               SstackS = (ScontS);
17425               result_2151X = s48_external_call_2(proc_2149X, name_2148X, (-2 + nargs_1663X), args_2150X);
17426               if ((Sexternal_exceptionPS)) {
17427                 Sexternal_exceptionPS = 0;
17428                 arg0K0 = (Sexternal_exception_nargsS);
17429                 goto L33828;}
17430               else {
17431                 SvalS = result_2151X;
17432                 Scode_pointerS = ((Scode_pointerS) + 1);
17433                 arg3K0 = (Scode_pointerS);
17434                 goto L36269;}}
17435             else {
17436               goto L42464;}}
17437           else {
17438             goto L42464;}}
17439         else {
17440           goto L42464;}}
17441       else {
17442         goto L42464;}}
17443     else {
17444       goto L42464;}}
17445   else {
17446     x_2152X = *((long *) (((char *) (-3 + rest_list_2147X))));
17447     SstackS = ((SstackS) + -8);
17448     *((long *) (SstackS)) = (long) (x_2152X);
17449     arg0K0 = (*((long *) ((((char *) (-3 + rest_list_2147X))) + 8)));
17450     goto L42208;}}
17451  L61671: {
17452   if ((1 == (SvalS))) {
17453     v_2153X = Hlookup853((Sexported_bindingsS), arg2_1667X, 0);
17454     arg0K0 = v_2153X;
17455     goto L61712;}
17456   else {
17457     v_2154X = Hlookup834((Simported_bindingsS), arg2_1667X, 0);
17458     arg0K0 = v_2154X;
17459     goto L61712;}}
17460  L61676: {
17461 push_exception_setupB(5, 1);
17462   SstackS = ((SstackS) + -8);
17463   *((long *) (SstackS)) = (long) (arg2_1667X);
17464   x_2155X = SvalS;
17465   SstackS = ((SstackS) + -8);
17466   *((long *) (SstackS)) = (long) (x_2155X);
17467   arg0K0 = 2;
17468   goto L33828;}
17469  L46052: {
17470   if ((1 == (SvalS))) {
17471     arg0K0 = (Sexported_bindingsS);
17472     goto L46087;}
17473   else {
17474     arg0K0 = (Simported_bindingsS);
17475     goto L46087;}}
17476  L46057: {
17477 push_exception_setupB(5, 1);
17478   SstackS = ((SstackS) + -8);
17479   *((long *) (SstackS)) = (long) (arg2_1669X);
17480   x_2156X = SvalS;
17481   SstackS = ((SstackS) + -8);
17482   *((long *) (SstackS)) = (long) (x_2156X);
17483   arg0K0 = 2;
17484   goto L33828;}
17485  L68185: {
17486   firstP_2157X = arg4K0;
17487   vector_2158X = s48_gather_objects(shared_binding_undefinedP, for_each_imported_binding);
17488   if ((1 == vector_2158X)) {
17489     if (firstP_2157X) {s48_collect(1);
17490       arg4K0 = 0;
17491       goto L68185;}
17492     else {push_exception_setupB(9, 1);
17493       arg0K0 = 0;
17494       goto L33828;}}
17495   else {
17496     SvalS = vector_2158X;
17497     Scode_pointerS = ((Scode_pointerS) + 1);
17498     arg3K0 = (Scode_pointerS);
17499     goto L36269;}}
17500  L65386: {
17501   x_2159X = arg0K0;
17502   SvalS = (PS_SHIFT_LEFT_INLINE(x_2159X, 2));
17503   Scode_pointerS = ((Scode_pointerS) + 1);
17504   arg3K0 = (Scode_pointerS);
17505   goto L36269;}
17506  L65387: {
17507   if ((1 == arg_1671X)) {
17508 #ifdef USE_DIRECT_THREADING
17509     unused_event_type_uid_return_address = &&unused_event_type_uid_return_1;
17510 #else
17511     unused_event_type_uid_return_tag = 1;
17512 #endif
17513     goto unused_event_type_uid;
17514    unused_event_type_uid_return_1:
17515     uid_2160X = unused_event_type_uid0_return_value;
17516     if ((-1 == uid_2160X)) {
17517       arg0K0 = uid_2160X;
17518       goto L65392;}
17519     else {
17520       merged_arg0K0 = uid_2160X;
17521 #ifdef USE_DIRECT_THREADING
17522       use_event_type_uidB_return_address = &&use_event_type_uidB_return_3;
17523 #else
17524       use_event_type_uidB_return_tag = 3;
17525 #endif
17526       goto use_event_type_uidB;
17527      use_event_type_uidB_return_3:
17528       arg0K0 = uid_2160X;
17529       goto L65392;}}
17530   else {push_exception_setupB(5, 1);
17531     SstackS = ((SstackS) + -8);
17532     *((long *) (SstackS)) = (long) (arg_1671X);
17533     arg0K0 = 1;
17534     goto L33828;}}
17535  L6577: {
17536   type_2161X = *((Sevent_typesS) + index_1682X);
17537   if ((type_2161X->usedP)) {
17538     if ((NULL == (type_2161X->next))) {
17539       type_2162X = *((Sevent_typesS) + index_1682X);
17540       if ((NULL == (type_2162X->next))) {
17541         type_2162X->next = (Sunused_event_types_headS);
17542         type_2162X->usedP = 0;
17543         Sunused_event_types_headS = type_2162X;
17544         goto L68213;}
17545       else {
17546         ps_write_string("trying to unregister external event that is still in use : ", (stderr));
17547         ps_write_integer(index_1682X, (stderr));
17548         { long ignoreXX;
17549         PS_WRITE_CHAR(10, (stderr), ignoreXX) }
17550         ps_error("assertion violation", 0);
17551         goto L68213;}}
17552     else {
17553       ps_write_string("trying to unregister external event that is still in use : ", (stderr));
17554       ps_write_integer(index_1682X, (stderr));
17555       { long ignoreXX;
17556       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
17557       ps_error("assertion violation", 0);
17558       goto L68213;}}
17559   else {
17560     ps_write_string("trying to unregister invalid external event: ", (stderr));
17561     ps_write_integer(index_1682X, (stderr));
17562     { long ignoreXX;
17563     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
17564     ps_error("assertion violation", 0);
17565     goto L68213;}}
17566  L63886: {
17567   option_2163X = arg0K0;
17568   seconds_2164X = arg0K1;
17569   mseconds_2165X = arg0K2;
17570   if ((2305843009213692 < seconds_2164X)) {push_exception_setupB(7, 1);
17571     SstackS = ((SstackS) + -8);
17572     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(option_2163X, 2)));
17573     SstackS = ((SstackS) + -8);
17574     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(seconds_2164X, 2)));
17575     SstackS = ((SstackS) + -8);
17576     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mseconds_2165X, 2)));
17577     arg0K0 = 3;
17578     goto L33828;}
17579   else {
17580     SvalS = (PS_SHIFT_LEFT_INLINE(((1000 * seconds_2164X) + mseconds_2165X), 2));
17581     Scode_pointerS = ((Scode_pointerS) + 1);
17582     arg3K0 = (Scode_pointerS);
17583     goto L36269;}}
17584  L68259: {
17585   s48_Scallback_return_stack_blockS = arg2_1705X;
17586   arg0K0 = x_1706X;
17587   goto L71002;}
17588  L55791: {
17589   val_2166X = arg0K0;
17590   SvalS = val_2166X;
17591   Scode_pointerS = ((Scode_pointerS) + 1);
17592   arg3K0 = (Scode_pointerS);
17593   goto L36269;}
17594  L55756: {
17595 push_exception_setupB(5, 1);
17596   SstackS = ((SstackS) + -8);
17597   *((long *) (SstackS)) = (long) (arg2_1707X);
17598   x_2167X = SvalS;
17599   SstackS = ((SstackS) + -8);
17600   *((long *) (SstackS)) = (long) (x_2167X);
17601   arg0K0 = 2;
17602   goto L33828;}
17603  L54189: {
17604   len_2168X = PS_SHIFT_LEFT_INLINE(n_1712X, 2);
17605   addr_2169X = s48_allocate_small((8 + len_2168X));
17606   *((long *) addr_2169X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_2168X, 8))));
17607   obj_2170X = 3 + (((long) (addr_2169X + 8)));
17608   arg0K0 = arg2_1711X;
17609   arg0K1 = (-1 + n_1712X);
17610   goto L54166;}
17611  L54141: {
17612   if ((25 == arg2_1711X)) {
17613     goto L54189;}
17614   else {push_exception_setupB(5, 1);
17615     SstackS = ((SstackS) + -8);
17616     *((long *) (SstackS)) = (long) (arg2_1711X);
17617     SstackS = ((SstackS) + -8);
17618     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_1712X, 2)));
17619     arg0K0 = 2;
17620     goto L33828;}}
17621  L57157: {
17622   list_2171X = arg0K0;
17623   slow_2172X = arg0K1;
17624   move_slowP_2173X = arg4K2;
17625   if ((25 == list_2171X)) {
17626     SvalS = 1;
17627     Scode_pointerS = ((Scode_pointerS) + 1);
17628     arg3K0 = (Scode_pointerS);
17629     goto L36269;}
17630   else {
17631     if ((3 == (3 & list_2171X))) {
17632       if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + list_2171X))))), 2))))) {
17633         head_2174X = *((long *) (((char *) (-3 + list_2171X))));
17634         if ((3 == (3 & head_2174X))) {
17635           if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + head_2174X))))), 2))))) {
17636             if (((*((long *) (((char *) (-3 + head_2174X))))) == arg2_1714X)) {
17637               SvalS = head_2174X;
17638               Scode_pointerS = ((Scode_pointerS) + 1);
17639               arg3K0 = (Scode_pointerS);
17640               goto L36269;}
17641             else {
17642               list_2175X = *((long *) ((((char *) (-3 + list_2171X))) + 8));
17643               if ((list_2175X == slow_2172X)) {push_exception_setupB(5, 1);
17644                 SstackS = ((SstackS) + -8);
17645                 *((long *) (SstackS)) = (long) (arg2_1714X);
17646                 SstackS = ((SstackS) + -8);
17647                 *((long *) (SstackS)) = (long) (list_1715X);
17648                 arg0K0 = 2;
17649                 goto L33828;}
17650               else {
17651                 if (move_slowP_2173X) {
17652                   arg0K0 = list_2175X;
17653                   arg0K1 = (*((long *) ((((char *) (-3 + slow_2172X))) + 8)));
17654                   arg4K2 = 0;
17655                   goto L57157;}
17656                 else {
17657                   arg0K0 = list_2175X;
17658                   arg0K1 = slow_2172X;
17659                   arg4K2 = 1;
17660                   goto L57157;}}}}
17661           else {push_exception_setupB(5, 1);
17662             SstackS = ((SstackS) + -8);
17663             *((long *) (SstackS)) = (long) (arg2_1714X);
17664             SstackS = ((SstackS) + -8);
17665             *((long *) (SstackS)) = (long) (list_1715X);
17666             arg0K0 = 2;
17667             goto L33828;}}
17668         else {push_exception_setupB(5, 1);
17669           SstackS = ((SstackS) + -8);
17670           *((long *) (SstackS)) = (long) (arg2_1714X);
17671           SstackS = ((SstackS) + -8);
17672           *((long *) (SstackS)) = (long) (list_1715X);
17673           arg0K0 = 2;
17674           goto L33828;}}
17675       else {push_exception_setupB(5, 1);
17676         SstackS = ((SstackS) + -8);
17677         *((long *) (SstackS)) = (long) (arg2_1714X);
17678         SstackS = ((SstackS) + -8);
17679         *((long *) (SstackS)) = (long) (list_1715X);
17680         arg0K0 = 2;
17681         goto L33828;}}
17682     else {push_exception_setupB(5, 1);
17683       SstackS = ((SstackS) + -8);
17684       *((long *) (SstackS)) = (long) (arg2_1714X);
17685       SstackS = ((SstackS) + -8);
17686       *((long *) (SstackS)) = (long) (list_1715X);
17687       arg0K0 = 2;
17688       goto L33828;}}}
17689  L55602: {
17690 push_exception_setupB(5, 1);
17691   SstackS = ((SstackS) + -8);
17692   *((long *) (SstackS)) = (long) (arg2_1716X);
17693   x_2176X = SvalS;
17694   SstackS = ((SstackS) + -8);
17695   *((long *) (SstackS)) = (long) (x_2176X);
17696   arg0K0 = 2;
17697   goto L33828;}
17698  L55643: {
17699   val_2177X = arg0K0;
17700   SvalS = val_2177X;
17701   Scode_pointerS = ((Scode_pointerS) + 1);
17702   arg3K0 = (Scode_pointerS);
17703   goto L36269;}
17704  L42559: {
17705   len_2178X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg3_1722X))))), 8))), 3);
17706   if ((index_1723X < 0)) {
17707     goto L42538;}
17708   else {
17709     if ((index_1723X < len_2178X)) {
17710       v_2179X = *((unsigned char *) ((Scode_pointerS) + 1));
17711       if ((0 == v_2179X)) {
17712         goto L42528;}
17713       else {
17714         if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
17715           goto L42528;}
17716         else {
17717           merged_arg0K0 = arg3_1722X;
17718           merged_arg0K1 = (PS_SHIFT_LEFT_INLINE(index_1723X, 2));
17719 #ifdef USE_DIRECT_THREADING
17720           proposal_d_read_return_address = &&proposal_d_read_return_2;
17721 #else
17722           proposal_d_read_return_tag = 2;
17723 #endif
17724           goto proposal_d_read;
17725          proposal_d_read_return_2:
17726           v_2180X = proposal_d_read0_return_value;
17727           arg0K0 = v_2180X;
17728           goto L42537;}}}
17729     else {
17730       goto L42538;}}}
17731  L42558: {
17732 push_exception_setupB(5, 2);
17733   SstackS = ((SstackS) + -8);
17734   *((long *) (SstackS)) = (long) (arg3_1722X);
17735   SstackS = ((SstackS) + -8);
17736   *((long *) (SstackS)) = (long) (arg2_1721X);
17737   SstackS = ((SstackS) + -8);
17738   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1723X, 2)));
17739   arg0K0 = 3;
17740   goto L33828;}
17741  L42849: {
17742   if ((3 == (3 & arg4_1729X))) {
17743     if ((0 == (128 & (*((long *) (((char *) (-11 + arg4_1729X)))))))) {
17744       len_2181X = PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg4_1729X))))), 8))), 3);
17745       if ((index_1730X < 0)) {
17746         goto L42826;}
17747       else {
17748         if ((index_1730X < len_2181X)) {
17749           v_2182X = *((unsigned char *) ((Scode_pointerS) + 1));
17750           if ((0 == v_2182X)) {
17751             goto L42816;}
17752           else {
17753             if ((1 == (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24))))) {
17754               goto L42816;}
17755             else {
17756               merged_arg0K0 = arg4_1729X;
17757               merged_arg0K1 = (PS_SHIFT_LEFT_INLINE(index_1730X, 2));
17758               merged_arg0K2 = value_1731X;
17759 #ifdef USE_DIRECT_THREADING
17760               proposal_d_write_return_address = &&proposal_d_write_return_2;
17761 #else
17762               proposal_d_write_return_tag = 2;
17763 #endif
17764               goto proposal_d_write;
17765              proposal_d_write_return_2:
17766               goto L42825;}}}
17767         else {
17768           goto L42826;}}}
17769     else {
17770       goto L42781;}}
17771   else {
17772     goto L42781;}}
17773  L42848: {
17774 push_exception_setupB(5, 2);
17775   SstackS = ((SstackS) + -8);
17776   *((long *) (SstackS)) = (long) (arg4_1729X);
17777   SstackS = ((SstackS) + -8);
17778   *((long *) (SstackS)) = (long) (arg3_1728X);
17779   SstackS = ((SstackS) + -8);
17780   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1730X, 2)));
17781   SstackS = ((SstackS) + -8);
17782   *((long *) (SstackS)) = (long) (value_1731X);
17783   arg0K0 = 4;
17784   goto L33828;}
17785  L34463: {
17786 push_exception_setupB(5, 1);
17787   SstackS = ((SstackS) + -8);
17788   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1739X, 2)));
17789   SstackS = ((SstackS) + -8);
17790   *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(value_1740X, 8))));
17791   SstackS = ((SstackS) + -8);
17792   *((long *) (SstackS)) = (long) (arg3_1736X);
17793   SstackS = ((SstackS) + -8);
17794   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_1741X, 2)));
17795   SstackS = ((SstackS) + -8);
17796   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1742X, 2)));
17797   arg0K0 = 5;
17798   goto L33828;}
17799  L34492: {
17800   encoding_okP_2183X = arg4K0;
17801   okP_2184X = arg4K1;
17802   out_of_spaceP_2185X = arg4K2;
17803   count_2186X = arg0K3;
17804   if (encoding_okP_2183X) {
17805     if (okP_2184X) {
17806       if (out_of_spaceP_2185X) {
17807         arg0K0 = 1;
17808         goto L34515;}
17809       else {
17810         arg0K0 = 5;
17811         goto L34515;}}
17812     else {
17813       arg0K0 = 1;
17814       goto L34515;}}
17815   else {push_exception_setupB(18, 1);
17816     SstackS = ((SstackS) + -8);
17817     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1739X, 2)));
17818     arg0K0 = 1;
17819     goto L33828;}}
17820  L35315: {
17821 push_exception_setupB(5, 1);
17822   SstackS = ((SstackS) + -8);
17823   *((long *) (SstackS)) = (long) (arg5_1738X);
17824   SstackS = ((SstackS) + -8);
17825   *((long *) (SstackS)) = (long) (arg4_1737X);
17826   SstackS = ((SstackS) + -8);
17827   *((long *) (SstackS)) = (long) (arg3_1736X);
17828   SstackS = ((SstackS) + -8);
17829   *((long *) (SstackS)) = (long) (arg2_1735X);
17830   x_2187X = SvalS;
17831   SstackS = ((SstackS) + -8);
17832   *((long *) (SstackS)) = (long) (x_2187X);
17833   arg0K0 = 5;
17834   goto L33828;}
17835  L54344: {
17836 push_exception_setupB(5, 1);
17837   SstackS = ((SstackS) + -8);
17838   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1757X, 2)));
17839   SstackS = ((SstackS) + -8);
17840   *((long *) (SstackS)) = (long) ((9 + (PS_SHIFT_LEFT_INLINE(value_1758X, 8))));
17841   SstackS = ((SstackS) + -8);
17842   *((long *) (SstackS)) = (long) (arg3_1754X);
17843   SstackS = ((SstackS) + -8);
17844   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_1759X, 2)));
17845   SstackS = ((SstackS) + -8);
17846   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1760X, 2)));
17847   arg0K0 = 5;
17848   goto L33828;}
17849  L54380: {
17850   SvalS = 13;
17851   Scode_pointerS = ((Scode_pointerS) + 1);
17852   arg3K0 = (Scode_pointerS);
17853   goto L36269;}
17854  L62080: {
17855 push_exception_setupB(5, 1);
17856   SstackS = ((SstackS) + -8);
17857   *((long *) (SstackS)) = (long) (arg5_1756X);
17858   SstackS = ((SstackS) + -8);
17859   *((long *) (SstackS)) = (long) (arg4_1755X);
17860   SstackS = ((SstackS) + -8);
17861   *((long *) (SstackS)) = (long) (arg3_1754X);
17862   SstackS = ((SstackS) + -8);
17863   *((long *) (SstackS)) = (long) (arg2_1753X);
17864   x_2188X = SvalS;
17865   SstackS = ((SstackS) + -8);
17866   *((long *) (SstackS)) = (long) (x_2188X);
17867   arg0K0 = 5;
17868   goto L33828;}
17869  L34812: {
17870 push_exception_setupB(5, 1);
17871   SstackS = ((SstackS) + -8);
17872   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1771X, 2)));
17873   SstackS = ((SstackS) + -8);
17874   *((long *) (SstackS)) = (long) (arg3_1769X);
17875   SstackS = ((SstackS) + -8);
17876   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_1772X, 2)));
17877   SstackS = ((SstackS) + -8);
17878   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1773X, 2)));
17879   arg0K0 = 4;
17880   goto L33828;}
17881  L34838: {
17882   encoding_okP_2189X = arg4K0;
17883   okP_2190X = arg4K1;
17884   incompleteP_2191X = arg4K2;
17885   value_2192X = arg0K3;
17886   count_2193X = arg0K4;
17887   if (encoding_okP_2189X) {
17888     if (okP_2190X) {
17889       if (incompleteP_2191X) {
17890         arg0K0 = 1;
17891         goto L34878;}
17892       else {
17893         arg0K0 = (9 + (PS_SHIFT_LEFT_INLINE(value_2192X, 8)));
17894         goto L34878;}}
17895     else {
17896       arg0K0 = 1;
17897       goto L34878;}}
17898   else {push_exception_setupB(18, 1);
17899     SstackS = ((SstackS) + -8);
17900     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1771X, 2)));
17901     arg0K0 = 1;
17902     goto L33828;}}
17903  L35511: {
17904 push_exception_setupB(5, 1);
17905   SstackS = ((SstackS) + -8);
17906   *((long *) (SstackS)) = (long) (arg4_1770X);
17907   SstackS = ((SstackS) + -8);
17908   *((long *) (SstackS)) = (long) (arg3_1769X);
17909   SstackS = ((SstackS) + -8);
17910   *((long *) (SstackS)) = (long) (arg2_1768X);
17911   x_2194X = SvalS;
17912   SstackS = ((SstackS) + -8);
17913   *((long *) (SstackS)) = (long) (x_2194X);
17914   arg0K0 = 4;
17915   goto L33828;}
17916  L54798: {
17917 push_exception_setupB(5, 1);
17918   SstackS = ((SstackS) + -8);
17919   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(encoding_1792X, 2)));
17920   SstackS = ((SstackS) + -8);
17921   *((long *) (SstackS)) = (long) (arg3_1790X);
17922   SstackS = ((SstackS) + -8);
17923   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_1793X, 2)));
17924   SstackS = ((SstackS) + -8);
17925   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_1794X, 2)));
17926   arg0K0 = 4;
17927   goto L33828;}
17928  L54951: {
17929   SvalS = 13;
17930   Scode_pointerS = ((Scode_pointerS) + 1);
17931   arg3K0 = (Scode_pointerS);
17932   goto L36269;}
17933  L62276: {
17934 push_exception_setupB(5, 1);
17935   SstackS = ((SstackS) + -8);
17936   *((long *) (SstackS)) = (long) (arg4_1791X);
17937   SstackS = ((SstackS) + -8);
17938   *((long *) (SstackS)) = (long) (arg3_1790X);
17939   SstackS = ((SstackS) + -8);
17940   *((long *) (SstackS)) = (long) (arg2_1789X);
17941   x_2195X = SvalS;
17942   SstackS = ((SstackS) + -8);
17943   *((long *) (SstackS)) = (long) (x_2195X);
17944   arg0K0 = 4;
17945   goto L33828;}
17946  L43130: {
17947   port_2196X = arg0K0;
17948   if ((3 == (3 & port_2196X))) {
17949     if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2196X))))), 2))))) {
17950       if ((0 == (4 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2196X))) + 24))), 2))))) {
17951         goto L43187;}
17952       else {
17953         b_2197X = *((long *) ((((char *) (-3 + port_2196X))) + 48));
17954         if ((1 == b_2197X)) {push_exception_setupB(14, 2);
17955           SstackS = ((SstackS) + -8);
17956           *((long *) (SstackS)) = (long) (port_2196X);
17957           arg0K0 = 1;
17958           goto L33828;}
17959         else {
17960           p_2198X = *((long *) ((((char *) (-3 + port_2196X))) + 56));
17961           p_2199X = *((long *) ((((char *) (-3 + port_2196X))) + 64));
17962           i_2200X = PS_SHIFT_RIGHT_INLINE(p_2198X, 2);
17963           if ((i_2200X == (PS_SHIFT_RIGHT_INLINE(p_2199X, 2)))) {push_exception_setupB(14, 2);
17964             SstackS = ((SstackS) + -8);
17965             *((long *) (SstackS)) = (long) (port_2196X);
17966             arg0K0 = 1;
17967             goto L33828;}
17968           else {
17969             val_2201X = 4 + (PS_SHIFT_LEFT_INLINE(i_2200X, 2));
17970             addr_2202X = (((char *) (-3 + port_2196X))) + 56;S48_WRITE_BARRIER(port_2196X, addr_2202X, val_2201X);
17971             *((long *) addr_2202X) = (long) (val_2201X);
17972             SvalS = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + b_2197X))) + i_2200X))), 2));
17973             Scode_pointerS = ((Scode_pointerS) + 2);
17974             arg3K0 = (Scode_pointerS);
17975             goto L36269;}}}}
17976     else {
17977       goto L43187;}}
17978   else {
17979     goto L43187;}}
17980  L43332: {
17981   port_2203X = arg0K0;
17982   if ((3 == (3 & port_2203X))) {
17983     if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2203X))))), 2))))) {
17984       if ((0 == (4 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2203X))) + 24))), 2))))) {
17985         goto L43389;}
17986       else {
17987         b_2204X = *((long *) ((((char *) (-3 + port_2203X))) + 48));
17988         if ((1 == b_2204X)) {push_exception_setupB(14, 2);
17989           SstackS = ((SstackS) + -8);
17990           *((long *) (SstackS)) = (long) (port_2203X);
17991           arg0K0 = 1;
17992           goto L33828;}
17993         else {
17994           p_2205X = *((long *) ((((char *) (-3 + port_2203X))) + 56));
17995           p_2206X = *((long *) ((((char *) (-3 + port_2203X))) + 64));
17996           i_2207X = PS_SHIFT_RIGHT_INLINE(p_2205X, 2);
17997           if ((i_2207X == (PS_SHIFT_RIGHT_INLINE(p_2206X, 2)))) {push_exception_setupB(14, 2);
17998             SstackS = ((SstackS) + -8);
17999             *((long *) (SstackS)) = (long) (port_2203X);
18000             arg0K0 = 1;
18001             goto L33828;}
18002           else {
18003             SvalS = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + b_2204X))) + i_2207X))), 2));
18004             Scode_pointerS = ((Scode_pointerS) + 2);
18005             arg3K0 = (Scode_pointerS);
18006             goto L36269;}}}}
18007     else {
18008       goto L43389;}}
18009   else {
18010     goto L43389;}}
18011  L43527: {
18012   byte_2208X = arg0K0;
18013   port_2209X = arg0K1;
18014   if ((0 == (3 & byte_2208X))) {
18015     if ((3 == (3 & port_2209X))) {
18016       if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2209X))))), 2))))) {
18017         if ((0 == (8 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2209X))) + 24))), 2))))) {
18018           goto L43604;}
18019         else {
18020           if ((1 == (*((long *) ((((char *) (-3 + port_2209X))) + 64))))) {push_exception_setupB(14, 2);
18021             SstackS = ((SstackS) + -8);
18022             *((long *) (SstackS)) = (long) (byte_2208X);
18023             SstackS = ((SstackS) + -8);
18024             *((long *) (SstackS)) = (long) (port_2209X);
18025             arg0K0 = 2;
18026             goto L33828;}
18027           else {
18028             p_2210X = *((long *) ((((char *) (-3 + port_2209X))) + 56));
18029             b_2211X = *((long *) ((((char *) (-3 + port_2209X))) + 48));
18030             i_2212X = PS_SHIFT_RIGHT_INLINE(p_2210X, 2);
18031             if ((i_2212X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + b_2211X))))), 8)))) {push_exception_setupB(14, 2);
18032               SstackS = ((SstackS) + -8);
18033               *((long *) (SstackS)) = (long) (byte_2208X);
18034               SstackS = ((SstackS) + -8);
18035               *((long *) (SstackS)) = (long) (port_2209X);
18036               arg0K0 = 2;
18037               goto L33828;}
18038             else {
18039               val_2213X = 4 + (PS_SHIFT_LEFT_INLINE(i_2212X, 2));
18040               addr_2214X = (((char *) (-3 + port_2209X))) + 56;S48_WRITE_BARRIER(port_2209X, addr_2214X, val_2213X);
18041               *((long *) addr_2214X) = (long) (val_2213X);
18042               *((unsigned char *) ((((char *) (-3 + b_2211X))) + i_2212X)) = (unsigned char) ((PS_SHIFT_RIGHT_INLINE(byte_2208X, 2)));
18043               SvalS = 13;
18044               Scode_pointerS = ((Scode_pointerS) + 2);
18045               arg3K0 = (Scode_pointerS);
18046               goto L36269;}}}}
18047       else {
18048         goto L43604;}}
18049     else {
18050       goto L43604;}}
18051   else {
18052     goto L43604;}}
18053  L43796: {
18054   port_2215X = arg0K0;
18055   if ((3 == (3 & port_2215X))) {
18056     if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2215X))))), 2))))) {
18057       if ((0 == (4 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2215X))) + 24))), 2))))) {
18058         goto L43969;}
18059       else {
18060         b_2216X = *((long *) ((((char *) (-3 + port_2215X))) + 48));
18061         if ((1 == b_2216X)) {push_exception_setupB(14, 2);
18062           SstackS = ((SstackS) + -8);
18063           *((long *) (SstackS)) = (long) (port_2215X);
18064           arg0K0 = 1;
18065           goto L33828;}
18066         else {
18067           arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2215X))) + 56))), 2));
18068           goto L43825;}}}
18069     else {
18070       goto L43969;}}
18071   else {
18072     goto L43969;}}
18073  L44444: {
18074   port_2217X = arg0K0;
18075   if ((3 == (3 & port_2217X))) {
18076     if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2217X))))), 2))))) {
18077       if ((0 == (4 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2217X))) + 24))), 2))))) {
18078         goto L44617;}
18079       else {
18080         b_2218X = *((long *) ((((char *) (-3 + port_2217X))) + 48));
18081         if ((1 == b_2218X)) {push_exception_setupB(14, 2);
18082           SstackS = ((SstackS) + -8);
18083           *((long *) (SstackS)) = (long) (port_2217X);
18084           arg0K0 = 1;
18085           goto L33828;}
18086         else {
18087           arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2217X))) + 56))), 2));
18088           goto L44473;}}}
18089     else {
18090       goto L44617;}}
18091   else {
18092     goto L44617;}}
18093  L45013: {
18094   Kchar_2219X = arg0K0;
18095   port_2220X = arg0K1;
18096   if ((9 == (255 & Kchar_2219X))) {
18097     if ((3 == (3 & port_2220X))) {
18098       if ((7 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + port_2220X))))), 2))))) {
18099         if ((0 == (8 & (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2220X))) + 24))), 2))))) {
18100           goto L45232;}
18101         else {
18102           if ((1 == (*((long *) ((((char *) (-3 + port_2220X))) + 64))))) {push_exception_setupB(14, 2);
18103             SstackS = ((SstackS) + -8);
18104             *((long *) (SstackS)) = (long) (Kchar_2219X);
18105             SstackS = ((SstackS) + -8);
18106             *((long *) (SstackS)) = (long) (port_2220X);
18107             arg0K0 = 2;
18108             goto L33828;}
18109           else {
18110             codec_2221X = *((long *) ((((char *) (-3 + port_2220X))) + 8));
18111             if ((0 == (3 & codec_2221X))) {
18112               b_2222X = *((long *) ((((char *) (-3 + port_2220X))) + 48));
18113               i_2223X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + port_2220X))) + 56))), 2);
18114               l_2224X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + b_2222X))))), 8);
18115               if ((i_2223X == l_2224X)) {push_exception_setupB(14, 2);
18116                 SstackS = ((SstackS) + -8);
18117                 *((long *) (SstackS)) = (long) (Kchar_2219X);
18118                 SstackS = ((SstackS) + -8);
18119                 *((long *) (SstackS)) = (long) (port_2220X);
18120                 arg0K0 = 2;
18121                 goto L33828;}
18122               else {
18123                 x_2225X = *((long *) ((((char *) (-3 + port_2220X))) + 16));
18124                 if ((1 == x_2225X)) {
18125                   goto L45178;}
18126                 else {
18127                   if ((10 == (PS_SHIFT_RIGHT_INLINE(Kchar_2219X, 8)))) {
18128                     encoding_2226X = PS_SHIFT_RIGHT_INLINE(codec_2221X, 2);
18129                     buffer_2227X = (((char *) (-3 + b_2222X))) + i_2223X;
18130                     count_2228X = l_2224X - i_2223X;
18131                     if ((0 == encoding_2226X)) {
18132                       if ((count_2228X < 1)) {
18133                         arg4K0 = 1;
18134                         arg4K1 = 1;
18135                         arg4K2 = 1;
18136                         arg0K3 = 1;
18137                         goto L45113;}
18138                       else {
18139                         *((unsigned char *) buffer_2227X) = (unsigned char) (13);
18140                         arg4K0 = 1;
18141                         arg4K1 = 1;
18142                         arg4K2 = 0;
18143                         arg0K3 = 1;
18144                         goto L45113;}}
18145                     else {
18146                       if ((1 == encoding_2226X)) {
18147                         if ((count_2228X < 1)) {
18148                           arg4K0 = 1;
18149                           arg4K1 = 1;
18150                           arg4K2 = 1;
18151                           arg0K3 = 1;
18152                           goto L45113;}
18153                         else {
18154                           *((unsigned char *) buffer_2227X) = (unsigned char) (13);
18155                           arg4K0 = 1;
18156                           arg4K1 = 1;
18157                           arg4K2 = 0;
18158                           arg0K3 = 1;
18159                           goto L45113;}}
18160                       else {
18161                         if ((2 == encoding_2226X)) {
18162                           encoding_okP_2229X = encode_scalar_valueUutf_8(13, buffer_2227X, count_2228X, &out_of_spaceP_2230X, &count_2231X);
18163                           arg4K0 = 1;
18164                           arg4K1 = encoding_okP_2229X;
18165                           arg4K2 = out_of_spaceP_2230X;
18166                           arg0K3 = count_2231X;
18167                           goto L45113;}
18168                         else {
18169                           if ((3 == encoding_2226X)) {
18170                             encoding_okP_2232X = encode_scalar_valueUutf_16le(13, buffer_2227X, count_2228X, &out_of_spaceP_2233X, &count_2234X);
18171                             arg4K0 = 1;
18172                             arg4K1 = encoding_okP_2232X;
18173                             arg4K2 = out_of_spaceP_2233X;
18174                             arg0K3 = count_2234X;
18175                             goto L45113;}
18176                           else {
18177                             if ((4 == encoding_2226X)) {
18178                               encoding_okP_2235X = encode_scalar_valueUutf_16be(13, buffer_2227X, count_2228X, &out_of_spaceP_2236X, &count_2237X);
18179                               arg4K0 = 1;
18180                               arg4K1 = encoding_okP_2235X;
18181                               arg4K2 = out_of_spaceP_2236X;
18182                               arg0K3 = count_2237X;
18183                               goto L45113;}
18184                             else {
18185                               if ((5 == encoding_2226X)) {
18186                                 if ((count_2228X < 4)) {
18187                                   arg4K0 = 1;
18188                                   arg4K1 = 1;
18189                                   arg4K2 = 1;
18190                                   arg0K3 = 4;
18191                                   goto L45113;}
18192                                 else {
18193                                   *((unsigned char *) buffer_2227X) = (unsigned char) (13);
18194                                   *((unsigned char *) (buffer_2227X + 1)) = (unsigned char) (0);
18195                                   *((unsigned char *) (buffer_2227X + 2)) = (unsigned char) (0);
18196                                   *((unsigned char *) (buffer_2227X + 3)) = (unsigned char) (218103808);
18197                                   arg4K0 = 1;
18198                                   arg4K1 = 1;
18199                                   arg4K2 = 0;
18200                                   arg0K3 = 4;
18201                                   goto L45113;}}
18202                               else {
18203                                 if ((6 == encoding_2226X)) {
18204                                   if ((count_2228X < 4)) {
18205                                     arg4K0 = 1;
18206                                     arg4K1 = 1;
18207                                     arg4K2 = 1;
18208                                     arg0K3 = 4;
18209                                     goto L45113;}
18210                                   else {
18211                                     *((unsigned char *) buffer_2227X) = (unsigned char) (218103808);
18212                                     *((unsigned char *) (buffer_2227X + 1)) = (unsigned char) (0);
18213                                     *((unsigned char *) (buffer_2227X + 2)) = (unsigned char) (0);
18214                                     *((unsigned char *) (buffer_2227X + 3)) = (unsigned char) (13);
18215                                     arg4K0 = 1;
18216                                     arg4K1 = 1;
18217                                     arg4K2 = 0;
18218                                     arg0K3 = 4;
18219                                     goto L45113;}}
18220                                 else {
18221                                   arg4K0 = 0;
18222                                   arg4K1 = 0;
18223                                   arg4K2 = 0;
18224                                   arg0K3 = 0;
18225                                   goto L45113;}}}}}}}}
18226                   else {
18227                     goto L45178;}}}}
18228             else {push_exception_setupB(14, 2);
18229               SstackS = ((SstackS) + -8);
18230               *((long *) (SstackS)) = (long) (Kchar_2219X);
18231               SstackS = ((SstackS) + -8);
18232               *((long *) (SstackS)) = (long) (port_2220X);
18233               arg0K0 = 2;
18234               goto L33828;}}}}
18235       else {
18236         goto L45232;}}
18237     else {
18238       goto L45232;}}
18239   else {
18240     goto L45232;}}
18241  L55281: {
18242   vector_2238X = arg0K0;
18243   if ((1 == vector_2238X)) {push_exception_setupB(9, 1);
18244     SstackS = ((SstackS) + -8);
18245     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(len_1822X, 2)));
18246     arg0K0 = 1;
18247     goto L33828;}
18248   else {
18249     arg0K0 = 0;
18250     goto L55297;}}
18251  L57410: {
18252   stuff_2239X = arg0K0;
18253   if ((3 == (3 & stuff_2239X))) {
18254     if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + stuff_2239X))))), 2))))) {message_element((*((long *) (((char *) (-3 + stuff_2239X))))), out_1826X);
18255       arg0K0 = (*((long *) ((((char *) (-3 + stuff_2239X))) + 8)));
18256       goto L57410;}
18257     else {
18258       goto L57401;}}
18259   else {
18260     goto L57401;}}
18261  L32860: {
18262   arg_count_2240X = arg0K0;
18263   if ((3 == (3 & handlers_1829X))) {
18264     if ((2 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + handlers_1829X))))), 2))))) {
18265       goto L32874;}
18266     else {
18267       goto L32916;}}
18268   else {
18269     goto L32916;}}
18270  L17901: {
18271   x_2241X = Sfinalize_theseS;
18272   SstackS = ((SstackS) + -8);
18273   *((long *) (SstackS)) = (long) (x_2241X);
18274   Sfinalize_theseS = 25;
18275   n_2242X = Senabled_interruptsS;
18276   SstackS = ((SstackS) + -8);
18277   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_2242X, 2)));
18278   if ((Sgc_in_troublePS)) {
18279     arg0K0 = 5;
18280     goto L17912;}
18281   else {
18282     arg0K0 = 1;
18283     goto L17912;}}
18284  L17918: {
18285   channel_2243X = arg0K0;
18286   x_2244X = 1 == (Spending_channels_headS);
18287   if (x_2244X) {
18288     goto L17932;}
18289   else {
18290     Spending_interruptsS = (16 | (Spending_interruptsS));
18291     if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
18292       s48_Sstack_limitS = (Sreal_stack_limitS);
18293       if ((s48_Spending_eventsPS)) {
18294         s48_Sstack_limitS = (((char *) -1));
18295         goto L17932;}
18296       else {
18297         goto L17932;}}
18298     else {
18299       s48_Sstack_limitS = (((char *) -1));
18300       goto L17932;}}}
18301  L18139: {
18302   sig_2245X = *(Sos_signal_ringS + (Sos_signal_ring_startS));
18303   if ((31 == (Sos_signal_ring_startS))) {
18304     arg0K0 = 0;
18305     goto L18143;}
18306   else {
18307     arg0K0 = (1 + (Sos_signal_ring_startS));
18308     goto L18143;}}
18309  L17990: {
18310   n_2246X = Senabled_interruptsS;
18311   SstackS = ((SstackS) + -8);
18312   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_2246X, 2)));
18313   arg0K0 = 2;
18314   goto L32860;}
18315  L14641: {
18316   count_2247X = arg0K0;
18317   i_2248X = arg0K1;
18318   offset_2249X = arg0K2;
18319   if ((0 == count_2247X)) {
18320     if ((i_2248X < total_count_1866X)) {
18321       arg0K0 = i_2248X;
18322       arg0K1 = offset_2249X;
18323       goto L11499;}
18324     else {
18325       arg0K0 = offset_2249X;
18326       goto L71019;}}
18327   else {
18328     value_2250X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2249X)))), 3))));
18329     addr_2251X = (((char *) (-3 + new_env_1863X))) + (PS_SHIFT_LEFT_INLINE(i_2248X, 3));S48_WRITE_BARRIER(new_env_1863X, addr_2251X, value_2250X);
18330     *((long *) addr_2251X) = (long) (value_2250X);
18331     arg0K0 = (-1 + count_2247X);
18332     arg0K1 = (1 + i_2248X);
18333     arg0K2 = (1 + offset_2249X);
18334     goto L14641;}}
18335  L15436: {
18336   count_2252X = arg0K0;
18337   i_2253X = arg0K1;
18338   offset_2254X = arg0K2;
18339   if ((0 == count_2252X)) {
18340     if ((i_2253X < total_count_1877X)) {
18341       arg0K0 = i_2253X;
18342       arg0K1 = offset_2254X;
18343       goto L11849;}
18344     else {
18345       arg0K0 = offset_2254X;
18346       goto L71010;}}
18347   else {
18348     value_2255X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2254X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + offset_2254X))))), 3))));
18349     addr_2256X = (((char *) (-3 + new_env_1874X))) + (PS_SHIFT_LEFT_INLINE(i_2253X, 3));S48_WRITE_BARRIER(new_env_1874X, addr_2256X, value_2255X);
18350     *((long *) addr_2256X) = (long) (value_2255X);
18351     arg0K0 = (-1 + count_2252X);
18352     arg0K1 = (1 + i_2253X);
18353     arg0K2 = (2 + offset_2254X);
18354     goto L15436;}}
18355  L31458: {
18356   loc_2257X = arg3K0;
18357   arg_2258X = arg3K1;
18358   if ((arg_2258X < top_1278X)) {
18359     SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE(arg_count_1277X, 3))));
18360     SvalS = cont_1896X;
18361     Scode_pointerS = ((Scode_pointerS) + 1);
18362     arg3K0 = (Scode_pointerS);
18363     goto L36269;}
18364   else {
18365     *((long *) loc_2257X) = (long) ((*((long *) arg_2258X)));
18366     arg3K0 = (loc_2257X + -8);
18367     arg3K1 = (arg_2258X + -8);
18368     goto L31458;}}
18369  L65947: {
18370 
18371 #ifdef USE_DIRECT_THREADING
18372   pending_interruptP_return_address = &&pending_interruptP_return_5;
18373 #else
18374   pending_interruptP_return_tag = 5;
18375 #endif
18376   goto pending_interruptP;
18377  pending_interruptP_return_5:
18378   v_2259X = pending_interruptP0_return_value;
18379   if (v_2259X) {
18380     arg0K0 = 2;
18381     goto L33116;}
18382   else {
18383     goto L65954;}}
18384  L65954: {
18385   v_2260X = s48_call_native_procedure((SvalS), 2);
18386   arg0K0 = v_2260X;
18387   goto L65742;}
18388  L32740: {
18389   template_2261X = *((long *) (((char *) (-3 + (SvalS)))));
18390   arg0K0 = (*((long *) (((char *) (-3 + template_2261X)))));
18391   arg0K1 = skip_1910X;
18392   arg0K2 = (1 + skip_1910X);
18393   arg0K3 = template_2261X;
18394   goto L32500;}
18395  L66089: {
18396 
18397 #ifdef USE_DIRECT_THREADING
18398   pop_continuationB_return_address = &&pop_continuationB_return_4;
18399 #else
18400   pop_continuationB_return_tag = 4;
18401 #endif
18402   goto pop_continuationB;
18403  pop_continuationB_return_4:
18404   Scode_pointerS = ((Scode_pointerS) + 2);
18405   arg3K0 = (Scode_pointerS);
18406   goto L36269;}
18407  L65874: {
18408   protocol_skip_2262X = arg0K0;
18409   SstackS = (ScontS);
18410   cont_2263X = ScontS;
18411   pointer_2264X = (((char *) (*((long *) cont_2263X)))) + -2;
18412   size_2265X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_2264X)), 8)) + (*((unsigned char *) (pointer_2264X + 1)));
18413   if ((65535 == size_2265X)) {
18414     arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_2263X + 8))), 2));
18415     goto L65885;}
18416   else {
18417     arg0K0 = size_2265X;
18418     goto L65885;}}
18419  L34190: {
18420   cont_2266X = arg0K0;
18421   if ((1 == cont_2266X)) {
18422     if ((0 == (3 & (SvalS)))) {
18423       s48_Scallback_return_stack_blockS = 1;
18424       arg0K0 = (PS_SHIFT_RIGHT_INLINE((SvalS), 2));
18425       goto L71002;}
18426     else {
18427       goto L34205;}}
18428   else {
18429     goto L34205;}}
18430  L66233: {
18431   v_2267X = arg0K0;
18432   ScontS = (cont_1935X + (8 + (PS_SHIFT_LEFT_INLINE(v_2267X, 3))));
18433   merged_arg0K0 = 0;
18434 #ifdef USE_DIRECT_THREADING
18435   move_args_above_contB_return_address = &&move_args_above_contB_return_9;
18436 #else
18437   move_args_above_contB_return_tag = 9;
18438 #endif
18439   goto move_args_above_contB;
18440  move_args_above_contB_return_9:
18441   goto L66138;}
18442  L66138: {
18443   x_2268X = SvalS;
18444   SstackS = ((SstackS) + -8);
18445   *((long *) (SstackS)) = (long) (x_2268X);
18446   SvalS = proc_1934X;
18447   arg0K0 = 1;
18448   arg0K1 = 25;
18449   arg0K2 = 0;
18450   goto L65483;}
18451  L33345: {
18452   v_2269X = arg0K0;
18453   SvalS = v_2269X;
18454 #ifdef USE_DIRECT_THREADING
18455   pop_continuationB_return_address = &&pop_continuationB_return_5;
18456 #else
18457   pop_continuationB_return_tag = 5;
18458 #endif
18459   goto pop_continuationB;
18460  pop_continuationB_return_5:
18461   arg0K0 = 1;
18462   goto L36703;}
18463  L34273: {
18464   stack_nargs_2270X = arg0K0;
18465   list_args_2271X = arg0K1;
18466   merged_arg0K0 = list_args_2271X;
18467   merged_arg0K1 = stack_nargs_2270X;
18468 #ifdef USE_DIRECT_THREADING
18469   pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_9;
18470 #else
18471   pop_args_GlistSAgc_return_tag = 9;
18472 #endif
18473   goto pop_args_GlistSAgc;
18474  pop_args_GlistSAgc_return_9:
18475   args_2272X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
18476   SstackS = ((SstackS) + -8);
18477   *((long *) (SstackS)) = (long) (1);
18478   SstackS = ((SstackS) + -8);
18479   *((long *) (SstackS)) = (long) (args_2272X);
18480   arg0K0 = 2;
18481   goto L33828;}
18482  L36703: {
18483   bytes_used_2273X = arg0K0;
18484   Scode_pointerS = ((Scode_pointerS) + (1 + bytes_used_2273X));
18485   arg3K0 = (Scode_pointerS);
18486   goto L36269;}
18487  L66418: {
18488   v_2274X = arg0K0;
18489   SvalS = v_2274X;
18490   arg0K0 = 2;
18491   goto L65874;}
18492  L33291: {
18493   if ((1 == (stack_nargs_1947X + list_arg_count_1949X))) {
18494     if ((1 == stack_nargs_1947X)) {
18495       v_2275X = *((long *) (SstackS));
18496       SstackS = ((SstackS) + 8);
18497       arg0K0 = v_2275X;
18498       goto L33369;}
18499     else {
18500       arg0K0 = (*((long *) (((char *) (-3 + list_args_1948X)))));
18501       goto L33369;}}
18502   else {
18503     arg0K0 = stack_nargs_1947X;
18504     arg0K1 = list_args_1948X;
18505     goto L34273;}}
18506  L33408: {
18507   v_2276X = arg0K0;
18508   ScontS = (cont_1958X + (8 + (PS_SHIFT_LEFT_INLINE(v_2276X, 3))));
18509   merged_arg0K0 = stack_nargs_1947X;
18510 #ifdef USE_DIRECT_THREADING
18511   move_args_above_contB_return_address = &&move_args_above_contB_return_10;
18512 #else
18513   move_args_above_contB_return_tag = 10;
18514 #endif
18515   goto move_args_above_contB;
18516  move_args_above_contB_return_10:
18517   arg0K0 = stack_nargs_1947X;
18518   arg0K1 = list_args_1948X;
18519   arg0K2 = list_arg_count_1949X;
18520   goto L65483;}
18521  L37760: {
18522   loc_2277X = arg3K0;
18523   arg_2278X = arg3K1;
18524   if ((arg_2278X < arg_top_1963X)) {
18525     SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE(stack_nargs_1947X, 3))));
18526     if ((count_1961X < stack_nargs_1947X)) {
18527       merged_arg0K0 = list_args_1948X;
18528       merged_arg0K1 = (stack_nargs_1947X - count_1961X);
18529 #ifdef USE_DIRECT_THREADING
18530       pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_10;
18531 #else
18532       pop_args_GlistSAgc_return_tag = 10;
18533 #endif
18534       goto pop_args_GlistSAgc;
18535      pop_args_GlistSAgc_return_10:
18536       v_2279X = pop_args_GlistSAgc0_return_value;
18537       arg0K0 = v_2279X;
18538       goto L37739;}
18539     else {
18540       arg0K0 = stack_nargs_1947X;
18541       arg0K1 = list_args_1948X;
18542       goto L37721;}}
18543   else {
18544     *((long *) loc_2277X) = (long) ((*((long *) arg_2278X)));
18545     arg3K0 = (loc_2277X + -8);
18546     arg3K1 = (arg_2278X + -8);
18547     goto L37760;}}
18548  L37612: {
18549   count_2280X = arg0K0;
18550   bytes_used_2281X = arg0K1;
18551   stack_nargs_2282X = arg0K2;
18552   list_args_2283X = arg0K3;
18553   list_arg_count_2284X = arg0K4;
18554   if ((count_2280X == (stack_nargs_2282X + list_arg_count_2284X))) {
18555     arg_top_2285X = SstackS;
18556 #ifdef USE_DIRECT_THREADING
18557     pop_continuationB_return_address = &&pop_continuationB_return_6;
18558 #else
18559     pop_continuationB_return_tag = 6;
18560 #endif
18561     goto pop_continuationB;
18562    pop_continuationB_return_6:
18563     arg3K0 = ((SstackS) + -8);
18564     arg3K1 = (arg_top_2285X + (-8 + (PS_SHIFT_LEFT_INLINE(stack_nargs_2282X, 3))));
18565     goto L37644;}
18566   else {
18567     merged_arg0K0 = list_args_2283X;
18568     merged_arg0K1 = stack_nargs_2282X;
18569 #ifdef USE_DIRECT_THREADING
18570     pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_11;
18571 #else
18572     pop_args_GlistSAgc_return_tag = 11;
18573 #endif
18574     goto pop_args_GlistSAgc;
18575    pop_args_GlistSAgc_return_11:
18576     args_2286X = pop_args_GlistSAgc0_return_value;push_exception_setupB(4, 0);
18577     SstackS = ((SstackS) + -8);
18578     *((long *) (SstackS)) = (long) (1);
18579     SstackS = ((SstackS) + -8);
18580     *((long *) (SstackS)) = (long) (args_2286X);
18581     arg0K0 = 2;
18582     goto L33828;}}
18583  L37934: {
18584 push_exception_setupB(5, 8);
18585   SstackS = ((SstackS) + -8);
18586   *((long *) (SstackS)) = (long) (template_1308X);
18587   arg0K0 = 1;
18588   goto L33828;}
18589  L21097: {
18590   if ((3 == (3 & x_1329X))) {
18591     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1329X))))), 2))))) {
18592       arg0K0 = 5;
18593       goto L67464;}
18594     else {
18595       goto L21103;}}
18596   else {
18597     goto L21103;}}
18598  L56418: {
18599 push_exception_setupB(5, 1);
18600   SstackS = ((SstackS) + -8);
18601   *((long *) (SstackS)) = (long) (n_1330X);
18602   arg0K0 = 1;
18603   goto L33828;}
18604  L56413: {
18605   if ((3 == (3 & n_1330X))) {
18606     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1330X))))), 2))))) {
18607       goto L56418;}
18608     else {
18609       goto L56419;}}
18610   else {
18611     goto L56419;}}
18612  L56562: {
18613   if ((3 == (3 & n_1331X))) {
18614     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1331X))))), 2))))) {
18615       x_2287X = *((double *) (((char *) (-3 + n_1331X))));
18616       if ((x_2287X == x_2287X)) {
18617         if ((PS_POS_INF == x_2287X)) {
18618           arg0K0 = 1;
18619           goto L56607;}
18620         else {
18621           if ((PS_NEG_INF == x_2287X)) {
18622             arg0K0 = 1;
18623             goto L56607;}
18624           else {
18625             arg0K0 = 5;
18626             goto L56607;}}}
18627       else {
18628         arg0K0 = 1;
18629         goto L56607;}}
18630     else {
18631       goto L56568;}}
18632   else {
18633     goto L56568;}}
18634  L56797: {
18635   SvalS = 5;
18636   Scode_pointerS = ((Scode_pointerS) + 1);
18637   arg3K0 = (Scode_pointerS);
18638   goto L36269;}
18639  L56780: {
18640   if ((3 == (3 & n_1971X))) {
18641     if ((8 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1971X))))), 2))))) {
18642       goto L56797;}
18643     else {
18644       goto L56788;}}
18645   else {
18646     goto L56788;}}
18647  L47985: {
18648   val_2288X = integer_add(arg2_1335X, y_1336X);
18649   SvalS = val_2288X;
18650   Scode_pointerS = ((Scode_pointerS) + 1);
18651   arg3K0 = (Scode_pointerS);
18652   goto L36269;}
18653  L48002: {
18654 push_exception_setupB(5, 1);
18655   SstackS = ((SstackS) + -8);
18656   *((long *) (SstackS)) = (long) (arg2_1335X);
18657   SstackS = ((SstackS) + -8);
18658   *((long *) (SstackS)) = (long) (y_1336X);
18659   arg0K0 = 2;
18660   goto L33828;}
18661  L12472: {
18662   b_2289X = arg0K0;
18663   lo_a_2290X = 4294967295 & a_1981X;
18664   lo_b_2291X = 4294967295 & b_2289X;
18665   hi_a_2292X = 4294967295 & (PS_SHIFT_RIGHT_INLINE(a_1981X, 32));
18666   hi_b_2293X = 4294967295 & (PS_SHIFT_RIGHT_INLINE(b_2289X, 32));
18667   lo_c_2294X = SMALL_MULTIPLY(lo_a_2290X, lo_b_2291X);
18668   v_2295X = SMALL_MULTIPLY(lo_a_2290X, hi_b_2293X);
18669   v_2296X = SMALL_MULTIPLY(lo_b_2291X, hi_a_2292X);
18670   mid_c_2297X = v_2295X + v_2296X;
18671   c_2298X = lo_c_2294X + (PS_SHIFT_LEFT_INLINE(mid_c_2297X, 32));
18672   if ((0 < hi_a_2292X)) {
18673     if ((0 < hi_b_2293X)) {
18674       val_2299X = integer_multiply(arg2_1338X, y_1339X);
18675       SvalS = val_2299X;
18676       Scode_pointerS = ((Scode_pointerS) + 1);
18677       arg3K0 = (Scode_pointerS);
18678       goto L36269;}
18679     else {
18680       goto L12514;}}
18681   else {
18682     goto L12514;}}
18683  L58554: {
18684   val_2300X = integer_multiply(arg2_1338X, y_1339X);
18685   SvalS = val_2300X;
18686   Scode_pointerS = ((Scode_pointerS) + 1);
18687   arg3K0 = (Scode_pointerS);
18688   goto L36269;}
18689  L58571: {
18690 push_exception_setupB(5, 1);
18691   SstackS = ((SstackS) + -8);
18692   *((long *) (SstackS)) = (long) (arg2_1338X);
18693   SstackS = ((SstackS) + -8);
18694   *((long *) (SstackS)) = (long) (y_1339X);
18695   arg0K0 = 2;
18696   goto L33828;}
18697  L48274: {
18698   val_2301X = integer_subtract(arg2_1342X, y_1343X);
18699   SvalS = val_2301X;
18700   Scode_pointerS = ((Scode_pointerS) + 1);
18701   arg3K0 = (Scode_pointerS);
18702   goto L36269;}
18703  L48291: {
18704 push_exception_setupB(5, 1);
18705   SstackS = ((SstackS) + -8);
18706   *((long *) (SstackS)) = (long) (arg2_1342X);
18707   SstackS = ((SstackS) + -8);
18708   *((long *) (SstackS)) = (long) (y_1343X);
18709   arg0K0 = 2;
18710   goto L33828;}
18711  L12730: {
18712   b_2302X = arg0K0;
18713   c_2303X = a_1997X / b_2302X;
18714   x_2304X = 0 == (a_1997X % b_2302X);
18715   if (x_2304X) {
18716     if ((a_1347X < 0)) {
18717       if ((b_1348X < 0)) {s48_make_availableAgc(24);
18718         if ((2305843009213693951 < c_2303X)) {
18719           goto L69134;}
18720         else {
18721           if ((c_2303X < -2305843009213693952)) {
18722             goto L69134;}
18723           else {
18724             arg0K0 = (PS_SHIFT_LEFT_INLINE(c_2303X, 2));
18725             goto L69129;}}}
18726       else {
18727         goto L12776;}}
18728     else {
18729       if ((b_1348X < 0)) {
18730         goto L12776;}
18731       else {s48_make_availableAgc(24);
18732         if ((2305843009213693951 < c_2303X)) {
18733           goto L69156;}
18734         else {
18735           if ((c_2303X < -2305843009213693952)) {
18736             goto L69156;}
18737           else {
18738             arg0K0 = (PS_SHIFT_LEFT_INLINE(c_2303X, 2));
18739             goto L69151;}}}}}
18740   else {push_exception_setupB(5, 1);
18741     SstackS = ((SstackS) + -8);
18742     *((long *) (SstackS)) = (long) (arg2_1345X);
18743     SstackS = ((SstackS) + -8);
18744     *((long *) (SstackS)) = (long) (y_1346X);
18745     arg0K0 = 2;
18746     goto L33828;}}
18747  L58807: {
18748   div_by_zeroP_2305X = integer_divide(arg2_1345X, y_1346X, &quot_2306X, &rem_2307X, &x_2308X, &y_2309X);
18749   if (div_by_zeroP_2305X) {
18750     goto L58837;}
18751   else {
18752     if ((0 == (3 & rem_2307X))) {
18753       if ((0 == rem_2307X)) {
18754         SvalS = quot_2306X;
18755         Scode_pointerS = ((Scode_pointerS) + 1);
18756         arg3K0 = (Scode_pointerS);
18757         goto L36269;}
18758       else {
18759         goto L58837;}}
18760     else {
18761       goto L58837;}}}
18762  L58852: {
18763 push_exception_setupB(5, 1);
18764   SstackS = ((SstackS) + -8);
18765   *((long *) (SstackS)) = (long) (arg2_1345X);
18766   SstackS = ((SstackS) + -8);
18767   *((long *) (SstackS)) = (long) (y_1346X);
18768   arg0K0 = 2;
18769   goto L33828;}
18770  L48559: {
18771   b_2310X = integerE(arg2_1349X, y_1350X);
18772   if (b_2310X) {
18773     arg0K0 = 5;
18774     goto L48563;}
18775   else {
18776     arg0K0 = 1;
18777     goto L48563;}}
18778  L48579: {
18779   val_2311X = arg0K0;
18780   SvalS = val_2311X;
18781   Scode_pointerS = ((Scode_pointerS) + 1);
18782   arg3K0 = (Scode_pointerS);
18783   goto L36269;}
18784  L48580: {
18785 push_exception_setupB(5, 1);
18786   SstackS = ((SstackS) + -8);
18787   *((long *) (SstackS)) = (long) (arg2_1349X);
18788   SstackS = ((SstackS) + -8);
18789   *((long *) (SstackS)) = (long) (y_1350X);
18790   arg0K0 = 2;
18791   goto L33828;}
18792  L48819: {
18793   if ((0 == (3 & arg2_1351X))) {
18794     if ((0 == (3 & y_1352X))) {
18795       if ((arg2_1351X < y_1352X)) {
18796         arg0K0 = 5;
18797         goto L48823;}
18798       else {
18799         arg0K0 = 1;
18800         goto L48823;}}
18801     else {
18802       v_2312X = s48_bignum_test((((char *) (-3 + y_1352X))));
18803       if ((1 == v_2312X)) {
18804         arg0K0 = 5;
18805         goto L48823;}
18806       else {
18807         arg0K0 = 1;
18808         goto L48823;}}}
18809   else {
18810     if ((0 == (3 & y_1352X))) {
18811       v_2313X = s48_bignum_test((((char *) (-3 + arg2_1351X))));
18812       if ((1 == v_2313X)) {
18813         arg0K0 = 1;
18814         goto L48823;}
18815       else {
18816         arg0K0 = 5;
18817         goto L48823;}}
18818     else {
18819       v_2314X = s48_bignum_compare((((char *) (-3 + arg2_1351X))), (((char *) (-3 + y_1352X))));
18820       if ((-1 == v_2314X)) {
18821         arg0K0 = 5;
18822         goto L48823;}
18823       else {
18824         arg0K0 = 1;
18825         goto L48823;}}}}
18826  L48839: {
18827   val_2315X = arg0K0;
18828   SvalS = val_2315X;
18829   Scode_pointerS = ((Scode_pointerS) + 1);
18830   arg3K0 = (Scode_pointerS);
18831   goto L36269;}
18832  L48840: {
18833 push_exception_setupB(5, 1);
18834   SstackS = ((SstackS) + -8);
18835   *((long *) (SstackS)) = (long) (arg2_1351X);
18836   SstackS = ((SstackS) + -8);
18837   *((long *) (SstackS)) = (long) (y_1352X);
18838   arg0K0 = 2;
18839   goto L33828;}
18840  L49142: {
18841   if ((0 == (3 & y_1354X))) {
18842     if ((0 == (3 & arg2_1353X))) {
18843       if ((y_1354X < arg2_1353X)) {
18844         arg0K0 = 5;
18845         goto L49146;}
18846       else {
18847         arg0K0 = 1;
18848         goto L49146;}}
18849     else {
18850       v_2316X = s48_bignum_test((((char *) (-3 + arg2_1353X))));
18851       if ((1 == v_2316X)) {
18852         arg0K0 = 5;
18853         goto L49146;}
18854       else {
18855         arg0K0 = 1;
18856         goto L49146;}}}
18857   else {
18858     if ((0 == (3 & arg2_1353X))) {
18859       v_2317X = s48_bignum_test((((char *) (-3 + y_1354X))));
18860       if ((1 == v_2317X)) {
18861         arg0K0 = 1;
18862         goto L49146;}
18863       else {
18864         arg0K0 = 5;
18865         goto L49146;}}
18866     else {
18867       v_2318X = s48_bignum_compare((((char *) (-3 + y_1354X))), (((char *) (-3 + arg2_1353X))));
18868       if ((-1 == v_2318X)) {
18869         arg0K0 = 5;
18870         goto L49146;}
18871       else {
18872         arg0K0 = 1;
18873         goto L49146;}}}}
18874  L49162: {
18875   val_2319X = arg0K0;
18876   SvalS = val_2319X;
18877   Scode_pointerS = ((Scode_pointerS) + 1);
18878   arg3K0 = (Scode_pointerS);
18879   goto L36269;}
18880  L49163: {
18881 push_exception_setupB(5, 1);
18882   SstackS = ((SstackS) + -8);
18883   *((long *) (SstackS)) = (long) (arg2_1353X);
18884   SstackS = ((SstackS) + -8);
18885   *((long *) (SstackS)) = (long) (y_1354X);
18886   arg0K0 = 2;
18887   goto L33828;}
18888  L49465: {
18889   b_2320X = integerLE(arg2_1355X, y_1356X);
18890   if (b_2320X) {
18891     arg0K0 = 5;
18892     goto L49469;}
18893   else {
18894     arg0K0 = 1;
18895     goto L49469;}}
18896  L49485: {
18897   val_2321X = arg0K0;
18898   SvalS = val_2321X;
18899   Scode_pointerS = ((Scode_pointerS) + 1);
18900   arg3K0 = (Scode_pointerS);
18901   goto L36269;}
18902  L49486: {
18903 push_exception_setupB(5, 1);
18904   SstackS = ((SstackS) + -8);
18905   *((long *) (SstackS)) = (long) (arg2_1355X);
18906   SstackS = ((SstackS) + -8);
18907   *((long *) (SstackS)) = (long) (y_1356X);
18908   arg0K0 = 2;
18909   goto L33828;}
18910  L49759: {
18911   b_2322X = integerGE(arg2_1357X, y_1358X);
18912   if (b_2322X) {
18913     arg0K0 = 5;
18914     goto L49763;}
18915   else {
18916     arg0K0 = 1;
18917     goto L49763;}}
18918  L49779: {
18919   val_2323X = arg0K0;
18920   SvalS = val_2323X;
18921   Scode_pointerS = ((Scode_pointerS) + 1);
18922   arg3K0 = (Scode_pointerS);
18923   goto L36269;}
18924  L49780: {
18925 push_exception_setupB(5, 1);
18926   SstackS = ((SstackS) + -8);
18927   *((long *) (SstackS)) = (long) (arg2_1357X);
18928   SstackS = ((SstackS) + -8);
18929   *((long *) (SstackS)) = (long) (y_1358X);
18930   arg0K0 = 2;
18931   goto L33828;}
18932  L13177: {
18933   b_2324X = arg0K0;
18934   c_2325X = a_2012X / b_2324X;
18935   if ((a_1362X < 0)) {
18936     if ((b_1363X < 0)) {
18937       goto L13223;}
18938     else {
18939       goto L13222;}}
18940   else {
18941     if ((b_1363X < 0)) {
18942       goto L13222;}
18943     else {
18944       goto L13223;}}}
18945  L50059: {
18946   val_2326X = Hinteger_op8731(arg2_1359X, y_1360X);
18947   SvalS = val_2326X;
18948   Scode_pointerS = ((Scode_pointerS) + 1);
18949   arg3K0 = (Scode_pointerS);
18950   goto L36269;}
18951  L50269: {
18952   b_2327X = arg0K0;
18953   c_2328X = a_2013X % b_2327X;
18954   if ((a_1367X < 0)) {
18955     arg0K0 = (0 - c_2328X);
18956     goto L50273;}
18957   else {
18958     arg0K0 = c_2328X;
18959     goto L50273;}}
18960  L50235: {
18961   val_2329X = Hinteger_op8662(arg2_1364X, y_1365X);
18962   SvalS = val_2329X;
18963   Scode_pointerS = ((Scode_pointerS) + 1);
18964   arg3K0 = (Scode_pointerS);
18965   goto L36269;}
18966  L60159: {
18967   SvalS = 0;
18968   Scode_pointerS = ((Scode_pointerS) + 1);
18969   arg3K0 = (Scode_pointerS);
18970   goto L36269;}
18971  L60153: {
18972 push_exception_setupB(5, 1);
18973   SstackS = ((SstackS) + -8);
18974   *((long *) (SstackS)) = (long) (x_2015X);
18975   arg0K0 = 1;
18976   goto L33828;}
18977  L59138: {
18978   x_2330X = arg0K0;s48_make_availableAgc(24);
18979   if ((2305843009213693951 < x_2330X)) {
18980     goto L59164;}
18981   else {
18982     if ((x_2330X < -2305843009213693952)) {
18983       goto L59164;}
18984     else {
18985       arg0K0 = (PS_SHIFT_LEFT_INLINE(x_2330X, 2));
18986       goto L59159;}}}
18987  L26745: {
18988   length_2331X = arg0K0;
18989   extra_2332X = arg0K1;
18990   Stemp0S = x_2018X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((length_2331X + extra_2332X), 3)));
18991   value_2333X = Stemp0S;
18992   Stemp0S = 1;
18993   if ((0 == (3 & value_2333X))) {
18994     v_2334X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_2333X, 2)));
18995     arg3K0 = v_2334X;
18996     goto L26737;}
18997   else {
18998     arg3K0 = (((char *) (-3 + value_2333X)));
18999     goto L26737;}}
19000  L50884: {
19001   x_2335X = arg0K0;
19002   count_2336X = arg0K1;
19003   if ((0 == x_2335X)) {
19004     SvalS = (PS_SHIFT_LEFT_INLINE(count_2336X, 2));
19005     Scode_pointerS = ((Scode_pointerS) + 1);
19006     arg3K0 = (Scode_pointerS);
19007     goto L36269;}
19008   else {
19009     arg0K0 = (PS_SHIFT_RIGHT_INLINE(x_2335X, 1));
19010     arg0K1 = (count_2336X + (1 & x_2335X));
19011     goto L50884;}}
19012  L50969: {
19013   val_2337X = integer_bitwise_and(arg2_1393X, y_1394X);
19014   SvalS = val_2337X;
19015   Scode_pointerS = ((Scode_pointerS) + 1);
19016   arg3K0 = (Scode_pointerS);
19017   goto L36269;}
19018  L51132: {
19019   val_2338X = integer_bitwise_ior(arg2_1395X, y_1396X);
19020   SvalS = val_2338X;
19021   Scode_pointerS = ((Scode_pointerS) + 1);
19022   arg3K0 = (Scode_pointerS);
19023   goto L36269;}
19024  L51295: {
19025   val_2339X = integer_bitwise_xor(arg2_1397X, y_1398X);
19026   SvalS = val_2339X;
19027   Scode_pointerS = ((Scode_pointerS) + 1);
19028   arg3K0 = (Scode_pointerS);
19029   goto L36269;}
19030  L59310: {
19031   v_2340X = (char *) s48_long_to_bignum(result_2029X);
19032   v_2341X = enter_bignum(v_2340X);
19033   arg0K0 = v_2341X;
19034   goto L59305;}
19035  L59305: {
19036   val_2342X = arg0K0;
19037   SvalS = val_2342X;
19038   Scode_pointerS = ((Scode_pointerS) + 1);
19039   arg3K0 = (Scode_pointerS);
19040   goto L36269;}
19041  L59201: {
19042   x_2343X = arg0K0;
19043   y_2344X = arg0K1;
19044   y_2345X = PS_SHIFT_RIGHT_INLINE(y_2344X, 2);
19045   merged_arg0K0 = x_2343X;
19046   merged_arg0K1 = y_2345X;
19047 #ifdef USE_DIRECT_THREADING
19048   shift_space_return_address = &&shift_space_return_1;
19049 #else
19050   shift_space_return_tag = 1;
19051 #endif
19052   goto shift_space;
19053  shift_space_return_1:
19054   needed_2346X = shift_space0_return_value;
19055   Stemp0S = x_2343X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE(needed_2346X, 3)));
19056   value_2347X = Stemp0S;
19057   Stemp0S = 1;
19058   if ((0 == (3 & value_2347X))) {
19059     v_2348X = (char *) s48_long_to_bignum((PS_SHIFT_RIGHT_INLINE(value_2347X, 2)));
19060     arg3K0 = v_2348X;
19061     goto L59277;}
19062   else {
19063     arg3K0 = (((char *) (-3 + value_2347X)));
19064     goto L59277;}}
19065  L59332: {
19066   v_2349X = (char *) s48_long_to_bignum(result_2029X);
19067   v_2350X = enter_bignum(v_2349X);
19068   arg0K0 = v_2350X;
19069   goto L59327;}
19070  L59327: {
19071   val_2351X = arg0K0;
19072   SvalS = val_2351X;
19073   Scode_pointerS = ((Scode_pointerS) + 1);
19074   arg3K0 = (Scode_pointerS);
19075   goto L36269;}
19076  L59354: {
19077   v_2352X = (char *) s48_long_to_bignum(x_2032X);
19078   v_2353X = enter_bignum(v_2352X);
19079   arg0K0 = v_2353X;
19080   goto L59349;}
19081  L59349: {
19082   val_2354X = arg0K0;
19083   SvalS = val_2354X;
19084   Scode_pointerS = ((Scode_pointerS) + 1);
19085   arg3K0 = (Scode_pointerS);
19086   goto L36269;}
19087  L59385: {
19088   x_2355X = arg3K0;
19089   external_bignum_2356X = (char *) s48_bignum_arithmetic_shift(x_2355X, y_2033X);
19090   v_2357X = s48_bignum_fits_in_word_p(external_bignum_2356X, 62, 1);
19091   if (v_2357X) {
19092     n_2358X = s48_bignum_to_long(external_bignum_2356X);
19093     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_2358X, 2));
19094     goto L59209;}
19095   else {
19096     v_2359X = enter_bignum(external_bignum_2356X);
19097     arg0K0 = v_2359X;
19098     goto L59209;}}
19099  L59210: {
19100 push_exception_setupB(5, 1);
19101   SstackS = ((SstackS) + -8);
19102   *((long *) (SstackS)) = (long) (arg2_1399X);
19103   SstackS = ((SstackS) + -8);
19104   *((long *) (SstackS)) = (long) (y_1400X);
19105   arg0K0 = 2;
19106   goto L33828;}
19107  L39415: {
19108   i_2360X = arg0K0;
19109   rest_list_2361X = arg0K1;
19110   if ((25 == rest_list_2361X)) {
19111     SvalS = new_1428X;
19112     Scode_pointerS = ((Scode_pointerS) + 2);
19113     arg3K0 = (Scode_pointerS);
19114     goto L36269;}
19115   else {
19116     *((long *) ((((char *) (-3 + new_1428X))) + (PS_SHIFT_LEFT_INLINE(i_2360X, 3)))) = (long) ((*((long *) (((char *) (-3 + rest_list_2361X))))));
19117     arg0K0 = (1 + i_2360X);
19118     arg0K1 = (*((long *) ((((char *) (-3 + rest_list_2361X))) + 8)));
19119     goto L39415;}}
19120  L39852: {
19121   i_2362X = arg0K0;
19122   if ((i_2362X < 0)) {
19123     SvalS = x_2050X;
19124     Scode_pointerS = ((Scode_pointerS) + 2);
19125     arg3K0 = (Scode_pointerS);
19126     goto L36269;}
19127   else {
19128     addr_2363X = (((char *) (-3 + x_2050X))) + (PS_SHIFT_LEFT_INLINE(i_2362X, 3));S48_WRITE_BARRIER(x_2050X, addr_2363X, value_2051X);
19129     *((long *) addr_2363X) = (long) (value_2051X);
19130     arg0K0 = (-1 + i_2362X);
19131     goto L39852;}}
19132  L51632: {
19133   i_2364X = arg0K0;
19134   if ((i_2364X < 0)) {
19135     SvalS = vector_2055X;
19136     Scode_pointerS = ((Scode_pointerS) + 1);
19137     arg3K0 = (Scode_pointerS);
19138     goto L36269;}
19139   else {
19140     *((unsigned char *) ((((char *) (-3 + vector_2055X))) + i_2364X)) = (unsigned char) (init_1463X);
19141     arg0K0 = (-1 + i_2364X);
19142     goto L51632;}}
19143  L51843: {
19144   i_2365X = arg0K0;
19145   if ((i_2365X < 0)) {
19146     SvalS = vector_2059X;
19147     Scode_pointerS = ((Scode_pointerS) + 1);
19148     arg3K0 = (Scode_pointerS);
19149     goto L36269;}
19150   else {
19151     *((unsigned char *) ((((char *) (-3 + vector_2059X))) + i_2365X)) = (unsigned char) (init_1477X);
19152     arg0K0 = (-1 + i_2365X);
19153     goto L51843;}}
19154  L52062: {
19155   i_2366X = arg0K0;
19156   if ((i_2366X < 0)) {
19157     SvalS = vector_2060X;
19158     Scode_pointerS = ((Scode_pointerS) + 1);
19159     arg3K0 = (Scode_pointerS);
19160     goto L36269;}
19161   else {
19162     arg0K0 = 0;
19163     arg0K1 = 0;
19164     arg0K2 = init_1483X;
19165     goto L52136;}}
19166  L30798: {
19167   foo_2367X = arg0K0;
19168   if ((1 == foo_2367X)) {
19169     if ((3 == (3 & bucket_2073X))) {
19170       arg0K0 = (-4 & bucket_2073X);
19171       goto L30803;}
19172     else {
19173       arg0K0 = bucket_2073X;
19174       goto L30803;}}
19175   else {
19176     s2_2368X = *((long *) (((char *) (-3 + foo_2367X))));
19177     len_2369X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + string_1507X))))), 8);
19178     if ((len_2369X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s2_2368X))))), 8)))) {
19179       if (((!memcmp((void *)(((char *) (-3 + s2_2368X))), (void *)(((char *) (-3 + string_1507X))),len_2369X)))) {
19180         arg0K0 = foo_2367X;
19181         goto L47866;}
19182       else {
19183         goto L30818;}}
19184     else {
19185       goto L30818;}}}
19186  L57547: {
19187   SvalS = 13;
19188   Scode_pointerS = ((Scode_pointerS) + 1);
19189   arg3K0 = (Scode_pointerS);
19190   goto L36269;}
19191  L52252: {
19192   index_2370X = arg0K0;
19193   temp_2371X = index_2370X < (Snumber_of_channelsS);
19194   if (temp_2371X) {
19195     goto L52367;}
19196   else {
19197     x_2372X = add_more_channels(index_2370X);
19198     if (x_2372X) {
19199       goto L52367;}
19200     else {
19201       arg0K0 = 1;
19202       arg0K1 = 10;
19203       goto L52256;}}}
19204  L52314: {
19205   v_2373X = ps_open_fd(filename_2081X, 1, &v_2374X);
19206   arg0K0 = v_2373X;
19207   arg0K1 = v_2374X;
19208   goto L52323;}
19209  L52323: {
19210   channel_2375X = arg0K0;
19211   status_2376X = arg0K1;
19212   if ((status_2376X == NO_ERRORS)) {
19213     arg0K0 = channel_2375X;
19214     goto L52252;}
19215   else {push_exception_setupB(25, 1);
19216     SstackS = ((SstackS) + -8);
19217     *((long *) (SstackS)) = (long) (arg4_1520X);
19218     SstackS = ((SstackS) + -8);
19219     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
19220     SstackS = ((SstackS) + -8);
19221     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(status_2376X, 2)));
19222     arg0K0 = 3;
19223     goto L33828;}}
19224  L61105: {
19225   waitP_2377X = arg4K0;
19226   start_2378X = PS_SHIFT_RIGHT_INLINE(arg3_1528X, 2);
19227   count_2379X = PS_SHIFT_RIGHT_INLINE(arg2_1527X, 2);
19228   v_2380X = 4 == (*((long *) (((char *) (-3 + arg5_1530X)))));
19229   if (v_2380X) {
19230     if ((3 == (3 & arg4_1529X))) {
19231       if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1529X))))), 2))))) {
19232         if ((3 == (3 & arg4_1529X))) {
19233           if ((0 == (128 & (*((long *) (((char *) (-11 + arg4_1529X)))))))) {
19234             if (((PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg4_1529X))))), 8)) < (start_2378X + count_2379X))) {
19235               goto L52777;}
19236             else {
19237               got_2381X = ps_read_fd((PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + arg5_1530X))) + 16))), 2)), ((((char *) (-3 + arg4_1529X))) + start_2378X), count_2379X, waitP_2377X, &eofP_2382X, &pendingP_2383X, &status_2384X);
19238               if ((status_2384X == NO_ERRORS)) {
19239                 if (eofP_2382X) {
19240                   if (pendingP_2383X) {
19241                     addr_2385X = (((char *) (-3 + arg5_1530X))) + 40;S48_WRITE_BARRIER(arg5_1530X, addr_2385X, 5);
19242                     *((long *) addr_2385X) = (long) (5);
19243                     arg0K0 = 21;
19244                     goto L52776;}
19245                   else {
19246                     arg0K0 = 21;
19247                     goto L52776;}}
19248                 else {
19249                   if (pendingP_2383X) {
19250                     addr_2386X = (((char *) (-3 + arg5_1530X))) + 40;S48_WRITE_BARRIER(arg5_1530X, addr_2386X, 5);
19251                     *((long *) addr_2386X) = (long) (5);
19252                     arg0K0 = 1;
19253                     goto L52776;}
19254                   else {
19255                     arg0K0 = (PS_SHIFT_LEFT_INLINE(got_2381X, 2));
19256                     goto L52776;}}}
19257               else {
19258                 addr_2387X = s48_allocate_small(16);
19259                 *((long *) addr_2387X) = (long) (2070);
19260                 x_2388X = 3 + (((long) (addr_2387X + 8)));
19261                 *((long *) (((char *) (-3 + x_2388X)))) = (long) ((PS_SHIFT_LEFT_INLINE(status_2384X, 2)));
19262                 arg0K0 = x_2388X;
19263                 goto L52776;}}}
19264           else {
19265             goto L52777;}}
19266         else {
19267           goto L52777;}}
19268       else {
19269         goto L52777;}}
19270     else {
19271       goto L52777;}}
19272   else {
19273     goto L52777;}}
19274  L17701: {
19275   arg0K0 = (*((long *) ((((char *) (-3 + channel_1553X))) + 40)));
19276   goto L61457;}
19277  L17731: {
19278   val_2389X = *((long *) ((((char *) (-3 + ch_2093X))) + 32));
19279   addr_2390X = (((char *) (-3 + prev_2094X))) + 32;S48_WRITE_BARRIER(prev_2094X, addr_2390X, val_2389X);
19280   *((long *) addr_2390X) = (long) (val_2389X);
19281   addr_2391X = (((char *) (-3 + ch_2093X))) + 32;S48_WRITE_BARRIER(ch_2093X, addr_2391X, 1);
19282   *((long *) addr_2391X) = (long) (1);
19283   arg0K0 = (*((long *) ((((char *) (-3 + ch_2093X))) + 40)));
19284   goto L61457;}
19285  L24835: {
19286   v_2392X = arg0K0;
19287   arg0K0 = (-1 + i_2099X);
19288   arg0K1 = v_2392X;
19289   goto L24821;}
19290  L53336: {
19291   if ((1 == proposal_1562X)) {
19292     goto L53348;}
19293   else {
19294     addr_2393X = ((char *) (-3 + proposal_1562X));S48_WRITE_BARRIER(proposal_1562X, addr_2393X, 5);
19295     *((long *) addr_2393X) = (long) (5);
19296     goto L53348;}}
19297  L15047: {
19298   i_2394X = arg0K0;
19299   stob_2395X = *((long *) ((((char *) (-3 + log_2108X))) + (PS_SHIFT_LEFT_INLINE(i_2394X, 3))));
19300   if ((1 == stob_2395X)) {
19301     copies_2396X = *((long *) ((((char *) (-3 + proposal_1563X))) + 24));
19302     arg0K0 = copies_2396X;
19303     goto L53699;}
19304   else {
19305     value_2397X = *((long *) ((((char *) (-3 + log_2108X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2394X, 3)))));
19306     verify_2398X = *((long *) ((((char *) (-3 + log_2108X))) + (24 + (PS_SHIFT_LEFT_INLINE(i_2394X, 3)))));
19307     if ((29 == verify_2398X)) {
19308       if ((3 == (3 & stob_2395X))) {
19309         if ((0 == (128 & (*((long *) (((char *) (-11 + stob_2395X)))))))) {
19310           goto L15099;}
19311         else {
19312           goto L53599;}}
19313       else {
19314         goto L53599;}}
19315     else {
19316       if ((verify_2398X == (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((((char *) (-3 + stob_2395X))) + (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + log_2108X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2394X, 3)))))), 2))))), 2)))) {
19317         if ((verify_2398X == value_2397X)) {
19318           goto L15099;}
19319         else {
19320           if ((3 == (3 & stob_2395X))) {
19321             if ((0 == (128 & (*((long *) (((char *) (-11 + stob_2395X)))))))) {
19322               goto L15099;}
19323             else {
19324               goto L53599;}}
19325           else {
19326             goto L53599;}}}
19327       else {
19328         goto L53599;}}}}
19329  L14861: {
19330   arg0K0 = (4 + i_2106X);
19331   goto L14809;}
19332  L53599: {
19333 RELEASE_PROPOSAL_LOCK();
19334   x_2399X = Scurrent_threadS;
19335   addr_2400X = (((char *) (-3 + x_2399X))) + 24;S48_WRITE_BARRIER(x_2399X, addr_2400X, 1);
19336   *((long *) addr_2400X) = (long) (1);
19337   SvalS = 1;
19338   Scode_pointerS = ((Scode_pointerS) + 1);
19339   arg3K0 = (Scode_pointerS);
19340   goto L36269;}
19341  L16501: {
19342   vector_2401X = arg0K0;
19343   if ((1 == vector_2401X)) {
19344     ps_error("Out of space, unable to allocate", 0);
19345     arg0K0 = vector_2401X;
19346     goto L16464;}
19347   else {
19348     arg0K0 = vector_2401X;
19349     goto L16464;}}
19350  L24584: {
19351   arg0K0 = (4 + i_2120X);
19352   goto L24562;}
19353  L24758: {
19354   arg0K0 = (4 + i_2124X);
19355   goto L24738;}
19356  L62812: {
19357   minutesP_2402X = arg4K0;
19358 #ifdef USE_DIRECT_THREADING
19359   pending_interruptP_return_address = &&pending_interruptP_return_6;
19360 #else
19361   pending_interruptP_return_tag = 6;
19362 #endif
19363   goto pending_interruptP;
19364  pending_interruptP_return_6:
19365   x_2403X = pending_interruptP0_return_value;
19366   if (x_2403X) {
19367     goto L62842;}
19368   else {
19369     if ((0 == (Spending_interruptsS))) {s48_wait_for_event((PS_SHIFT_RIGHT_INLINE(arg2_1655X, 2)), minutesP_2402X);
19370       goto L62842;}
19371     else {
19372       goto L62842;}}}
19373  L42163: {
19374 push_exception_setupB(5, 1);
19375   SstackS = ((SstackS) + -8);
19376   *((long *) (SstackS)) = (long) (proc_2143X);
19377   SstackS = ((SstackS) + -8);
19378   *((long *) (SstackS)) = (long) (name_2142X);
19379   arg0K0 = 2;
19380   goto L33828;}
19381  L42464: {
19382 push_exception_setupB(5, 1);
19383   SstackS = ((SstackS) + -8);
19384   *((long *) (SstackS)) = (long) (proc_2149X);
19385   SstackS = ((SstackS) + -8);
19386   *((long *) (SstackS)) = (long) (name_2148X);
19387   arg0K0 = 2;
19388   goto L33828;}
19389  L61712: {
19390   val_2404X = arg0K0;
19391   SvalS = val_2404X;
19392   Scode_pointerS = ((Scode_pointerS) + 1);
19393   arg3K0 = (Scode_pointerS);
19394   goto L36269;}
19395  L46087: {
19396   table_2405X = arg0K0;
19397   v_2406X = Haction5350(arg2_1669X);
19398   index_2407X = 1023 & v_2406X;
19399   link_2408X = *((long *) ((((char *) (-3 + table_2405X))) + (PS_SHIFT_LEFT_INLINE(index_2407X, 3))));
19400   if ((0 == (3 & link_2408X))) {
19401     arg0K0 = (3 + (-4 & link_2408X));
19402     goto L30296;}
19403   else {
19404     arg0K0 = link_2408X;
19405     goto L30296;}}
19406  L65392: {
19407   x_2409X = arg0K0;
19408   SvalS = (PS_SHIFT_LEFT_INLINE(x_2409X, 2));
19409   Scode_pointerS = ((Scode_pointerS) + 1);
19410   arg3K0 = (Scode_pointerS);
19411   goto L36269;}
19412  L68213: {
19413   SvalS = 13;
19414   Scode_pointerS = ((Scode_pointerS) + 1);
19415   arg3K0 = (Scode_pointerS);
19416   goto L36269;}
19417  L54166: {
19418   l_2410X = arg0K0;
19419   i_2411X = arg0K1;
19420   if ((i_2411X < 0)) {
19421     SvalS = obj_2170X;
19422     Scode_pointerS = ((Scode_pointerS) + 1);
19423     arg3K0 = (Scode_pointerS);
19424     goto L36269;}
19425   else {
19426     d_2412X = *((long *) (((char *) (-3 + l_2410X))));
19427     arg0K0 = 0;
19428     arg0K1 = 0;
19429     arg0K2 = (PS_SHIFT_RIGHT_INLINE(d_2412X, 8));
19430     goto L54237;}}
19431  L42538: {
19432 push_exception_setupB(8, 2);
19433   SstackS = ((SstackS) + -8);
19434   *((long *) (SstackS)) = (long) (arg3_1722X);
19435   SstackS = ((SstackS) + -8);
19436   *((long *) (SstackS)) = (long) (arg2_1721X);
19437   SstackS = ((SstackS) + -8);
19438   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1723X, 2)));
19439   arg0K0 = 3;
19440   goto L33828;}
19441  L42528: {
19442   arg0K0 = (*((long *) ((((char *) (-3 + arg3_1722X))) + (PS_SHIFT_LEFT_INLINE(index_1723X, 3)))));
19443   goto L42537;}
19444  L42537: {
19445   value_2413X = arg0K0;
19446   SvalS = value_2413X;
19447   Scode_pointerS = ((Scode_pointerS) + 2);
19448   arg3K0 = (Scode_pointerS);
19449   goto L36269;}
19450  L42826: {
19451 push_exception_setupB(8, 2);
19452   SstackS = ((SstackS) + -8);
19453   *((long *) (SstackS)) = (long) (arg4_1729X);
19454   SstackS = ((SstackS) + -8);
19455   *((long *) (SstackS)) = (long) (arg3_1728X);
19456   SstackS = ((SstackS) + -8);
19457   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1730X, 2)));
19458   SstackS = ((SstackS) + -8);
19459   *((long *) (SstackS)) = (long) (value_1731X);
19460   arg0K0 = 4;
19461   goto L33828;}
19462  L42816: {
19463   addr_2414X = (((char *) (-3 + arg4_1729X))) + (PS_SHIFT_LEFT_INLINE(index_1730X, 3));S48_WRITE_BARRIER(arg4_1729X, addr_2414X, value_1731X);
19464   *((long *) addr_2414X) = (long) (value_1731X);
19465   goto L42825;}
19466  L42825: {
19467   SvalS = 13;
19468   Scode_pointerS = ((Scode_pointerS) + 2);
19469   arg3K0 = (Scode_pointerS);
19470   goto L36269;}
19471  L42781: {
19472 push_exception_setupB(6, 2);
19473   SstackS = ((SstackS) + -8);
19474   *((long *) (SstackS)) = (long) (arg4_1729X);
19475   SstackS = ((SstackS) + -8);
19476   *((long *) (SstackS)) = (long) (arg3_1728X);
19477   SstackS = ((SstackS) + -8);
19478   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(index_1730X, 2)));
19479   SstackS = ((SstackS) + -8);
19480   *((long *) (SstackS)) = (long) (value_1731X);
19481   arg0K0 = 4;
19482   goto L33828;}
19483  L34515: {
19484   x_2415X = arg0K0;
19485   SstackS = ((SstackS) + -8);
19486   *((long *) (SstackS)) = (long) (x_2415X);
19487   if (okP_2184X) {
19488     arg0K0 = (PS_SHIFT_LEFT_INLINE(count_2186X, 2));
19489     goto L34525;}
19490   else {
19491     arg0K0 = 1;
19492     goto L34525;}}
19493  L34878: {
19494   x_2416X = arg0K0;
19495   SstackS = ((SstackS) + -8);
19496   *((long *) (SstackS)) = (long) (x_2416X);
19497   if (okP_2190X) {
19498     arg0K0 = (PS_SHIFT_LEFT_INLINE(count_2193X, 2));
19499     goto L34888;}
19500   else {
19501     arg0K0 = 1;
19502     goto L34888;}}
19503  L43187: {
19504 push_exception_setupB(5, 2);
19505   SstackS = ((SstackS) + -8);
19506   *((long *) (SstackS)) = (long) (port_2196X);
19507   arg0K0 = 1;
19508   goto L33828;}
19509  L43389: {
19510 push_exception_setupB(5, 2);
19511   SstackS = ((SstackS) + -8);
19512   *((long *) (SstackS)) = (long) (port_2203X);
19513   arg0K0 = 1;
19514   goto L33828;}
19515  L43604: {
19516 push_exception_setupB(5, 2);
19517   SstackS = ((SstackS) + -8);
19518   *((long *) (SstackS)) = (long) (byte_2208X);
19519   SstackS = ((SstackS) + -8);
19520   *((long *) (SstackS)) = (long) (port_2209X);
19521   arg0K0 = 2;
19522   goto L33828;}
19523  L43969: {
19524 push_exception_setupB(5, 2);
19525   SstackS = ((SstackS) + -8);
19526   *((long *) (SstackS)) = (long) (port_2215X);
19527   arg0K0 = 1;
19528   goto L33828;}
19529  L43825: {
19530   i_2417X = arg0K0;
19531   p_2418X = *((long *) ((((char *) (-3 + port_2215X))) + 64));
19532   codec_2419X = *((long *) ((((char *) (-3 + port_2215X))) + 8));
19533   l_2420X = PS_SHIFT_RIGHT_INLINE(p_2418X, 2);
19534   if ((i_2417X == l_2420X)) {
19535     val_2421X = PS_SHIFT_LEFT_INLINE(i_2417X, 2);
19536     addr_2422X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2422X, val_2421X);
19537     *((long *) addr_2422X) = (long) (val_2421X);push_exception_setupB(14, 2);
19538     SstackS = ((SstackS) + -8);
19539     *((long *) (SstackS)) = (long) (port_2215X);
19540     arg0K0 = 1;
19541     goto L33828;}
19542   else {
19543     if ((0 == (3 & codec_2419X))) {
19544       encoding_2423X = PS_SHIFT_RIGHT_INLINE(codec_2419X, 2);
19545       buffer_2424X = (((char *) (-3 + b_2216X))) + i_2417X;
19546       count_2425X = l_2420X - i_2417X;
19547       if ((0 == encoding_2423X)) {
19548         arg4K0 = 1;
19549         arg4K1 = 1;
19550         arg4K2 = 0;
19551         arg0K3 = (*((unsigned char *) buffer_2424X));
19552         arg0K4 = 1;
19553         goto L43870;}
19554       else {
19555         if ((1 == encoding_2423X)) {
19556           arg4K0 = 1;
19557           arg4K1 = 1;
19558           arg4K2 = 0;
19559           arg0K3 = (*((unsigned char *) buffer_2424X));
19560           arg0K4 = 1;
19561           goto L43870;}
19562         else {
19563           if ((2 == encoding_2423X)) {
19564             okP_2426X = decode_scalar_valueUutf_8(buffer_2424X, count_2425X, &incompleteP_2427X, &value_2428X, &count_2429X);
19565             arg4K0 = 1;
19566             arg4K1 = okP_2426X;
19567             arg4K2 = incompleteP_2427X;
19568             arg0K3 = value_2428X;
19569             arg0K4 = count_2429X;
19570             goto L43870;}
19571           else {
19572             if ((3 == encoding_2423X)) {
19573               okP_2430X = decode_scalar_valueUutf_16le(buffer_2424X, count_2425X, &incompleteP_2431X, &value_2432X, &count_2433X);
19574               arg4K0 = 1;
19575               arg4K1 = okP_2430X;
19576               arg4K2 = incompleteP_2431X;
19577               arg0K3 = value_2432X;
19578               arg0K4 = count_2433X;
19579               goto L43870;}
19580             else {
19581               if ((4 == encoding_2423X)) {
19582                 okP_2434X = decode_scalar_valueUutf_16be(buffer_2424X, count_2425X, &incompleteP_2435X, &value_2436X, &count_2437X);
19583                 arg4K0 = 1;
19584                 arg4K1 = okP_2434X;
19585                 arg4K2 = incompleteP_2435X;
19586                 arg0K3 = value_2436X;
19587                 arg0K4 = count_2437X;
19588                 goto L43870;}
19589               else {
19590                 if ((5 == encoding_2423X)) {
19591                   if ((count_2425X < 4)) {
19592                     arg4K0 = 1;
19593                     arg4K1 = 1;
19594                     arg4K2 = 1;
19595                     arg0K3 = 0;
19596                     arg0K4 = 4;
19597                     goto L43870;}
19598                   else {
19599                     code_point_2438X = (((*((unsigned char *) buffer_2424X)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2424X + 1))), 8))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2424X + 2))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2424X + 3))), 24));
19600                     if ((code_point_2438X < 0)) {
19601                       arg4K0 = 1;
19602                       arg4K1 = 0;
19603                       arg4K2 = 0;
19604                       arg0K3 = 0;
19605                       arg0K4 = 0;
19606                       goto L43870;}
19607                     else {
19608                       if ((55295 < code_point_2438X)) {
19609                         if ((code_point_2438X < 57344)) {
19610                           arg4K0 = 1;
19611                           arg4K1 = 0;
19612                           arg4K2 = 0;
19613                           arg0K3 = 0;
19614                           arg0K4 = 0;
19615                           goto L43870;}
19616                         else {
19617                           if ((1114111 < code_point_2438X)) {
19618                             arg4K0 = 1;
19619                             arg4K1 = 0;
19620                             arg4K2 = 0;
19621                             arg0K3 = 0;
19622                             arg0K4 = 0;
19623                             goto L43870;}
19624                           else {
19625                             arg4K0 = 1;
19626                             arg4K1 = 1;
19627                             arg4K2 = 0;
19628                             arg0K3 = code_point_2438X;
19629                             arg0K4 = 4;
19630                             goto L43870;}}}
19631                       else {
19632                         arg4K0 = 1;
19633                         arg4K1 = 1;
19634                         arg4K2 = 0;
19635                         arg0K3 = code_point_2438X;
19636                         arg0K4 = 4;
19637                         goto L43870;}}}}
19638                 else {
19639                   if ((6 == encoding_2423X)) {
19640                     if ((count_2425X < 4)) {
19641                       arg4K0 = 1;
19642                       arg4K1 = 1;
19643                       arg4K2 = 1;
19644                       arg0K3 = 0;
19645                       arg0K4 = 4;
19646                       goto L43870;}
19647                     else {
19648                       code_point_2439X = (((PS_SHIFT_LEFT_INLINE((*((unsigned char *) buffer_2424X)), 24)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2424X + 1))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2424X + 2))), 8))) + (*((unsigned char *) (buffer_2424X + 3)));
19649                       if ((code_point_2439X < 0)) {
19650                         arg4K0 = 1;
19651                         arg4K1 = 0;
19652                         arg4K2 = 0;
19653                         arg0K3 = 0;
19654                         arg0K4 = 0;
19655                         goto L43870;}
19656                       else {
19657                         if ((55295 < code_point_2439X)) {
19658                           if ((code_point_2439X < 57344)) {
19659                             arg4K0 = 1;
19660                             arg4K1 = 0;
19661                             arg4K2 = 0;
19662                             arg0K3 = 0;
19663                             arg0K4 = 0;
19664                             goto L43870;}
19665                           else {
19666                             if ((1114111 < code_point_2439X)) {
19667                               arg4K0 = 1;
19668                               arg4K1 = 0;
19669                               arg4K2 = 0;
19670                               arg0K3 = 0;
19671                               arg0K4 = 0;
19672                               goto L43870;}
19673                             else {
19674                               arg4K0 = 1;
19675                               arg4K1 = 1;
19676                               arg4K2 = 0;
19677                               arg0K3 = code_point_2439X;
19678                               arg0K4 = 4;
19679                               goto L43870;}}}
19680                         else {
19681                           arg4K0 = 1;
19682                           arg4K1 = 1;
19683                           arg4K2 = 0;
19684                           arg0K3 = code_point_2439X;
19685                           arg0K4 = 4;
19686                           goto L43870;}}}}
19687                   else {
19688                     arg4K0 = 0;
19689                     arg4K1 = 0;
19690                     arg4K2 = 0;
19691                     arg0K3 = 0;
19692                     arg0K4 = 0;
19693                     goto L43870;}}}}}}}}
19694     else {
19695       val_2440X = PS_SHIFT_LEFT_INLINE(i_2417X, 2);
19696       addr_2441X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2441X, val_2440X);
19697       *((long *) addr_2441X) = (long) (val_2440X);push_exception_setupB(14, 2);
19698       SstackS = ((SstackS) + -8);
19699       *((long *) (SstackS)) = (long) (port_2215X);
19700       arg0K0 = 1;
19701       goto L33828;}}}
19702  L44617: {
19703 push_exception_setupB(5, 2);
19704   SstackS = ((SstackS) + -8);
19705   *((long *) (SstackS)) = (long) (port_2217X);
19706   arg0K0 = 1;
19707   goto L33828;}
19708  L44473: {
19709   i_2442X = arg0K0;
19710   p_2443X = *((long *) ((((char *) (-3 + port_2217X))) + 64));
19711   codec_2444X = *((long *) ((((char *) (-3 + port_2217X))) + 8));
19712   l_2445X = PS_SHIFT_RIGHT_INLINE(p_2443X, 2);
19713   if ((i_2442X == l_2445X)) {push_exception_setupB(14, 2);
19714     SstackS = ((SstackS) + -8);
19715     *((long *) (SstackS)) = (long) (port_2217X);
19716     arg0K0 = 1;
19717     goto L33828;}
19718   else {
19719     if ((0 == (3 & codec_2444X))) {
19720       encoding_2446X = PS_SHIFT_RIGHT_INLINE(codec_2444X, 2);
19721       buffer_2447X = (((char *) (-3 + b_2218X))) + i_2442X;
19722       count_2448X = l_2445X - i_2442X;
19723       if ((0 == encoding_2446X)) {
19724         arg4K0 = 1;
19725         arg4K1 = 1;
19726         arg4K2 = 0;
19727         arg0K3 = (*((unsigned char *) buffer_2447X));
19728         arg0K4 = 1;
19729         goto L44518;}
19730       else {
19731         if ((1 == encoding_2446X)) {
19732           arg4K0 = 1;
19733           arg4K1 = 1;
19734           arg4K2 = 0;
19735           arg0K3 = (*((unsigned char *) buffer_2447X));
19736           arg0K4 = 1;
19737           goto L44518;}
19738         else {
19739           if ((2 == encoding_2446X)) {
19740             okP_2449X = decode_scalar_valueUutf_8(buffer_2447X, count_2448X, &incompleteP_2450X, &value_2451X, &count_2452X);
19741             arg4K0 = 1;
19742             arg4K1 = okP_2449X;
19743             arg4K2 = incompleteP_2450X;
19744             arg0K3 = value_2451X;
19745             arg0K4 = count_2452X;
19746             goto L44518;}
19747           else {
19748             if ((3 == encoding_2446X)) {
19749               okP_2453X = decode_scalar_valueUutf_16le(buffer_2447X, count_2448X, &incompleteP_2454X, &value_2455X, &count_2456X);
19750               arg4K0 = 1;
19751               arg4K1 = okP_2453X;
19752               arg4K2 = incompleteP_2454X;
19753               arg0K3 = value_2455X;
19754               arg0K4 = count_2456X;
19755               goto L44518;}
19756             else {
19757               if ((4 == encoding_2446X)) {
19758                 okP_2457X = decode_scalar_valueUutf_16be(buffer_2447X, count_2448X, &incompleteP_2458X, &value_2459X, &count_2460X);
19759                 arg4K0 = 1;
19760                 arg4K1 = okP_2457X;
19761                 arg4K2 = incompleteP_2458X;
19762                 arg0K3 = value_2459X;
19763                 arg0K4 = count_2460X;
19764                 goto L44518;}
19765               else {
19766                 if ((5 == encoding_2446X)) {
19767                   if ((count_2448X < 4)) {
19768                     arg4K0 = 1;
19769                     arg4K1 = 1;
19770                     arg4K2 = 1;
19771                     arg0K3 = 0;
19772                     arg0K4 = 4;
19773                     goto L44518;}
19774                   else {
19775                     code_point_2461X = (((*((unsigned char *) buffer_2447X)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2447X + 1))), 8))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2447X + 2))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2447X + 3))), 24));
19776                     if ((code_point_2461X < 0)) {
19777                       arg4K0 = 1;
19778                       arg4K1 = 0;
19779                       arg4K2 = 0;
19780                       arg0K3 = 0;
19781                       arg0K4 = 0;
19782                       goto L44518;}
19783                     else {
19784                       if ((55295 < code_point_2461X)) {
19785                         if ((code_point_2461X < 57344)) {
19786                           arg4K0 = 1;
19787                           arg4K1 = 0;
19788                           arg4K2 = 0;
19789                           arg0K3 = 0;
19790                           arg0K4 = 0;
19791                           goto L44518;}
19792                         else {
19793                           if ((1114111 < code_point_2461X)) {
19794                             arg4K0 = 1;
19795                             arg4K1 = 0;
19796                             arg4K2 = 0;
19797                             arg0K3 = 0;
19798                             arg0K4 = 0;
19799                             goto L44518;}
19800                           else {
19801                             arg4K0 = 1;
19802                             arg4K1 = 1;
19803                             arg4K2 = 0;
19804                             arg0K3 = code_point_2461X;
19805                             arg0K4 = 4;
19806                             goto L44518;}}}
19807                       else {
19808                         arg4K0 = 1;
19809                         arg4K1 = 1;
19810                         arg4K2 = 0;
19811                         arg0K3 = code_point_2461X;
19812                         arg0K4 = 4;
19813                         goto L44518;}}}}
19814                 else {
19815                   if ((6 == encoding_2446X)) {
19816                     if ((count_2448X < 4)) {
19817                       arg4K0 = 1;
19818                       arg4K1 = 1;
19819                       arg4K2 = 1;
19820                       arg0K3 = 0;
19821                       arg0K4 = 4;
19822                       goto L44518;}
19823                     else {
19824                       code_point_2462X = (((PS_SHIFT_LEFT_INLINE((*((unsigned char *) buffer_2447X)), 24)) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2447X + 1))), 16))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) (buffer_2447X + 2))), 8))) + (*((unsigned char *) (buffer_2447X + 3)));
19825                       if ((code_point_2462X < 0)) {
19826                         arg4K0 = 1;
19827                         arg4K1 = 0;
19828                         arg4K2 = 0;
19829                         arg0K3 = 0;
19830                         arg0K4 = 0;
19831                         goto L44518;}
19832                       else {
19833                         if ((55295 < code_point_2462X)) {
19834                           if ((code_point_2462X < 57344)) {
19835                             arg4K0 = 1;
19836                             arg4K1 = 0;
19837                             arg4K2 = 0;
19838                             arg0K3 = 0;
19839                             arg0K4 = 0;
19840                             goto L44518;}
19841                           else {
19842                             if ((1114111 < code_point_2462X)) {
19843                               arg4K0 = 1;
19844                               arg4K1 = 0;
19845                               arg4K2 = 0;
19846                               arg0K3 = 0;
19847                               arg0K4 = 0;
19848                               goto L44518;}
19849                             else {
19850                               arg4K0 = 1;
19851                               arg4K1 = 1;
19852                               arg4K2 = 0;
19853                               arg0K3 = code_point_2462X;
19854                               arg0K4 = 4;
19855                               goto L44518;}}}
19856                         else {
19857                           arg4K0 = 1;
19858                           arg4K1 = 1;
19859                           arg4K2 = 0;
19860                           arg0K3 = code_point_2462X;
19861                           arg0K4 = 4;
19862                           goto L44518;}}}}
19863                   else {
19864                     arg4K0 = 0;
19865                     arg4K1 = 0;
19866                     arg4K2 = 0;
19867                     arg0K3 = 0;
19868                     arg0K4 = 0;
19869                     goto L44518;}}}}}}}}
19870     else {push_exception_setupB(14, 2);
19871       SstackS = ((SstackS) + -8);
19872       *((long *) (SstackS)) = (long) (port_2217X);
19873       arg0K0 = 1;
19874       goto L33828;}}}
19875  L45232: {
19876 push_exception_setupB(5, 2);
19877   SstackS = ((SstackS) + -8);
19878   *((long *) (SstackS)) = (long) (Kchar_2219X);
19879   SstackS = ((SstackS) + -8);
19880   *((long *) (SstackS)) = (long) (port_2220X);
19881   arg0K0 = 2;
19882   goto L33828;}
19883  L45178: {
19884   encoding_2463X = PS_SHIFT_RIGHT_INLINE(codec_2221X, 2);
19885   value_2464X = PS_SHIFT_RIGHT_INLINE(Kchar_2219X, 8);
19886   buffer_2465X = (((char *) (-3 + b_2222X))) + i_2223X;
19887   count_2466X = l_2224X - i_2223X;
19888   if ((0 == encoding_2463X)) {
19889     if ((count_2466X < 1)) {
19890       arg4K0 = 1;
19891       arg4K1 = 1;
19892       arg4K2 = 1;
19893       arg0K3 = 1;
19894       goto L45190;}
19895     else {
19896       if ((value_2464X < 128)) {
19897         *((unsigned char *) buffer_2465X) = (unsigned char) (value_2464X);
19898         arg4K0 = 1;
19899         arg4K1 = 1;
19900         arg4K2 = 0;
19901         arg0K3 = 1;
19902         goto L45190;}
19903       else {
19904         arg4K0 = 1;
19905         arg4K1 = 0;
19906         arg4K2 = 0;
19907         arg0K3 = 0;
19908         goto L45190;}}}
19909   else {
19910     if ((1 == encoding_2463X)) {
19911       if ((count_2466X < 1)) {
19912         arg4K0 = 1;
19913         arg4K1 = 1;
19914         arg4K2 = 1;
19915         arg0K3 = 1;
19916         goto L45190;}
19917       else {
19918         if ((value_2464X < 256)) {
19919           *((unsigned char *) buffer_2465X) = (unsigned char) (value_2464X);
19920           arg4K0 = 1;
19921           arg4K1 = 1;
19922           arg4K2 = 0;
19923           arg0K3 = 1;
19924           goto L45190;}
19925         else {
19926           arg4K0 = 1;
19927           arg4K1 = 0;
19928           arg4K2 = 0;
19929           arg0K3 = 0;
19930           goto L45190;}}}
19931     else {
19932       if ((2 == encoding_2463X)) {
19933         encoding_okP_2467X = encode_scalar_valueUutf_8(value_2464X, buffer_2465X, count_2466X, &out_of_spaceP_2468X, &count_2469X);
19934         arg4K0 = 1;
19935         arg4K1 = encoding_okP_2467X;
19936         arg4K2 = out_of_spaceP_2468X;
19937         arg0K3 = count_2469X;
19938         goto L45190;}
19939       else {
19940         if ((3 == encoding_2463X)) {
19941           encoding_okP_2470X = encode_scalar_valueUutf_16le(value_2464X, buffer_2465X, count_2466X, &out_of_spaceP_2471X, &count_2472X);
19942           arg4K0 = 1;
19943           arg4K1 = encoding_okP_2470X;
19944           arg4K2 = out_of_spaceP_2471X;
19945           arg0K3 = count_2472X;
19946           goto L45190;}
19947         else {
19948           if ((4 == encoding_2463X)) {
19949             encoding_okP_2473X = encode_scalar_valueUutf_16be(value_2464X, buffer_2465X, count_2466X, &out_of_spaceP_2474X, &count_2475X);
19950             arg4K0 = 1;
19951             arg4K1 = encoding_okP_2473X;
19952             arg4K2 = out_of_spaceP_2474X;
19953             arg0K3 = count_2475X;
19954             goto L45190;}
19955           else {
19956             if ((5 == encoding_2463X)) {
19957               if ((count_2466X < 4)) {
19958                 arg4K0 = 1;
19959                 arg4K1 = 1;
19960                 arg4K2 = 1;
19961                 arg0K3 = 4;
19962                 goto L45190;}
19963               else {
19964                 *((unsigned char *) buffer_2465X) = (unsigned char) ((255 & value_2464X));
19965                 *((unsigned char *) (buffer_2465X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_2464X), 8)));
19966                 *((unsigned char *) (buffer_2465X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_2464X), 16)));
19967                 *((unsigned char *) (buffer_2465X + 3)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_2464X, 24)));
19968                 arg4K0 = 1;
19969                 arg4K1 = 1;
19970                 arg4K2 = 0;
19971                 arg0K3 = 4;
19972                 goto L45190;}}
19973             else {
19974               if ((6 == encoding_2463X)) {
19975                 if ((count_2466X < 4)) {
19976                   arg4K0 = 1;
19977                   arg4K1 = 1;
19978                   arg4K2 = 1;
19979                   arg0K3 = 4;
19980                   goto L45190;}
19981                 else {
19982                   *((unsigned char *) buffer_2465X) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE(value_2464X, 24)));
19983                   *((unsigned char *) (buffer_2465X + 1)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((16711680 & value_2464X), 16)));
19984                   *((unsigned char *) (buffer_2465X + 2)) = (unsigned char) ((PS_SHIFT_RIGHT_LOGICAL_INLINE((65280 & value_2464X), 8)));
19985                   *((unsigned char *) (buffer_2465X + 3)) = (unsigned char) ((255 & value_2464X));
19986                   arg4K0 = 1;
19987                   arg4K1 = 1;
19988                   arg4K2 = 0;
19989                   arg0K3 = 4;
19990                   goto L45190;}}
19991               else {
19992                 arg4K0 = 0;
19993                 arg4K1 = 0;
19994                 arg4K2 = 0;
19995                 arg0K3 = 0;
19996                 goto L45190;}}}}}}}}
19997  L45113: {
19998   codec_okP_2476X = arg4K0;
19999   encoding_okP_2477X = arg4K1;
20000   out_of_spaceP_2478X = arg4K2;
20001   count_2479X = arg0K3;
20002   if (codec_okP_2476X) {
20003     if (encoding_okP_2477X) {
20004       if (out_of_spaceP_2478X) {push_exception_setupB(14, 2);
20005         SstackS = ((SstackS) + -8);
20006         *((long *) (SstackS)) = (long) (Kchar_2219X);
20007         SstackS = ((SstackS) + -8);
20008         *((long *) (SstackS)) = (long) (port_2220X);
20009         arg0K0 = 2;
20010         goto L33828;}
20011       else {
20012         i_2480X = i_2223X + count_2479X;
20013         if ((i_2480X == l_2224X)) {push_exception_setupB(14, 2);
20014           SstackS = ((SstackS) + -8);
20015           *((long *) (SstackS)) = (long) (Kchar_2219X);
20016           SstackS = ((SstackS) + -8);
20017           *((long *) (SstackS)) = (long) (port_2220X);
20018           arg0K0 = 2;
20019           goto L33828;}
20020         else {
20021           encoding_2481X = PS_SHIFT_RIGHT_INLINE(codec_2221X, 2);
20022           buffer_2482X = (((char *) (-3 + b_2222X))) + i_2480X;
20023           count_2483X = l_2224X - i_2480X;
20024           if ((0 == encoding_2481X)) {
20025             if ((count_2483X < 1)) {
20026               arg4K0 = 1;
20027               arg4K1 = 1;
20028               arg0K2 = 1;
20029               goto L45155;}
20030             else {
20031               *((unsigned char *) buffer_2482X) = (unsigned char) (10);
20032               arg4K0 = 1;
20033               arg4K1 = 0;
20034               arg0K2 = 1;
20035               goto L45155;}}
20036           else {
20037             if ((1 == encoding_2481X)) {
20038               if ((count_2483X < 1)) {
20039                 arg4K0 = 1;
20040                 arg4K1 = 1;
20041                 arg0K2 = 1;
20042                 goto L45155;}
20043               else {
20044                 *((unsigned char *) buffer_2482X) = (unsigned char) (10);
20045                 arg4K0 = 1;
20046                 arg4K1 = 0;
20047                 arg0K2 = 1;
20048                 goto L45155;}}
20049             else {
20050               if ((2 == encoding_2481X)) {
20051                 encoding_okP_2484X = encode_scalar_valueUutf_8(10, buffer_2482X, count_2483X, &out_of_spaceP_2485X, &count_2486X);
20052                 arg4K0 = encoding_okP_2484X;
20053                 arg4K1 = out_of_spaceP_2485X;
20054                 arg0K2 = count_2486X;
20055                 goto L45155;}
20056               else {
20057                 if ((3 == encoding_2481X)) {
20058                   encoding_okP_2487X = encode_scalar_valueUutf_16le(10, buffer_2482X, count_2483X, &out_of_spaceP_2488X, &count_2489X);
20059                   arg4K0 = encoding_okP_2487X;
20060                   arg4K1 = out_of_spaceP_2488X;
20061                   arg0K2 = count_2489X;
20062                   goto L45155;}
20063                 else {
20064                   if ((4 == encoding_2481X)) {
20065                     encoding_okP_2490X = encode_scalar_valueUutf_16be(10, buffer_2482X, count_2483X, &out_of_spaceP_2491X, &count_2492X);
20066                     arg4K0 = encoding_okP_2490X;
20067                     arg4K1 = out_of_spaceP_2491X;
20068                     arg0K2 = count_2492X;
20069                     goto L45155;}
20070                   else {
20071                     if ((5 == encoding_2481X)) {
20072                       if ((count_2483X < 4)) {
20073                         arg4K0 = 1;
20074                         arg4K1 = 1;
20075                         arg0K2 = 4;
20076                         goto L45155;}
20077                       else {
20078                         *((unsigned char *) buffer_2482X) = (unsigned char) (10);
20079                         *((unsigned char *) (buffer_2482X + 1)) = (unsigned char) (0);
20080                         *((unsigned char *) (buffer_2482X + 2)) = (unsigned char) (0);
20081                         *((unsigned char *) (buffer_2482X + 3)) = (unsigned char) (167772160);
20082                         arg4K0 = 1;
20083                         arg4K1 = 0;
20084                         arg0K2 = 4;
20085                         goto L45155;}}
20086                     else {
20087                       if ((6 == encoding_2481X)) {
20088                         if ((count_2483X < 4)) {
20089                           arg4K0 = 1;
20090                           arg4K1 = 1;
20091                           arg0K2 = 4;
20092                           goto L45155;}
20093                         else {
20094                           *((unsigned char *) buffer_2482X) = (unsigned char) (167772160);
20095                           *((unsigned char *) (buffer_2482X + 1)) = (unsigned char) (0);
20096                           *((unsigned char *) (buffer_2482X + 2)) = (unsigned char) (0);
20097                           *((unsigned char *) (buffer_2482X + 3)) = (unsigned char) (10);
20098                           arg4K0 = 1;
20099                           arg4K1 = 0;
20100                           arg0K2 = 4;
20101                           goto L45155;}}
20102                       else {
20103                         arg4K0 = 0;
20104                         arg4K1 = 0;
20105                         arg0K2 = 0;
20106                         goto L45155;}}}}}}}}}}
20107     else {push_exception_setupB(14, 2);
20108       SstackS = ((SstackS) + -8);
20109       *((long *) (SstackS)) = (long) (Kchar_2219X);
20110       SstackS = ((SstackS) + -8);
20111       *((long *) (SstackS)) = (long) (port_2220X);
20112       arg0K0 = 2;
20113       goto L33828;}}
20114   else {push_exception_setupB(5, 2);
20115     SstackS = ((SstackS) + -8);
20116     *((long *) (SstackS)) = (long) (Kchar_2219X);
20117     SstackS = ((SstackS) + -8);
20118     *((long *) (SstackS)) = (long) (port_2220X);
20119     arg0K0 = 2;
20120     goto L33828;}}
20121  L55297: {
20122   i_2493X = arg0K0;
20123   if ((i_2493X < len_1822X)) {
20124     *((unsigned char *) ((((char *) (-3 + vector_2238X))) + i_2493X)) = (unsigned char) ((((unsigned char) (*(raw_1821X + i_2493X)))));
20125     arg0K0 = (1 + i_2493X);
20126     goto L55297;}
20127   else {
20128     SvalS = vector_2238X;
20129     Scode_pointerS = ((Scode_pointerS) + 1);
20130     arg3K0 = (Scode_pointerS);
20131     goto L36269;}}
20132  L57401: {
20133   { long ignoreXX;
20134   PS_WRITE_CHAR(10, out_1826X, ignoreXX) }
20135   SvalS = 13;
20136   Scode_pointerS = ((Scode_pointerS) + 1);
20137   arg3K0 = (Scode_pointerS);
20138   goto L36269;}
20139  L32874: {
20140   SvalS = (*((long *) ((((char *) (-3 + handlers_1829X))) + (PS_SHIFT_LEFT_INLINE(i_1827X, 3)))));
20141   obj_2494X = SvalS;
20142   if ((3 == (3 & obj_2494X))) {
20143     if ((3 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_2494X))))), 2))))) {
20144       goto L32891;}
20145     else {
20146       goto L32930;}}
20147   else {
20148     goto L32930;}}
20149  L32916: {
20150   ps_error("interrupt handler is not a vector", 0);
20151   goto L32874;}
20152  L17912: {
20153   x_2495X = arg0K0;
20154   SstackS = ((SstackS) + -8);
20155   *((long *) (SstackS)) = (long) (x_2495X);
20156   arg0K0 = 3;
20157   goto L32860;}
20158  L17932: {
20159   SstackS = ((SstackS) + -8);
20160   *((long *) (SstackS)) = (long) (channel_2243X);
20161   x_2496X = *((long *) ((((char *) (-3 + channel_2243X))) + 48));
20162   SstackS = ((SstackS) + -8);
20163   *((long *) (SstackS)) = (long) (x_2496X);
20164   x_2497X = *((long *) ((((char *) (-3 + channel_2243X))) + 40));
20165   SstackS = ((SstackS) + -8);
20166   *((long *) (SstackS)) = (long) (x_2497X);
20167   n_2498X = Senabled_interruptsS;
20168   SstackS = ((SstackS) + -8);
20169   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_2498X, 2)));
20170   arg0K0 = 4;
20171   goto L32860;}
20172  L18143: {
20173   v_2499X = arg0K0;
20174   Sos_signal_ring_startS = v_2499X;
20175   SstackS = ((SstackS) + -8);
20176   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(sig_2245X, 2)));
20177   if (((Sos_signal_ring_readyS) == (Sos_signal_ring_startS))) {
20178     goto L17964;}
20179   else {
20180     Spending_interruptsS = (32 | (Spending_interruptsS));
20181     if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
20182       s48_Sstack_limitS = (Sreal_stack_limitS);
20183       if ((s48_Spending_eventsPS)) {
20184         s48_Sstack_limitS = (((char *) -1));
20185         goto L17964;}
20186       else {
20187         goto L17964;}}
20188     else {
20189       s48_Sstack_limitS = (((char *) -1));
20190       goto L17964;}}}
20191  L11499: {
20192   i_2500X = arg0K0;
20193   offset_2501X = arg0K1;
20194   if ((i_2500X == total_count_1866X)) {
20195     arg0K0 = offset_2501X;
20196     goto L71019;}
20197   else {
20198     env_2502X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2501X)))), 3))));
20199     count_2503X = *((unsigned char *) ((Scode_pointerS) + (2 + offset_2501X)));
20200     arg0K0 = count_2503X;
20201     arg0K1 = i_2500X;
20202     arg0K2 = (2 + offset_2501X);
20203     goto L11516;}}
20204  L71019: {
20205   bytes_used_2504X = arg0K0;
20206   SvalS = new_env_1248X;
20207   Scode_pointerS = ((Scode_pointerS) + (1 + bytes_used_2504X));
20208   arg3K0 = (Scode_pointerS);
20209   goto L36269;}
20210  L11849: {
20211   i_2505X = arg0K0;
20212   offset_2506X = arg0K1;
20213   if ((i_2505X == total_count_1877X)) {
20214     arg0K0 = offset_2506X;
20215     goto L71010;}
20216   else {
20217     env_2507X = *((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2506X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + offset_2506X))))), 3))));
20218     index_2508X = 2 + offset_2506X;
20219     count_2509X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + index_2508X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_2508X))));
20220     arg0K0 = count_2509X;
20221     arg0K1 = i_2505X;
20222     arg0K2 = (4 + offset_2506X);
20223     goto L11866;}}
20224  L71010: {
20225   bytes_used_2510X = arg0K0;
20226   SvalS = new_env_1254X;
20227   Scode_pointerS = ((Scode_pointerS) + (1 + bytes_used_2510X));
20228   arg3K0 = (Scode_pointerS);
20229   goto L36269;}
20230  L65885: {
20231   v_2511X = arg0K0;
20232   ScontS = (cont_2263X + (8 + (PS_SHIFT_LEFT_INLINE(v_2511X, 3))));
20233   v_2512X = *((long *) (SstackS));
20234   SstackS = ((SstackS) + 8);
20235   v_2513X = s48_invoke_native_continuation((((long) (((char *) v_2512X)))), protocol_skip_2262X);
20236   arg0K0 = v_2513X;
20237   goto L65742;}
20238  L34205: {
20239   SstackS = (Sbottom_of_stackS);
20240   Sheap_continuationS = 1;
20241   ScontS = (Sbottom_of_stackS);push_exception_setupB(5, 0);
20242   x_2514X = SvalS;
20243   SstackS = ((SstackS) + -8);
20244   *((long *) (SstackS)) = (long) (x_2514X);
20245   SstackS = ((SstackS) + -8);
20246   *((long *) (SstackS)) = (long) (cont_2266X);
20247   arg0K0 = 2;
20248   goto L33828;}
20249  L33369: {
20250   v_2515X = arg0K0;
20251   SvalS = v_2515X;
20252   arg0K0 = cont_1956X;
20253   goto L34190;}
20254  L37739: {
20255   x_2516X = arg0K0;
20256   SstackS = ((SstackS) + -8);
20257   *((long *) (SstackS)) = (long) (x_2516X);
20258   Scode_pointerS = ((Scode_pointerS) + 4);
20259   arg3K0 = (Scode_pointerS);
20260   goto L36269;}
20261  L37721: {
20262   stack_nargs_2517X = arg0K0;
20263   l_2518X = arg0K1;
20264   if ((count_1961X == stack_nargs_2517X)) {
20265     arg0K0 = l_2518X;
20266     goto L37739;}
20267   else {
20268     x_2519X = *((long *) (((char *) (-3 + l_2518X))));
20269     SstackS = ((SstackS) + -8);
20270     *((long *) (SstackS)) = (long) (x_2519X);
20271     arg0K0 = (1 + stack_nargs_2517X);
20272     arg0K1 = (*((long *) ((((char *) (-3 + l_2518X))) + 8)));
20273     goto L37721;}}
20274  L37644: {
20275   loc_2520X = arg3K0;
20276   arg_2521X = arg3K1;
20277   if ((arg_2521X < arg_top_2285X)) {
20278     SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE(stack_nargs_2282X, 3))));
20279     if ((0 == list_arg_count_2284X)) {
20280       goto L37631;}
20281     else {
20282       merged_arg0K0 = list_args_2283X;
20283       merged_arg0K1 = list_arg_count_2284X;
20284 #ifdef USE_DIRECT_THREADING
20285       push_list_return_address = &&push_list_return_3;
20286 #else
20287       push_list_return_tag = 3;
20288 #endif
20289       goto push_list;
20290      push_list_return_3:
20291       goto L37631;}}
20292   else {
20293     *((long *) loc_2520X) = (long) ((*((long *) arg_2521X)));
20294     arg3K0 = (loc_2520X + -8);
20295     arg3K1 = (arg_2521X + -8);
20296     goto L37644;}}
20297  L21103: {
20298   if ((3 == (3 & x_1329X))) {
20299     if ((11 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + x_1329X))))), 2))))) {
20300       arg0K0 = 5;
20301       goto L67464;}
20302     else {
20303       arg0K0 = 1;
20304       goto L67464;}}
20305   else {
20306     arg0K0 = 1;
20307     goto L67464;}}
20308  L56419: {
20309   SvalS = 1;
20310   Scode_pointerS = ((Scode_pointerS) + 1);
20311   arg3K0 = (Scode_pointerS);
20312   goto L36269;}
20313  L56607: {
20314   val_2522X = arg0K0;
20315   SvalS = val_2522X;
20316   Scode_pointerS = ((Scode_pointerS) + 1);
20317   arg3K0 = (Scode_pointerS);
20318   goto L36269;}
20319  L56568: {
20320   if ((3 == (3 & n_1331X))) {
20321     if ((11 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1331X))))), 2))))) {push_exception_setupB(5, 1);
20322       SstackS = ((SstackS) + -8);
20323       *((long *) (SstackS)) = (long) (n_1331X);
20324       arg0K0 = 1;
20325       goto L33828;}
20326     else {
20327       goto L56572;}}
20328   else {
20329     goto L56572;}}
20330  L56788: {
20331   if ((3 == (3 & n_1971X))) {
20332     if ((18 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1971X))))), 2))))) {
20333       goto L56797;}
20334     else {
20335       goto L56798;}}
20336   else {
20337     goto L56798;}}
20338  L12514: {
20339   if ((2305843009213693951 < lo_c_2294X)) {
20340     val_2523X = integer_multiply(arg2_1338X, y_1339X);
20341     SvalS = val_2523X;
20342     Scode_pointerS = ((Scode_pointerS) + 1);
20343     arg3K0 = (Scode_pointerS);
20344     goto L36269;}
20345   else {
20346     if ((lo_c_2294X < 0)) {
20347       val_2524X = integer_multiply(arg2_1338X, y_1339X);
20348       SvalS = val_2524X;
20349       Scode_pointerS = ((Scode_pointerS) + 1);
20350       arg3K0 = (Scode_pointerS);
20351       goto L36269;}
20352     else {
20353       if ((536870912 < mid_c_2297X)) {
20354         val_2525X = integer_multiply(arg2_1338X, y_1339X);
20355         SvalS = val_2525X;
20356         Scode_pointerS = ((Scode_pointerS) + 1);
20357         arg3K0 = (Scode_pointerS);
20358         goto L36269;}
20359       else {
20360         if ((a_1340X < 0)) {
20361           if ((b_1341X < 0)) {s48_make_availableAgc(24);
20362             if ((2305843009213693951 < c_2298X)) {
20363               goto L69031;}
20364             else {
20365               if ((c_2298X < -2305843009213693952)) {
20366                 goto L69031;}
20367               else {
20368                 arg0K0 = (PS_SHIFT_LEFT_INLINE(c_2298X, 2));
20369                 goto L69026;}}}
20370           else {
20371             goto L12542;}}
20372         else {
20373           if ((b_1341X < 0)) {
20374             goto L12542;}
20375           else {s48_make_availableAgc(24);
20376             if ((2305843009213693951 < c_2298X)) {
20377               goto L69053;}
20378             else {
20379               if ((c_2298X < -2305843009213693952)) {
20380                 goto L69053;}
20381               else {
20382                 arg0K0 = (PS_SHIFT_LEFT_INLINE(c_2298X, 2));
20383                 goto L69048;}}}}}}}}
20384  L69134: {
20385   v_2526X = (char *) s48_long_to_bignum(c_2303X);
20386   v_2527X = enter_bignum(v_2526X);
20387   arg0K0 = v_2527X;
20388   goto L69129;}
20389  L69129: {
20390   val_2528X = arg0K0;
20391   SvalS = val_2528X;
20392   Scode_pointerS = ((Scode_pointerS) + 1);
20393   arg3K0 = (Scode_pointerS);
20394   goto L36269;}
20395  L12776: {
20396   x_2529X = 0 - c_2303X;s48_make_availableAgc(24);
20397   if ((2305843009213693951 < x_2529X)) {
20398     goto L69112;}
20399   else {
20400     if ((x_2529X < -2305843009213693952)) {
20401       goto L69112;}
20402     else {
20403       arg0K0 = (PS_SHIFT_LEFT_INLINE(x_2529X, 2));
20404       goto L69107;}}}
20405  L69156: {
20406   v_2530X = (char *) s48_long_to_bignum(c_2303X);
20407   v_2531X = enter_bignum(v_2530X);
20408   arg0K0 = v_2531X;
20409   goto L69151;}
20410  L69151: {
20411   val_2532X = arg0K0;
20412   SvalS = val_2532X;
20413   Scode_pointerS = ((Scode_pointerS) + 1);
20414   arg3K0 = (Scode_pointerS);
20415   goto L36269;}
20416  L58837: {
20417 push_exception_setupB(5, 1);
20418   SstackS = ((SstackS) + -8);
20419   *((long *) (SstackS)) = (long) (x_2308X);
20420   SstackS = ((SstackS) + -8);
20421   *((long *) (SstackS)) = (long) (y_2309X);
20422   arg0K0 = 2;
20423   goto L33828;}
20424  L48563: {
20425   val_2533X = arg0K0;
20426   SvalS = val_2533X;
20427   Scode_pointerS = ((Scode_pointerS) + 1);
20428   arg3K0 = (Scode_pointerS);
20429   goto L36269;}
20430  L48823: {
20431   val_2534X = arg0K0;
20432   SvalS = val_2534X;
20433   Scode_pointerS = ((Scode_pointerS) + 1);
20434   arg3K0 = (Scode_pointerS);
20435   goto L36269;}
20436  L49146: {
20437   val_2535X = arg0K0;
20438   SvalS = val_2535X;
20439   Scode_pointerS = ((Scode_pointerS) + 1);
20440   arg3K0 = (Scode_pointerS);
20441   goto L36269;}
20442  L49469: {
20443   val_2536X = arg0K0;
20444   SvalS = val_2536X;
20445   Scode_pointerS = ((Scode_pointerS) + 1);
20446   arg3K0 = (Scode_pointerS);
20447   goto L36269;}
20448  L49763: {
20449   val_2537X = arg0K0;
20450   SvalS = val_2537X;
20451   Scode_pointerS = ((Scode_pointerS) + 1);
20452   arg3K0 = (Scode_pointerS);
20453   goto L36269;}
20454  L13223: {
20455   if ((2305843009213693951 < c_2325X)) {
20456     val_2538X = Hinteger_op8731(arg2_1359X, y_1360X);
20457     SvalS = val_2538X;
20458     Scode_pointerS = ((Scode_pointerS) + 1);
20459     arg3K0 = (Scode_pointerS);
20460     goto L36269;}
20461   else {
20462     SvalS = (PS_SHIFT_LEFT_INLINE(c_2325X, 2));
20463     Scode_pointerS = ((Scode_pointerS) + 1);
20464     arg3K0 = (Scode_pointerS);
20465     goto L36269;}}
20466  L13222: {
20467   SvalS = (PS_SHIFT_LEFT_INLINE((0 - c_2325X), 2));
20468   Scode_pointerS = ((Scode_pointerS) + 1);
20469   arg3K0 = (Scode_pointerS);
20470   goto L36269;}
20471  L50273: {
20472   n_2539X = arg0K0;
20473   SvalS = (PS_SHIFT_LEFT_INLINE(n_2539X, 2));
20474   Scode_pointerS = ((Scode_pointerS) + 1);
20475   arg3K0 = (Scode_pointerS);
20476   goto L36269;}
20477  L59164: {
20478   v_2540X = (char *) s48_long_to_bignum(x_2330X);
20479   v_2541X = enter_bignum(v_2540X);
20480   arg0K0 = v_2541X;
20481   goto L59159;}
20482  L59159: {
20483   val_2542X = arg0K0;
20484   SvalS = val_2542X;
20485   Scode_pointerS = ((Scode_pointerS) + 1);
20486   arg3K0 = (Scode_pointerS);
20487   goto L36269;}
20488  L26737: {
20489   x_2543X = arg3K0;
20490   v_2544X = s48_bignum_test(x_2543X);
20491   if ((-1 == v_2544X)) {
20492     v_2545X = (char *) s48_bignum_negate(x_2543X);
20493     arg3K0 = v_2545X;
20494     goto L26739;}
20495   else {
20496     arg3K0 = x_2543X;
20497     goto L26739;}}
20498  L59277: {
20499   x_2546X = arg3K0;
20500   external_bignum_2547X = (char *) s48_bignum_arithmetic_shift(x_2546X, y_2345X);
20501   v_2548X = s48_bignum_fits_in_word_p(external_bignum_2547X, 62, 1);
20502   if (v_2548X) {
20503     n_2549X = s48_bignum_to_long(external_bignum_2547X);
20504     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_2549X, 2));
20505     goto L59203;}
20506   else {
20507     v_2550X = enter_bignum(external_bignum_2547X);
20508     arg0K0 = v_2550X;
20509     goto L59203;}}
20510  L59209: {
20511   val_2551X = arg0K0;
20512   SvalS = val_2551X;
20513   Scode_pointerS = ((Scode_pointerS) + 1);
20514   arg3K0 = (Scode_pointerS);
20515   goto L36269;}
20516  L52136: {
20517   bits_2552X = arg0K0;
20518   j_2553X = arg0K1;
20519   shifted_2554X = arg0K2;
20520   if ((j_2553X < 4)) {
20521     *((unsigned char *) ((((char *) (-3 + vector_2060X))) + ((PS_SHIFT_LEFT_INLINE(i_2366X, 2)) + j_2553X))) = (unsigned char) ((255 & shifted_2554X));
20522     arg0K0 = (8 + bits_2552X);
20523     arg0K1 = (1 + j_2553X);
20524     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_2554X, 8));
20525     goto L52136;}
20526   else {
20527     arg0K0 = (-1 + i_2366X);
20528     goto L52062;}}
20529  L30803: {
20530   b_2555X = arg0K0;
20531   addr_2556X = s48_allocate_small(24);
20532   *((long *) addr_2556X) = (long) (4102);
20533   x_2557X = 3 + (((long) (addr_2556X + 8)));
20534   *((long *) (((char *) (-3 + x_2557X)))) = (long) (string_1507X);
20535   *((long *) ((((char *) (-3 + x_2557X))) + 8)) = (long) (b_2555X);
20536   if ((3 == (3 & x_2557X))) {
20537     arg0K0 = (-4 & x_2557X);
20538     goto L30809;}
20539   else {
20540     arg0K0 = x_2557X;
20541     goto L30809;}}
20542  L47866: {
20543   val_2558X = arg0K0;
20544   SvalS = val_2558X;
20545   Scode_pointerS = ((Scode_pointerS) + 1);
20546   arg3K0 = (Scode_pointerS);
20547   goto L36269;}
20548  L30818: {
20549   link_2559X = *((long *) ((((char *) (-3 + foo_2367X))) + 8));
20550   if ((0 == (3 & link_2559X))) {
20551     arg0K0 = (3 + (-4 & link_2559X));
20552     goto L30798;}
20553   else {
20554     arg0K0 = link_2559X;
20555     goto L30798;}}
20556  L52367: {
20557   if ((1 == (*((Svm_channelsS) + index_2370X)))) {
20558     channel_2560X = make_channel((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)), arg3_1519X, (PS_SHIFT_LEFT_INLINE(index_2370X, 2)), close_silentlyP_1522X, 1, 1, 1, 0);
20559     *((Svm_channelsS) + index_2370X) = channel_2560X;
20560     arg0K0 = channel_2560X;
20561     arg0K1 = 10;
20562     goto L52256;}
20563   else {
20564     arg0K0 = 1;
20565     arg0K1 = 12;
20566     goto L52256;}}
20567  L52256: {
20568   channel_2561X = arg0K0;
20569   reason_2562X = arg0K1;
20570   if ((1 == channel_2561X)) {
20571     if ((3 == (3 & arg4_1520X))) {
20572       if ((17 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + arg4_1520X))))), 2))))) {
20573         if ((1 == mode_1521X)) {
20574           goto L52401;}
20575         else {
20576           if ((3 == mode_1521X)) {
20577             goto L52401;}
20578           else {
20579             v_2563X = ps_close_fd(index_2370X);
20580             arg0K0 = v_2563X;
20581             goto L52396;}}}
20582       else {push_exception_setupB(reason_2562X, 1);
20583         SstackS = ((SstackS) + -8);
20584         *((long *) (SstackS)) = (long) (arg4_1520X);
20585         SstackS = ((SstackS) + -8);
20586         *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
20587         arg0K0 = 2;
20588         goto L33828;}}
20589     else {push_exception_setupB(reason_2562X, 1);
20590       SstackS = ((SstackS) + -8);
20591       *((long *) (SstackS)) = (long) (arg4_1520X);
20592       SstackS = ((SstackS) + -8);
20593       *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
20594       arg0K0 = 2;
20595       goto L33828;}}
20596   else {
20597     SvalS = channel_2561X;
20598     Scode_pointerS = ((Scode_pointerS) + 1);
20599     arg3K0 = (Scode_pointerS);
20600     goto L36269;}}
20601  L52777: {
20602 push_exception_setupB(5, 1);
20603   SstackS = ((SstackS) + -8);
20604   *((long *) (SstackS)) = (long) (arg5_1530X);
20605   SstackS = ((SstackS) + -8);
20606   *((long *) (SstackS)) = (long) (arg4_1529X);
20607   SstackS = ((SstackS) + -8);
20608   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(start_2378X, 2)));
20609   SstackS = ((SstackS) + -8);
20610   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(count_2379X, 2)));
20611   if (waitP_2377X) {
20612     arg0K0 = 5;
20613     goto L52793;}
20614   else {
20615     arg0K0 = 1;
20616     goto L52793;}}
20617  L52776: {
20618   val_2564X = arg0K0;
20619   SvalS = val_2564X;
20620   Scode_pointerS = ((Scode_pointerS) + 1);
20621   arg3K0 = (Scode_pointerS);
20622   goto L36269;}
20623  L53348: {
20624   x_2565X = Scurrent_threadS;
20625   addr_2566X = (((char *) (-3 + x_2565X))) + 24;S48_WRITE_BARRIER(x_2565X, addr_2566X, proposal_1562X);
20626   *((long *) addr_2566X) = (long) (proposal_1562X);
20627   SvalS = 13;
20628   Scode_pointerS = ((Scode_pointerS) + 1);
20629   arg3K0 = (Scode_pointerS);
20630   goto L36269;}
20631  L53699: {
20632   copies_2567X = arg0K0;
20633   if ((1 == copies_2567X)) {
20634     log_2568X = *((long *) ((((char *) (-3 + proposal_1563X))) + 8));
20635     arg0K0 = 0;
20636     goto L14508;}
20637   else {
20638     thing_2569X = *((long *) ((((char *) (-3 + copies_2567X))) + 16));
20639     if ((3 == (3 & thing_2569X))) {
20640       if ((0 == (128 & (*((long *) (((char *) (-11 + thing_2569X)))))))) {
20641         arg0K0 = (*((long *) ((((char *) (-3 + copies_2567X))) + 40)));
20642         goto L53699;}
20643       else {
20644         goto L53599;}}
20645     else {
20646       goto L53599;}}}
20647  L15099: {
20648   arg0K0 = (4 + i_2394X);
20649   goto L15047;}
20650  L16464: {
20651   entry_2570X = arg0K0;
20652   proposal_2571X = *((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24));
20653   value_2572X = Stemp0S;
20654   Stemp0S = 1;
20655   addr_2573X = ((char *) (-3 + entry_2570X));S48_WRITE_BARRIER(entry_2570X, addr_2573X, value_2572X);
20656   *((long *) addr_2573X) = (long) (value_2572X);
20657   addr_2574X = (((char *) (-3 + entry_2570X))) + 8;S48_WRITE_BARRIER(entry_2570X, addr_2574X, from_index_2114X);
20658   *((long *) addr_2574X) = (long) (from_index_2114X);
20659   value_2575X = Stemp1S;
20660   Stemp1S = 1;
20661   addr_2576X = (((char *) (-3 + entry_2570X))) + 16;S48_WRITE_BARRIER(entry_2570X, addr_2576X, value_2575X);
20662   *((long *) addr_2576X) = (long) (value_2575X);
20663   addr_2577X = (((char *) (-3 + entry_2570X))) + 24;S48_WRITE_BARRIER(entry_2570X, addr_2577X, to_index_2115X);
20664   *((long *) addr_2577X) = (long) (to_index_2115X);
20665   addr_2578X = (((char *) (-3 + entry_2570X))) + 32;S48_WRITE_BARRIER(entry_2570X, addr_2578X, count_2116X);
20666   *((long *) addr_2578X) = (long) (count_2116X);
20667   value_2579X = *((long *) ((((char *) (-3 + proposal_2571X))) + 24));
20668   addr_2580X = (((char *) (-3 + entry_2570X))) + 40;S48_WRITE_BARRIER(entry_2570X, addr_2580X, value_2579X);
20669   *((long *) addr_2580X) = (long) (value_2579X);
20670   addr_2581X = (((char *) (-3 + proposal_2571X))) + 24;S48_WRITE_BARRIER(proposal_2571X, addr_2581X, entry_2570X);
20671   *((long *) addr_2581X) = (long) (entry_2570X);
20672   SvalS = 13;
20673   Scode_pointerS = ((Scode_pointerS) + 2);
20674   arg3K0 = (Scode_pointerS);
20675   goto L36269;}
20676  L62842: {
20677   SvalS = 13;
20678   Scode_pointerS = ((Scode_pointerS) + 1);
20679   arg3K0 = (Scode_pointerS);
20680   goto L36269;}
20681  L30296: {
20682   bucket_2582X = arg0K0;
20683   arg0K0 = 1;
20684   arg0K1 = bucket_2582X;
20685   goto L30303;}
20686  L54237: {
20687   bits_2583X = arg0K0;
20688   j_2584X = arg0K1;
20689   shifted_2585X = arg0K2;
20690   if ((j_2584X < 4)) {
20691     *((unsigned char *) ((((char *) (-3 + obj_2170X))) + ((PS_SHIFT_LEFT_INLINE(i_2411X, 2)) + j_2584X))) = (unsigned char) ((255 & shifted_2585X));
20692     arg0K0 = (8 + bits_2583X);
20693     arg0K1 = (1 + j_2584X);
20694     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_2585X, 8));
20695     goto L54237;}
20696   else {
20697     arg0K0 = (*((long *) ((((char *) (-3 + l_2410X))) + 8)));
20698     arg0K1 = (-1 + i_2411X);
20699     goto L54166;}}
20700  L34525: {
20701   x_2586X = arg0K0;
20702   SstackS = ((SstackS) + -8);
20703   *((long *) (SstackS)) = (long) (x_2586X);
20704   arg0K0 = 2;
20705   arg0K1 = 25;
20706   arg0K2 = 0;
20707   goto L33256;}
20708  L34888: {
20709   x_2587X = arg0K0;
20710   SstackS = ((SstackS) + -8);
20711   *((long *) (SstackS)) = (long) (x_2587X);
20712   arg0K0 = 2;
20713   arg0K1 = 25;
20714   arg0K2 = 0;
20715   goto L33256;}
20716  L43870: {
20717   encoding_okP_2588X = arg4K0;
20718   okP_2589X = arg4K1;
20719   incompleteP_2590X = arg4K2;
20720   value_2591X = arg0K3;
20721   count_2592X = arg0K4;
20722   if (encoding_okP_2588X) {
20723     if (okP_2589X) {
20724       if (incompleteP_2590X) {
20725         val_2593X = PS_SHIFT_LEFT_INLINE(i_2417X, 2);
20726         addr_2594X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2594X, val_2593X);
20727         *((long *) addr_2594X) = (long) (val_2593X);push_exception_setupB(14, 2);
20728         SstackS = ((SstackS) + -8);
20729         *((long *) (SstackS)) = (long) (port_2215X);
20730         arg0K0 = 1;
20731         goto L33828;}
20732       else {
20733         if ((1 == (*((long *) ((((char *) (-3 + port_2215X))) + 16))))) {
20734           goto L43879;}
20735         else {
20736           if ((13 == value_2591X)) {
20737             addr_2595X = (((char *) (-3 + port_2215X))) + 72;S48_WRITE_BARRIER(port_2215X, addr_2595X, 5);
20738             *((long *) addr_2595X) = (long) (5);
20739             val_2596X = PS_SHIFT_LEFT_INLINE((i_2417X + count_2592X), 2);
20740             addr_2597X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2597X, val_2596X);
20741             *((long *) addr_2597X) = (long) (val_2596X);
20742             SvalS = 2569;
20743             Scode_pointerS = ((Scode_pointerS) + 2);
20744             arg3K0 = (Scode_pointerS);
20745             goto L36269;}
20746           else {
20747             if ((10 == value_2591X)) {
20748               if ((1 == (*((long *) ((((char *) (-3 + port_2215X))) + 72))))) {
20749                 goto L43879;}
20750               else {
20751                 addr_2598X = (((char *) (-3 + port_2215X))) + 72;S48_WRITE_BARRIER(port_2215X, addr_2598X, 1);
20752                 *((long *) addr_2598X) = (long) (1);
20753                 arg0K0 = (i_2417X + count_2592X);
20754                 goto L43825;}}
20755             else {
20756               goto L43879;}}}}}
20757     else {
20758       val_2599X = PS_SHIFT_LEFT_INLINE(i_2417X, 2);
20759       addr_2600X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2600X, val_2599X);
20760       *((long *) addr_2600X) = (long) (val_2599X);push_exception_setupB(14, 2);
20761       SstackS = ((SstackS) + -8);
20762       *((long *) (SstackS)) = (long) (port_2215X);
20763       arg0K0 = 1;
20764       goto L33828;}}
20765   else {push_exception_setupB(5, 2);
20766     SstackS = ((SstackS) + -8);
20767     *((long *) (SstackS)) = (long) (port_2215X);
20768     arg0K0 = 1;
20769     goto L33828;}}
20770  L44518: {
20771   encoding_okP_2601X = arg4K0;
20772   okP_2602X = arg4K1;
20773   incompleteP_2603X = arg4K2;
20774   value_2604X = arg0K3;
20775   count_2605X = arg0K4;
20776   if (encoding_okP_2601X) {
20777     if (okP_2602X) {
20778       if (incompleteP_2603X) {push_exception_setupB(14, 2);
20779         SstackS = ((SstackS) + -8);
20780         *((long *) (SstackS)) = (long) (port_2217X);
20781         arg0K0 = 1;
20782         goto L33828;}
20783       else {
20784         if ((1 == (*((long *) ((((char *) (-3 + port_2217X))) + 16))))) {
20785           SvalS = (9 + (PS_SHIFT_LEFT_INLINE(value_2604X, 8)));
20786           Scode_pointerS = ((Scode_pointerS) + 2);
20787           arg3K0 = (Scode_pointerS);
20788           goto L36269;}
20789         else {
20790           if ((13 == value_2604X)) {
20791             SvalS = 2569;
20792             Scode_pointerS = ((Scode_pointerS) + 2);
20793             arg3K0 = (Scode_pointerS);
20794             goto L36269;}
20795           else {
20796             if ((10 == value_2604X)) {
20797               if ((1 == (*((long *) ((((char *) (-3 + port_2217X))) + 72))))) {
20798                 SvalS = (9 + (PS_SHIFT_LEFT_INLINE(value_2604X, 8)));
20799                 Scode_pointerS = ((Scode_pointerS) + 2);
20800                 arg3K0 = (Scode_pointerS);
20801                 goto L36269;}
20802               else {
20803                 arg0K0 = (i_2442X + count_2605X);
20804                 goto L44473;}}
20805             else {
20806               SvalS = (9 + (PS_SHIFT_LEFT_INLINE(value_2604X, 8)));
20807               Scode_pointerS = ((Scode_pointerS) + 2);
20808               arg3K0 = (Scode_pointerS);
20809               goto L36269;}}}}}
20810     else {push_exception_setupB(14, 2);
20811       SstackS = ((SstackS) + -8);
20812       *((long *) (SstackS)) = (long) (port_2217X);
20813       arg0K0 = 1;
20814       goto L33828;}}
20815   else {push_exception_setupB(5, 2);
20816     SstackS = ((SstackS) + -8);
20817     *((long *) (SstackS)) = (long) (port_2217X);
20818     arg0K0 = 1;
20819     goto L33828;}}
20820  L45190: {
20821   codec_okP_2606X = arg4K0;
20822   encoding_okP_2607X = arg4K1;
20823   out_of_spaceP_2608X = arg4K2;
20824   count_2609X = arg0K3;
20825   if (codec_okP_2606X) {
20826     if (encoding_okP_2607X) {
20827       if (out_of_spaceP_2608X) {push_exception_setupB(14, 2);
20828         SstackS = ((SstackS) + -8);
20829         *((long *) (SstackS)) = (long) (Kchar_2219X);
20830         SstackS = ((SstackS) + -8);
20831         *((long *) (SstackS)) = (long) (port_2220X);
20832         arg0K0 = 2;
20833         goto L33828;}
20834       else {
20835         val_2610X = PS_SHIFT_LEFT_INLINE((i_2223X + count_2609X), 2);
20836         addr_2611X = (((char *) (-3 + port_2220X))) + 56;S48_WRITE_BARRIER(port_2220X, addr_2611X, val_2610X);
20837         *((long *) addr_2611X) = (long) (val_2610X);
20838         SvalS = 13;
20839         Scode_pointerS = ((Scode_pointerS) + 2);
20840         arg3K0 = (Scode_pointerS);
20841         goto L36269;}}
20842     else {push_exception_setupB(14, 2);
20843       SstackS = ((SstackS) + -8);
20844       *((long *) (SstackS)) = (long) (Kchar_2219X);
20845       SstackS = ((SstackS) + -8);
20846       *((long *) (SstackS)) = (long) (port_2220X);
20847       arg0K0 = 2;
20848       goto L33828;}}
20849   else {push_exception_setupB(5, 2);
20850     SstackS = ((SstackS) + -8);
20851     *((long *) (SstackS)) = (long) (Kchar_2219X);
20852     SstackS = ((SstackS) + -8);
20853     *((long *) (SstackS)) = (long) (port_2220X);
20854     arg0K0 = 2;
20855     goto L33828;}}
20856  L45155: {
20857   encoding_okP_2612X = arg4K0;
20858   out_of_spaceP_2613X = arg4K1;
20859   count_2614X = arg0K2;
20860   if (encoding_okP_2612X) {
20861     if (out_of_spaceP_2613X) {push_exception_setupB(14, 2);
20862       SstackS = ((SstackS) + -8);
20863       *((long *) (SstackS)) = (long) (Kchar_2219X);
20864       SstackS = ((SstackS) + -8);
20865       *((long *) (SstackS)) = (long) (port_2220X);
20866       arg0K0 = 2;
20867       goto L33828;}
20868     else {
20869       val_2615X = PS_SHIFT_LEFT_INLINE((i_2480X + count_2614X), 2);
20870       addr_2616X = (((char *) (-3 + port_2220X))) + 56;S48_WRITE_BARRIER(port_2220X, addr_2616X, val_2615X);
20871       *((long *) addr_2616X) = (long) (val_2615X);
20872       SvalS = 13;
20873       Scode_pointerS = ((Scode_pointerS) + 2);
20874       arg3K0 = (Scode_pointerS);
20875       goto L36269;}}
20876   else {push_exception_setupB(14, 2);
20877     SstackS = ((SstackS) + -8);
20878     *((long *) (SstackS)) = (long) (Kchar_2219X);
20879     SstackS = ((SstackS) + -8);
20880     *((long *) (SstackS)) = (long) (port_2220X);
20881     arg0K0 = 2;
20882     goto L33828;}}
20883  L32891: {
20884   Senabled_interruptsS = 0;
20885   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
20886     s48_Sstack_limitS = (Sreal_stack_limitS);
20887     if ((s48_Spending_eventsPS)) {
20888       s48_Sstack_limitS = (((char *) -1));
20889       goto L32893;}
20890     else {
20891       goto L32893;}}
20892   else {
20893     s48_Sstack_limitS = (((char *) -1));
20894     goto L32893;}}
20895  L32930: {
20896   ps_error("interrupt handler is not a closure", 1, i_1827X);
20897   goto L32891;}
20898  L17964: {
20899   n_2617X = Senabled_interruptsS;
20900   SstackS = ((SstackS) + -8);
20901   *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(n_2617X, 2)));
20902   arg0K0 = 2;
20903   goto L32860;}
20904  L11516: {
20905   count_2618X = arg0K0;
20906   i_2619X = arg0K1;
20907   offset_2620X = arg0K2;
20908   if ((0 == count_2618X)) {
20909     arg0K0 = i_2619X;
20910     arg0K1 = offset_2620X;
20911     goto L11499;}
20912   else {
20913     value_2621X = *((long *) ((((char *) (-3 + env_2502X))) + (PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2620X)))), 3))));
20914     addr_2622X = (((char *) (-3 + new_env_1863X))) + (PS_SHIFT_LEFT_INLINE(i_2619X, 3));S48_WRITE_BARRIER(new_env_1863X, addr_2622X, value_2621X);
20915     *((long *) addr_2622X) = (long) (value_2621X);
20916     arg0K0 = (-1 + count_2618X);
20917     arg0K1 = (1 + i_2619X);
20918     arg0K2 = (1 + offset_2620X);
20919     goto L11516;}}
20920  L11866: {
20921   count_2623X = arg0K0;
20922   i_2624X = arg0K1;
20923   offset_2625X = arg0K2;
20924   if ((0 == count_2623X)) {
20925     arg0K0 = i_2624X;
20926     arg0K1 = offset_2625X;
20927     goto L11849;}
20928   else {
20929     value_2626X = *((long *) ((((char *) (-3 + env_2507X))) + (PS_SHIFT_LEFT_INLINE(((PS_SHIFT_LEFT_INLINE((*((unsigned char *) ((Scode_pointerS) + (1 + offset_2625X)))), 8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + offset_2625X))))), 3))));
20930     addr_2627X = (((char *) (-3 + new_env_1874X))) + (PS_SHIFT_LEFT_INLINE(i_2624X, 3));S48_WRITE_BARRIER(new_env_1874X, addr_2627X, value_2626X);
20931     *((long *) addr_2627X) = (long) (value_2626X);
20932     arg0K0 = (-1 + count_2623X);
20933     arg0K1 = (1 + i_2624X);
20934     arg0K2 = (2 + offset_2625X);
20935     goto L11866;}}
20936  L37631: {
20937   Scode_pointerS = ((Scode_pointerS) + (1 + bytes_used_2281X));
20938   arg3K0 = (Scode_pointerS);
20939   goto L36269;}
20940  L56572: {
20941   SvalS = 1;
20942   Scode_pointerS = ((Scode_pointerS) + 1);
20943   arg3K0 = (Scode_pointerS);
20944   goto L36269;}
20945  L56798: {
20946   if ((3 == (3 & n_1971X))) {
20947     if ((11 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + n_1971X))))), 2))))) {push_exception_setupB(5, 1);
20948       SstackS = ((SstackS) + -8);
20949       *((long *) (SstackS)) = (long) (n_1971X);
20950       arg0K0 = 1;
20951       goto L33828;}
20952     else {
20953       goto L56802;}}
20954   else {
20955     goto L56802;}}
20956  L69031: {
20957   v_2628X = (char *) s48_long_to_bignum(c_2298X);
20958   v_2629X = enter_bignum(v_2628X);
20959   arg0K0 = v_2629X;
20960   goto L69026;}
20961  L69026: {
20962   val_2630X = arg0K0;
20963   SvalS = val_2630X;
20964   Scode_pointerS = ((Scode_pointerS) + 1);
20965   arg3K0 = (Scode_pointerS);
20966   goto L36269;}
20967  L12542: {
20968   x_2631X = 0 - c_2298X;s48_make_availableAgc(24);
20969   if ((2305843009213693951 < x_2631X)) {
20970     goto L69009;}
20971   else {
20972     if ((x_2631X < -2305843009213693952)) {
20973       goto L69009;}
20974     else {
20975       arg0K0 = (PS_SHIFT_LEFT_INLINE(x_2631X, 2));
20976       goto L69004;}}}
20977  L69053: {
20978   v_2632X = (char *) s48_long_to_bignum(c_2298X);
20979   v_2633X = enter_bignum(v_2632X);
20980   arg0K0 = v_2633X;
20981   goto L69048;}
20982  L69048: {
20983   val_2634X = arg0K0;
20984   SvalS = val_2634X;
20985   Scode_pointerS = ((Scode_pointerS) + 1);
20986   arg3K0 = (Scode_pointerS);
20987   goto L36269;}
20988  L69112: {
20989   v_2635X = (char *) s48_long_to_bignum(x_2529X);
20990   v_2636X = enter_bignum(v_2635X);
20991   arg0K0 = v_2636X;
20992   goto L69107;}
20993  L69107: {
20994   val_2637X = arg0K0;
20995   SvalS = val_2637X;
20996   Scode_pointerS = ((Scode_pointerS) + 1);
20997   arg3K0 = (Scode_pointerS);
20998   goto L36269;}
20999  L26739: {
21000   external_bignum_2638X = arg3K0;
21001   v_2639X = s48_bignum_fits_in_word_p(external_bignum_2638X, 62, 1);
21002   if (v_2639X) {
21003     n_2640X = s48_bignum_to_long(external_bignum_2638X);
21004     arg0K0 = (PS_SHIFT_LEFT_INLINE(n_2640X, 2));
21005     goto L59141;}
21006   else {
21007     val_2641X = enter_bignum(external_bignum_2638X);
21008     arg0K0 = val_2641X;
21009     goto L59141;}}
21010  L59203: {
21011   val_2642X = arg0K0;
21012   SvalS = val_2642X;
21013   Scode_pointerS = ((Scode_pointerS) + 1);
21014   arg3K0 = (Scode_pointerS);
21015   goto L36269;}
21016  L30809: {
21017   value_2643X = arg0K0;
21018   addr_2644X = (((char *) (-3 + table_1506X))) + (PS_SHIFT_LEFT_INLINE(index_1509X, 3));S48_WRITE_BARRIER(table_1506X, addr_2644X, value_2643X);
21019   *((long *) addr_2644X) = (long) (value_2643X);
21020   arg0K0 = x_2557X;
21021   goto L47866;}
21022  L52401: {
21023   v_2645X = ps_close_fd(index_2370X);
21024   arg0K0 = v_2645X;
21025   goto L52396;}
21026  L52396: {
21027   status_2646X = arg0K0;
21028   if ((status_2646X == NO_ERRORS)) {push_exception_setupB(reason_2562X, 1);
21029     SstackS = ((SstackS) + -8);
21030     *((long *) (SstackS)) = (long) (arg4_1520X);
21031     SstackS = ((SstackS) + -8);
21032     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
21033     arg0K0 = 2;
21034     goto L33828;}
21035   else {channel_close_error(status_2646X, index_2370X, arg4_1520X);push_exception_setupB(reason_2562X, 1);
21036     SstackS = ((SstackS) + -8);
21037     *((long *) (SstackS)) = (long) (arg4_1520X);
21038     SstackS = ((SstackS) + -8);
21039     *((long *) (SstackS)) = (long) ((PS_SHIFT_LEFT_INLINE(mode_1521X, 2)));
21040     arg0K0 = 2;
21041     goto L33828;}}
21042  L52793: {
21043   x_2647X = arg0K0;
21044   SstackS = ((SstackS) + -8);
21045   *((long *) (SstackS)) = (long) (x_2647X);
21046   arg0K0 = 5;
21047   goto L33828;}
21048  L14508: {
21049   i_2648X = arg0K0;
21050   stob_2649X = *((long *) ((((char *) (-3 + log_2568X))) + (PS_SHIFT_LEFT_INLINE(i_2648X, 3))));
21051   if ((1 == stob_2649X)) {
21052     log_2650X = *((long *) ((((char *) (-3 + proposal_1563X))) + 16));
21053     arg0K0 = 0;
21054     goto L16085;}
21055   else {
21056     value_2651X = *((long *) ((((char *) (-3 + log_2568X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2648X, 3)))));
21057     verify_2652X = *((long *) ((((char *) (-3 + log_2568X))) + (24 + (PS_SHIFT_LEFT_INLINE(i_2648X, 3)))));
21058     if ((verify_2652X == value_2651X)) {
21059       goto L14540;}
21060     else {
21061       addr_2653X = (((char *) (-3 + stob_2649X))) + (PS_SHIFT_LEFT_INLINE((-4 & (*((long *) ((((char *) (-3 + log_2568X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2648X, 3))))))), 1));S48_WRITE_BARRIER(stob_2649X, addr_2653X, value_2651X);
21062       *((long *) addr_2653X) = (long) (value_2651X);
21063       goto L14540;}}}
21064  L30303: {
21065   previous_foo_2654X = arg0K0;
21066   foo_2655X = arg0K1;
21067   if ((1 == foo_2655X)) {
21068     goto L46089;}
21069   else {
21070     s2_2656X = *((long *) (((char *) (-3 + foo_2655X))));
21071     len_2657X = PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + arg2_1669X))))), 8);
21072     if ((len_2657X == (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + s2_2656X))))), 8)))) {
21073       if (((!memcmp((void *)(((char *) (-3 + s2_2656X))), (void *)(((char *) (-3 + arg2_1669X))),len_2657X)))) {
21074         if ((1 == previous_foo_2654X)) {
21075           value_2658X = *((long *) ((((char *) (-3 + foo_2655X))) + 24));
21076           addr_2659X = (((char *) (-3 + table_2405X))) + (PS_SHIFT_LEFT_INLINE(index_2407X, 3));S48_WRITE_BARRIER(table_2405X, addr_2659X, value_2658X);
21077           *((long *) addr_2659X) = (long) (value_2658X);
21078           goto L46089;}
21079         else {
21080           val_2660X = *((long *) ((((char *) (-3 + foo_2655X))) + 24));
21081           addr_2661X = (((char *) (-3 + previous_foo_2654X))) + 24;S48_WRITE_BARRIER(previous_foo_2654X, addr_2661X, val_2660X);
21082           *((long *) addr_2661X) = (long) (val_2660X);
21083           goto L46089;}}
21084       else {
21085         goto L30362;}}
21086     else {
21087       goto L30362;}}}
21088  L43879: {
21089   addr_2662X = (((char *) (-3 + port_2215X))) + 72;S48_WRITE_BARRIER(port_2215X, addr_2662X, 1);
21090   *((long *) addr_2662X) = (long) (1);
21091   val_2663X = PS_SHIFT_LEFT_INLINE((i_2417X + count_2592X), 2);
21092   addr_2664X = (((char *) (-3 + port_2215X))) + 56;S48_WRITE_BARRIER(port_2215X, addr_2664X, val_2663X);
21093   *((long *) addr_2664X) = (long) (val_2663X);
21094   SvalS = (9 + (PS_SHIFT_LEFT_INLINE(value_2591X, 8)));
21095   Scode_pointerS = ((Scode_pointerS) + 2);
21096   arg3K0 = (Scode_pointerS);
21097   goto L36269;}
21098  L32893: {
21099   arg0K0 = arg_count_2240X;
21100   arg0K1 = 25;
21101   arg0K2 = 0;
21102   arg0K3 = (-2 - i_1827X);
21103   goto L66534;}
21104  L56802: {
21105   SvalS = 1;
21106   Scode_pointerS = ((Scode_pointerS) + 1);
21107   arg3K0 = (Scode_pointerS);
21108   goto L36269;}
21109  L69009: {
21110   v_2665X = (char *) s48_long_to_bignum(x_2631X);
21111   v_2666X = enter_bignum(v_2665X);
21112   arg0K0 = v_2666X;
21113   goto L69004;}
21114  L69004: {
21115   val_2667X = arg0K0;
21116   SvalS = val_2667X;
21117   Scode_pointerS = ((Scode_pointerS) + 1);
21118   arg3K0 = (Scode_pointerS);
21119   goto L36269;}
21120  L59141: {
21121   val_2668X = arg0K0;
21122   SvalS = val_2668X;
21123   Scode_pointerS = ((Scode_pointerS) + 1);
21124   arg3K0 = (Scode_pointerS);
21125   goto L36269;}
21126  L16085: {
21127   i_2669X = arg0K0;
21128   stob_2670X = *((long *) ((((char *) (-3 + log_2650X))) + (PS_SHIFT_LEFT_INLINE(i_2669X, 3))));
21129   if ((1 == stob_2670X)) {
21130     copies_2671X = *((long *) ((((char *) (-3 + proposal_1563X))) + 24));
21131     arg0K0 = copies_2671X;
21132     goto L16000;}
21133   else {
21134     value_2672X = *((long *) ((((char *) (-3 + log_2650X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2669X, 3)))));
21135     verify_2673X = *((long *) ((((char *) (-3 + log_2650X))) + (24 + (PS_SHIFT_LEFT_INLINE(i_2669X, 3)))));
21136     if ((verify_2673X == value_2672X)) {
21137       goto L16117;}
21138     else {
21139       *((unsigned char *) ((((char *) (-3 + stob_2670X))) + (PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + log_2650X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2669X, 3)))))), 2)))) = (unsigned char) ((PS_SHIFT_RIGHT_INLINE(value_2672X, 2)));
21140       goto L16117;}}}
21141  L14540: {
21142   arg0K0 = (4 + i_2648X);
21143   goto L14508;}
21144  L46089: {
21145   Scode_pointerS = ((Scode_pointerS) + 1);
21146   arg3K0 = (Scode_pointerS);
21147   goto L36269;}
21148  L30362: {
21149   link_2674X = *((long *) ((((char *) (-3 + foo_2655X))) + 24));
21150   if ((0 == (3 & link_2674X))) {
21151     arg0K0 = foo_2655X;
21152     arg0K1 = (3 + (-4 & link_2674X));
21153     goto L30303;}
21154   else {
21155     arg0K0 = foo_2655X;
21156     arg0K1 = link_2674X;
21157     goto L30303;}}
21158  L16000: {
21159   copies_2675X = arg0K0;
21160   if ((1 == copies_2675X)) {
21161     value_2676X = Sempty_logS;
21162     addr_2677X = (((char *) (-3 + proposal_1563X))) + 8;S48_WRITE_BARRIER(proposal_1563X, addr_2677X, value_2676X);
21163     *((long *) addr_2677X) = (long) (value_2676X);
21164     value_2678X = Sempty_logS;
21165     addr_2679X = (((char *) (-3 + proposal_1563X))) + 16;S48_WRITE_BARRIER(proposal_1563X, addr_2679X, value_2678X);
21166     *((long *) addr_2679X) = (long) (value_2678X);
21167     addr_2680X = (((char *) (-3 + proposal_1563X))) + 24;S48_WRITE_BARRIER(proposal_1563X, addr_2680X, 1);
21168     *((long *) addr_2680X) = (long) (1);RELEASE_PROPOSAL_LOCK();
21169     x_2681X = Scurrent_threadS;
21170     addr_2682X = (((char *) (-3 + x_2681X))) + 24;S48_WRITE_BARRIER(x_2681X, addr_2682X, 1);
21171     *((long *) addr_2682X) = (long) (1);
21172     SvalS = 5;
21173     Scode_pointerS = ((Scode_pointerS) + 1);
21174     arg3K0 = (Scode_pointerS);
21175     goto L36269;}
21176   else {
21177     stob_2683X = *((long *) ((((char *) (-3 + copies_2675X))) + 16));
21178     v_2684X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + copies_2675X))) + 24))), 2);
21179     stob_2685X = *((long *) (((char *) (-3 + copies_2675X))));
21180     v_2686X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + copies_2675X))) + 8))), 2);
21181     v_2687X = PS_SHIFT_RIGHT_INLINE((*((long *) ((((char *) (-3 + copies_2675X))) + 32))), 2);
21182     memmove((void *)((((char *) (-3 + stob_2683X))) + v_2684X), (void *)((((char *) (-3 + stob_2685X))) + v_2686X),v_2687X);
21183     arg0K0 = (*((long *) ((((char *) (-3 + copies_2675X))) + 40)));
21184     goto L16000;}}
21185  L16117: {
21186   arg0K0 = (4 + i_2669X);
21187   goto L16085;}
21188  use_event_type_uidB: {
21189   id_1132X = merged_arg0K0;{
21190   type_2688X = *((Sevent_typesS) + id_1132X);
21191   v_2689X = type_2688X->usedP;
21192   if (v_2689X) {
21193     ps_write_string("trying to use an event uid that's already in use : ", (stderr));
21194     ps_write_integer(id_1132X, (stderr));
21195     { long ignoreXX;
21196     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
21197     ps_error("assertion violation", 0);
21198     goto L4126;}
21199   else {
21200     goto L4126;}}
21201  L4126: {
21202   type_2688X->usedP = 1;
21203   arg1K0 = (NULL);
21204   arg1K1 = (Sunused_event_types_headS);
21205   goto L4133;}
21206  L4133: {
21207   previous_2690X = arg1K0;
21208   unused_type_2691X = arg1K1;
21209   if ((NULL == unused_type_2691X)) {
21210     goto L4222;}
21211   else {
21212     if ((type_2688X == unused_type_2691X)) {
21213       if ((NULL == previous_2690X)) {
21214         Sunused_event_types_headS = (unused_type_2691X->next);
21215         goto L4222;}
21216       else {
21217         previous_2690X->next = (unused_type_2691X->next);
21218         goto L4222;}}
21219     else {
21220       arg1K0 = unused_type_2691X;
21221       arg1K1 = (unused_type_2691X->next);
21222       goto L4133;}}}
21223  L4222: {
21224   type_2688X->next = (NULL);
21225 #ifdef USE_DIRECT_THREADING
21226   goto *use_event_type_uidB_return_address;
21227 #else
21228   goto use_event_type_uidB_return;
21229 #endif
21230 }
21231 #ifndef USE_DIRECT_THREADING
21232  use_event_type_uidB_return:
21233   switch (use_event_type_uidB_return_tag) {
21234   case 0: goto use_event_type_uidB_return_0;
21235   case 1: goto use_event_type_uidB_return_1;
21236   case 2: goto use_event_type_uidB_return_2;
21237   default: goto use_event_type_uidB_return_3;
21238   }
21239 #endif
21240 }
21241 
21242  move_args_above_contB: {
21243   nargs_1131X = merged_arg0K0;{
21244   top_of_args_2692X = SstackS;
21245   if (((ScontS) == (top_of_args_2692X + (PS_SHIFT_LEFT_INLINE(nargs_1131X, 3))))) {
21246 #ifdef USE_DIRECT_THREADING
21247     goto *move_args_above_contB_return_address;
21248 #else
21249     goto move_args_above_contB_return;
21250 #endif
21251 }
21252   else {
21253     SstackS = (ScontS);
21254     arg3K0 = ((SstackS) + -8);
21255     arg3K1 = (top_of_args_2692X + (-8 + (PS_SHIFT_LEFT_INLINE(nargs_1131X, 3))));
21256     goto L8658;}}
21257  L8658: {
21258   loc_2693X = arg3K0;
21259   arg_2694X = arg3K1;
21260   if ((arg_2694X < top_of_args_2692X)) {
21261     SstackS = ((SstackS) + (0 - (PS_SHIFT_LEFT_INLINE(nargs_1131X, 3))));
21262 #ifdef USE_DIRECT_THREADING
21263     goto *move_args_above_contB_return_address;
21264 #else
21265     goto move_args_above_contB_return;
21266 #endif
21267 }
21268   else {
21269     *((long *) loc_2693X) = (long) ((*((long *) arg_2694X)));
21270     arg3K0 = (loc_2693X + -8);
21271     arg3K1 = (arg_2694X + -8);
21272     goto L8658;}}
21273 #ifndef USE_DIRECT_THREADING
21274  move_args_above_contB_return:
21275   switch (move_args_above_contB_return_tag) {
21276   case 0: goto move_args_above_contB_return_0;
21277   case 1: goto move_args_above_contB_return_1;
21278   case 2: goto move_args_above_contB_return_2;
21279   case 3: goto move_args_above_contB_return_3;
21280   case 4: goto move_args_above_contB_return_4;
21281   case 5: goto move_args_above_contB_return_5;
21282   case 6: goto move_args_above_contB_return_6;
21283   case 7: goto move_args_above_contB_return_7;
21284   case 8: goto move_args_above_contB_return_8;
21285   case 9: goto move_args_above_contB_return_9;
21286   default: goto move_args_above_contB_return_10;
21287   }
21288 #endif
21289 }
21290 
21291  s48_pop_interrupt_state: {
21292 { p_2695X = *((long *) (SstackS));
21293   SstackS = ((SstackS) + 8);
21294   Senabled_interruptsS = (PS_SHIFT_RIGHT_INLINE(p_2695X, 2));
21295   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
21296     s48_Sstack_limitS = (Sreal_stack_limitS);
21297     if ((s48_Spending_eventsPS)) {
21298       s48_Sstack_limitS = (((char *) -1));
21299       goto L13751;}
21300     else {
21301       goto L13751;}}
21302   else {
21303     s48_Sstack_limitS = (((char *) -1));
21304     goto L13751;}}
21305  L13751: {
21306   proposal_2696X = *((long *) (SstackS));
21307   SstackS = ((SstackS) + 8);
21308   x_2697X = Scurrent_threadS;
21309   addr_2698X = (((char *) (-3 + x_2697X))) + 24;S48_WRITE_BARRIER(x_2697X, addr_2698X, proposal_2696X);
21310   *((long *) addr_2698X) = (long) (proposal_2696X);
21311 #ifdef USE_DIRECT_THREADING
21312   goto *s48_pop_interrupt_state_return_address;
21313 #else
21314   goto s48_pop_interrupt_state_return;
21315 #endif
21316 }
21317 #ifndef USE_DIRECT_THREADING
21318  s48_pop_interrupt_state_return:
21319   switch (s48_pop_interrupt_state_return_tag) {
21320   case 0: goto s48_pop_interrupt_state_return_0;
21321   case 1: goto s48_pop_interrupt_state_return_1;
21322   default: goto s48_pop_interrupt_state_return_2;
21323   }
21324 #endif
21325 }
21326 
21327  copy_continuation_from_heapB: {
21328   cont_1129X = merged_arg0K0;
21329   stack_arg_count_1130X = merged_arg0K1;{
21330   stack_size_2699X = -2 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + cont_1129X))))), 8))), 3));
21331   new_cont_2700X = (Sbottom_of_stackS) + (0 - (PS_SHIFT_LEFT_INLINE(stack_size_2699X, 3)));
21332   if ((0 == stack_arg_count_1130X)) {
21333     SstackS = new_cont_2700X;
21334     goto L19710;}
21335   else {
21336     new_stack_2701X = new_cont_2700X + (0 - (PS_SHIFT_LEFT_INLINE(stack_arg_count_1130X, 3)));
21337     if ((new_stack_2701X < (SstackS))) {
21338       memmove((void *)new_stack_2701X, (void *)(SstackS),(PS_SHIFT_LEFT_INLINE(stack_arg_count_1130X, 3)));
21339       SstackS = new_stack_2701X;
21340       goto L19710;}
21341     else {
21342       goto L19710;}}}
21343  L19710: {
21344   ScontS = new_cont_2700X;
21345   memmove((void *)(new_cont_2700X + 8), (void *)((((char *) (-3 + cont_1129X))) + 24),(-8 + (PS_SHIFT_LEFT_INLINE(stack_size_2699X, 3))));
21346   *((long *) new_cont_2700X) = (long) ((((long) ((((char *) (-3 + (*((long *) ((((char *) (-3 + cont_1129X))) + 8)))))) + (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-3 + cont_1129X))))), 2))))));
21347   Sheap_continuationS = (*((long *) ((((char *) (-3 + cont_1129X))) + 16)));
21348   copy_continuation_from_heapB0_return_value = new_cont_2700X;
21349 #ifdef USE_DIRECT_THREADING
21350   goto *copy_continuation_from_heapB_return_address;
21351 #else
21352   goto copy_continuation_from_heapB_return;
21353 #endif
21354 }
21355 #ifndef USE_DIRECT_THREADING
21356  copy_continuation_from_heapB_return:
21357   switch (copy_continuation_from_heapB_return_tag) {
21358   case 0: goto copy_continuation_from_heapB_return_0;
21359   case 1: goto copy_continuation_from_heapB_return_1;
21360   default: goto copy_continuation_from_heapB_return_2;
21361   }
21362 #endif
21363 }
21364 
21365  okay_argument_list: {
21366   list_1128X = merged_arg0K0;{
21367   arg0K0 = list_1128X;
21368   arg0K1 = 0;
21369   arg0K2 = list_1128X;
21370   arg4K3 = 0;
21371   goto L19881;}
21372  L19881: {
21373   fast_2702X = arg0K0;
21374   len_2703X = arg0K1;
21375   slow_2704X = arg0K2;
21376   move_slowP_2705X = arg4K3;
21377   if ((25 == fast_2702X)) {
21378     okay_argument_list0_return_value = 1;
21379     okay_argument_list1_return_value = len_2703X;
21380 #ifdef USE_DIRECT_THREADING
21381     goto *okay_argument_list_return_address;
21382 #else
21383     goto okay_argument_list_return;
21384 #endif
21385 }
21386   else {
21387     if ((3 == (3 & fast_2702X))) {
21388       if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + fast_2702X))))), 2))))) {
21389         if (move_slowP_2705X) {
21390           if ((fast_2702X == slow_2704X)) {
21391             okay_argument_list0_return_value = 0;
21392             okay_argument_list1_return_value = 0;
21393 #ifdef USE_DIRECT_THREADING
21394             goto *okay_argument_list_return_address;
21395 #else
21396             goto okay_argument_list_return;
21397 #endif
21398 }
21399           else {
21400             arg0K0 = (*((long *) ((((char *) (-3 + fast_2702X))) + 8)));
21401             arg0K1 = (1 + len_2703X);
21402             arg0K2 = (*((long *) ((((char *) (-3 + slow_2704X))) + 8)));
21403             arg4K3 = 0;
21404             goto L19881;}}
21405         else {
21406           arg0K0 = (*((long *) ((((char *) (-3 + fast_2702X))) + 8)));
21407           arg0K1 = (1 + len_2703X);
21408           arg0K2 = slow_2704X;
21409           arg4K3 = 1;
21410           goto L19881;}}
21411       else {
21412         okay_argument_list0_return_value = 0;
21413         okay_argument_list1_return_value = 0;
21414 #ifdef USE_DIRECT_THREADING
21415         goto *okay_argument_list_return_address;
21416 #else
21417         goto okay_argument_list_return;
21418 #endif
21419 }}
21420     else {
21421       okay_argument_list0_return_value = 0;
21422       okay_argument_list1_return_value = 0;
21423 #ifdef USE_DIRECT_THREADING
21424       goto *okay_argument_list_return_address;
21425 #else
21426       goto okay_argument_list_return;
21427 #endif
21428 }}}
21429 #ifndef USE_DIRECT_THREADING
21430  okay_argument_list_return:
21431   switch (okay_argument_list_return_tag) {
21432   case 0: goto okay_argument_list_return_0;
21433   case 1: goto okay_argument_list_return_1;
21434   default: goto okay_argument_list_return_2;
21435   }
21436 #endif
21437 }
21438 
21439  get_current_port: {
21440   marker_1127X = merged_arg0K0;{
21441   thread_2706X = Scurrent_threadS;
21442   if ((3 == (3 & thread_2706X))) {
21443     if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + thread_2706X))))), 2))))) {
21444       if ((1 < (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + thread_2706X))))), 8))), 3)))) {
21445         arg0K0 = (*((long *) ((((char *) (-3 + thread_2706X))) + 8)));
21446         goto L20127;}
21447       else {
21448         goto L20177;}}
21449     else {
21450       goto L20177;}}
21451   else {
21452     goto L20177;}}
21453  L20127: {
21454   env_2707X = arg0K0;
21455   if ((3 == (3 & env_2707X))) {
21456     if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + env_2707X))))), 2))))) {
21457       obj_2708X = *((long *) (((char *) (-3 + env_2707X))));
21458       if ((3 == (3 & obj_2708X))) {
21459         if ((0 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_2708X))))), 2))))) {
21460           if ((marker_1127X == (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + env_2707X)))))))))))) {
21461             get_current_port0_return_value = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + env_2707X)))))))) + 8)));
21462 #ifdef USE_DIRECT_THREADING
21463             goto *get_current_port_return_address;
21464 #else
21465             goto get_current_port_return;
21466 #endif
21467 }
21468           else {
21469             arg0K0 = (*((long *) ((((char *) (-3 + env_2707X))) + 8)));
21470             goto L20127;}}
21471         else {
21472           goto L20199;}}
21473       else {
21474         goto L20199;}}
21475     else {
21476       goto L20199;}}
21477   else {
21478     goto L20199;}}
21479  L20177: {
21480   ps_error("current thread is not a record", 0);
21481   get_current_port0_return_value = v_2709X;
21482 #ifdef USE_DIRECT_THREADING
21483   goto *get_current_port_return_address;
21484 #else
21485   goto get_current_port_return;
21486 #endif
21487 }
21488  L20199: {
21489   if ((25 == env_2707X)) {
21490     if (((PS_SHIFT_RIGHT_INLINE(marker_1127X, 2)) == 1)) {
21491       arg5K0 = "dynamic environment doesn't have current-output-port";
21492       goto L20153;}
21493     else {
21494       arg5K0 = "dynamic environment doesn't have current-input-port";
21495       goto L20153;}}
21496   else {
21497     ps_error("dynamic environment is not a proper list", 0);
21498 #ifdef USE_DIRECT_THREADING
21499     goto *get_current_port_return_address;
21500 #else
21501     goto get_current_port_return;
21502 #endif
21503 }}
21504  L20153: {
21505   v_2710X = arg5K0;
21506   ps_error(v_2710X, 0);
21507 #ifdef USE_DIRECT_THREADING
21508   goto *get_current_port_return_address;
21509 #else
21510   goto get_current_port_return;
21511 #endif
21512 }
21513 #ifndef USE_DIRECT_THREADING
21514  get_current_port_return:
21515   switch (get_current_port_return_tag) {
21516   case 0: goto get_current_port_return_0;
21517   case 1: goto get_current_port_return_1;
21518   case 2: goto get_current_port_return_2;
21519   case 3: goto get_current_port_return_3;
21520   case 4: goto get_current_port_return_4;
21521   default: goto get_current_port_return_5;
21522   }
21523 #endif
21524 }
21525 
21526  shift_space: {
21527   x_1125X = merged_arg0K0;
21528   n_1126X = merged_arg0K1;{
21529   if ((0 == (3 & x_1125X))) {
21530     arg0K0 = 1;
21531     arg0K1 = 3;
21532     goto L23069;}
21533   else {
21534     arg0K0 = (-1 + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + x_1125X))))), 8))), 3)));
21535     arg0K1 = 0;
21536     goto L23069;}}
21537  L23069: {
21538   x_size_2711X = arg0K0;
21539   extra_2712X = arg0K1;
21540   if ((n_1126X < 0)) {
21541     if ((x_size_2711X < 1)) {
21542       arg0K0 = 1;
21543       goto L23111;}
21544     else {
21545       arg0K0 = x_size_2711X;
21546       goto L23111;}}
21547   else {
21548     n_2713X = n_1126X / 62;
21549     arg0K0 = (3 + ((PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(x_size_2711X, 3))), 3)) + (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(n_2713X, 3))), 3))));
21550     goto L23089;}}
21551  L23111: {
21552   v_2714X = arg0K0;
21553   arg0K0 = (4 + ((-2 & (PS_SHIFT_RIGHT_INLINE((23 + (PS_SHIFT_LEFT_INLINE(v_2714X, 3))), 2))) + (PS_SHIFT_RIGHT_INLINE((15 + (PS_SHIFT_LEFT_INLINE(x_size_2711X, 3))), 3))));
21554   goto L23089;}
21555  L23089: {
21556   v_2715X = arg0K0;
21557   shift_space0_return_value = (extra_2712X + v_2715X);
21558 #ifdef USE_DIRECT_THREADING
21559   goto *shift_space_return_address;
21560 #else
21561   goto shift_space_return;
21562 #endif
21563 }
21564 #ifndef USE_DIRECT_THREADING
21565  shift_space_return:
21566   switch (shift_space_return_tag) {
21567   case 0: goto shift_space_return_0;
21568   default: goto shift_space_return_1;
21569   }
21570 #endif
21571 }
21572 
21573  pop_continuationB: {
21574 { SstackS = (ScontS);
21575   cont_2716X = ScontS;
21576   pointer_2717X = (((char *) (*((long *) cont_2716X)))) + -2;
21577   size_2718X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_2717X)), 8)) + (*((unsigned char *) (pointer_2717X + 1)));
21578   if ((65535 == size_2718X)) {
21579     arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_2716X + 8))), 2));
21580     goto L24384;}
21581   else {
21582     arg0K0 = size_2718X;
21583     goto L24384;}}
21584  L24384: {
21585   v_2719X = arg0K0;
21586   ScontS = (cont_2716X + (8 + (PS_SHIFT_LEFT_INLINE(v_2719X, 3))));
21587   v_2720X = *((long *) (SstackS));
21588   SstackS = ((SstackS) + 8);
21589   Scode_pointerS = (((char *) v_2720X));
21590   Slast_code_pointer_resumedS = (Scode_pointerS);
21591 #ifdef USE_DIRECT_THREADING
21592   goto *pop_continuationB_return_address;
21593 #else
21594   goto pop_continuationB_return;
21595 #endif
21596 }
21597 #ifndef USE_DIRECT_THREADING
21598  pop_continuationB_return:
21599   switch (pop_continuationB_return_tag) {
21600   case 0: goto pop_continuationB_return_0;
21601   case 1: goto pop_continuationB_return_1;
21602   case 2: goto pop_continuationB_return_2;
21603   case 3: goto pop_continuationB_return_3;
21604   case 4: goto pop_continuationB_return_4;
21605   case 5: goto pop_continuationB_return_5;
21606   default: goto pop_continuationB_return_6;
21607   }
21608 #endif
21609 }
21610 
21611  proposal_d_read: {
21612   stob_1123X = merged_arg0K0;
21613   index_1124X = merged_arg0K1;{
21614   log_2721X = *((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)))))) + 8));
21615   arg0K0 = 0;
21616   goto L24474;}
21617  L24474: {
21618   i_2722X = arg0K0;
21619   next_stob_2723X = *((long *) ((((char *) (-3 + log_2721X))) + (PS_SHIFT_LEFT_INLINE(i_2722X, 3))));
21620   if ((1 == next_stob_2723X)) {
21621     v_2724X = add_log_entryAgc(1, i_2722X, stob_1123X, index_1124X, (*((long *) ((((char *) (-3 + stob_1123X))) + (PS_SHIFT_LEFT_INLINE((-4 & index_1124X), 1))))), 1);
21622     proposal_d_read0_return_value = v_2724X;
21623 #ifdef USE_DIRECT_THREADING
21624     goto *proposal_d_read_return_address;
21625 #else
21626     goto proposal_d_read_return;
21627 #endif
21628 }
21629   else {
21630     if ((stob_1123X == next_stob_2723X)) {
21631       if ((index_1124X == (*((long *) ((((char *) (-3 + log_2721X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2722X, 3)))))))) {
21632         proposal_d_read0_return_value = (*((long *) ((((char *) (-3 + log_2721X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2722X, 3))))));
21633 #ifdef USE_DIRECT_THREADING
21634         goto *proposal_d_read_return_address;
21635 #else
21636         goto proposal_d_read_return;
21637 #endif
21638 }
21639       else {
21640         goto L24496;}}
21641     else {
21642       goto L24496;}}}
21643  L24496: {
21644   arg0K0 = (4 + i_2722X);
21645   goto L24474;}
21646 #ifndef USE_DIRECT_THREADING
21647  proposal_d_read_return:
21648   switch (proposal_d_read_return_tag) {
21649   case 0: goto proposal_d_read_return_0;
21650   case 1: goto proposal_d_read_return_1;
21651   default: goto proposal_d_read_return_2;
21652   }
21653 #endif
21654 }
21655 
21656  proposal_d_write: {
21657   stob_1120X = merged_arg0K0;
21658   index_1121X = merged_arg0K1;
21659   value_1122X = merged_arg0K2;{
21660   log_2725X = *((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + (Scurrent_threadS)))) + 24)))))) + 8));
21661   arg0K0 = 0;
21662   goto L24651;}
21663  L24651: {
21664   i_2726X = arg0K0;
21665   next_stob_2727X = *((long *) ((((char *) (-3 + log_2725X))) + (PS_SHIFT_LEFT_INLINE(i_2726X, 3))));
21666   if ((1 == next_stob_2727X)) {add_log_entryAgc(1, i_2726X, stob_1120X, index_1121X, value_1122X, 0);
21667 #ifdef USE_DIRECT_THREADING
21668     goto *proposal_d_write_return_address;
21669 #else
21670     goto proposal_d_write_return;
21671 #endif
21672 }
21673   else {
21674     if ((stob_1120X == next_stob_2727X)) {
21675       if ((index_1121X == (*((long *) ((((char *) (-3 + log_2725X))) + (8 + (PS_SHIFT_LEFT_INLINE(i_2726X, 3)))))))) {
21676         addr_2728X = (((char *) (-3 + log_2725X))) + (16 + (PS_SHIFT_LEFT_INLINE(i_2726X, 3)));S48_WRITE_BARRIER(log_2725X, addr_2728X, value_1122X);
21677         *((long *) addr_2728X) = (long) (value_1122X);
21678 #ifdef USE_DIRECT_THREADING
21679         goto *proposal_d_write_return_address;
21680 #else
21681         goto proposal_d_write_return;
21682 #endif
21683 }
21684       else {
21685         goto L24671;}}
21686     else {
21687       goto L24671;}}}
21688  L24671: {
21689   arg0K0 = (4 + i_2726X);
21690   goto L24651;}
21691 #ifndef USE_DIRECT_THREADING
21692  proposal_d_write_return:
21693   switch (proposal_d_write_return_tag) {
21694   case 0: goto proposal_d_write_return_0;
21695   case 1: goto proposal_d_write_return_1;
21696   default: goto proposal_d_write_return_2;
21697   }
21698 #endif
21699 }
21700 
21701  pending_interruptP: {
21702 { if ((s48_Spending_eventsPS)) {
21703     s48_Spending_eventsPS = 0;
21704     goto L25785;}
21705   else {
21706     goto L25771;}}
21707  L25785: {
21708   type_2729X = s48_get_next_event(&channel_2730X, &status_2731X);
21709   if ((type_2729X == ALARM_EVENT)) {
21710     arg0K0 = 1;
21711     goto L25791;}
21712   else {
21713     if ((type_2729X == KEYBOARD_INTERRUPT_EVENT)) {
21714       arg0K0 = 2;
21715       goto L25791;}
21716     else {
21717       if ((type_2729X == IO_COMPLETION_EVENT)) {enqueue_channelB(channel_2730X, status_2731X, 1);
21718         arg0K0 = 16;
21719         goto L25791;}
21720       else {
21721         if ((type_2729X == IO_ERROR_EVENT)) {enqueue_channelB(channel_2730X, status_2731X, 5);
21722           arg0K0 = 16;
21723           goto L25791;}
21724         else {
21725           if ((type_2729X == OS_SIGNAL_EVENT)) {
21726             arg0K0 = 32;
21727             goto L25791;}
21728           else {
21729             if ((type_2729X == EXTERNAL_EVENT)) {
21730               arg0K0 = 64;
21731               goto L25791;}
21732             else {
21733               if ((type_2729X == NO_EVENT)) {
21734                 arg0K0 = 0;
21735                 goto L25791;}
21736               else {
21737                 if ((type_2729X == ERROR_EVENT)) {
21738                   ps_write_string("OS error while getting event", (stderr));
21739                   { long ignoreXX;
21740                   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
21741                   ps_write_string((ps_error_string(status_2731X)), (stderr));
21742                   { long ignoreXX;
21743                   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
21744                   arg0K0 = 0;
21745                   goto L25791;}
21746                 else {
21747                   ps_write_string("unknown type of event", (stderr));
21748                   { long ignoreXX;
21749                   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
21750                   arg0K0 = 0;
21751                   goto L25791;}}}}}}}}}
21752  L25771: {
21753   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
21754     s48_Sstack_limitS = (Sreal_stack_limitS);
21755     if ((s48_Spending_eventsPS)) {
21756       s48_Sstack_limitS = (((char *) -1));
21757       pending_interruptP0_return_value = 0;
21758 #ifdef USE_DIRECT_THREADING
21759       goto *pending_interruptP_return_address;
21760 #else
21761       goto pending_interruptP_return;
21762 #endif
21763 }
21764     else {
21765       pending_interruptP0_return_value = 0;
21766 #ifdef USE_DIRECT_THREADING
21767       goto *pending_interruptP_return_address;
21768 #else
21769       goto pending_interruptP_return;
21770 #endif
21771 }}
21772   else {
21773     pending_interruptP0_return_value = 1;
21774 #ifdef USE_DIRECT_THREADING
21775     goto *pending_interruptP_return_address;
21776 #else
21777     goto pending_interruptP_return;
21778 #endif
21779 }}
21780  L25791: {
21781   interrupt_bit_2732X = arg0K0;
21782   Spending_interruptsS = ((Spending_interruptsS) | interrupt_bit_2732X);
21783   if ((type_2729X == NO_EVENT)) {
21784     goto L25771;}
21785   else {
21786     goto L25785;}}
21787 #ifndef USE_DIRECT_THREADING
21788  pending_interruptP_return:
21789   switch (pending_interruptP_return_tag) {
21790   case 0: goto pending_interruptP_return_0;
21791   case 1: goto pending_interruptP_return_1;
21792   case 2: goto pending_interruptP_return_2;
21793   case 3: goto pending_interruptP_return_3;
21794   case 4: goto pending_interruptP_return_4;
21795   case 5: goto pending_interruptP_return_5;
21796   default: goto pending_interruptP_return_6;
21797   }
21798 #endif
21799 }
21800 
21801  rest_list_setupAgc: {
21802   wants_stack_args_1116X = merged_arg0K0;
21803   stack_arg_count_1117X = merged_arg0K1;
21804   list_args_1118X = merged_arg0K2;
21805   list_arg_count_1119X = merged_arg0K3;{
21806   if ((stack_arg_count_1117X == wants_stack_args_1116X)) {
21807     merged_arg0K0 = list_args_1118X;
21808     merged_arg0K1 = list_arg_count_1119X;
21809 #ifdef USE_DIRECT_THREADING
21810     copy_listSAgc_return_address = &&copy_listSAgc_return_1;
21811 #else
21812     copy_listSAgc_return_tag = 1;
21813 #endif
21814     goto copy_listSAgc;
21815    copy_listSAgc_return_1:
21816     x_2733X = copy_listSAgc0_return_value;
21817     SstackS = ((SstackS) + -8);
21818     *((long *) (SstackS)) = (long) (x_2733X);
21819 #ifdef USE_DIRECT_THREADING
21820     goto *rest_list_setupAgc_return_address;
21821 #else
21822     goto rest_list_setupAgc_return;
21823 #endif
21824 }
21825   else {
21826     if ((stack_arg_count_1117X < wants_stack_args_1116X)) {
21827       count_2734X = wants_stack_args_1116X - stack_arg_count_1117X;
21828       merged_arg0K0 = list_args_1118X;
21829       merged_arg0K1 = count_2734X;
21830 #ifdef USE_DIRECT_THREADING
21831       push_list_return_address = &&push_list_return_4;
21832 #else
21833       push_list_return_tag = 4;
21834 #endif
21835       goto push_list;
21836      push_list_return_4:
21837       v_2735X = push_list0_return_value;
21838       merged_arg0K0 = v_2735X;
21839       merged_arg0K1 = (list_arg_count_1119X - count_2734X);
21840 #ifdef USE_DIRECT_THREADING
21841       copy_listSAgc_return_address = &&copy_listSAgc_return_2;
21842 #else
21843       copy_listSAgc_return_tag = 2;
21844 #endif
21845       goto copy_listSAgc;
21846      copy_listSAgc_return_2:
21847       x_2736X = copy_listSAgc0_return_value;
21848       SstackS = ((SstackS) + -8);
21849       *((long *) (SstackS)) = (long) (x_2736X);
21850 #ifdef USE_DIRECT_THREADING
21851       goto *rest_list_setupAgc_return_address;
21852 #else
21853       goto rest_list_setupAgc_return;
21854 #endif
21855 }
21856     else {
21857       merged_arg0K0 = list_args_1118X;
21858       merged_arg0K1 = list_arg_count_1119X;
21859 #ifdef USE_DIRECT_THREADING
21860       copy_listSAgc_return_address = &&copy_listSAgc_return_3;
21861 #else
21862       copy_listSAgc_return_tag = 3;
21863 #endif
21864       goto copy_listSAgc;
21865      copy_listSAgc_return_3:
21866       v_2737X = copy_listSAgc0_return_value;
21867       merged_arg0K0 = v_2737X;
21868       merged_arg0K1 = (stack_arg_count_1117X - wants_stack_args_1116X);
21869 #ifdef USE_DIRECT_THREADING
21870       pop_args_GlistSAgc_return_address = &&pop_args_GlistSAgc_return_12;
21871 #else
21872       pop_args_GlistSAgc_return_tag = 12;
21873 #endif
21874       goto pop_args_GlistSAgc;
21875      pop_args_GlistSAgc_return_12:
21876       x_2738X = pop_args_GlistSAgc0_return_value;
21877       SstackS = ((SstackS) + -8);
21878       *((long *) (SstackS)) = (long) (x_2738X);
21879 #ifdef USE_DIRECT_THREADING
21880       goto *rest_list_setupAgc_return_address;
21881 #else
21882       goto rest_list_setupAgc_return;
21883 #endif
21884 }}}
21885 #ifndef USE_DIRECT_THREADING
21886  rest_list_setupAgc_return:
21887   switch (rest_list_setupAgc_return_tag) {
21888   case 0: goto rest_list_setupAgc_return_0;
21889   default: goto rest_list_setupAgc_return_1;
21890   }
21891 #endif
21892 }
21893 
21894  copy_listSAgc: {
21895   list_1114X = merged_arg0K0;
21896   length_1115X = merged_arg0K1;{
21897   if ((0 == length_1115X)) {
21898     copy_listSAgc0_return_value = 25;
21899 #ifdef USE_DIRECT_THREADING
21900     goto *copy_listSAgc_return_address;
21901 #else
21902     goto copy_listSAgc_return;
21903 #endif
21904 }
21905   else {
21906     Stemp0S = list_1114X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((3 * length_1115X), 3)));
21907     value_2739X = Stemp0S;
21908     Stemp0S = 1;
21909     a_2740X = *((long *) (((char *) (-3 + value_2739X))));
21910     addr_2741X = s48_allocate_small(24);
21911     *((long *) addr_2741X) = (long) (4098);
21912     x_2742X = 3 + (((long) (addr_2741X + 8)));
21913     *((long *) (((char *) (-3 + x_2742X)))) = (long) (a_2740X);
21914     *((long *) ((((char *) (-3 + x_2742X))) + 8)) = (long) (25);
21915     arg0K0 = (*((long *) ((((char *) (-3 + value_2739X))) + 8)));
21916     arg0K1 = x_2742X;
21917     goto L24912;}}
21918  L24912: {
21919   l_2743X = arg0K0;
21920   last_2744X = arg0K1;
21921   if ((25 == l_2743X)) {
21922     copy_listSAgc0_return_value = x_2742X;
21923 #ifdef USE_DIRECT_THREADING
21924     goto *copy_listSAgc_return_address;
21925 #else
21926     goto copy_listSAgc_return;
21927 #endif
21928 }
21929   else {
21930     a_2745X = *((long *) (((char *) (-3 + l_2743X))));
21931     addr_2746X = s48_allocate_small(24);
21932     *((long *) addr_2746X) = (long) (4098);
21933     x_2747X = 3 + (((long) (addr_2746X + 8)));
21934     *((long *) (((char *) (-3 + x_2747X)))) = (long) (a_2745X);
21935     *((long *) ((((char *) (-3 + x_2747X))) + 8)) = (long) (25);
21936     addr_2748X = (((char *) (-3 + last_2744X))) + 8;S48_WRITE_BARRIER(last_2744X, addr_2748X, x_2747X);
21937     *((long *) addr_2748X) = (long) (x_2747X);
21938     arg0K0 = (*((long *) ((((char *) (-3 + l_2743X))) + 8)));
21939     arg0K1 = x_2747X;
21940     goto L24912;}}
21941 #ifndef USE_DIRECT_THREADING
21942  copy_listSAgc_return:
21943   switch (copy_listSAgc_return_tag) {
21944   case 0: goto copy_listSAgc_return_0;
21945   case 1: goto copy_listSAgc_return_1;
21946   case 2: goto copy_listSAgc_return_2;
21947   default: goto copy_listSAgc_return_3;
21948   }
21949 #endif
21950 }
21951 
21952  pop_args_GlistSAgc: {
21953   start_1112X = merged_arg0K0;
21954   count_1113X = merged_arg0K1;{
21955   Stemp0S = start_1112X;s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((3 * count_1113X), 3)));
21956   value_2749X = Stemp0S;
21957   Stemp0S = 1;
21958   arg0K0 = value_2749X;
21959   arg0K1 = count_1113X;
21960   goto L25024;}
21961  L25024: {
21962   args_2750X = arg0K0;
21963   count_2751X = arg0K1;
21964   if ((0 == count_2751X)) {
21965     pop_args_GlistSAgc0_return_value = args_2750X;
21966 #ifdef USE_DIRECT_THREADING
21967     goto *pop_args_GlistSAgc_return_address;
21968 #else
21969     goto pop_args_GlistSAgc_return;
21970 #endif
21971 }
21972   else {
21973     a_2752X = *((long *) (SstackS));
21974     SstackS = ((SstackS) + 8);
21975     addr_2753X = s48_allocate_small(24);
21976     *((long *) addr_2753X) = (long) (4098);
21977     x_2754X = 3 + (((long) (addr_2753X + 8)));
21978     *((long *) (((char *) (-3 + x_2754X)))) = (long) (a_2752X);
21979     *((long *) ((((char *) (-3 + x_2754X))) + 8)) = (long) (args_2750X);
21980     arg0K0 = x_2754X;
21981     arg0K1 = (-1 + count_2751X);
21982     goto L25024;}}
21983 #ifndef USE_DIRECT_THREADING
21984  pop_args_GlistSAgc_return:
21985   switch (pop_args_GlistSAgc_return_tag) {
21986   case 0: goto pop_args_GlistSAgc_return_0;
21987   case 1: goto pop_args_GlistSAgc_return_1;
21988   case 2: goto pop_args_GlistSAgc_return_2;
21989   case 3: goto pop_args_GlistSAgc_return_3;
21990   case 4: goto pop_args_GlistSAgc_return_4;
21991   case 5: goto pop_args_GlistSAgc_return_5;
21992   case 6: goto pop_args_GlistSAgc_return_6;
21993   case 7: goto pop_args_GlistSAgc_return_7;
21994   case 8: goto pop_args_GlistSAgc_return_8;
21995   case 9: goto pop_args_GlistSAgc_return_9;
21996   case 10: goto pop_args_GlistSAgc_return_10;
21997   case 11: goto pop_args_GlistSAgc_return_11;
21998   default: goto pop_args_GlistSAgc_return_12;
21999   }
22000 #endif
22001 }
22002 
22003  push_list: {
22004   list_1110X = merged_arg0K0;
22005   count_1111X = merged_arg0K1;{
22006   SstackS = ((SstackS) + -8);
22007   *((long *) (SstackS)) = (long) (list_1110X);
22008   merged_arg0K0 = count_1111X;
22009 #ifdef USE_DIRECT_THREADING
22010   ensure_stack_spaceB_return_address = &&ensure_stack_spaceB_return_2;
22011 #else
22012   ensure_stack_spaceB_return_tag = 2;
22013 #endif
22014   goto ensure_stack_spaceB;
22015  ensure_stack_spaceB_return_2:
22016   v_2755X = ensure_stack_spaceB0_return_value;
22017   if (v_2755X) {
22018     s48_Sstack_limitS = (((char *) -1));
22019     goto L32167;}
22020   else {
22021     goto L32167;}}
22022  L32167: {
22023   list_2756X = *((long *) (SstackS));
22024   SstackS = ((SstackS) + 8);
22025   arg0K0 = count_1111X;
22026   arg0K1 = list_2756X;
22027   goto L32176;}
22028  L32176: {
22029   i_2757X = arg0K0;
22030   l_2758X = arg0K1;
22031   if ((0 < i_2757X)) {
22032     x_2759X = *((long *) (((char *) (-3 + l_2758X))));
22033     SstackS = ((SstackS) + -8);
22034     *((long *) (SstackS)) = (long) (x_2759X);
22035     arg0K0 = (-1 + i_2757X);
22036     arg0K1 = (*((long *) ((((char *) (-3 + l_2758X))) + 8)));
22037     goto L32176;}
22038   else {
22039     push_list0_return_value = l_2758X;
22040 #ifdef USE_DIRECT_THREADING
22041     goto *push_list_return_address;
22042 #else
22043     goto push_list_return;
22044 #endif
22045 }}
22046 #ifndef USE_DIRECT_THREADING
22047  push_list_return:
22048   switch (push_list_return_tag) {
22049   case 0: goto push_list_return_0;
22050   case 1: goto push_list_return_1;
22051   case 2: goto push_list_return_2;
22052   case 3: goto push_list_return_3;
22053   default: goto push_list_return_4;
22054   }
22055 #endif
22056 }
22057 
22058  ensure_stack_spaceB: {
22059   need_1109X = merged_arg0K0;{
22060   if ((((SstackS) + (512 - (PS_SHIFT_LEFT_INLINE(need_1109X, 3)))) < (s48_Sstack_limitS))) {
22061     interruptP_2760X = (s48_Sstack_limitS) == (((char *) -1));
22062     s48_Sstack_limitS = (Sreal_stack_limitS);
22063     if ((((SstackS) + (512 - (PS_SHIFT_LEFT_INLINE(need_1109X, 3)))) < (Sreal_stack_limitS))) {s48_copy_stack_into_heap();
22064       if ((((SstackS) + (512 - (PS_SHIFT_LEFT_INLINE(need_1109X, 3)))) < (Sreal_stack_limitS))) {
22065         ps_error("VM's stack is too small (how can this happen?)", 0);
22066         ensure_stack_spaceB0_return_value = interruptP_2760X;
22067 #ifdef USE_DIRECT_THREADING
22068         goto *ensure_stack_spaceB_return_address;
22069 #else
22070         goto ensure_stack_spaceB_return;
22071 #endif
22072 }
22073       else {
22074         ensure_stack_spaceB0_return_value = interruptP_2760X;
22075 #ifdef USE_DIRECT_THREADING
22076         goto *ensure_stack_spaceB_return_address;
22077 #else
22078         goto ensure_stack_spaceB_return;
22079 #endif
22080 }}
22081     else {
22082       ensure_stack_spaceB0_return_value = interruptP_2760X;
22083 #ifdef USE_DIRECT_THREADING
22084       goto *ensure_stack_spaceB_return_address;
22085 #else
22086       goto ensure_stack_spaceB_return;
22087 #endif
22088 }}
22089   else {
22090     ensure_stack_spaceB0_return_value = 0;
22091 #ifdef USE_DIRECT_THREADING
22092     goto *ensure_stack_spaceB_return_address;
22093 #else
22094     goto ensure_stack_spaceB_return;
22095 #endif
22096 }}
22097 #ifndef USE_DIRECT_THREADING
22098  ensure_stack_spaceB_return:
22099   switch (ensure_stack_spaceB_return_tag) {
22100   case 0: goto ensure_stack_spaceB_return_0;
22101   case 1: goto ensure_stack_spaceB_return_1;
22102   default: goto ensure_stack_spaceB_return_2;
22103   }
22104 #endif
22105 }
22106 
22107  unused_event_type_uid: {
22108 { goto L71027;}
22109  L71027: {
22110   if ((NULL == (Sunused_event_types_headS))) {
22111     v_2761X = add_external_event_types((PS_SHIFT_LEFT_INLINE((Snumber_of_event_typesS), 1)));
22112     if (v_2761X) {
22113       goto L71027;}
22114     else {
22115       unused_event_type_uid0_return_value = -1;
22116 #ifdef USE_DIRECT_THREADING
22117       goto *unused_event_type_uid_return_address;
22118 #else
22119       goto unused_event_type_uid_return;
22120 #endif
22121 }}
22122   else {
22123     unused_event_type_uid0_return_value = ((Sunused_event_types_headS)->uid);
22124 #ifdef USE_DIRECT_THREADING
22125     goto *unused_event_type_uid_return_address;
22126 #else
22127     goto unused_event_type_uid_return;
22128 #endif
22129 }}
22130 #ifndef USE_DIRECT_THREADING
22131  unused_event_type_uid_return:
22132   switch (unused_event_type_uid_return_tag) {
22133   case 0: goto unused_event_type_uid_return_0;
22134   default: goto unused_event_type_uid_return_1;
22135   }
22136 #endif
22137 }
22138 
22139  loseD0: {
22140   message_1108X = merged_arg5K0;{
22141   ps_write_string("Template UIDs: ", (stderr));
22142   current_code_2762X = current_code_vector();
22143   out_2763X = stderr;
22144   merged_arg3K0 = (SstackS);
22145   merged_arg0K1 = (PS_SHIFT_RIGHT_INLINE(((ScontS) - (SstackS)), 3));
22146   merged_arg0K2 = current_code_2762X;
22147 #ifdef USE_DIRECT_THREADING
22148   find_template_return_address = &&find_template_return_0;
22149 #else
22150   find_template_return_tag = 0;
22151 #endif
22152   goto find_template;
22153  find_template_return_0:
22154   template_2764X = find_template0_return_value;
22155   merged_arg0K0 = template_2764X;
22156   merged_arg4K1 = 0;
22157   merged_arg6K2 = out_2763X;
22158 #ifdef USE_DIRECT_THREADING
22159   maybe_write_template_return_address = &&maybe_write_template_return_0;
22160 #else
22161   maybe_write_template_return_tag = 0;
22162 #endif
22163   goto maybe_write_template;
22164  maybe_write_template_return_0:
22165   not_firstP_2765X = maybe_write_template0_return_value;
22166   arg3K0 = (ScontS);
22167   arg4K1 = not_firstP_2765X;
22168   goto L30248;}
22169  L30248: {
22170   cont_2766X = arg3K0;
22171   not_firstP_2767X = arg4K1;
22172   if ((cont_2766X == (Sbottom_of_stackS))) {
22173     cont_2768X = Sheap_continuationS;
22174     arg0K0 = cont_2768X;
22175     arg4K1 = not_firstP_2767X;
22176     goto L29480;}
22177   else {
22178     code_pointer_2769X = ((char *) (*((long *) cont_2766X)));
22179     pointer_2770X = code_pointer_2769X + -5;
22180     v_2771X = 3 + (((long) (code_pointer_2769X + (0 - ((PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_2770X)), 8)) + (*((unsigned char *) (pointer_2770X + 1))))))));
22181     pointer_2772X = (((char *) (*((long *) cont_2766X)))) + -2;
22182     size_2773X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_2772X)), 8)) + (*((unsigned char *) (pointer_2772X + 1)));
22183     if ((65535 == size_2773X)) {
22184       arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_2766X + 8))), 2));
22185       goto L23853;}
22186     else {
22187       arg0K0 = size_2773X;
22188       goto L23853;}}}
22189  L29480: {
22190   cont_2774X = arg0K0;
22191   not_firstP_2775X = arg4K1;
22192   if ((3 == (3 & cont_2774X))) {
22193     if ((10 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + cont_2774X))))), 2))))) {
22194       merged_arg3K0 = (((char *) (-3 + cont_2774X)));
22195       merged_arg0K1 = (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_RIGHT_LOGICAL_INLINE((*((long *) (((char *) (-11 + cont_2774X))))), 8))), 3));
22196       merged_arg0K2 = (*((long *) ((((char *) (-3 + cont_2774X))) + 8)));
22197 #ifdef USE_DIRECT_THREADING
22198       find_template_return_address = &&find_template_return_1;
22199 #else
22200       find_template_return_tag = 1;
22201 #endif
22202       goto find_template;
22203      find_template_return_1:
22204       v_2776X = find_template0_return_value;
22205       merged_arg0K0 = v_2776X;
22206       merged_arg4K1 = not_firstP_2775X;
22207       merged_arg6K2 = out_2763X;
22208 #ifdef USE_DIRECT_THREADING
22209       maybe_write_template_return_address = &&maybe_write_template_return_1;
22210 #else
22211       maybe_write_template_return_tag = 1;
22212 #endif
22213       goto maybe_write_template;
22214      maybe_write_template_return_1:
22215       v_2777X = maybe_write_template0_return_value;
22216       arg0K0 = (*((long *) ((((char *) (-3 + cont_2774X))) + 16)));
22217       arg4K1 = v_2777X;
22218       goto L29480;}
22219     else {
22220       goto L33926;}}
22221   else {
22222     goto L33926;}}
22223  L23853: {
22224   v_2778X = arg0K0;
22225   merged_arg3K0 = (cont_2766X + 8);
22226   merged_arg0K1 = v_2778X;
22227   merged_arg0K2 = v_2771X;
22228 #ifdef USE_DIRECT_THREADING
22229   find_template_return_address = &&find_template_return_2;
22230 #else
22231   find_template_return_tag = 2;
22232 #endif
22233   goto find_template;
22234  find_template_return_2:
22235   v_2779X = find_template0_return_value;
22236   merged_arg0K0 = v_2779X;
22237   merged_arg4K1 = not_firstP_2767X;
22238   merged_arg6K2 = out_2763X;
22239 #ifdef USE_DIRECT_THREADING
22240   maybe_write_template_return_address = &&maybe_write_template_return_2;
22241 #else
22242   maybe_write_template_return_tag = 2;
22243 #endif
22244   goto maybe_write_template;
22245  maybe_write_template_return_2:
22246   v_2780X = maybe_write_template0_return_value;
22247   pointer_2781X = (((char *) (*((long *) cont_2766X)))) + -2;
22248   size_2782X = (PS_SHIFT_LEFT_INLINE((*((unsigned char *) pointer_2781X)), 8)) + (*((unsigned char *) (pointer_2781X + 1)));
22249   if ((65535 == size_2782X)) {
22250     arg0K0 = (PS_SHIFT_RIGHT_INLINE((*((long *) (cont_2766X + 8))), 2));
22251     goto L30266;}
22252   else {
22253     arg0K0 = size_2782X;
22254     goto L30266;}}
22255  L33926: {
22256   { long ignoreXX;
22257   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
22258   why_2783X = PS_SHIFT_RIGHT_INLINE((*((long *) ((SstackS) + (PS_SHIFT_LEFT_INLINE(nargs_1169X, 3))))), 2);
22259   if ((why_2783X == 1)) {
22260     if ((0 == (3 & (*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE(nargs_1169X, 3)))))))))))))) {
22261       ps_error(message_1108X, 3, opcode_1170X, why_2783X, (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (-8 + (PS_SHIFT_LEFT_INLINE(nargs_1169X, 3))))))))))), 2)));
22262 #ifdef USE_DIRECT_THREADING
22263       goto *loseD0_return_address;
22264 #else
22265       goto loseD0_return;
22266 #endif
22267 }
22268     else {
22269       goto L33873;}}
22270   else {
22271     goto L33873;}}
22272  L30266: {
22273   v_2784X = arg0K0;
22274   arg3K0 = (cont_2766X + (8 + (PS_SHIFT_LEFT_INLINE(v_2784X, 3))));
22275   arg4K1 = v_2780X;
22276   goto L30248;}
22277  L33873: {
22278   ps_error(message_1108X, 2, opcode_1170X, why_2783X);
22279 #ifdef USE_DIRECT_THREADING
22280   goto *loseD0_return_address;
22281 #else
22282   goto loseD0_return;
22283 #endif
22284 }
22285 #ifndef USE_DIRECT_THREADING
22286  loseD0_return:
22287   switch (loseD0_return_tag) {
22288   case 0: goto loseD0_return_0;
22289   default: goto loseD0_return_1;
22290   }
22291 #endif
22292 }
22293 
22294  find_template: {
22295   start_1105X = merged_arg3K0;
22296   count_1106X = merged_arg0K1;
22297   code_vector_1107X = merged_arg0K2;{
22298   arg0K0 = 0;
22299   goto L20582;}
22300  L20582: {
22301   i_2785X = arg0K0;
22302   if ((i_2785X == count_1106X)) {
22303     find_template0_return_value = 1;
22304 #ifdef USE_DIRECT_THREADING
22305     goto *find_template_return_address;
22306 #else
22307     goto find_template_return;
22308 #endif
22309 }
22310   else {
22311     next_2786X = *((long *) (start_1105X + (PS_SHIFT_LEFT_INLINE(i_2785X, 3))));
22312     if ((3 == (3 & next_2786X))) {
22313       if ((12 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + next_2786X))))), 2))))) {
22314         if (((*((long *) (((char *) (-3 + next_2786X))))) == code_vector_1107X)) {
22315           find_template0_return_value = next_2786X;
22316 #ifdef USE_DIRECT_THREADING
22317           goto *find_template_return_address;
22318 #else
22319           goto find_template_return;
22320 #endif
22321 }
22322         else {
22323           goto L20604;}}
22324       else {
22325         goto L20604;}}
22326     else {
22327       goto L20604;}}}
22328  L20604: {
22329   arg0K0 = (1 + i_2785X);
22330   goto L20582;}
22331 #ifndef USE_DIRECT_THREADING
22332  find_template_return:
22333   switch (find_template_return_tag) {
22334   case 0: goto find_template_return_0;
22335   case 1: goto find_template_return_1;
22336   default: goto find_template_return_2;
22337   }
22338 #endif
22339 }
22340 
22341  maybe_write_template: {
22342   template_1102X = merged_arg0K0;
22343   not_firstP_1103X = merged_arg4K1;
22344   out_1104X = merged_arg6K2;{
22345   if (not_firstP_1103X) {
22346     ps_write_string(" <- ", out_1104X);
22347     goto L25944;}
22348   else {
22349     goto L25944;}}
22350  L25944: {
22351   if ((3 == (3 & template_1102X))) {
22352     if ((12 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + template_1102X))))), 2))))) {
22353       name_2787X = *((long *) ((((char *) (-3 + template_1102X))) + 16));
22354       if ((0 == (3 & name_2787X))) {
22355         ps_write_integer((PS_SHIFT_RIGHT_INLINE(name_2787X, 2)), out_1104X);
22356         maybe_write_template0_return_value = 1;
22357 #ifdef USE_DIRECT_THREADING
22358         goto *maybe_write_template_return_address;
22359 #else
22360         goto maybe_write_template_return;
22361 #endif
22362 }
22363       else {
22364         if ((3 == (3 & name_2787X))) {
22365           if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + name_2787X))))), 2))))) {
22366             obj_2788X = *((long *) ((((char *) (-3 + name_2787X))) + 16));
22367             if ((3 == (3 & obj_2788X))) {
22368               if ((16 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_2788X))))), 2))))) {write_vm_string((*((long *) ((((char *) (-3 + name_2787X))) + 16))), out_1104X);
22369                 maybe_write_template0_return_value = 1;
22370 #ifdef USE_DIRECT_THREADING
22371                 goto *maybe_write_template_return_address;
22372 #else
22373                 goto maybe_write_template_return;
22374 #endif
22375 }
22376               else {
22377                 goto L25979;}}
22378             else {
22379               goto L25979;}}
22380           else {
22381             goto L25979;}}
22382         else {
22383           goto L25979;}}}
22384     else {
22385       goto L26002;}}
22386   else {
22387     goto L26002;}}
22388  L25979: {
22389   if ((3 == (3 & name_2787X))) {
22390     if ((9 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + name_2787X))))), 2))))) {
22391       obj_2789X = *((long *) ((((char *) (-3 + name_2787X))) + 16));
22392       if ((3 == (3 & obj_2789X))) {
22393         if ((1 == (31 & (PS_SHIFT_RIGHT_INLINE((*((long *) (((char *) (-11 + obj_2789X))))), 2))))) {write_vm_string((*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + name_2787X))) + 16)))))))), out_1104X);
22394           maybe_write_template0_return_value = 1;
22395 #ifdef USE_DIRECT_THREADING
22396           goto *maybe_write_template_return_address;
22397 #else
22398           goto maybe_write_template_return;
22399 #endif
22400 }
22401         else {
22402           goto L25999;}}
22403       else {
22404         goto L25999;}}
22405     else {
22406       goto L25999;}}
22407   else {
22408     goto L25999;}}
22409  L26002: {
22410   ps_write_string(" ?? ", out_1104X);
22411   maybe_write_template0_return_value = 1;
22412 #ifdef USE_DIRECT_THREADING
22413   goto *maybe_write_template_return_address;
22414 #else
22415   goto maybe_write_template_return;
22416 #endif
22417 }
22418  L25999: {
22419   ps_write_string("?", out_1104X);
22420   maybe_write_template0_return_value = 1;
22421 #ifdef USE_DIRECT_THREADING
22422   goto *maybe_write_template_return_address;
22423 #else
22424   goto maybe_write_template_return;
22425 #endif
22426 }
22427 #ifndef USE_DIRECT_THREADING
22428  maybe_write_template_return:
22429   switch (maybe_write_template_return_tag) {
22430   case 0: goto maybe_write_template_return_0;
22431   case 1: goto maybe_write_template_return_1;
22432   default: goto maybe_write_template_return_2;
22433   }
22434 #endif
22435 }
22436 
22437 }
s48_call_startup_procedure(char ** startup_vector_2790X,long startup_vector_length_2791X)22438 long s48_call_startup_procedure(char **startup_vector_2790X, long startup_vector_length_2791X)
22439 {
22440   long arg0K2;
22441   long arg0K1;
22442   long arg0K0;
22443   long merged_arg0K1;
22444   char *merged_arg5K0;
22445 
22446 #ifdef USE_DIRECT_THREADING
22447   void *enter_string_return_address;
22448 #else
22449   int enter_string_return_tag;
22450 #endif
22451   long enter_string0_return_value;
22452   char *string_2792X;
22453   long shifted_2849X;
22454   long j_2848X;
22455   long bits_2847X;
22456   long c_2846X;
22457   long i_2845X;
22458   long s_2844X;
22459   char * addr_2843X;
22460   long len_2842X;
22461   long len_2841X;
22462   long v_2840X;
22463   long x_2839X;
22464   long error_encoding_2838X;
22465   long output_encoding_2837X;
22466   long input_encoding_2836X;
22467   long vm_channel_2835X;
22468   long v_2834X;
22469   long channel_2833X;
22470   long vm_channel_2832X;
22471   long v_2831X;
22472   long channel_2830X;
22473   long vm_channel_2829X;
22474   long v_2828X;
22475   long channel_2827X;
22476   char *error_encoding_2826X;
22477   long v_2825X;
22478   char *input_encoding_2824X;
22479   long v_2823X;
22480   char *output_encoding_2822X;
22481   long v_2821X;
22482   long i_2820X;
22483   long length_2819X;
22484   long *v_2818X;
22485   long v_2817X;
22486   long v_2816X;
22487   long y_2815X;
22488   long x_2814X;
22489   long v_2813X;
22490   char * addr_2812X;
22491   long i_2811X;
22492   long x_2810X;
22493   long y_2809X;
22494   long vec_2808X;
22495   char * addr_2807X;
22496   long length_2806X;
22497   long len_2805X;
22498   char *s_2804X;
22499   long y_2803X;
22500   long x_2802X;
22501   long i_2801X;
22502   long vector_2800X;
22503   char * addr_2799X;
22504   long len_2798X;
22505   long count_2797X;
22506   long i_2796X;
22507   long code_2795X;
22508   long code_2794X;
22509   long code_2793X;
22510  {  SstackS = (Sbottom_of_stackS);
22511   Sheap_continuationS = 1;
22512   ScontS = (Sbottom_of_stackS);
22513   code_2793X = Sinterrupted_byte_opcode_return_codeS;
22514   Slast_code_calledS = code_2793X;
22515   Scode_pointerS = (((char *) (-3 + code_2793X)));
22516   code_2794X = Sinterrupted_native_call_return_codeS;
22517   Slast_code_calledS = code_2794X;
22518   Scode_pointerS = (((char *) (-3 + code_2794X)));
22519   code_2795X = Snative_poll_return_codeS;
22520   Slast_code_calledS = code_2795X;
22521   Scode_pointerS = (((char *) (-3 + code_2795X)));
22522   Slast_code_pointer_resumedS = (Scode_pointerS);
22523   SvalS = 13;
22524   Scurrent_threadS = 25;SHARED_SETB((Ssession_dataS), 25);SHARED_SETB((Sexception_handlersS), 25);SHARED_SETB((Sinterrupt_handlersS), 25);
22525   Senabled_interruptsS = 0;SHARED_SETB((Sfinalizer_alistS), 25);
22526   Sfinalize_theseS = 25;
22527   Spending_interruptsS = 0;
22528   s48_Spending_interruptPS = 0;
22529   Sos_signal_ring_startS = 0;
22530   Sos_signal_ring_readyS = 0;
22531   Sos_signal_ring_endS = 0;
22532   Sinterrupted_templateS = 1;
22533   s48_Snc_templateS = 1;
22534   arg0K0 = 0;
22535   arg0K1 = 0;
22536   goto L22102;}
22537  L22102: {
22538   i_2796X = arg0K0;
22539   count_2797X = arg0K1;
22540   if ((i_2796X == startup_vector_length_2791X)) {s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((((1 + startup_vector_length_2791X) + startup_vector_length_2791X) + (PS_SHIFT_RIGHT_INLINE((7 + count_2797X), 3))), 3)));
22541     len_2798X = PS_SHIFT_LEFT_INLINE(startup_vector_length_2791X, 3);
22542     addr_2799X = s48_allocate_small((8 + len_2798X));
22543     *((long *) addr_2799X) = (long) ((10 + (PS_SHIFT_LEFT_INLINE(len_2798X, 8))));
22544     vector_2800X = 3 + (((long) (addr_2799X + 8)));
22545     arg0K0 = 0;
22546     goto L22219;}
22547   else {
22548     arg0K0 = (1 + i_2796X);
22549     arg0K1 = (1 + (count_2797X + (strlen((char *) (*(startup_vector_2790X + i_2796X))))));
22550     goto L22102;}}
22551  L22219: {
22552   i_2801X = arg0K0;
22553   if ((i_2801X == startup_vector_length_2791X)) {
22554     SstackS = ((SstackS) + -8);
22555     *((long *) (SstackS)) = (long) (vector_2800X);
22556     x_2802X = STDOUT_FD();
22557     y_2803X = STDERR_FD();
22558     if ((x_2802X < y_2803X)) {
22559       arg0K0 = y_2803X;
22560       goto L29180;}
22561     else {
22562       arg0K0 = x_2802X;
22563       goto L29180;}}
22564   else {
22565     s_2804X = *(startup_vector_2790X + i_2801X);
22566     len_2805X = strlen((char *) s_2804X);
22567     length_2806X = 1 + len_2805X;
22568     addr_2807X = s48_allocate_small((8 + length_2806X));
22569     *((long *) addr_2807X) = (long) ((70 + (PS_SHIFT_LEFT_INLINE(length_2806X, 8))));
22570     vec_2808X = 3 + (((long) (addr_2807X + 8)));
22571     arg0K0 = 0;
22572     goto L22239;}}
22573  L29180: {
22574   y_2809X = arg0K0;
22575   x_2810X = STDIN_FD();
22576   if ((x_2810X < y_2809X)) {
22577     arg0K0 = y_2809X;
22578     goto L29182;}
22579   else {
22580     arg0K0 = x_2810X;
22581     goto L29182;}}
22582  L22239: {
22583   i_2811X = arg0K0;
22584   if ((len_2805X < i_2811X)) {
22585     addr_2812X = (((char *) (-3 + vector_2800X))) + (PS_SHIFT_LEFT_INLINE(i_2801X, 3));S48_WRITE_BARRIER(vector_2800X, addr_2812X, vec_2808X);
22586     *((long *) addr_2812X) = (long) (vec_2808X);
22587     arg0K0 = (1 + i_2801X);
22588     goto L22219;}
22589   else {
22590     *((unsigned char *) ((((char *) (-3 + vec_2808X))) + i_2811X)) = (unsigned char) ((((unsigned char) (*(s_2804X + i_2811X)))));
22591     arg0K0 = (1 + i_2811X);
22592     goto L22239;}}
22593  L29182: {
22594   v_2813X = arg0K0;
22595   x_2814X = Snumber_of_channelsS;
22596   y_2815X = 1 + v_2813X;
22597   if ((x_2814X < y_2815X)) {
22598     arg0K0 = y_2815X;
22599     goto L29184;}
22600   else {
22601     arg0K0 = x_2814X;
22602     goto L29184;}}
22603  L29184: {
22604   v_2816X = arg0K0;
22605   Snumber_of_channelsS = v_2816X;
22606   v_2817X = STDIN_FD();
22607   Svm_channelsS = ((long*)malloc(sizeof(long) * (Snumber_of_channelsS)));
22608   Spending_channels_headS = 1;
22609   Spending_channels_tailS = 1;
22610   if ((NULL == (Svm_channelsS))) {
22611     ps_error("out of memory, unable to continue", 0);
22612     goto L29206;}
22613   else {
22614     goto L29206;}}
22615  L29206: {
22616   v_2818X = Svm_channelsS;
22617   length_2819X = Snumber_of_channelsS;
22618   arg0K0 = 0;
22619   goto L29306;}
22620  L29306: {
22621   i_2820X = arg0K0;
22622   if ((i_2820X < length_2819X)) {
22623     *(v_2818X + i_2820X) = 1;
22624     arg0K0 = (1 + i_2820X);
22625     goto L29306;}
22626   else {
22627     v_2821X = STDOUT_FD();
22628     output_encoding_2822X = ps_console_encoding(v_2821X);
22629     v_2823X = STDIN_FD();
22630     input_encoding_2824X = ps_console_encoding(v_2823X);
22631     v_2825X = STDERR_FD();
22632     error_encoding_2826X = ps_console_encoding(v_2825X);
22633     if ((NULL == input_encoding_2824X)) {
22634       goto L29243;}
22635     else {
22636       if ((NULL == output_encoding_2822X)) {
22637         goto L29243;}
22638       else {
22639         if ((NULL == error_encoding_2826X)) {
22640           goto L29243;}
22641         else {
22642           goto L29248;}}}}}
22643  L29243: {
22644   ps_error("out of memory, unable to continue", 0);
22645   goto L29248;}
22646  L29248: {
22647 s48_make_availableAgc((PS_SHIFT_LEFT_INLINE((3 * (12 + ((((PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_LEFT_INLINE((strlen((char *) "standard output")), 2))), 3)) + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_LEFT_INLINE((strlen((char *) input_encoding_2824X)), 2))), 3))) + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_LEFT_INLINE((strlen((char *) output_encoding_2822X)), 2))), 3))) + (PS_SHIFT_RIGHT_INLINE((7 + (PS_SHIFT_LEFT_INLINE((strlen((char *) error_encoding_2826X)), 2))), 3))))), 3)));
22648   channel_2827X = STDERR_FD();
22649   merged_arg5K0 = "standard error";
22650   merged_arg0K1 = 0;
22651 #ifdef USE_DIRECT_THREADING
22652   enter_string_return_address = &&enter_string_return_0;
22653 #else
22654   enter_string_return_tag = 0;
22655 #endif
22656   goto enter_string;
22657  enter_string_return_0:
22658   v_2828X = enter_string0_return_value;
22659   vm_channel_2829X = make_channel(8, v_2828X, (PS_SHIFT_LEFT_INLINE(channel_2827X, 2)), 1, 1, 1, 1, 0);
22660   *((Svm_channelsS) + channel_2827X) = vm_channel_2829X;
22661   channel_2830X = STDIN_FD();
22662   merged_arg5K0 = "standard input";
22663   merged_arg0K1 = 0;
22664 #ifdef USE_DIRECT_THREADING
22665   enter_string_return_address = &&enter_string_return_1;
22666 #else
22667   enter_string_return_tag = 1;
22668 #endif
22669   goto enter_string;
22670  enter_string_return_1:
22671   v_2831X = enter_string0_return_value;
22672   vm_channel_2832X = make_channel(4, v_2831X, (PS_SHIFT_LEFT_INLINE(channel_2830X, 2)), 1, 1, 1, 1, 0);
22673   *((Svm_channelsS) + channel_2830X) = vm_channel_2832X;
22674   channel_2833X = STDOUT_FD();
22675   merged_arg5K0 = "standard output";
22676   merged_arg0K1 = 0;
22677 #ifdef USE_DIRECT_THREADING
22678   enter_string_return_address = &&enter_string_return_2;
22679 #else
22680   enter_string_return_tag = 2;
22681 #endif
22682   goto enter_string;
22683  enter_string_return_2:
22684   v_2834X = enter_string0_return_value;
22685   vm_channel_2835X = make_channel(8, v_2834X, (PS_SHIFT_LEFT_INLINE(channel_2833X, 2)), 1, 1, 1, 1, 0);
22686   *((Svm_channelsS) + channel_2833X) = vm_channel_2835X;
22687   merged_arg5K0 = input_encoding_2824X;
22688   merged_arg0K1 = 0;
22689 #ifdef USE_DIRECT_THREADING
22690   enter_string_return_address = &&enter_string_return_3;
22691 #else
22692   enter_string_return_tag = 3;
22693 #endif
22694   goto enter_string;
22695  enter_string_return_3:
22696   input_encoding_2836X = enter_string0_return_value;
22697   merged_arg5K0 = output_encoding_2822X;
22698   merged_arg0K1 = 0;
22699 #ifdef USE_DIRECT_THREADING
22700   enter_string_return_address = &&enter_string_return_4;
22701 #else
22702   enter_string_return_tag = 4;
22703 #endif
22704   goto enter_string;
22705  enter_string_return_4:
22706   output_encoding_2837X = enter_string0_return_value;
22707   merged_arg5K0 = error_encoding_2826X;
22708   merged_arg0K1 = 0;
22709 #ifdef USE_DIRECT_THREADING
22710   enter_string_return_address = &&enter_string_return_5;
22711 #else
22712   enter_string_return_tag = 5;
22713 #endif
22714   goto enter_string;
22715  enter_string_return_5:
22716   error_encoding_2838X = enter_string0_return_value;
22717   SstackS = ((SstackS) + -8);
22718   *((long *) (SstackS)) = (long) (vm_channel_2832X);
22719   SstackS = ((SstackS) + -8);
22720   *((long *) (SstackS)) = (long) (input_encoding_2836X);
22721   SstackS = ((SstackS) + -8);
22722   *((long *) (SstackS)) = (long) (vm_channel_2835X);
22723   SstackS = ((SstackS) + -8);
22724   *((long *) (SstackS)) = (long) (output_encoding_2837X);
22725   SstackS = ((SstackS) + -8);
22726   *((long *) (SstackS)) = (long) (vm_channel_2829X);
22727   SstackS = ((SstackS) + -8);
22728   *((long *) (SstackS)) = (long) (error_encoding_2838X);
22729   x_2839X = s48_resumer_records();
22730   SstackS = ((SstackS) + -8);
22731   *((long *) (SstackS)) = (long) (x_2839X);s48_initialization_completeB();
22732   v_2840X = s48_startup_procedure();
22733   return s48_restart(v_2840X, 8);}
22734  enter_string: {
22735   string_2792X = merged_arg5K0;{
22736   len_2841X = strlen((char *) string_2792X);
22737   len_2842X = PS_SHIFT_LEFT_INLINE(len_2841X, 2);
22738   addr_2843X = s48_allocate_small((8 + len_2842X));
22739   *((long *) addr_2843X) = (long) ((66 + (PS_SHIFT_LEFT_INLINE(len_2842X, 8))));
22740   s_2844X = 3 + (((long) (addr_2843X + 8)));
22741   arg0K0 = 0;
22742   goto L22340;}
22743  L22340: {
22744   i_2845X = arg0K0;
22745   if ((i_2845X < len_2841X)) {
22746     c_2846X = ((unsigned char) (*(string_2792X + i_2845X)));
22747     arg0K0 = 0;
22748     arg0K1 = 0;
22749     arg0K2 = c_2846X;
22750     goto L22351;}
22751   else {
22752     enter_string0_return_value = s_2844X;
22753 #ifdef USE_DIRECT_THREADING
22754     goto *enter_string_return_address;
22755 #else
22756     goto enter_string_return;
22757 #endif
22758 }}
22759  L22351: {
22760   bits_2847X = arg0K0;
22761   j_2848X = arg0K1;
22762   shifted_2849X = arg0K2;
22763   if ((j_2848X < 4)) {
22764     *((unsigned char *) ((((char *) (-3 + s_2844X))) + ((PS_SHIFT_LEFT_INLINE(i_2845X, 2)) + j_2848X))) = (unsigned char) ((255 & shifted_2849X));
22765     arg0K0 = (8 + bits_2847X);
22766     arg0K1 = (1 + j_2848X);
22767     arg0K2 = (PS_SHIFT_RIGHT_LOGICAL_INLINE(shifted_2849X, 8));
22768     goto L22351;}
22769   else {
22770     arg0K0 = (1 + i_2845X);
22771     goto L22340;}}
22772 #ifndef USE_DIRECT_THREADING
22773  enter_string_return:
22774   switch (enter_string_return_tag) {
22775   case 0: goto enter_string_return_0;
22776   case 1: goto enter_string_return_1;
22777   case 2: goto enter_string_return_2;
22778   case 3: goto enter_string_return_3;
22779   case 4: goto enter_string_return_4;
22780   default: goto enter_string_return_5;
22781   }
22782 #endif
22783 }
22784 
22785 }void
s48_init(void)22786 s48_init(void)
22787 {
22788 Snumber_of_channelsS = 100;
22789 Spending_channels_headS = 1;
22790 Spending_channels_tailS = 1;
22791 Sutf_8_state_tableS = malloc(128 * sizeof(long));
22792 Sutf_8_state_tableS[0] = 0;
22793 Sutf_8_state_tableS[1] = 0;
22794 Sutf_8_state_tableS[2] = 0;
22795 Sutf_8_state_tableS[3] = 0;
22796 Sutf_8_state_tableS[4] = 0;
22797 Sutf_8_state_tableS[5] = 0;
22798 Sutf_8_state_tableS[6] = 0;
22799 Sutf_8_state_tableS[7] = 0;
22800 Sutf_8_state_tableS[8] = 0;
22801 Sutf_8_state_tableS[9] = 0;
22802 Sutf_8_state_tableS[10] = 0;
22803 Sutf_8_state_tableS[11] = 0;
22804 Sutf_8_state_tableS[12] = 0;
22805 Sutf_8_state_tableS[13] = 0;
22806 Sutf_8_state_tableS[14] = 0;
22807 Sutf_8_state_tableS[15] = 0;
22808 Sutf_8_state_tableS[16] = -1;
22809 Sutf_8_state_tableS[17] = -1;
22810 Sutf_8_state_tableS[18] = -1;
22811 Sutf_8_state_tableS[19] = -1;
22812 Sutf_8_state_tableS[20] = -1;
22813 Sutf_8_state_tableS[21] = -1;
22814 Sutf_8_state_tableS[22] = -1;
22815 Sutf_8_state_tableS[23] = -1;
22816 Sutf_8_state_tableS[24] = 1;
22817 Sutf_8_state_tableS[25] = 1;
22818 Sutf_8_state_tableS[26] = 1;
22819 Sutf_8_state_tableS[27] = 1;
22820 Sutf_8_state_tableS[28] = 2;
22821 Sutf_8_state_tableS[29] = 2;
22822 Sutf_8_state_tableS[30] = 3;
22823 Sutf_8_state_tableS[31] = -1;
22824 Sutf_8_state_tableS[32] = -2;
22825 Sutf_8_state_tableS[33] = -2;
22826 Sutf_8_state_tableS[34] = -2;
22827 Sutf_8_state_tableS[35] = -2;
22828 Sutf_8_state_tableS[36] = -2;
22829 Sutf_8_state_tableS[37] = -2;
22830 Sutf_8_state_tableS[38] = -2;
22831 Sutf_8_state_tableS[39] = -2;
22832 Sutf_8_state_tableS[40] = -2;
22833 Sutf_8_state_tableS[41] = -2;
22834 Sutf_8_state_tableS[42] = -2;
22835 Sutf_8_state_tableS[43] = -2;
22836 Sutf_8_state_tableS[44] = -2;
22837 Sutf_8_state_tableS[45] = -2;
22838 Sutf_8_state_tableS[46] = -2;
22839 Sutf_8_state_tableS[47] = -2;
22840 Sutf_8_state_tableS[48] = 0;
22841 Sutf_8_state_tableS[49] = 0;
22842 Sutf_8_state_tableS[50] = 0;
22843 Sutf_8_state_tableS[51] = 0;
22844 Sutf_8_state_tableS[52] = 0;
22845 Sutf_8_state_tableS[53] = 0;
22846 Sutf_8_state_tableS[54] = 0;
22847 Sutf_8_state_tableS[55] = 0;
22848 Sutf_8_state_tableS[56] = -2;
22849 Sutf_8_state_tableS[57] = -2;
22850 Sutf_8_state_tableS[58] = -2;
22851 Sutf_8_state_tableS[59] = -2;
22852 Sutf_8_state_tableS[60] = -2;
22853 Sutf_8_state_tableS[61] = -2;
22854 Sutf_8_state_tableS[62] = -2;
22855 Sutf_8_state_tableS[63] = -2;
22856 Sutf_8_state_tableS[64] = -2;
22857 Sutf_8_state_tableS[65] = -2;
22858 Sutf_8_state_tableS[66] = -2;
22859 Sutf_8_state_tableS[67] = -2;
22860 Sutf_8_state_tableS[68] = -2;
22861 Sutf_8_state_tableS[69] = -2;
22862 Sutf_8_state_tableS[70] = -2;
22863 Sutf_8_state_tableS[71] = -2;
22864 Sutf_8_state_tableS[72] = -2;
22865 Sutf_8_state_tableS[73] = -2;
22866 Sutf_8_state_tableS[74] = -2;
22867 Sutf_8_state_tableS[75] = -2;
22868 Sutf_8_state_tableS[76] = -2;
22869 Sutf_8_state_tableS[77] = -2;
22870 Sutf_8_state_tableS[78] = -2;
22871 Sutf_8_state_tableS[79] = -2;
22872 Sutf_8_state_tableS[80] = 1;
22873 Sutf_8_state_tableS[81] = 1;
22874 Sutf_8_state_tableS[82] = 1;
22875 Sutf_8_state_tableS[83] = 1;
22876 Sutf_8_state_tableS[84] = 1;
22877 Sutf_8_state_tableS[85] = 1;
22878 Sutf_8_state_tableS[86] = 1;
22879 Sutf_8_state_tableS[87] = 1;
22880 Sutf_8_state_tableS[88] = -2;
22881 Sutf_8_state_tableS[89] = -2;
22882 Sutf_8_state_tableS[90] = -2;
22883 Sutf_8_state_tableS[91] = -2;
22884 Sutf_8_state_tableS[92] = -2;
22885 Sutf_8_state_tableS[93] = -2;
22886 Sutf_8_state_tableS[94] = -2;
22887 Sutf_8_state_tableS[95] = -2;
22888 Sutf_8_state_tableS[96] = -2;
22889 Sutf_8_state_tableS[97] = -2;
22890 Sutf_8_state_tableS[98] = -2;
22891 Sutf_8_state_tableS[99] = -2;
22892 Sutf_8_state_tableS[100] = -2;
22893 Sutf_8_state_tableS[101] = -2;
22894 Sutf_8_state_tableS[102] = -2;
22895 Sutf_8_state_tableS[103] = -2;
22896 Sutf_8_state_tableS[104] = -2;
22897 Sutf_8_state_tableS[105] = -2;
22898 Sutf_8_state_tableS[106] = -2;
22899 Sutf_8_state_tableS[107] = -2;
22900 Sutf_8_state_tableS[108] = -2;
22901 Sutf_8_state_tableS[109] = -2;
22902 Sutf_8_state_tableS[110] = -2;
22903 Sutf_8_state_tableS[111] = -2;
22904 Sutf_8_state_tableS[112] = 2;
22905 Sutf_8_state_tableS[113] = 2;
22906 Sutf_8_state_tableS[114] = 2;
22907 Sutf_8_state_tableS[115] = 2;
22908 Sutf_8_state_tableS[116] = 2;
22909 Sutf_8_state_tableS[117] = 2;
22910 Sutf_8_state_tableS[118] = 2;
22911 Sutf_8_state_tableS[119] = 2;
22912 Sutf_8_state_tableS[120] = -2;
22913 Sutf_8_state_tableS[121] = -2;
22914 Sutf_8_state_tableS[122] = -2;
22915 Sutf_8_state_tableS[123] = -2;
22916 Sutf_8_state_tableS[124] = -2;
22917 Sutf_8_state_tableS[125] = -2;
22918 Sutf_8_state_tableS[126] = -2;
22919 Sutf_8_state_tableS[127] = -2;
22920 Sutf_8_masksS = malloc(4 * sizeof(long));
22921 Sutf_8_masksS[0] = 127;
22922 Sutf_8_masksS[1] = 31;
22923 Sutf_8_masksS[2] = 15;
22924 Sutf_8_masksS[3] = 7;
22925 Stemp0S = 1;
22926 Stemp1S = 1;
22927 Sstack_warningPS = 1;
22928 Simported_bindingsS = 1;
22929 Sexported_bindingsS = 1;
22930 Snumber_of_event_typesS = 100;
22931 Sgc_in_troublePS = 0;
22932 Sos_signal_ringS = malloc(32 * sizeof(long));
22933 Sos_signal_ringS[0] = 0;
22934 Sos_signal_ringS[1] = 0;
22935 Sos_signal_ringS[2] = 0;
22936 Sos_signal_ringS[3] = 0;
22937 Sos_signal_ringS[4] = 0;
22938 Sos_signal_ringS[5] = 0;
22939 Sos_signal_ringS[6] = 0;
22940 Sos_signal_ringS[7] = 0;
22941 Sos_signal_ringS[8] = 0;
22942 Sos_signal_ringS[9] = 0;
22943 Sos_signal_ringS[10] = 0;
22944 Sos_signal_ringS[11] = 0;
22945 Sos_signal_ringS[12] = 0;
22946 Sos_signal_ringS[13] = 0;
22947 Sos_signal_ringS[14] = 0;
22948 Sos_signal_ringS[15] = 0;
22949 Sos_signal_ringS[16] = 0;
22950 Sos_signal_ringS[17] = 0;
22951 Sos_signal_ringS[18] = 0;
22952 Sos_signal_ringS[19] = 0;
22953 Sos_signal_ringS[20] = 0;
22954 Sos_signal_ringS[21] = 0;
22955 Sos_signal_ringS[22] = 0;
22956 Sos_signal_ringS[23] = 0;
22957 Sos_signal_ringS[24] = 0;
22958 Sos_signal_ringS[25] = 0;
22959 Sos_signal_ringS[26] = 0;
22960 Sos_signal_ringS[27] = 0;
22961 Sos_signal_ringS[28] = 0;
22962 Sos_signal_ringS[29] = 0;
22963 Sos_signal_ringS[30] = 0;
22964 Sos_signal_ringS[31] = 0;
22965 Sos_signal_ring_startS = 0;
22966 Sos_signal_ring_readyS = 0;
22967 Sos_signal_ring_endS = 0;
22968 Sexternal_exceptionPS = 0;
22969 Sexternal_root_stackS = NULL;
22970 Sexternal_root_stack_baseS = NULL;
22971 Spermanent_external_rootsS = NULL;
22972 Spost_gc_cleanupS = HtopD12305;
22973 Sgc_root_procS = HtopD12316;
22974 Snative_exception_contS = 0;
22975 s48_Scallback_return_stack_blockS = 1;
22976 s48_Spending_eventsPS = 0;
22977 }
22978