/[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.4 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.5 by camm, Wed Oct 16 03:46:11 2002 UTC
# Line 528  TTL:; Line 528  TTL:;
528    
529  static object LI12(V99)  static object LI12(V99)
530    
531  register object V99;  object V99;
532  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
533  goto TTL;  goto TTL;
534  TTL:;  TTL:;
535          V100= one_plus((V99));          V101= one_minus((V99));
536          base[2]= one_minus((V99));          V102= one_plus((V99));
537          base[3]= one_plus((V99));          base[1]= number_times(/* INLINE-ARGS */V101,/* INLINE-ARGS */V102);
         vs_top=(vs_base=base+2)+2;  
         Ldivide();  
         vs_top=sup;  
         base[1]= vs_base[0];  
538          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
539          Lsqrt();          Lsqrt();
540          vs_top=sup;          vs_top=sup;
541          V101= vs_base[0];          V100= vs_base[0];
542          V102= number_times(/* INLINE-ARGS */V100,V101);          base[0]= number_plus((V99),V100);
         base[0]= number_plus((V99),/* INLINE-ARGS */V102);  
543          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
544          Llog();          Llog();
545          vs_top=sup;          vs_top=sup;
# Line 562  register object V105; Line 557  register object V105;
557  goto TTL;  goto TTL;
558  TTL:;  TTL:;
559          if(number_compare((V105),VV[2])==0){          if(number_compare((V105),VV[2])==0){
560          goto T168;}          goto T166;}
561          if(!(number_compare((V105),VV[3])==0)){          if(!(number_compare((V105),VV[3])==0)){
562          goto T167;}          goto T165;}
563  goto T168;  goto T166;
564  T168:;  T166:;
565          base[0]= VV[9];          base[0]= VV[9];
566          base[1]= (V105);          base[1]= (V105);
567          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
568          Lerror();          Lerror();
569          vs_top=sup;          vs_top=sup;
570  goto T167;  goto T165;
571  T167:;  T165:;
572          base[1]= one_plus((V105));          base[1]= one_plus((V105));
573          V106= number_times((V105),(V105));          V106= number_times((V105),(V105));
574          base[3]= number_minus(VV[2],/* INLINE-ARGS */V106);          base[3]= number_minus(VV[2],/* INLINE-ARGS */V106);
# Line 604  TTL:; Line 599  TTL:;
599          {register object V110;          {register object V110;
600          V110= (V109);          V110= (V109);
601          if(!(type_of((V110))==t_shortfloat||type_of((V110))==t_longfloat)){          if(!(type_of((V110))==t_shortfloat||type_of((V110))==t_longfloat)){
602          goto T179;}          goto T177;}
603          {object V111;          {object V111;
604          object V112;          object V112;
605          object V113;          object V113;
606          base[0]= (V109);          base[0]= (V109);
607          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
608          Linteger_decode_float();          Linteger_decode_float();
609          if(vs_base>=vs_top){vs_top=sup;goto T183;}          if(vs_base>=vs_top){vs_top=sup;goto T181;}
610          V111= vs_base[0];          V111= vs_base[0];
611          vs_base++;          vs_base++;
612          if(vs_base>=vs_top){vs_top=sup;goto T184;}          if(vs_base>=vs_top){vs_top=sup;goto T182;}
613          V112= vs_base[0];          V112= vs_base[0];
614          vs_base++;          vs_base++;
615          if(vs_base>=vs_top){vs_top=sup;goto T185;}          if(vs_base>=vs_top){vs_top=sup;goto T183;}
616          V113= vs_base[0];          V113= vs_base[0];
617          vs_top=sup;          vs_top=sup;
618          goto T186;          goto T184;
619    goto T181;
620    T181:;
621            V111= Cnil;
622    goto T182;
623    T182:;
624            V112= Cnil;
625  goto T183;  goto T183;
626  T183:;  T183:;
627          V111= Cnil;          V113= Cnil;
628  goto T184;  goto T184;
629  T184:;  T184:;
         V112= Cnil;  
 goto T185;  
 T185:;  
         V113= Cnil;  
 goto T186;  
 T186:;  
630          if(!(number_compare((V113),small_fixnum(0))>=0)){          if(!(number_compare((V113),small_fixnum(0))>=0)){
631          goto T188;}          goto T186;}
632          base[0]= (V109);          base[0]= (V109);
633          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
634          Lfloat_radix();          Lfloat_radix();
# Line 642  T186:; Line 637  T186:;
637          V115= number_expt(V114,(V112));          V115= number_expt(V114,(V112));
638          {object V116 = number_times((V111),/* INLINE-ARGS */V115);          {object V116 = number_times((V111),/* INLINE-ARGS */V115);
639          VMR14(V116)}          VMR14(V116)}
640  goto T188;  goto T186;
641  T188:;  T186:;
642          base[0]= (V109);          base[0]= (V109);
643          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
644          Lfloat_radix();          Lfloat_radix();
# Line 653  T188:; Line 648  T188:;
648          V119= number_times((V111),/* INLINE-ARGS */V118);          V119= number_times((V111),/* INLINE-ARGS */V118);
649          {object V120 = number_negate(/* INLINE-ARGS */V119);          {object V120 = number_negate(/* INLINE-ARGS */V119);
650          VMR14(V120)}}          VMR14(V120)}}
651  goto T179;  goto T177;
652  T179:;  T177:;
653          base[0]= (V110);          base[0]= (V110);
654          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
655          (void) (*Lnk16)();          (void) (*Lnk16)();
656          vs_top=sup;          vs_top=sup;
657          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
658          goto T195;}          goto T193;}
659          {object V121 = (V109);          {object V121 = (V109);
660          VMR14(V121)}          VMR14(V121)}
661  goto T195;  goto T193;
662  T195:;  T193:;
663          base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]);          base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]);
664          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
665          Lerror();          Lerror();
# Line 686  static void L15() Line 681  static void L15()
681          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
682          V123=(base[0]);          V123=(base[0]);
683          vs_base=vs_base+1;          vs_base=vs_base+1;
684          if(vs_base>=vs_top){vs_top=sup;goto T199;}          if(vs_base>=vs_top){vs_top=sup;goto T197;}
685          V124=(base[1]);          V124=(base[1]);
686          vs_top=sup;          vs_top=sup;
687          goto T200;          goto T198;
688  goto T199;  goto T197;
689  T199:;  T197:;
690          V124= VV[12];          V124= VV[12];
691  goto T200;  goto T198;
692  T200:;  T198:;
693          {object V125;          {object V125;
694          object V126;          object V126;
695          base[3]= (V123);          base[3]= (V123);
# Line 709  T200:; Line 704  T200:;
704          base[3]= vs_base[0];          base[3]= vs_base[0];
705          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
706          Lfloor();          Lfloor();
707          if(vs_base>=vs_top){vs_top=sup;goto T207;}          if(vs_base>=vs_top){vs_top=sup;goto T205;}
708          V125= vs_base[0];          V125= vs_base[0];
709          vs_base++;          vs_base++;
710          if(vs_base>=vs_top){vs_top=sup;goto T208;}          if(vs_base>=vs_top){vs_top=sup;goto T206;}
711          V126= vs_base[0];          V126= vs_base[0];
712          vs_top=sup;          vs_top=sup;
713          goto T209;          goto T207;
714  goto T207;  goto T205;
715  T207:;  T205:;
716          V125= Cnil;          V125= Cnil;
717  goto T208;  goto T206;
718  T208:;  T206:;
719          V126= Cnil;          V126= Cnil;
720  goto T209;  goto T207;
721  T209:;  T207:;
722          base[3]= (V125);          base[3]= (V125);
723          base[4]= (V126);          base[4]= (V126);
724          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 747  static void L16() Line 742  static void L16()
742          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
743          V127=(base[0]);          V127=(base[0]);
744          vs_base=vs_base+1;          vs_base=vs_base+1;
745          if(vs_base>=vs_top){vs_top=sup;goto T214;}          if(vs_base>=vs_top){vs_top=sup;goto T212;}
746          V128=(base[1]);          V128=(base[1]);
747          vs_top=sup;          vs_top=sup;
748          goto T215;          goto T213;
749  goto T214;  goto T212;
750  T214:;  T212:;
751          V128= VV[12];          V128= VV[12];
752  goto T215;  goto T213;
753  T215:;  T213:;
754          {object V129;          {object V129;
755          object V130;          object V130;
756          base[3]= (V127);          base[3]= (V127);
# Line 770  T215:; Line 765  T215:;
765          base[3]= vs_base[0];          base[3]= vs_base[0];
766          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
767          Lceiling();          Lceiling();
768          if(vs_base>=vs_top){vs_top=sup;goto T222;}          if(vs_base>=vs_top){vs_top=sup;goto T220;}
769          V129= vs_base[0];          V129= vs_base[0];
770          vs_base++;          vs_base++;
771          if(vs_base>=vs_top){vs_top=sup;goto T223;}          if(vs_base>=vs_top){vs_top=sup;goto T221;}
772          V130= vs_base[0];          V130= vs_base[0];
773          vs_top=sup;          vs_top=sup;
774          goto T224;          goto T222;
775  goto T222;  goto T220;
776  T222:;  T220:;
777          V129= Cnil;          V129= Cnil;
778  goto T223;  goto T221;
779  T223:;  T221:;
780          V130= Cnil;          V130= Cnil;
781  goto T224;  goto T222;
782  T224:;  T222:;
783          base[3]= (V129);          base[3]= (V129);
784          base[4]= (V130);          base[4]= (V130);
785          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 808  static void L17() Line 803  static void L17()
803          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
804          V131=(base[0]);          V131=(base[0]);
805          vs_base=vs_base+1;          vs_base=vs_base+1;
806          if(vs_base>=vs_top){vs_top=sup;goto T229;}          if(vs_base>=vs_top){vs_top=sup;goto T227;}
807          V132=(base[1]);          V132=(base[1]);
808          vs_top=sup;          vs_top=sup;
809          goto T230;          goto T228;
810  goto T229;  goto T227;
811  T229:;  T227:;
812          V132= VV[12];          V132= VV[12];
813  goto T230;  goto T228;
814  T230:;  T228:;
815          {object V133;          {object V133;
816          object V134;          object V134;
817          base[3]= (V131);          base[3]= (V131);
# Line 831  T230:; Line 826  T230:;
826          base[3]= vs_base[0];          base[3]= vs_base[0];
827          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
828          Ltruncate();          Ltruncate();
829          if(vs_base>=vs_top){vs_top=sup;goto T237;}          if(vs_base>=vs_top){vs_top=sup;goto T235;}
830          V133= vs_base[0];          V133= vs_base[0];
831          vs_base++;          vs_base++;
832          if(vs_base>=vs_top){vs_top=sup;goto T238;}          if(vs_base>=vs_top){vs_top=sup;goto T236;}
833          V134= vs_base[0];          V134= vs_base[0];
834          vs_top=sup;          vs_top=sup;
835          goto T239;          goto T237;
836  goto T237;  goto T235;
837  T237:;  T235:;
838          V133= Cnil;          V133= Cnil;
839  goto T238;  goto T236;
840  T238:;  T236:;
841          V134= Cnil;          V134= Cnil;
842  goto T239;  goto T237;
843  T239:;  T237:;
844          base[3]= (V133);          base[3]= (V133);
845          base[4]= (V134);          base[4]= (V134);
846          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 869  static void L18() Line 864  static void L18()
864          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
865          V135=(base[0]);          V135=(base[0]);
866          vs_base=vs_base+1;          vs_base=vs_base+1;
867          if(vs_base>=vs_top){vs_top=sup;goto T244;}          if(vs_base>=vs_top){vs_top=sup;goto T242;}
868          V136=(base[1]);          V136=(base[1]);
869          vs_top=sup;          vs_top=sup;
870          goto T245;          goto T243;
871  goto T244;  goto T242;
872  T244:;  T242:;
873          V136= VV[12];          V136= VV[12];
874  goto T245;  goto T243;
875  T245:;  T243:;
876          {object V137;          {object V137;
877          object V138;          object V138;
878          base[3]= (V135);          base[3]= (V135);
# Line 892  T245:; Line 887  T245:;
887          base[3]= vs_base[0];          base[3]= vs_base[0];
888          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
889          Lround();          Lround();
890          if(vs_base>=vs_top){vs_top=sup;goto T252;}          if(vs_base>=vs_top){vs_top=sup;goto T250;}
891          V137= vs_base[0];          V137= vs_base[0];
892          vs_base++;          vs_base++;
893          if(vs_base>=vs_top){vs_top=sup;goto T253;}          if(vs_base>=vs_top){vs_top=sup;goto T251;}
894          V138= vs_base[0];          V138= vs_base[0];
895          vs_top=sup;          vs_top=sup;
896          goto T254;          goto T252;
897  goto T252;  goto T250;
898  T252:;  T250:;
899          V137= Cnil;          V137= Cnil;
900  goto T253;  goto T251;
901  T253:;  T251:;
902          V138= Cnil;          V138= Cnil;
903  goto T254;  goto T252;
904  T254:;  T252:;
905          base[3]= (V137);          base[3]= (V137);
906          base[4]= (V138);          base[4]= (V138);
907          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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