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

Diff of /gcl/lsp/numlib.c

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

revision 1.2 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.3 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
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);
# Line 45  T9:; Line 49  T9:;
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);
# Line 56  T19:; Line 61  T19:;
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);
# Line 64  T26:; Line 70  T26:;
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    
# Line 71  static object LI2(V9) Line 79  static object LI2(V9)
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;
# Line 100  TTL:; Line 109  TTL:;
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);
# Line 121  T55:; Line 132  T55:;
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    
# Line 136  static object LI3(V24) Line 151  static object LI3(V24)
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;
# Line 152  TTL:; Line 168  TTL:;
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    
# Line 159  static object LI4(V27) Line 177  static object LI4(V27)
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));
# Line 172  T70:; Line 192  T70:;
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    
# Line 179  static object LI5(V31) Line 201  static object LI5(V31)
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;
# Line 186  TTL:; Line 209  TTL:;
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    
# Line 193  static object LI6(V34) Line 218  static object LI6(V34)
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));
# Line 219  TTL:; Line 245  TTL:;
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;
# Line 227  T82:; Line 254  T82:;
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;
# Line 234  T80:; Line 262  T80:;
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    
# Line 244  static object LI7(V45) Line 275  static object LI7(V45)
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));
# Line 270  TTL:; Line 302  TTL:;
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;
# Line 278  T100:; Line 311  T100:;
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;
# Line 285  T98:; Line 319  T98:;
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    
# Line 295  static object LI8(V56) Line 332  static object LI8(V56)
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;
# Line 333  TTL:; Line 371  TTL:;
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);
# Line 361  T112:; Line 400  T112:;
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);
# Line 376  T126:; Line 416  T126:;
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    
# Line 383  static object LI9(V78) Line 425  static object LI9(V78)
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;
# Line 421  TTL:; Line 464  TTL:;
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);
# Line 436  T140:; Line 480  T140:;
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    
# Line 443  static object LI10(V91) Line 489  static object LI10(V91)
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));
# Line 451  TTL:; Line 498  TTL:;
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    
# Line 458  static object LI11(V94) Line 507  static object LI11(V94)
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);
# Line 471  TTL:; Line 521  TTL:;
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    
# Line 478  static object LI12(V99) Line 530  static object LI12(V99)
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));
# Line 497  TTL:; Line 550  TTL:;
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    
# Line 504  static object LI13(V105) Line 559  static object LI13(V105)
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));
# Line 532  T167:; Line 590  T167:;
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    
# Line 539  static object LI14(V109) Line 599  static object LI14(V109)
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);
# Line 560  TTL:; Line 621  TTL:;
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;}
# Line 577  T186:; Line 642  T186:;
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;
# Line 587  T188:; Line 653  T188:;
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;
# Line 596  T179:; Line 663  T179:;
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;
# Line 603  T195:; Line 671  T195:;
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);
# Line 620  static L15() Line 690  static L15()
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;
# Line 644  T200:; Line 716  T200:;
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);
# Line 662  T209:; Line 737  T209:;
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);
# Line 676  static L16() Line 751  static L16()
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;
# Line 700  T215:; Line 777  T215:;
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);
# Line 718  T224:; Line 798  T224:;
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);
# Line 732  static L17() Line 812  static L17()
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;
# Line 756  T230:; Line 838  T230:;
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);
# Line 774  T239:; Line 859  T239:;
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);
# Line 788  static L18() Line 873  static L18()
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;
# Line 812  T245:; Line 899  T245:;
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);
# Line 834  static object LI19(V141,V142) Line 924  static object LI19(V141,V142)
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);
# Line 843  TTL:; Line 934  TTL:;
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    
# Line 850  static object LI20(V146,V147) Line 943  static object LI20(V146,V147)
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);
# Line 859  TTL:; Line 953  TTL:;
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    
# Line 866  static object LI21(V151,V152) Line 962  static object LI21(V151,V152)
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);
# Line 875  TTL:; Line 972  TTL:;
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    
# Line 882  static object LI22(V156,V157) Line 981  static object LI22(V156,V157)
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);
# Line 891  TTL:; Line 991  TTL:;
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    
# Line 898  static object LI23(V161,V162) Line 1000  static object LI23(V161,V162)
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);
# Line 907  TTL:; Line 1010  TTL:;
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    
# Line 914  static object LI24(V166,V167) Line 1019  static object LI24(V166,V167)
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);
# Line 923  TTL:; Line 1029  TTL:;
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    
# Line 930  static object LI25(V170) Line 1038  static object LI25(V170)
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);
# Line 938  TTL:; Line 1047  TTL:;
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    
# Line 945  static object LI26(V174,V175) Line 1056  static object LI26(V174,V175)
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);
# Line 954  TTL:; Line 1066  TTL:;
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    
# Line 961  static object LI27(V180,V181) Line 1075  static object LI27(V180,V181)
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    
# Line 971  static object LI28(V184) Line 1087  static object LI28(V184)
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    
# Line 981  static object LI29(V187) Line 1099  static object LI29(V187)
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    
# Line 991  static object LI30(V191,V192) Line 1111  static object LI30(V191,V192)
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));
# Line 1008  TTL:; Line 1129  TTL:;
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    
# Line 1015  static object LI31(V200,V201) Line 1138  static object LI31(V200,V201)
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    
# Line 1026  static object LI32(V206,V207) Line 1151  static object LI32(V206,V207)
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));
# Line 1034  TTL:; Line 1160  TTL:;
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    
# Line 1041  static object LI33(V212,V213,V214) Line 1169  static object LI33(V212,V213,V214)
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));
# Line 1062  TTL:; Line 1191  TTL:;
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    
# Line 1069  static object LI34(V221,V222,V223) Line 1200  static object LI34(V221,V222,V223)
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));
# Line 1079  TTL:; Line 1211  TTL:;
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

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

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