1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "numlib.h" |
#include "numlib.h" |
4 |
init_numlib(){do_init(VV);} |
void init_numlib(){do_init(VV);} |
5 |
/* local entry for function ISQRT */ |
/* local entry for function ISQRT */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
register object V2; |
register object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
if(!(type_of((V2))==t_fixnum||type_of((V2))==t_bignum)){ |
if(!(type_of((V2))==t_fixnum||type_of((V2))==t_bignum)){ |
14 |
goto T2;} |
goto T2;} |
15 |
if(number_compare((V2),small_fixnum(0))>=0){ |
if(number_compare((V2),small_fixnum(0))>=0){ |
16 |
goto T1;} |
goto T1;} |
17 |
|
goto T2; |
18 |
T2:; |
T2:; |
19 |
base[0]= VV[0]; |
base[0]= VV[0]; |
20 |
base[1]= (V2); |
base[1]= (V2); |
21 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
22 |
Lerror(); |
Lerror(); |
23 |
vs_top=sup; |
vs_top=sup; |
24 |
|
goto T1; |
25 |
T1:; |
T1:; |
26 |
if(!(number_compare(small_fixnum(0),(V2))==0)){ |
if(!(number_compare(small_fixnum(0),(V2))==0)){ |
27 |
goto T9;} |
goto T9;} |
28 |
{object V3 = small_fixnum(0); |
{object V3 = small_fixnum(0); |
29 |
VMR1(V3)} |
VMR1(V3)} |
30 |
|
goto T9; |
31 |
T9:; |
T9:; |
32 |
{object V4; |
{object V4; |
33 |
base[0]= (V2); |
base[0]= (V2); |
49 |
vs_top=sup; |
vs_top=sup; |
50 |
V5= vs_base[0]; |
V5= vs_base[0]; |
51 |
V6= Cnil; |
V6= Cnil; |
52 |
|
goto T19; |
53 |
T19:; |
T19:; |
54 |
base[0]= (V2); |
base[0]= (V2); |
55 |
base[1]= (V5); |
base[1]= (V5); |
61 |
goto T26;} |
goto T26;} |
62 |
{object V7 = (V5); |
{object V7 = (V5); |
63 |
VMR1(V7)} |
VMR1(V7)} |
64 |
|
goto T26; |
65 |
T26:; |
T26:; |
66 |
base[0]= number_plus((V5),(V6)); |
base[0]= number_plus((V5),(V6)); |
67 |
base[1]= small_fixnum(2); |
base[1]= small_fixnum(2); |
70 |
vs_top=sup; |
vs_top=sup; |
71 |
V5= vs_base[0]; |
V5= vs_base[0]; |
72 |
goto T19;}} |
goto T19;}} |
73 |
|
base[0]=base[0]; |
74 |
|
return Cnil; |
75 |
} |
} |
76 |
/* local entry for function ABS */ |
/* local entry for function ABS */ |
77 |
|
|
79 |
|
|
80 |
register object V9; |
register object V9; |
81 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
82 |
|
goto TTL; |
83 |
TTL:; |
TTL:; |
84 |
base[0]= (V9); |
base[0]= (V9); |
85 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
109 |
V15= (V10); |
V15= (V10); |
110 |
V10= (V14); |
V10= (V14); |
111 |
V11= (V15);} |
V11= (V15);} |
112 |
|
goto T45; |
113 |
T45:; |
T45:; |
114 |
if(!(number_compare(small_fixnum(0),(V10))==0)){ |
if(!(number_compare(small_fixnum(0),(V10))==0)){ |
115 |
goto T55;} |
goto T55;} |
116 |
{object V16 = (V10); |
{object V16 = (V10); |
117 |
VMR2(V16)} |
VMR2(V16)} |
118 |
|
goto T55; |
119 |
T55:; |
T55:; |
120 |
{object V17; |
{object V17; |
121 |
base[2]= (V11); |
base[2]= (V11); |
132 |
V18= vs_base[0]; |
V18= vs_base[0]; |
133 |
{object V20 = number_times((V10),V18); |
{object V20 = number_times((V10),V18); |
134 |
VMR2(V20)}}} |
VMR2(V20)}}} |
135 |
|
goto T36; |
136 |
T36:; |
T36:; |
137 |
if(!(number_compare(small_fixnum(0),(V9))>0)){ |
if(!(number_compare(small_fixnum(0),(V9))>0)){ |
138 |
goto T63;} |
goto T63;} |
139 |
{object V21 = number_negate((V9)); |
{object V21 = number_negate((V9)); |
140 |
VMR2(V21)} |
VMR2(V21)} |
141 |
|
goto T63; |
142 |
T63:; |
T63:; |
143 |
{object V22 = (V9); |
{object V22 = (V9); |
144 |
VMR2(V22)} |
VMR2(V22)} |
145 |
|
base[0]=base[0]; |
146 |
|
return Cnil; |
147 |
} |
} |
148 |
/* local entry for function PHASE */ |
/* local entry for function PHASE */ |
149 |
|
|
151 |
|
|
152 |
object V24; |
object V24; |
153 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
154 |
|
goto TTL; |
155 |
TTL:; |
TTL:; |
156 |
base[1]= (V24); |
base[1]= (V24); |
157 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
{object V25 = vs_base[0]; |
{object V25 = vs_base[0]; |
170 |
VMR3(V25)} |
VMR3(V25)} |
171 |
|
base[0]=base[0]; |
172 |
|
return Cnil; |
173 |
} |
} |
174 |
/* local entry for function SIGNUM */ |
/* local entry for function SIGNUM */ |
175 |
|
|
177 |
|
|
178 |
register object V27; |
register object V27; |
179 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
180 |
|
goto TTL; |
181 |
TTL:; |
TTL:; |
182 |
if(!(number_compare(small_fixnum(0),(V27))==0)){ |
if(!(number_compare(small_fixnum(0),(V27))==0)){ |
183 |
goto T70;} |
goto T70;} |
184 |
{object V28 = (V27); |
{object V28 = (V27); |
185 |
VMR4(V28)} |
VMR4(V28)} |
186 |
|
goto T70; |
187 |
T70:; |
T70:; |
188 |
base[0]= (V27); |
base[0]= (V27); |
189 |
base[1]= (*(LnkLI13))((V27)); |
base[1]= (*(LnkLI13))((V27)); |
192 |
vs_top=sup; |
vs_top=sup; |
193 |
{object V29 = vs_base[0]; |
{object V29 = vs_base[0]; |
194 |
VMR4(V29)} |
VMR4(V29)} |
195 |
|
base[0]=base[0]; |
196 |
|
return Cnil; |
197 |
} |
} |
198 |
/* local entry for function CIS */ |
/* local entry for function CIS */ |
199 |
|
|
201 |
|
|
202 |
object V31; |
object V31; |
203 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
204 |
|
goto TTL; |
205 |
TTL:; |
TTL:; |
206 |
base[0]= number_times(VV[1],(V31)); |
base[0]= number_times(VV[1],(V31)); |
207 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
209 |
vs_top=sup; |
vs_top=sup; |
210 |
{object V32 = vs_base[0]; |
{object V32 = vs_base[0]; |
211 |
VMR5(V32)} |
VMR5(V32)} |
212 |
|
base[0]=base[0]; |
213 |
|
return Cnil; |
214 |
} |
} |
215 |
/* local entry for function ASIN */ |
/* local entry for function ASIN */ |
216 |
|
|
218 |
|
|
219 |
register object V34; |
register object V34; |
220 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
221 |
|
goto TTL; |
222 |
TTL:; |
TTL:; |
223 |
{object V35; |
{object V35; |
224 |
V37= number_times(VV[1],(V34)); |
V37= number_times(VV[1],(V34)); |
245 |
goto T82;} |
goto T82;} |
246 |
if(number_compare((V34),VV[3])>=0){ |
if(number_compare((V34),VV[3])>=0){ |
247 |
goto T80;} |
goto T80;} |
248 |
|
goto T82; |
249 |
T82:; |
T82:; |
250 |
base[0]= (V35); |
base[0]= (V35); |
251 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
254 |
V41= vs_base[0]; |
V41= vs_base[0]; |
255 |
if(!(number_compare(small_fixnum(0),V41)==0)){ |
if(!(number_compare(small_fixnum(0),V41)==0)){ |
256 |
goto T81;} |
goto T81;} |
257 |
|
goto T80; |
258 |
T80:; |
T80:; |
259 |
base[0]= (V35); |
base[0]= (V35); |
260 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
262 |
vs_top=sup; |
vs_top=sup; |
263 |
{object V42 = vs_base[0]; |
{object V42 = vs_base[0]; |
264 |
VMR6(V42)} |
VMR6(V42)} |
265 |
|
goto T81; |
266 |
T81:; |
T81:; |
267 |
{object V43 = (V35); |
{object V43 = (V35); |
268 |
VMR6(V43)}} |
VMR6(V43)}} |
269 |
|
base[0]=base[0]; |
270 |
|
return Cnil; |
271 |
} |
} |
272 |
/* local entry for function ACOS */ |
/* local entry for function ACOS */ |
273 |
|
|
275 |
|
|
276 |
register object V45; |
register object V45; |
277 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
278 |
|
goto TTL; |
279 |
TTL:; |
TTL:; |
280 |
{object V46; |
{object V46; |
281 |
V49= number_times((V45),(V45)); |
V49= number_times((V45),(V45)); |
302 |
goto T100;} |
goto T100;} |
303 |
if(number_compare((V45),VV[3])>=0){ |
if(number_compare((V45),VV[3])>=0){ |
304 |
goto T98;} |
goto T98;} |
305 |
|
goto T100; |
306 |
T100:; |
T100:; |
307 |
base[0]= (V46); |
base[0]= (V46); |
308 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
311 |
V52= vs_base[0]; |
V52= vs_base[0]; |
312 |
if(!(number_compare(small_fixnum(0),V52)==0)){ |
if(!(number_compare(small_fixnum(0),V52)==0)){ |
313 |
goto T99;} |
goto T99;} |
314 |
|
goto T98; |
315 |
T98:; |
T98:; |
316 |
base[0]= (V46); |
base[0]= (V46); |
317 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
319 |
vs_top=sup; |
vs_top=sup; |
320 |
{object V53 = vs_base[0]; |
{object V53 = vs_base[0]; |
321 |
VMR7(V53)} |
VMR7(V53)} |
322 |
|
goto T99; |
323 |
T99:; |
T99:; |
324 |
{object V54 = (V46); |
{object V54 = (V46); |
325 |
VMR7(V54)}} |
VMR7(V54)}} |
326 |
|
base[0]=base[0]; |
327 |
|
return Cnil; |
328 |
} |
} |
329 |
/* local entry for function SINH */ |
/* local entry for function SINH */ |
330 |
|
|
332 |
|
|
333 |
register object V56; |
register object V56; |
334 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
335 |
|
goto TTL; |
336 |
TTL:; |
TTL:; |
337 |
base[0]= (V56); |
base[0]= (V56); |
338 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
{object V63 = vs_base[0]; |
{object V63 = vs_base[0]; |
373 |
VMR8(V63)}} |
VMR8(V63)}} |
374 |
|
goto T112; |
375 |
T112:; |
T112:; |
376 |
base[0]= number_negate(VV[4]); |
base[0]= number_negate(VV[4]); |
377 |
base[1]= (V56); |
base[1]= (V56); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
{object V72 = vs_base[0]; |
{object V72 = vs_base[0]; |
402 |
VMR8(V72)} |
VMR8(V72)} |
403 |
|
goto T126; |
404 |
T126:; |
T126:; |
405 |
{object V73; |
{object V73; |
406 |
base[0]= (V56); |
base[0]= (V56); |
416 |
V75= number_minus((V73),V74); |
V75= number_minus((V73),V74); |
417 |
{object V76 = number_times(VV[8],/* INLINE-ARGS */V75); |
{object V76 = number_times(VV[8],/* INLINE-ARGS */V75); |
418 |
VMR8(V76)}} |
VMR8(V76)}} |
419 |
|
base[0]=base[0]; |
420 |
|
return Cnil; |
421 |
} |
} |
422 |
/* local entry for function COSH */ |
/* local entry for function COSH */ |
423 |
|
|
425 |
|
|
426 |
register object V78; |
register object V78; |
427 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
428 |
|
goto TTL; |
429 |
TTL:; |
TTL:; |
430 |
base[0]= (V78); |
base[0]= (V78); |
431 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
464 |
vs_top=sup; |
vs_top=sup; |
465 |
{object V85 = vs_base[0]; |
{object V85 = vs_base[0]; |
466 |
VMR9(V85)}} |
VMR9(V85)}} |
467 |
|
goto T140; |
468 |
T140:; |
T140:; |
469 |
{object V86; |
{object V86; |
470 |
base[0]= (V78); |
base[0]= (V78); |
480 |
V88= number_plus((V86),V87); |
V88= number_plus((V86),V87); |
481 |
{object V89 = number_times(VV[8],/* INLINE-ARGS */V88); |
{object V89 = number_times(VV[8],/* INLINE-ARGS */V88); |
482 |
VMR9(V89)}} |
VMR9(V89)}} |
483 |
|
base[0]=base[0]; |
484 |
|
return Cnil; |
485 |
} |
} |
486 |
/* local entry for function TANH */ |
/* local entry for function TANH */ |
487 |
|
|
489 |
|
|
490 |
object V91; |
object V91; |
491 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
492 |
|
goto TTL; |
493 |
TTL:; |
TTL:; |
494 |
base[0]= (*(LnkLI14))((V91)); |
base[0]= (*(LnkLI14))((V91)); |
495 |
base[1]= (*(LnkLI15))((V91)); |
base[1]= (*(LnkLI15))((V91)); |
498 |
vs_top=sup; |
vs_top=sup; |
499 |
{object V92 = vs_base[0]; |
{object V92 = vs_base[0]; |
500 |
VMR10(V92)} |
VMR10(V92)} |
501 |
|
base[0]=base[0]; |
502 |
|
return Cnil; |
503 |
} |
} |
504 |
/* local entry for function ASINH */ |
/* local entry for function ASINH */ |
505 |
|
|
507 |
|
|
508 |
object V94; |
object V94; |
509 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
510 |
|
goto TTL; |
511 |
TTL:; |
TTL:; |
512 |
V96= number_times((V94),(V94)); |
V96= number_times((V94),(V94)); |
513 |
base[1]= number_plus(VV[2],/* INLINE-ARGS */V96); |
base[1]= number_plus(VV[2],/* INLINE-ARGS */V96); |
521 |
vs_top=sup; |
vs_top=sup; |
522 |
{object V97 = vs_base[0]; |
{object V97 = vs_base[0]; |
523 |
VMR11(V97)} |
VMR11(V97)} |
524 |
|
base[0]=base[0]; |
525 |
|
return Cnil; |
526 |
} |
} |
527 |
/* local entry for function ACOSH */ |
/* local entry for function ACOSH */ |
528 |
|
|
530 |
|
|
531 |
register object V99; |
register object V99; |
532 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
533 |
|
goto TTL; |
534 |
TTL:; |
TTL:; |
535 |
V100= one_plus((V99)); |
V100= one_plus((V99)); |
536 |
base[2]= one_minus((V99)); |
base[2]= one_minus((V99)); |
550 |
vs_top=sup; |
vs_top=sup; |
551 |
{object V103 = vs_base[0]; |
{object V103 = vs_base[0]; |
552 |
VMR12(V103)} |
VMR12(V103)} |
553 |
|
base[0]=base[0]; |
554 |
|
return Cnil; |
555 |
} |
} |
556 |
/* local entry for function ATANH */ |
/* local entry for function ATANH */ |
557 |
|
|
559 |
|
|
560 |
register object V105; |
register object V105; |
561 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
562 |
|
goto TTL; |
563 |
TTL:; |
TTL:; |
564 |
if(number_compare((V105),VV[2])==0){ |
if(number_compare((V105),VV[2])==0){ |
565 |
goto T168;} |
goto T168;} |
566 |
if(!(number_compare((V105),VV[3])==0)){ |
if(!(number_compare((V105),VV[3])==0)){ |
567 |
goto T167;} |
goto T167;} |
568 |
|
goto T168; |
569 |
T168:; |
T168:; |
570 |
base[0]= VV[9]; |
base[0]= VV[9]; |
571 |
base[1]= (V105); |
base[1]= (V105); |
572 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
573 |
Lerror(); |
Lerror(); |
574 |
vs_top=sup; |
vs_top=sup; |
575 |
|
goto T167; |
576 |
T167:; |
T167:; |
577 |
base[1]= one_plus((V105)); |
base[1]= one_plus((V105)); |
578 |
V106= number_times((V105),(V105)); |
V106= number_times((V105),(V105)); |
590 |
vs_top=sup; |
vs_top=sup; |
591 |
{object V107 = vs_base[0]; |
{object V107 = vs_base[0]; |
592 |
VMR13(V107)} |
VMR13(V107)} |
593 |
|
base[0]=base[0]; |
594 |
|
return Cnil; |
595 |
} |
} |
596 |
/* local entry for function RATIONAL */ |
/* local entry for function RATIONAL */ |
597 |
|
|
599 |
|
|
600 |
register object V109; |
register object V109; |
601 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
602 |
|
goto TTL; |
603 |
TTL:; |
TTL:; |
604 |
{register object V110; |
{register object V110; |
605 |
V110= (V109); |
V110= (V109); |
621 |
V113= vs_base[0]; |
V113= vs_base[0]; |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
goto T186; |
goto T186; |
624 |
|
goto T183; |
625 |
T183:; |
T183:; |
626 |
V111= Cnil; |
V111= Cnil; |
627 |
|
goto T184; |
628 |
T184:; |
T184:; |
629 |
V112= Cnil; |
V112= Cnil; |
630 |
|
goto T185; |
631 |
T185:; |
T185:; |
632 |
V113= Cnil; |
V113= Cnil; |
633 |
|
goto T186; |
634 |
T186:; |
T186:; |
635 |
if(!(number_compare((V113),small_fixnum(0))>=0)){ |
if(!(number_compare((V113),small_fixnum(0))>=0)){ |
636 |
goto T188;} |
goto T188;} |
642 |
V115= number_expt(V114,(V112)); |
V115= number_expt(V114,(V112)); |
643 |
{object V116 = number_times((V111),/* INLINE-ARGS */V115); |
{object V116 = number_times((V111),/* INLINE-ARGS */V115); |
644 |
VMR14(V116)} |
VMR14(V116)} |
645 |
|
goto T188; |
646 |
T188:; |
T188:; |
647 |
base[0]= (V109); |
base[0]= (V109); |
648 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
653 |
V119= number_times((V111),/* INLINE-ARGS */V118); |
V119= number_times((V111),/* INLINE-ARGS */V118); |
654 |
{object V120 = number_negate(/* INLINE-ARGS */V119); |
{object V120 = number_negate(/* INLINE-ARGS */V119); |
655 |
VMR14(V120)}} |
VMR14(V120)}} |
656 |
|
goto T179; |
657 |
T179:; |
T179:; |
658 |
base[0]= (V110); |
base[0]= (V110); |
659 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
663 |
goto T195;} |
goto T195;} |
664 |
{object V121 = (V109); |
{object V121 = (V109); |
665 |
VMR14(V121)} |
VMR14(V121)} |
666 |
|
goto T195; |
667 |
T195:; |
T195:; |
668 |
base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]); |
base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]); |
669 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
671 |
vs_top=sup; |
vs_top=sup; |
672 |
{object V122 = vs_base[0]; |
{object V122 = vs_base[0]; |
673 |
VMR14(V122)}} |
VMR14(V122)}} |
674 |
|
base[0]=base[0]; |
675 |
|
return Cnil; |
676 |
} |
} |
677 |
/* function definition for FFLOOR */ |
/* function definition for FFLOOR */ |
678 |
|
|
679 |
static L15() |
static void L15() |
680 |
{register object *base=vs_base; |
{register object *base=vs_base; |
681 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
682 |
vs_reserve(VM15); |
vs_reserve(VM15); |
690 |
V124=(base[1]); |
V124=(base[1]); |
691 |
vs_top=sup; |
vs_top=sup; |
692 |
goto T200; |
goto T200; |
693 |
|
goto T199; |
694 |
T199:; |
T199:; |
695 |
V124= VV[12]; |
V124= VV[12]; |
696 |
|
goto T200; |
697 |
T200:; |
T200:; |
698 |
{object V125; |
{object V125; |
699 |
object V126; |
object V126; |
716 |
V126= vs_base[0]; |
V126= vs_base[0]; |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
goto T209; |
goto T209; |
719 |
|
goto T207; |
720 |
T207:; |
T207:; |
721 |
V125= Cnil; |
V125= Cnil; |
722 |
|
goto T208; |
723 |
T208:; |
T208:; |
724 |
V126= Cnil; |
V126= Cnil; |
725 |
|
goto T209; |
726 |
T209:; |
T209:; |
727 |
base[3]= (V125); |
base[3]= (V125); |
728 |
base[4]= (V126); |
base[4]= (V126); |
737 |
} |
} |
738 |
/* function definition for FCEILING */ |
/* function definition for FCEILING */ |
739 |
|
|
740 |
static L16() |
static void L16() |
741 |
{register object *base=vs_base; |
{register object *base=vs_base; |
742 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
743 |
vs_reserve(VM16); |
vs_reserve(VM16); |
751 |
V128=(base[1]); |
V128=(base[1]); |
752 |
vs_top=sup; |
vs_top=sup; |
753 |
goto T215; |
goto T215; |
754 |
|
goto T214; |
755 |
T214:; |
T214:; |
756 |
V128= VV[12]; |
V128= VV[12]; |
757 |
|
goto T215; |
758 |
T215:; |
T215:; |
759 |
{object V129; |
{object V129; |
760 |
object V130; |
object V130; |
777 |
V130= vs_base[0]; |
V130= vs_base[0]; |
778 |
vs_top=sup; |
vs_top=sup; |
779 |
goto T224; |
goto T224; |
780 |
|
goto T222; |
781 |
T222:; |
T222:; |
782 |
V129= Cnil; |
V129= Cnil; |
783 |
|
goto T223; |
784 |
T223:; |
T223:; |
785 |
V130= Cnil; |
V130= Cnil; |
786 |
|
goto T224; |
787 |
T224:; |
T224:; |
788 |
base[3]= (V129); |
base[3]= (V129); |
789 |
base[4]= (V130); |
base[4]= (V130); |
798 |
} |
} |
799 |
/* function definition for FTRUNCATE */ |
/* function definition for FTRUNCATE */ |
800 |
|
|
801 |
static L17() |
static void L17() |
802 |
{register object *base=vs_base; |
{register object *base=vs_base; |
803 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
804 |
vs_reserve(VM17); |
vs_reserve(VM17); |
812 |
V132=(base[1]); |
V132=(base[1]); |
813 |
vs_top=sup; |
vs_top=sup; |
814 |
goto T230; |
goto T230; |
815 |
|
goto T229; |
816 |
T229:; |
T229:; |
817 |
V132= VV[12]; |
V132= VV[12]; |
818 |
|
goto T230; |
819 |
T230:; |
T230:; |
820 |
{object V133; |
{object V133; |
821 |
object V134; |
object V134; |
838 |
V134= vs_base[0]; |
V134= vs_base[0]; |
839 |
vs_top=sup; |
vs_top=sup; |
840 |
goto T239; |
goto T239; |
841 |
|
goto T237; |
842 |
T237:; |
T237:; |
843 |
V133= Cnil; |
V133= Cnil; |
844 |
|
goto T238; |
845 |
T238:; |
T238:; |
846 |
V134= Cnil; |
V134= Cnil; |
847 |
|
goto T239; |
848 |
T239:; |
T239:; |
849 |
base[3]= (V133); |
base[3]= (V133); |
850 |
base[4]= (V134); |
base[4]= (V134); |
859 |
} |
} |
860 |
/* function definition for FROUND */ |
/* function definition for FROUND */ |
861 |
|
|
862 |
static L18() |
static void L18() |
863 |
{register object *base=vs_base; |
{register object *base=vs_base; |
864 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
865 |
vs_reserve(VM18); |
vs_reserve(VM18); |
873 |
V136=(base[1]); |
V136=(base[1]); |
874 |
vs_top=sup; |
vs_top=sup; |
875 |
goto T245; |
goto T245; |
876 |
|
goto T244; |
877 |
T244:; |
T244:; |
878 |
V136= VV[12]; |
V136= VV[12]; |
879 |
|
goto T245; |
880 |
T245:; |
T245:; |
881 |
{object V137; |
{object V137; |
882 |
object V138; |
object V138; |
899 |
V138= vs_base[0]; |
V138= vs_base[0]; |
900 |
vs_top=sup; |
vs_top=sup; |
901 |
goto T254; |
goto T254; |
902 |
|
goto T252; |
903 |
T252:; |
T252:; |
904 |
V137= Cnil; |
V137= Cnil; |
905 |
|
goto T253; |
906 |
T253:; |
T253:; |
907 |
V138= Cnil; |
V138= Cnil; |
908 |
|
goto T254; |
909 |
T254:; |
T254:; |
910 |
base[3]= (V137); |
base[3]= (V137); |
911 |
base[4]= (V138); |
base[4]= (V138); |
924 |
|
|
925 |
object V141;object V142; |
object V141;object V142; |
926 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
927 |
|
goto TTL; |
928 |
TTL:; |
TTL:; |
929 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
930 |
base[1]= (V141); |
base[1]= (V141); |
934 |
vs_top=sup; |
vs_top=sup; |
935 |
{object V143 = vs_base[0]; |
{object V143 = vs_base[0]; |
936 |
VMR19(V143)} |
VMR19(V143)} |
937 |
|
base[0]=base[0]; |
938 |
|
return Cnil; |
939 |
} |
} |
940 |
/* local entry for function LOGNOR */ |
/* local entry for function LOGNOR */ |
941 |
|
|
943 |
|
|
944 |
object V146;object V147; |
object V146;object V147; |
945 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
946 |
|
goto TTL; |
947 |
TTL:; |
TTL:; |
948 |
base[0]= small_fixnum(8); |
base[0]= small_fixnum(8); |
949 |
base[1]= (V146); |
base[1]= (V146); |
953 |
vs_top=sup; |
vs_top=sup; |
954 |
{object V148 = vs_base[0]; |
{object V148 = vs_base[0]; |
955 |
VMR20(V148)} |
VMR20(V148)} |
956 |
|
base[0]=base[0]; |
957 |
|
return Cnil; |
958 |
} |
} |
959 |
/* local entry for function LOGANDC1 */ |
/* local entry for function LOGANDC1 */ |
960 |
|
|
962 |
|
|
963 |
object V151;object V152; |
object V151;object V152; |
964 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
965 |
|
goto TTL; |
966 |
TTL:; |
TTL:; |
967 |
base[0]= small_fixnum(4); |
base[0]= small_fixnum(4); |
968 |
base[1]= (V151); |
base[1]= (V151); |
972 |
vs_top=sup; |
vs_top=sup; |
973 |
{object V153 = vs_base[0]; |
{object V153 = vs_base[0]; |
974 |
VMR21(V153)} |
VMR21(V153)} |
975 |
|
base[0]=base[0]; |
976 |
|
return Cnil; |
977 |
} |
} |
978 |
/* local entry for function LOGANDC2 */ |
/* local entry for function LOGANDC2 */ |
979 |
|
|
981 |
|
|
982 |
object V156;object V157; |
object V156;object V157; |
983 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
984 |
|
goto TTL; |
985 |
TTL:; |
TTL:; |
986 |
base[0]= small_fixnum(2); |
base[0]= small_fixnum(2); |
987 |
base[1]= (V156); |
base[1]= (V156); |
991 |
vs_top=sup; |
vs_top=sup; |
992 |
{object V158 = vs_base[0]; |
{object V158 = vs_base[0]; |
993 |
VMR22(V158)} |
VMR22(V158)} |
994 |
|
base[0]=base[0]; |
995 |
|
return Cnil; |
996 |
} |
} |
997 |
/* local entry for function LOGORC1 */ |
/* local entry for function LOGORC1 */ |
998 |
|
|
1000 |
|
|
1001 |
object V161;object V162; |
object V161;object V162; |
1002 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1003 |
|
goto TTL; |
1004 |
TTL:; |
TTL:; |
1005 |
base[0]= small_fixnum(13); |
base[0]= small_fixnum(13); |
1006 |
base[1]= (V161); |
base[1]= (V161); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
{object V163 = vs_base[0]; |
{object V163 = vs_base[0]; |
1012 |
VMR23(V163)} |
VMR23(V163)} |
1013 |
|
base[0]=base[0]; |
1014 |
|
return Cnil; |
1015 |
} |
} |
1016 |
/* local entry for function LOGORC2 */ |
/* local entry for function LOGORC2 */ |
1017 |
|
|
1019 |
|
|
1020 |
object V166;object V167; |
object V166;object V167; |
1021 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1022 |
|
goto TTL; |
1023 |
TTL:; |
TTL:; |
1024 |
base[0]= small_fixnum(11); |
base[0]= small_fixnum(11); |
1025 |
base[1]= (V166); |
base[1]= (V166); |
1029 |
vs_top=sup; |
vs_top=sup; |
1030 |
{object V168 = vs_base[0]; |
{object V168 = vs_base[0]; |
1031 |
VMR24(V168)} |
VMR24(V168)} |
1032 |
|
base[0]=base[0]; |
1033 |
|
return Cnil; |
1034 |
} |
} |
1035 |
/* local entry for function LOGNOT */ |
/* local entry for function LOGNOT */ |
1036 |
|
|
1038 |
|
|
1039 |
object V170; |
object V170; |
1040 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1041 |
|
goto TTL; |
1042 |
TTL:; |
TTL:; |
1043 |
base[0]= small_fixnum(-1); |
base[0]= small_fixnum(-1); |
1044 |
base[1]= (V170); |
base[1]= (V170); |
1047 |
vs_top=sup; |
vs_top=sup; |
1048 |
{object V171 = vs_base[0]; |
{object V171 = vs_base[0]; |
1049 |
VMR25(V171)} |
VMR25(V171)} |
1050 |
|
base[0]=base[0]; |
1051 |
|
return Cnil; |
1052 |
} |
} |
1053 |
/* local entry for function LOGTEST */ |
/* local entry for function LOGTEST */ |
1054 |
|
|
1056 |
|
|
1057 |
object V174;object V175; |
object V174;object V175; |
1058 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1059 |
|
goto TTL; |
1060 |
TTL:; |
TTL:; |
1061 |
base[0]= (V174); |
base[0]= (V174); |
1062 |
base[1]= (V175); |
base[1]= (V175); |
1066 |
V176= vs_base[0]; |
V176= vs_base[0]; |
1067 |
{object V177 = (((number_compare(small_fixnum(0),V176)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V177 = (((number_compare(small_fixnum(0),V176)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
1068 |
VMR26(V177)} |
VMR26(V177)} |
1069 |
|
base[0]=base[0]; |
1070 |
|
return Cnil; |
1071 |
} |
} |
1072 |
/* local entry for function BYTE */ |
/* local entry for function BYTE */ |
1073 |
|
|
1075 |
|
|
1076 |
object V180;object V181; |
object V180;object V181; |
1077 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1078 |
|
goto TTL; |
1079 |
TTL:; |
TTL:; |
1080 |
{object V182 = make_cons((V180),(V181)); |
{object V182 = make_cons((V180),(V181)); |
1081 |
VMR27(V182)} |
VMR27(V182)} |
1082 |
|
return Cnil; |
1083 |
} |
} |
1084 |
/* local entry for function BYTE-SIZE */ |
/* local entry for function BYTE-SIZE */ |
1085 |
|
|
1087 |
|
|
1088 |
object V184; |
object V184; |
1089 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1090 |
|
goto TTL; |
1091 |
TTL:; |
TTL:; |
1092 |
{object V185 = car((V184)); |
{object V185 = car((V184)); |
1093 |
VMR28(V185)} |
VMR28(V185)} |
1094 |
|
return Cnil; |
1095 |
} |
} |
1096 |
/* local entry for function BYTE-POSITION */ |
/* local entry for function BYTE-POSITION */ |
1097 |
|
|
1099 |
|
|
1100 |
object V187; |
object V187; |
1101 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1102 |
|
goto TTL; |
1103 |
TTL:; |
TTL:; |
1104 |
{object V188 = cdr((V187)); |
{object V188 = cdr((V187)); |
1105 |
VMR29(V188)} |
VMR29(V188)} |
1106 |
|
return Cnil; |
1107 |
} |
} |
1108 |
/* local entry for function LDB */ |
/* local entry for function LDB */ |
1109 |
|
|
1111 |
|
|
1112 |
object V191;object V192; |
object V191;object V192; |
1113 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1114 |
|
goto TTL; |
1115 |
TTL:; |
TTL:; |
1116 |
base[0]= (V192); |
base[0]= (V192); |
1117 |
V194= (*(LnkLI19))((V191)); |
V194= (*(LnkLI19))((V191)); |
1129 |
V196= number_negate(V195); |
V196= number_negate(V195); |
1130 |
{object V197 = (*(LnkLI18))(V193,/* INLINE-ARGS */V196); |
{object V197 = (*(LnkLI18))(V193,/* INLINE-ARGS */V196); |
1131 |
VMR30(V197)} |
VMR30(V197)} |
1132 |
|
base[0]=base[0]; |
1133 |
|
return Cnil; |
1134 |
} |
} |
1135 |
/* local entry for function LDB-TEST */ |
/* local entry for function LDB-TEST */ |
1136 |
|
|
1138 |
|
|
1139 |
object V200;object V201; |
object V200;object V201; |
1140 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1141 |
|
goto TTL; |
1142 |
TTL:; |
TTL:; |
1143 |
V202= (*(LnkLI21))((V200),(V201)); |
V202= (*(LnkLI21))((V200),(V201)); |
1144 |
{object V203 = (((number_compare(small_fixnum(0),/* INLINE-ARGS */V202)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V203 = (((number_compare(small_fixnum(0),/* INLINE-ARGS */V202)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
1145 |
VMR31(V203)} |
VMR31(V203)} |
1146 |
|
return Cnil; |
1147 |
} |
} |
1148 |
/* local entry for function MASK-FIELD */ |
/* local entry for function MASK-FIELD */ |
1149 |
|
|
1151 |
|
|
1152 |
object V206;object V207; |
object V206;object V207; |
1153 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1154 |
|
goto TTL; |
1155 |
TTL:; |
TTL:; |
1156 |
base[0]= (*(LnkLI21))((V206),(V207)); |
base[0]= (*(LnkLI21))((V206),(V207)); |
1157 |
base[1]= (*(LnkLI19))((V206)); |
base[1]= (*(LnkLI19))((V206)); |
1160 |
vs_top=sup; |
vs_top=sup; |
1161 |
{object V208 = vs_base[0]; |
{object V208 = vs_base[0]; |
1162 |
VMR32(V208)} |
VMR32(V208)} |
1163 |
|
base[0]=base[0]; |
1164 |
|
return Cnil; |
1165 |
} |
} |
1166 |
/* local entry for function DPB */ |
/* local entry for function DPB */ |
1167 |
|
|
1169 |
|
|
1170 |
object V212;object V213;object V214; |
object V212;object V213;object V214; |
1171 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1172 |
|
goto TTL; |
1173 |
TTL:; |
TTL:; |
1174 |
base[0]= (V214); |
base[0]= (V214); |
1175 |
base[1]= (*(LnkLI22))((V213),(V214)); |
base[1]= (*(LnkLI22))((V213),(V214)); |
1191 |
vs_top=sup; |
vs_top=sup; |
1192 |
{object V217 = vs_base[0]; |
{object V217 = vs_base[0]; |
1193 |
VMR33(V217)} |
VMR33(V217)} |
1194 |
|
base[0]=base[0]; |
1195 |
|
return Cnil; |
1196 |
} |
} |
1197 |
/* local entry for function DEPOSIT-FIELD */ |
/* local entry for function DEPOSIT-FIELD */ |
1198 |
|
|
1200 |
|
|
1201 |
object V221;object V222;object V223; |
object V221;object V222;object V223; |
1202 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1203 |
|
goto TTL; |
1204 |
TTL:; |
TTL:; |
1205 |
base[0]= (V221); |
base[0]= (V221); |
1206 |
V225= (*(LnkLI19))((V222)); |
V225= (*(LnkLI19))((V222)); |
1211 |
V224= vs_base[0]; |
V224= vs_base[0]; |
1212 |
{object V226 = (*(LnkLI23))(V224,(V222),(V223)); |
{object V226 = (*(LnkLI23))(V224,(V222),(V223)); |
1213 |
VMR34(V226)} |
VMR34(V226)} |
1214 |
|
base[0]=base[0]; |
1215 |
|
return Cnil; |
1216 |
} |
} |
1217 |
static object LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],&LnkLI23,3,ap);} /* DPB */ |
static object LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],(void **)&LnkLI23,3,ap);} /* DPB */ |
1218 |
static object LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],&LnkLI22,2,ap);} /* MASK-FIELD */ |
static object LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],(void **)&LnkLI22,2,ap);} /* MASK-FIELD */ |
1219 |
static object LnkTLI21(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[21],&LnkLI21,2,ap);} /* LDB */ |
static object LnkTLI21(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[21],(void **)&LnkLI21,2,ap);} /* LDB */ |
1220 |
static object LnkTLI20(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[20],&LnkLI20,1,ap);} /* BYTE-SIZE */ |
static object LnkTLI20(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[20],(void **)&LnkLI20,1,ap);} /* BYTE-SIZE */ |
1221 |
static object LnkTLI19(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[19],&LnkLI19,1,ap);} /* BYTE-POSITION */ |
static object LnkTLI19(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[19],(void **)&LnkLI19,1,ap);} /* BYTE-POSITION */ |
1222 |
static object LnkTLI18(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[18],&LnkLI18,2,ap);} /* LOGANDC2 */ |
static object LnkTLI18(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[18],(void **)&LnkLI18,2,ap);} /* LOGANDC2 */ |
1223 |
static object LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],&LnkLI17,3,ap);} /* TYPECASE-ERROR-STRING */ |
static object LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],(void **)&LnkLI17,3,ap);} /* TYPECASE-ERROR-STRING */ |
1224 |
static LnkT16(){ call_or_link(VV[16],&Lnk16);} /* RATIONALP */ |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* RATIONALP */ |
1225 |
static object LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[15],&LnkLI15,1,ap);} /* COSH */ |
static object LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[15],(void **)&LnkLI15,1,ap);} /* COSH */ |
1226 |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* SINH */ |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* SINH */ |
1227 |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* ABS */ |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* ABS */ |
1228 |
|
|
1229 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1230 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |