/[gcl]/gcl/lsp/gcl_numlib.c
ViewVC logotype

Diff of /gcl/lsp/gcl_numlib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_numlib.h"
4    void init_gcl_numlib(){do_init(VV);}
5    /*      local entry for function ISQRT  */
6    
7    static object LI1(V2)
8    
9    register object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            if(!(type_of((V2))==t_fixnum||type_of((V2))==t_bignum)){
14            goto T2;}
15            if(number_compare((V2),small_fixnum(0))>=0){
16            goto T1;}
17            goto T2;
18    T2:;
19            base[0]= VV[0];
20            base[1]= (V2);
21            vs_top=(vs_base=base+0)+2;
22            Lerror();
23            vs_top=sup;
24            goto T1;
25    T1:;
26            if(!(number_compare(small_fixnum(0),(V2))==0)){
27            goto T9;}
28            {object V3 = small_fixnum(0);
29            VMR1(V3)}
30            goto T9;
31    T9:;
32            {object V4;
33            base[0]= (V2);
34            vs_top=(vs_base=base+0)+1;
35            Linteger_length();
36            vs_top=sup;
37            V4= vs_base[0];
38            {register object V5;
39            register object V6;
40            base[0]= small_fixnum(1);
41            base[2]= (V4);
42            base[3]= small_fixnum(2);
43            vs_top=(vs_base=base+2)+2;
44            Lceiling();
45            vs_top=sup;
46            base[1]= vs_base[0];
47            vs_top=(vs_base=base+0)+2;
48            Lash();
49            vs_top=sup;
50            V5= vs_base[0];
51            V6= Cnil;
52            goto T19;
53    T19:;
54            base[0]= (V2);
55            base[1]= (V5);
56            vs_top=(vs_base=base+0)+2;
57            Lfloor();
58            vs_top=sup;
59            V6= vs_base[0];
60            if(!(number_compare((V5),(V6))<=0)){
61            goto T26;}
62            {object V7 = (V5);
63            VMR1(V7)}
64            goto T26;
65    T26:;
66            base[0]= number_plus((V5),(V6));
67            base[1]= small_fixnum(2);
68            vs_top=(vs_base=base+0)+2;
69            Lfloor();
70            vs_top=sup;
71            V5= vs_base[0];
72            goto T19;}}
73            base[0]=base[0];
74            return Cnil;
75    }
76    /*      local entry for function ABS    */
77    
78    static object LI2(V9)
79    
80    register object V9;
81    {        VMB2 VMS2 VMV2
82            goto TTL;
83    TTL:;
84            base[0]= (V9);
85            vs_top=(vs_base=base+0)+1;
86            Lcomplexp();
87            vs_top=sup;
88            if((vs_base[0])==Cnil){
89            goto T36;}
90            {register object V10;
91            register object V11;
92            base[2]= (V9);
93            vs_top=(vs_base=base+2)+1;
94            Lrealpart();
95            vs_top=sup;
96            V12= vs_base[0];
97            V10= (*(LnkLI13))(V12);
98            base[2]= (V9);
99            vs_top=(vs_base=base+2)+1;
100            Limagpart();
101            vs_top=sup;
102            V13= vs_base[0];
103            V11= (*(LnkLI13))(V13);
104            if(!(number_compare((V10),(V11))<0)){
105            goto T45;}
106            {object V14;
107            object V15;
108            V14= (V11);
109            V15= (V10);
110            V10= (V14);
111            V11= (V15);}
112            goto T45;
113    T45:;
114            if(!(number_compare(small_fixnum(0),(V10))==0)){
115            goto T55;}
116            {object V16 = (V10);
117            VMR2(V16)}
118            goto T55;
119    T55:;
120            {object V17;
121            base[2]= (V11);
122            base[3]= (V10);
123            vs_top=(vs_base=base+2)+2;
124            Ldivide();
125            vs_top=sup;
126            V17= vs_base[0];
127            V19= number_times((V17),(V17));
128            base[2]= number_plus(small_fixnum(1),/* INLINE-ARGS */V19);
129            vs_top=(vs_base=base+2)+1;
130            Lsqrt();
131            vs_top=sup;
132            V18= vs_base[0];
133            {object V20 = number_times((V10),V18);
134            VMR2(V20)}}}
135            goto T36;
136    T36:;
137            if(!(number_compare(small_fixnum(0),(V9))>0)){
138            goto T63;}
139            {object V21 = number_negate((V9));
140            VMR2(V21)}
141            goto T63;
142    T63:;
143            {object V22 = (V9);
144            VMR2(V22)}
145            base[0]=base[0];
146            return Cnil;
147    }
148    /*      local entry for function PHASE  */
149    
150    static object LI3(V24)
151    
152    object V24;
153    {        VMB3 VMS3 VMV3
154            goto TTL;
155    TTL:;
156            base[1]= (V24);
157            vs_top=(vs_base=base+1)+1;
158            Limagpart();
159            vs_top=sup;
160            base[0]= vs_base[0];
161            base[2]= (V24);
162            vs_top=(vs_base=base+2)+1;
163            Lrealpart();
164            vs_top=sup;
165            base[1]= vs_base[0];
166            vs_top=(vs_base=base+0)+2;
167            Latan();
168            vs_top=sup;
169            {object V25 = vs_base[0];
170            VMR3(V25)}
171            base[0]=base[0];
172            return Cnil;
173    }
174    /*      local entry for function SIGNUM */
175    
176    static object LI4(V27)
177    
178    register object V27;
179    {        VMB4 VMS4 VMV4
180            goto TTL;
181    TTL:;
182            if(!(number_compare(small_fixnum(0),(V27))==0)){
183            goto T70;}
184            {object V28 = (V27);
185            VMR4(V28)}
186            goto T70;
187    T70:;
188            base[0]= (V27);
189            base[1]= (*(LnkLI13))((V27));
190            vs_top=(vs_base=base+0)+2;
191            Ldivide();
192            vs_top=sup;
193            {object V29 = vs_base[0];
194            VMR4(V29)}
195            base[0]=base[0];
196            return Cnil;
197    }
198    /*      local entry for function CIS    */
199    
200    static object LI5(V31)
201    
202    object V31;
203    {        VMB5 VMS5 VMV5
204            goto TTL;
205    TTL:;
206            base[0]= number_times(VV[1],(V31));
207            vs_top=(vs_base=base+0)+1;
208            Lexp();
209            vs_top=sup;
210            {object V32 = vs_base[0];
211            VMR5(V32)}
212            base[0]=base[0];
213            return Cnil;
214    }
215    /*      local entry for function ASIN   */
216    
217    static object LI6(V34)
218    
219    register object V34;
220    {        VMB6 VMS6 VMV6
221            goto TTL;
222    TTL:;
223            {object V35;
224            V37= number_times(VV[1],(V34));
225            V39= number_times((V34),(V34));
226            base[1]= number_minus(VV[2],/* INLINE-ARGS */V39);
227            vs_top=(vs_base=base+1)+1;
228            Lsqrt();
229            vs_top=sup;
230            V38= vs_base[0];
231            base[0]= number_plus(/* INLINE-ARGS */V37,V38);
232            vs_top=(vs_base=base+0)+1;
233            Llog();
234            vs_top=sup;
235            V36= vs_base[0];
236            V40= number_times(VV[1],V36);
237            V35= number_negate(/* INLINE-ARGS */V40);
238            base[0]= (V34);
239            vs_top=(vs_base=base+0)+1;
240            Lcomplexp();
241            vs_top=sup;
242            if((vs_base[0])!=Cnil){
243            goto T82;}
244            if(!(number_compare((V34),VV[2])<=0)){
245            goto T82;}
246            if(number_compare((V34),VV[3])>=0){
247            goto T80;}
248            goto T82;
249    T82:;
250            base[0]= (V35);
251            vs_top=(vs_base=base+0)+1;
252            Limagpart();
253            vs_top=sup;
254            V41= vs_base[0];
255            if(!(number_compare(small_fixnum(0),V41)==0)){
256            goto T81;}
257            goto T80;
258    T80:;
259            base[0]= (V35);
260            vs_top=(vs_base=base+0)+1;
261            Lrealpart();
262            vs_top=sup;
263            {object V42 = vs_base[0];
264            VMR6(V42)}
265            goto T81;
266    T81:;
267            {object V43 = (V35);
268            VMR6(V43)}}
269            base[0]=base[0];
270            return Cnil;
271    }
272    /*      local entry for function ACOS   */
273    
274    static object LI7(V45)
275    
276    register object V45;
277    {        VMB7 VMS7 VMV7
278            goto TTL;
279    TTL:;
280            {object V46;
281            V49= number_times((V45),(V45));
282            base[1]= number_minus(VV[2],/* INLINE-ARGS */V49);
283            vs_top=(vs_base=base+1)+1;
284            Lsqrt();
285            vs_top=sup;
286            V48= vs_base[0];
287            V50= number_times(VV[1],V48);
288            base[0]= number_plus((V45),/* INLINE-ARGS */V50);
289            vs_top=(vs_base=base+0)+1;
290            Llog();
291            vs_top=sup;
292            V47= vs_base[0];
293            V51= number_times(VV[1],V47);
294            V46= number_negate(/* INLINE-ARGS */V51);
295            base[0]= (V45);
296            vs_top=(vs_base=base+0)+1;
297            Lcomplexp();
298            vs_top=sup;
299            if((vs_base[0])!=Cnil){
300            goto T100;}
301            if(!(number_compare((V45),VV[2])<=0)){
302            goto T100;}
303            if(number_compare((V45),VV[3])>=0){
304            goto T98;}
305            goto T100;
306    T100:;
307            base[0]= (V46);
308            vs_top=(vs_base=base+0)+1;
309            Limagpart();
310            vs_top=sup;
311            V52= vs_base[0];
312            if(!(number_compare(small_fixnum(0),V52)==0)){
313            goto T99;}
314            goto T98;
315    T98:;
316            base[0]= (V46);
317            vs_top=(vs_base=base+0)+1;
318            Lrealpart();
319            vs_top=sup;
320            {object V53 = vs_base[0];
321            VMR7(V53)}
322            goto T99;
323    T99:;
324            {object V54 = (V46);
325            VMR7(V54)}}
326            base[0]=base[0];
327            return Cnil;
328    }
329    /*      local entry for function SINH   */
330    
331    static object LI8(V56)
332    
333    register object V56;
334    {        VMB8 VMS8 VMV8
335            goto TTL;
336    TTL:;
337            base[0]= (V56);
338            vs_top=(vs_base=base+0)+1;
339            Lcomplexp();
340            vs_top=sup;
341            if((vs_base[0])==Cnil){
342            goto T112;}
343            {object V57;
344            object V58;
345            base[0]= (V56);
346            vs_top=(vs_base=base+0)+1;
347            Lrealpart();
348            vs_top=sup;
349            V57= vs_base[0];
350            base[0]= (V56);
351            vs_top=(vs_base=base+0)+1;
352            Limagpart();
353            vs_top=sup;
354            V58= vs_base[0];
355            V59= (*(LnkLI14))((V57));
356            base[1]= (V58);
357            vs_top=(vs_base=base+1)+1;
358            Lcos();
359            vs_top=sup;
360            V60= vs_base[0];
361            base[0]= number_times(/* INLINE-ARGS */V59,V60);
362            V61= (*(LnkLI15))((V57));
363            base[2]= (V58);
364            vs_top=(vs_base=base+2)+1;
365            Lsin();
366            vs_top=sup;
367            V62= vs_base[0];
368            base[1]= number_times(/* INLINE-ARGS */V61,V62);
369            vs_top=(vs_base=base+0)+2;
370            Lcomplex();
371            vs_top=sup;
372            {object V63 = vs_base[0];
373            VMR8(V63)}}
374            goto T112;
375    T112:;
376            base[0]= number_negate(VV[4]);
377            base[1]= (V56);
378            base[2]= VV[4];
379            vs_top=(vs_base=base+0)+3;
380            Lmonotonically_increasing();
381            vs_top=sup;
382            if((vs_base[0])==Cnil){
383            goto T126;}
384            base[0]= (V56);
385            base[2]= (V56);
386            vs_top=(vs_base=base+2)+1;
387            Lexp();
388            vs_top=sup;
389            base[1]= vs_base[0];
390            V65= number_times(VV[7],(V56));
391            V66= number_minus(VV[6],/* INLINE-ARGS */V65);
392            V67= number_times((V56),/* INLINE-ARGS */V66);
393            V68= number_minus(VV[5],/* INLINE-ARGS */V67);
394            V69= number_times((V56),/* INLINE-ARGS */V68);
395            V70= number_minus(small_fixnum(1),/* INLINE-ARGS */V69);
396            V71= number_times((V56),/* INLINE-ARGS */V70);
397            base[2]= number_minus(small_fixnum(1),/* INLINE-ARGS */V71);
398            vs_top=(vs_base=base+0)+3;
399            Ltimes();
400            vs_top=sup;
401            {object V72 = vs_base[0];
402            VMR8(V72)}
403            goto T126;
404    T126:;
405            {object V73;
406            base[0]= (V56);
407            vs_top=(vs_base=base+0)+1;
408            Lexp();
409            vs_top=sup;
410            V73= vs_base[0];
411            base[0]= (V73);
412            vs_top=(vs_base=base+0)+1;
413            Ldivide();
414            vs_top=sup;
415            V74= vs_base[0];
416            V75= number_minus((V73),V74);
417            {object V76 = number_times(VV[8],/* INLINE-ARGS */V75);
418            VMR8(V76)}}
419            base[0]=base[0];
420            return Cnil;
421    }
422    /*      local entry for function COSH   */
423    
424    static object LI9(V78)
425    
426    register object V78;
427    {        VMB9 VMS9 VMV9
428            goto TTL;
429    TTL:;
430            base[0]= (V78);
431            vs_top=(vs_base=base+0)+1;
432            Lcomplexp();
433            vs_top=sup;
434            if((vs_base[0])==Cnil){
435            goto T140;}
436            {object V79;
437            object V80;
438            base[0]= (V78);
439            vs_top=(vs_base=base+0)+1;
440            Lrealpart();
441            vs_top=sup;
442            V79= vs_base[0];
443            base[0]= (V78);
444            vs_top=(vs_base=base+0)+1;
445            Limagpart();
446            vs_top=sup;
447            V80= vs_base[0];
448            V81= (*(LnkLI15))((V79));
449            base[1]= (V80);
450            vs_top=(vs_base=base+1)+1;
451            Lcos();
452            vs_top=sup;
453            V82= vs_base[0];
454            base[0]= number_times(/* INLINE-ARGS */V81,V82);
455            V83= (*(LnkLI14))((V79));
456            base[2]= (V80);
457            vs_top=(vs_base=base+2)+1;
458            Lsin();
459            vs_top=sup;
460            V84= vs_base[0];
461            base[1]= number_times(/* INLINE-ARGS */V83,V84);
462            vs_top=(vs_base=base+0)+2;
463            Lcomplex();
464            vs_top=sup;
465            {object V85 = vs_base[0];
466            VMR9(V85)}}
467            goto T140;
468    T140:;
469            {object V86;
470            base[0]= (V78);
471            vs_top=(vs_base=base+0)+1;
472            Lexp();
473            vs_top=sup;
474            V86= vs_base[0];
475            base[0]= (V86);
476            vs_top=(vs_base=base+0)+1;
477            Ldivide();
478            vs_top=sup;
479            V87= vs_base[0];
480            V88= number_plus((V86),V87);
481            {object V89 = number_times(VV[8],/* INLINE-ARGS */V88);
482            VMR9(V89)}}
483            base[0]=base[0];
484            return Cnil;
485    }
486    /*      local entry for function TANH   */
487    
488    static object LI10(V91)
489    
490    object V91;
491    {        VMB10 VMS10 VMV10
492            goto TTL;
493    TTL:;
494            base[0]= (*(LnkLI14))((V91));
495            base[1]= (*(LnkLI15))((V91));
496            vs_top=(vs_base=base+0)+2;
497            Ldivide();
498            vs_top=sup;
499            {object V92 = vs_base[0];
500            VMR10(V92)}
501            base[0]=base[0];
502            return Cnil;
503    }
504    /*      local entry for function ASINH  */
505    
506    static object LI11(V94)
507    
508    object V94;
509    {        VMB11 VMS11 VMV11
510            goto TTL;
511    TTL:;
512            V96= number_times((V94),(V94));
513            base[1]= number_plus(VV[2],/* INLINE-ARGS */V96);
514            vs_top=(vs_base=base+1)+1;
515            Lsqrt();
516            vs_top=sup;
517            V95= vs_base[0];
518            base[0]= number_plus((V94),V95);
519            vs_top=(vs_base=base+0)+1;
520            Llog();
521            vs_top=sup;
522            {object V97 = vs_base[0];
523            VMR11(V97)}
524            base[0]=base[0];
525            return Cnil;
526    }
527    /*      local entry for function ACOSH  */
528    
529    static object LI12(V99)
530    
531    object V99;
532    {        VMB12 VMS12 VMV12
533            goto TTL;
534    TTL:;
535            base[2]= one_plus((V99));
536            base[3]= small_fixnum(2);
537            vs_top=(vs_base=base+2)+2;
538            Ldivide();
539            vs_top=sup;
540            base[1]= vs_base[0];
541            vs_top=(vs_base=base+1)+1;
542            Lsqrt();
543            vs_top=sup;
544            V101= vs_base[0];
545            base[2]= one_minus((V99));
546            base[3]= small_fixnum(2);
547            vs_top=(vs_base=base+2)+2;
548            Ldivide();
549            vs_top=sup;
550            base[1]= vs_base[0];
551            vs_top=(vs_base=base+1)+1;
552            Lsqrt();
553            vs_top=sup;
554            V102= vs_base[0];
555            base[0]= number_plus(V101,V102);
556            vs_top=(vs_base=base+0)+1;
557            Llog();
558            vs_top=sup;
559            V100= vs_base[0];
560            {object V103 = number_times(small_fixnum(2),V100);
561            VMR12(V103)}
562            base[0]=base[0];
563            return Cnil;
564    }
565    /*      local entry for function ATANH  */
566    
567    static object LI13(V105)
568    
569    register object V105;
570    {        VMB13 VMS13 VMV13
571            goto TTL;
572    TTL:;
573            if(number_compare((V105),VV[2])==0){
574            goto T173;}
575            if(!(number_compare((V105),VV[3])==0)){
576            goto T172;}
577            goto T173;
578    T173:;
579            base[0]= VV[9];
580            base[1]= (V105);
581            vs_top=(vs_base=base+0)+2;
582            Lerror();
583            vs_top=sup;
584            goto T172;
585    T172:;
586            base[1]= one_plus((V105));
587            V106= number_times((V105),(V105));
588            base[3]= number_minus(VV[2],/* INLINE-ARGS */V106);
589            vs_top=(vs_base=base+3)+1;
590            Lsqrt();
591            vs_top=sup;
592            base[2]= vs_base[0];
593            vs_top=(vs_base=base+1)+2;
594            Ldivide();
595            vs_top=sup;
596            base[0]= vs_base[0];
597            vs_top=(vs_base=base+0)+1;
598            Llog();
599            vs_top=sup;
600            {object V107 = vs_base[0];
601            VMR13(V107)}
602            base[0]=base[0];
603            return Cnil;
604    }
605    /*      local entry for function RATIONAL       */
606    
607    static object LI14(V109)
608    
609    register object V109;
610    {        VMB14 VMS14 VMV14
611            goto TTL;
612    TTL:;
613            {register object V110;
614            V110= (V109);
615            if(!(type_of((V110))==t_shortfloat||type_of((V110))==t_longfloat)){
616            goto T184;}
617            {object V111;
618            object V112;
619            object V113;
620            base[0]= (V109);
621            vs_top=(vs_base=base+0)+1;
622            Linteger_decode_float();
623            if(vs_base>=vs_top){vs_top=sup;goto T188;}
624            V111= vs_base[0];
625            vs_base++;
626            if(vs_base>=vs_top){vs_top=sup;goto T189;}
627            V112= vs_base[0];
628            vs_base++;
629            if(vs_base>=vs_top){vs_top=sup;goto T190;}
630            V113= vs_base[0];
631            vs_top=sup;
632            goto T191;
633            goto T188;
634    T188:;
635            V111= Cnil;
636            goto T189;
637    T189:;
638            V112= Cnil;
639            goto T190;
640    T190:;
641            V113= Cnil;
642            goto T191;
643    T191:;
644            if(!(number_compare((V113),small_fixnum(0))>=0)){
645            goto T193;}
646            base[0]= (V109);
647            vs_top=(vs_base=base+0)+1;
648            Lfloat_radix();
649            vs_top=sup;
650            V114= vs_base[0];
651            V115= number_expt(V114,(V112));
652            {object V116 = number_times((V111),/* INLINE-ARGS */V115);
653            VMR14(V116)}
654            goto T193;
655    T193:;
656            base[0]= (V109);
657            vs_top=(vs_base=base+0)+1;
658            Lfloat_radix();
659            vs_top=sup;
660            V117= vs_base[0];
661            V118= number_expt(V117,(V112));
662            V119= number_times((V111),/* INLINE-ARGS */V118);
663            {object V120 = number_negate(/* INLINE-ARGS */V119);
664            VMR14(V120)}}
665            goto T184;
666    T184:;
667            base[0]= (V110);
668            vs_top=(vs_base=base+0)+1;
669            (void) (*Lnk16)();
670            vs_top=sup;
671            if((vs_base[0])==Cnil){
672            goto T200;}
673            {object V121 = (V109);
674            VMR14(V121)}
675            goto T200;
676    T200:;
677            base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]);
678            vs_top=(vs_base=base+0)+1;
679            Lerror();
680            vs_top=sup;
681            {object V122 = vs_base[0];
682            VMR14(V122)}}
683            base[0]=base[0];
684            return Cnil;
685    }
686    /*      function definition for FFLOOR  */
687    
688    static void L15()
689    {register object *base=vs_base;
690            register object *sup=base+VM15; VC15
691            vs_reserve(VM15);
692            {object V123;
693            object V124;
694            if(vs_top-vs_base<1) too_few_arguments();
695            if(vs_top-vs_base>2) too_many_arguments();
696            V123=(base[0]);
697            vs_base=vs_base+1;
698            if(vs_base>=vs_top){vs_top=sup;goto T204;}
699            V124=(base[1]);
700            vs_top=sup;
701            goto T205;
702            goto T204;
703    T204:;
704            V124= VV[12];
705            goto T205;
706    T205:;
707            {object V125;
708            object V126;
709            base[3]= (V123);
710            vs_top=(vs_base=base+3)+1;
711            Lfloat();
712            vs_top=sup;
713            base[2]= vs_base[0];
714            base[4]= (V124);
715            vs_top=(vs_base=base+4)+1;
716            Lfloat();
717            vs_top=sup;
718            base[3]= vs_base[0];
719            vs_top=(vs_base=base+2)+2;
720            Lfloor();
721            if(vs_base>=vs_top){vs_top=sup;goto T212;}
722            V125= vs_base[0];
723            vs_base++;
724            if(vs_base>=vs_top){vs_top=sup;goto T213;}
725            V126= vs_base[0];
726            vs_top=sup;
727            goto T214;
728            goto T212;
729    T212:;
730            V125= Cnil;
731            goto T213;
732    T213:;
733            V126= Cnil;
734            goto T214;
735    T214:;
736            base[3]= (V125);
737            base[4]= (V126);
738            vs_top=(vs_base=base+3)+2;
739            Lfloat();
740            vs_top=sup;
741            base[2]= vs_base[0];
742            base[3]= (V126);
743            vs_top=(vs_base=base+2)+2;
744            return;}
745            }
746    }
747    /*      function definition for FCEILING        */
748    
749    static void L16()
750    {register object *base=vs_base;
751            register object *sup=base+VM16; VC16
752            vs_reserve(VM16);
753            {object V127;
754            object V128;
755            if(vs_top-vs_base<1) too_few_arguments();
756            if(vs_top-vs_base>2) too_many_arguments();
757            V127=(base[0]);
758            vs_base=vs_base+1;
759            if(vs_base>=vs_top){vs_top=sup;goto T219;}
760            V128=(base[1]);
761            vs_top=sup;
762            goto T220;
763            goto T219;
764    T219:;
765            V128= VV[12];
766            goto T220;
767    T220:;
768            {object V129;
769            object V130;
770            base[3]= (V127);
771            vs_top=(vs_base=base+3)+1;
772            Lfloat();
773            vs_top=sup;
774            base[2]= vs_base[0];
775            base[4]= (V128);
776            vs_top=(vs_base=base+4)+1;
777            Lfloat();
778            vs_top=sup;
779            base[3]= vs_base[0];
780            vs_top=(vs_base=base+2)+2;
781            Lceiling();
782            if(vs_base>=vs_top){vs_top=sup;goto T227;}
783            V129= vs_base[0];
784            vs_base++;
785            if(vs_base>=vs_top){vs_top=sup;goto T228;}
786            V130= vs_base[0];
787            vs_top=sup;
788            goto T229;
789            goto T227;
790    T227:;
791            V129= Cnil;
792            goto T228;
793    T228:;
794            V130= Cnil;
795            goto T229;
796    T229:;
797            base[3]= (V129);
798            base[4]= (V130);
799            vs_top=(vs_base=base+3)+2;
800            Lfloat();
801            vs_top=sup;
802            base[2]= vs_base[0];
803            base[3]= (V130);
804            vs_top=(vs_base=base+2)+2;
805            return;}
806            }
807    }
808    /*      function definition for FTRUNCATE       */
809    
810    static void L17()
811    {register object *base=vs_base;
812            register object *sup=base+VM17; VC17
813            vs_reserve(VM17);
814            {object V131;
815            object V132;
816            if(vs_top-vs_base<1) too_few_arguments();
817            if(vs_top-vs_base>2) too_many_arguments();
818            V131=(base[0]);
819            vs_base=vs_base+1;
820            if(vs_base>=vs_top){vs_top=sup;goto T234;}
821            V132=(base[1]);
822            vs_top=sup;
823            goto T235;
824            goto T234;
825    T234:;
826            V132= VV[12];
827            goto T235;
828    T235:;
829            {object V133;
830            object V134;
831            base[3]= (V131);
832            vs_top=(vs_base=base+3)+1;
833            Lfloat();
834            vs_top=sup;
835            base[2]= vs_base[0];
836            base[4]= (V132);
837            vs_top=(vs_base=base+4)+1;
838            Lfloat();
839            vs_top=sup;
840            base[3]= vs_base[0];
841            vs_top=(vs_base=base+2)+2;
842            Ltruncate();
843            if(vs_base>=vs_top){vs_top=sup;goto T242;}
844            V133= vs_base[0];
845            vs_base++;
846            if(vs_base>=vs_top){vs_top=sup;goto T243;}
847            V134= vs_base[0];
848            vs_top=sup;
849            goto T244;
850            goto T242;
851    T242:;
852            V133= Cnil;
853            goto T243;
854    T243:;
855            V134= Cnil;
856            goto T244;
857    T244:;
858            base[3]= (V133);
859            base[4]= (V134);
860            vs_top=(vs_base=base+3)+2;
861            Lfloat();
862            vs_top=sup;
863            base[2]= vs_base[0];
864            base[3]= (V134);
865            vs_top=(vs_base=base+2)+2;
866            return;}
867            }
868    }
869    /*      function definition for FROUND  */
870    
871    static void L18()
872    {register object *base=vs_base;
873            register object *sup=base+VM18; VC18
874            vs_reserve(VM18);
875            {object V135;
876            object V136;
877            if(vs_top-vs_base<1) too_few_arguments();
878            if(vs_top-vs_base>2) too_many_arguments();
879            V135=(base[0]);
880            vs_base=vs_base+1;
881            if(vs_base>=vs_top){vs_top=sup;goto T249;}
882            V136=(base[1]);
883            vs_top=sup;
884            goto T250;
885            goto T249;
886    T249:;
887            V136= VV[12];
888            goto T250;
889    T250:;
890            {object V137;
891            object V138;
892            base[3]= (V135);
893            vs_top=(vs_base=base+3)+1;
894            Lfloat();
895            vs_top=sup;
896            base[2]= vs_base[0];
897            base[4]= (V136);
898            vs_top=(vs_base=base+4)+1;
899            Lfloat();
900            vs_top=sup;
901            base[3]= vs_base[0];
902            vs_top=(vs_base=base+2)+2;
903            Lround();
904            if(vs_base>=vs_top){vs_top=sup;goto T257;}
905            V137= vs_base[0];
906            vs_base++;
907            if(vs_base>=vs_top){vs_top=sup;goto T258;}
908            V138= vs_base[0];
909            vs_top=sup;
910            goto T259;
911            goto T257;
912    T257:;
913            V137= Cnil;
914            goto T258;
915    T258:;
916            V138= Cnil;
917            goto T259;
918    T259:;
919            base[3]= (V137);
920            base[4]= (V138);
921            vs_top=(vs_base=base+3)+2;
922            Lfloat();
923            vs_top=sup;
924            base[2]= vs_base[0];
925            base[3]= (V138);
926            vs_top=(vs_base=base+2)+2;
927            return;}
928            }
929    }
930    /*      local entry for function LOGNAND        */
931    
932    static object LI19(V141,V142)
933    
934    object V141;object V142;
935    {        VMB19 VMS19 VMV19
936            goto TTL;
937    TTL:;
938            base[0]= small_fixnum(14);
939            base[1]= (V141);
940            base[2]= (V142);
941            vs_top=(vs_base=base+0)+3;
942            Lboole();
943            vs_top=sup;
944            {object V143 = vs_base[0];
945            VMR19(V143)}
946            base[0]=base[0];
947            return Cnil;
948    }
949    /*      local entry for function LOGNOR */
950    
951    static object LI20(V146,V147)
952    
953    object V146;object V147;
954    {        VMB20 VMS20 VMV20
955            goto TTL;
956    TTL:;
957            base[0]= small_fixnum(8);
958            base[1]= (V146);
959            base[2]= (V147);
960            vs_top=(vs_base=base+0)+3;
961            Lboole();
962            vs_top=sup;
963            {object V148 = vs_base[0];
964            VMR20(V148)}
965            base[0]=base[0];
966            return Cnil;
967    }
968    /*      local entry for function LOGANDC1       */
969    
970    static object LI21(V151,V152)
971    
972    object V151;object V152;
973    {        VMB21 VMS21 VMV21
974            goto TTL;
975    TTL:;
976            base[0]= small_fixnum(4);
977            base[1]= (V151);
978            base[2]= (V152);
979            vs_top=(vs_base=base+0)+3;
980            Lboole();
981            vs_top=sup;
982            {object V153 = vs_base[0];
983            VMR21(V153)}
984            base[0]=base[0];
985            return Cnil;
986    }
987    /*      local entry for function LOGANDC2       */
988    
989    static object LI22(V156,V157)
990    
991    object V156;object V157;
992    {        VMB22 VMS22 VMV22
993            goto TTL;
994    TTL:;
995            base[0]= small_fixnum(2);
996            base[1]= (V156);
997            base[2]= (V157);
998            vs_top=(vs_base=base+0)+3;
999            Lboole();
1000            vs_top=sup;
1001            {object V158 = vs_base[0];
1002            VMR22(V158)}
1003            base[0]=base[0];
1004            return Cnil;
1005    }
1006    /*      local entry for function LOGORC1        */
1007    
1008    static object LI23(V161,V162)
1009    
1010    object V161;object V162;
1011    {        VMB23 VMS23 VMV23
1012            goto TTL;
1013    TTL:;
1014            base[0]= small_fixnum(13);
1015            base[1]= (V161);
1016            base[2]= (V162);
1017            vs_top=(vs_base=base+0)+3;
1018            Lboole();
1019            vs_top=sup;
1020            {object V163 = vs_base[0];
1021            VMR23(V163)}
1022            base[0]=base[0];
1023            return Cnil;
1024    }
1025    /*      local entry for function LOGORC2        */
1026    
1027    static object LI24(V166,V167)
1028    
1029    object V166;object V167;
1030    {        VMB24 VMS24 VMV24
1031            goto TTL;
1032    TTL:;
1033            base[0]= small_fixnum(11);
1034            base[1]= (V166);
1035            base[2]= (V167);
1036            vs_top=(vs_base=base+0)+3;
1037            Lboole();
1038            vs_top=sup;
1039            {object V168 = vs_base[0];
1040            VMR24(V168)}
1041            base[0]=base[0];
1042            return Cnil;
1043    }
1044    /*      local entry for function LOGNOT */
1045    
1046    static object LI25(V170)
1047    
1048    object V170;
1049    {        VMB25 VMS25 VMV25
1050            goto TTL;
1051    TTL:;
1052            base[0]= small_fixnum(-1);
1053            base[1]= (V170);
1054            vs_top=(vs_base=base+0)+2;
1055            Llogxor();
1056            vs_top=sup;
1057            {object V171 = vs_base[0];
1058            VMR25(V171)}
1059            base[0]=base[0];
1060            return Cnil;
1061    }
1062    /*      local entry for function LOGTEST        */
1063    
1064    static object LI26(V174,V175)
1065    
1066    object V174;object V175;
1067    {        VMB26 VMS26 VMV26
1068            goto TTL;
1069    TTL:;
1070            base[0]= (V174);
1071            base[1]= (V175);
1072            vs_top=(vs_base=base+0)+2;
1073            Llogand();
1074            vs_top=sup;
1075            V176= vs_base[0];
1076            {object V177 = (((number_compare(small_fixnum(0),V176)==0?Ct:Cnil))==Cnil?Ct:Cnil);
1077            VMR26(V177)}
1078            base[0]=base[0];
1079            return Cnil;
1080    }
1081    /*      local entry for function BYTE   */
1082    
1083    static object LI27(V180,V181)
1084    
1085    object V180;object V181;
1086    {        VMB27 VMS27 VMV27
1087            goto TTL;
1088    TTL:;
1089            {object V182 = make_cons((V180),(V181));
1090            VMR27(V182)}
1091            return Cnil;
1092    }
1093    /*      local entry for function BYTE-SIZE      */
1094    
1095    static object LI28(V184)
1096    
1097    object V184;
1098    {        VMB28 VMS28 VMV28
1099            goto TTL;
1100    TTL:;
1101            {object V185 = car((V184));
1102            VMR28(V185)}
1103            return Cnil;
1104    }
1105    /*      local entry for function BYTE-POSITION  */
1106    
1107    static object LI29(V187)
1108    
1109    object V187;
1110    {        VMB29 VMS29 VMV29
1111            goto TTL;
1112    TTL:;
1113            {object V188 = cdr((V187));
1114            VMR29(V188)}
1115            return Cnil;
1116    }
1117    /*      local entry for function LDB    */
1118    
1119    static object LI30(V191,V192)
1120    
1121    object V191;object V192;
1122    {        VMB30 VMS30 VMV30
1123            goto TTL;
1124    TTL:;
1125            base[0]= (V192);
1126            V194= (*(LnkLI19))((V191));
1127            base[1]= number_negate(/* INLINE-ARGS */V194);
1128            vs_top=(vs_base=base+0)+2;
1129            Lash();
1130            vs_top=sup;
1131            V193= vs_base[0];
1132            base[0]= small_fixnum(1);
1133            base[1]= (*(LnkLI20))((V191));
1134            vs_top=(vs_base=base+0)+2;
1135            Lash();
1136            vs_top=sup;
1137            V195= vs_base[0];
1138            V196= number_negate(V195);
1139            {object V197 = (*(LnkLI18))(V193,/* INLINE-ARGS */V196);
1140            VMR30(V197)}
1141            base[0]=base[0];
1142            return Cnil;
1143    }
1144    /*      local entry for function LDB-TEST       */
1145    
1146    static object LI31(V200,V201)
1147    
1148    object V200;object V201;
1149    {        VMB31 VMS31 VMV31
1150            goto TTL;
1151    TTL:;
1152            V202= (*(LnkLI21))((V200),(V201));
1153            {object V203 = (((number_compare(small_fixnum(0),/* INLINE-ARGS */V202)==0?Ct:Cnil))==Cnil?Ct:Cnil);
1154            VMR31(V203)}
1155            return Cnil;
1156    }
1157    /*      local entry for function MASK-FIELD     */
1158    
1159    static object LI32(V206,V207)
1160    
1161    object V206;object V207;
1162    {        VMB32 VMS32 VMV32
1163            goto TTL;
1164    TTL:;
1165            base[0]= (*(LnkLI21))((V206),(V207));
1166            base[1]= (*(LnkLI19))((V206));
1167            vs_top=(vs_base=base+0)+2;
1168            Lash();
1169            vs_top=sup;
1170            {object V208 = vs_base[0];
1171            VMR32(V208)}
1172            base[0]=base[0];
1173            return Cnil;
1174    }
1175    /*      local entry for function DPB    */
1176    
1177    static object LI33(V212,V213,V214)
1178    
1179    object V212;object V213;object V214;
1180    {        VMB33 VMS33 VMV33
1181            goto TTL;
1182    TTL:;
1183            base[0]= (V214);
1184            base[1]= (*(LnkLI22))((V213),(V214));
1185            base[4]= small_fixnum(1);
1186            base[5]= (*(LnkLI20))((V213));
1187            vs_top=(vs_base=base+4)+2;
1188            Lash();
1189            vs_top=sup;
1190            V215= vs_base[0];
1191            V216= number_negate(V215);
1192            base[3]= (*(LnkLI18))((V212),/* INLINE-ARGS */V216);
1193            base[4]= (*(LnkLI19))((V213));
1194            vs_top=(vs_base=base+3)+2;
1195            Lash();
1196            vs_top=sup;
1197            base[2]= vs_base[0];
1198            vs_top=(vs_base=base+0)+3;
1199            Llogxor();
1200            vs_top=sup;
1201            {object V217 = vs_base[0];
1202            VMR33(V217)}
1203            base[0]=base[0];
1204            return Cnil;
1205    }
1206    /*      local entry for function DEPOSIT-FIELD  */
1207    
1208    static object LI34(V221,V222,V223)
1209    
1210    object V221;object V222;object V223;
1211    {        VMB34 VMS34 VMV34
1212            goto TTL;
1213    TTL:;
1214            base[0]= (V221);
1215            V225= (*(LnkLI19))((V222));
1216            base[1]= number_negate(/* INLINE-ARGS */V225);
1217            vs_top=(vs_base=base+0)+2;
1218            Lash();
1219            vs_top=sup;
1220            V224= vs_base[0];
1221            {object V226 = (*(LnkLI23))(V224,(V222),(V223));
1222            VMR34(V226)}
1223            base[0]=base[0];
1224            return Cnil;
1225    }
1226    static object  LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* DPB */
1227    static object  LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[22],(void **)(void *)&LnkLI22,2,first,ap);va_end(ap);return V1;} /* MASK-FIELD */
1228    static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)(void *)&LnkLI21,2,first,ap);va_end(ap);return V1;} /* LDB */
1229    static object  LnkTLI20(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[20],(void **)(void *)&LnkLI20,1,first,ap);va_end(ap);return V1;} /* BYTE-SIZE */
1230    static object  LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BYTE-POSITION */
1231    static object  LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[18],(void **)(void *)&LnkLI18,2,first,ap);va_end(ap);return V1;} /* LOGANDC2 */
1232    static object  LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,3,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRING */
1233    static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* RATIONALP */
1234    static object  LnkTLI15(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[15],(void **)(void *)&LnkLI15,1,first,ap);va_end(ap);return V1;} /* COSH */
1235    static object  LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* SINH */
1236    static object  LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* ABS */
1237    
1238    #ifdef SYSTEM_SPECIAL_INIT
1239    SYSTEM_SPECIAL_INIT
1240    #endif
1241    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26