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; |
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); |
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(); |
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(); |
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(); |
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); |
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; |
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); |
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; |
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); |
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; |
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); |
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; |