/[gcl]/gcl/mod/gcl_destructuring_bind.c
ViewVC logotype

Diff of /gcl/mod/gcl_destructuring_bind.c

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

revision 1.1 by camm, Tue Sep 23 21:50:20 2003 UTC revision 1.2 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 791  T150:; Line 791  T150:;
791          if(((V76))!=Cnil){          if(((V76))!=Cnil){
792          goto T354;}          goto T354;}
793          {object V106;          {object V106;
794            V107 = (V73);
795          if(((V67))==Cnil){          if(((V67))==Cnil){
796          goto T360;}          goto T360;}
797          V107= list(2,VV[18],(V63));          V108= list(2,VV[18],(V63));
798          goto T358;          goto T358;
799          goto T360;          goto T360;
800  T360:;  T360:;
801          V107= (V63);          V108= (V63);
802          goto T358;          goto T358;
803  T358:;  T358:;
804          V108= list(2,VV[53],list(3,VV[54],VV[55],V107));          V109= list(2,VV[53],list(3,VV[54],VV[55],V108));
805          if(((V76))!=Cnil){          if(((V76))!=Cnil){
806          goto T364;}          goto T364;}
807          V109= make_cons((V72),Cnil);          V110= make_cons((V72),Cnil);
808          goto T362;          goto T362;
809          goto T364;          goto T364;
810  T364:;  T364:;
811          V109= Cnil;          V110= Cnil;
812          goto T362;          goto T362;
813  T362:;  T362:;
814          V110= listA(4,VV[52],(V73),/* INLINE-ARGS */V108,V109);          V111= listA(4,VV[52],V107,/* INLINE-ARGS */V109,V110);
815          {object V112;          {object V113;
816          if(((V67))==Cnil){          if(((V67))==Cnil){
817          goto T369;}          goto T369;}
818          V112= list(2,VV[18],(V63));          V113= list(2,VV[18],(V63));
819          goto T367;          goto T367;
820          goto T369;          goto T369;
821  T369:;  T369:;
822          V112= (V63);          V113= (V63);
823          goto T367;          goto T367;
824  T367:;  T367:;
825          if(!(((V66))==(VV[2]))){          if(!(((V66))==(VV[2]))){
826          goto T372;}          goto T372;}
827          V113= list(2,VV[48],(V65));          V114= list(2,VV[48],(V65));
828          V114= list(2,VV[48],(V64));          V115= list(2,VV[48],(V64));
829          V115= list(2,VV[48],(V62));          V116 = (V113);
830            V117= list(2,VV[48],(V62));
831            V118 = (V73);
832          if(((V76))!=Cnil){          if(((V76))!=Cnil){
833          goto T376;}          goto T376;}
834          V116= (V72);          V119= (V72);
835          goto T374;          goto T374;
836          goto T376;          goto T376;
837  T376:;  T376:;
838          V116= Cnil;          V119= Cnil;
839          goto T374;          goto T374;
840  T374:;  T374:;
841          V111= list(7,VV[56],/* INLINE-ARGS */V113,/* INLINE-ARGS */V114,(V112),/* INLINE-ARGS */V115,(V73),V116);          V112= list(7,VV[56],/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,V116,/* INLINE-ARGS */V117,V118,V119);
842          goto T366;          goto T366;
843          goto T372;          goto T372;
844  T372:;  T372:;
845          V117= list(2,VV[48],(V65));          V120= list(2,VV[48],(V65));
846          if(((V64))==Cnil){          if(((V64))==Cnil){
847          goto T380;}          goto T380;}
848          V118= list(2,VV[59],list(2,VV[48],(V64)));          V121= list(2,VV[59],list(2,VV[48],(V64)));
849          goto T378;          goto T378;
850          goto T380;          goto T380;
851  T380:;  T380:;
852          V118= Cnil;          V121= Cnil;
853          goto T378;          goto T378;
854  T378:;  T378:;
855          V119= list(2,VV[48],(V62));          V122 = (V113);
856            V123= list(2,VV[48],(V62));
857            V124 = (V73);
858          if(((V76))!=Cnil){          if(((V76))!=Cnil){
859          goto T384;}          goto T384;}
860          V120= list(2,VV[63],(V72));          V125= list(2,VV[63],(V72));
861          goto T382;          goto T382;
862          goto T384;          goto T384;
863  T384:;  T384:;
864          V120= Cnil;          V125= Cnil;
865          goto T382;          goto T382;
866  T382:;  T382:;
867          V121= listA(7,VV[60],(V112),VV[61],/* INLINE-ARGS */V119,VV[62],(V73),V120);          V126= listA(7,VV[60],V122,VV[61],/* INLINE-ARGS */V123,VV[62],V124,V125);
868          V111= listA(5,(V66),VV[57],VV[58],/* INLINE-ARGS */V117,append(V118,/* INLINE-ARGS */V121));}          V112= listA(5,(V66),VV[57],VV[58],/* INLINE-ARGS */V120,append(V121,/* INLINE-ARGS */V126));}
869          goto T366;          goto T366;
870  T366:;  T366:;
871          V106= list(3,VV[51],/* INLINE-ARGS */V110,V111);          V106= list(3,VV[51],/* INLINE-ARGS */V111,V112);
872          (VV[3]->s.s_dbind)= make_cons((V106),(VV[3]->s.s_dbind));}          (VV[3]->s.s_dbind)= make_cons((V106),(VV[3]->s.s_dbind));}
873          goto T354;          goto T354;
874  T354:;  T354:;
875          if(((V74))==Cnil){          if(((V74))==Cnil){
876          goto T387;}          goto T387;}
877          {object V122;          {object V127;
878          object V123;          object V128;
879          base[8]= VV[64];          base[8]= VV[64];
880          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
881          Lgensym();          Lgensym();
882          vs_top=sup;          vs_top=sup;
883          V122= vs_base[0];          V127= vs_base[0];
884          base[8]= VV[65];          base[8]= VV[65];
885          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
886          Lgensym();          Lgensym();
887          vs_top=sup;          vs_top=sup;
888          V123= vs_base[0];          V128= vs_base[0];
889          {object V124;          {object V129;
890          V125= list(2,(V122),(V123));          V130= list(2,(V127),(V128));
891          V126= list(2,VV[48],(V74));          V131= list(2,VV[48],(V74));
892          V127= list(4,VV[67],(V75),/* INLINE-ARGS */V126,list(2,VV[48],(V77)));          V132= list(4,VV[67],(V75),/* INLINE-ARGS */V131,list(2,VV[48],(V77)));
893          V128= list(2,VV[48],(V65));          V133= list(2,VV[48],(V65));
894          if(((V64))==Cnil){          if(((V64))==Cnil){
895          goto T397;}          goto T397;}
896          V129= list(2,VV[59],list(2,VV[48],(V64)));          V134= list(2,VV[59],list(2,VV[48],(V64)));
897          goto T395;          goto T395;
898          goto T397;          goto T397;
899  T397:;  T397:;
900          V129= Cnil;          V134= Cnil;
901          goto T395;          goto T395;
902  T395:;  T395:;
903          V130= list(4,VV[70],(V122),VV[71],(V123));          V135= list(4,VV[70],(V127),VV[71],(V128));
904          V124= list(4,VV[66],/* INLINE-ARGS */V125,/* INLINE-ARGS */V127,list(3,VV[68],(V122),listA(5,(V66),VV[69],VV[58],/* INLINE-ARGS */V128,append(V129,/* INLINE-ARGS */V130))));          V129= list(4,VV[66],/* INLINE-ARGS */V130,/* INLINE-ARGS */V132,list(3,VV[68],(V127),listA(5,(V66),VV[69],VV[58],/* INLINE-ARGS */V133,append(V134,/* INLINE-ARGS */V135))));
905          (VV[3]->s.s_dbind)= make_cons((V124),(VV[3]->s.s_dbind));}}          (VV[3]->s.s_dbind)= make_cons((V129),(VV[3]->s.s_dbind));}}
906          goto T387;          goto T387;
907  T387:;  T387:;
908          base[8]= (V78);          base[8]= (V78);
# Line 917  T402:; Line 922  T402:;
922  }  }
923  /*      local entry for function PUSH-SUB-LIST-BINDING  */  /*      local entry for function PUSH-SUB-LIST-BINDING  */
924    
925  static object LI9(V137,V138,V139,V140,V141,V142)  static object LI9(V142,V143,V144,V145,V146,V147)
926    
927  object V137;object V138;object V139;object V140;object V141;object V142;  object V142;object V143;object V144;object V145;object V146;object V147;
928  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
929          goto TTL;          goto TTL;
930  TTL:;  TTL:;
931          {register object V143;          {register object V148;
932          base[0]= VV[72];          base[0]= VV[72];
933          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
934          Lgensym();          Lgensym();
935          vs_top=sup;          vs_top=sup;
936          V143= vs_base[0];          V148= vs_base[0];
937          {object V144;          {object V149;
938          V145= list(2,(V143),(V138));          V150= list(2,(V148),(V143));
939          V146= make_cons(/* INLINE-ARGS */V145,Cnil);          V151= make_cons(/* INLINE-ARGS */V150,Cnil);
940          V147= list(2,VV[75],(V143));          V152= list(2,VV[75],(V148));
941          V148= list(2,VV[48],(V141));          V153= list(2,VV[48],(V146));
942          if(((V140))==Cnil){          if(((V145))==Cnil){
943          goto T411;}          goto T411;}
944          V149= list(2,VV[59],list(2,VV[48],(V140)));          V154= list(2,VV[59],list(2,VV[48],(V145)));
945          goto T409;          goto T409;
946          goto T411;          goto T411;
947  T411:;  T411:;
948          V149= Cnil;          V154= Cnil;
949          goto T409;          goto T409;
950  T409:;  T409:;
951          V150= list(4,VV[77],(V143),VV[61],list(2,VV[48],(V139)));          V155= list(4,VV[77],(V148),VV[61],list(2,VV[48],(V144)));
952          V144= list(2,(V137),list(3,VV[73],/* INLINE-ARGS */V146,list(4,VV[74],/* INLINE-ARGS */V147,(V143),listA(5,(V142),VV[76],VV[58],/* INLINE-ARGS */V148,append(V149,/* INLINE-ARGS */V150)))));          V149= list(2,(V142),list(3,VV[73],/* INLINE-ARGS */V151,list(4,VV[74],/* INLINE-ARGS */V152,(V148),listA(5,(V147),VV[76],VV[58],/* INLINE-ARGS */V153,append(V154,/* INLINE-ARGS */V155)))));
953          (VV[5]->s.s_dbind)= make_cons((V144),(VV[5]->s.s_dbind));          (VV[5]->s.s_dbind)= make_cons((V149),(VV[5]->s.s_dbind));
954          {object V151 = (VV[5]->s.s_dbind);          {object V156 = (VV[5]->s.s_dbind);
955          VMR9(V151)}}}          VMR9(V156)}}}
956          base[0]=base[0];          base[0]=base[0];
957          return Cnil;          return Cnil;
958  }  }
959  /*      local entry for function PUSH-LET-BINDING       */  /*      local entry for function PUSH-LET-BINDING       */
960    
961  static object LI10(object V154,object V153,object V152,object first,...)  static object LI10(object V159,object V158,object V157,object first,...)
962  {        {      
963          va_list ap;          va_list ap;
964          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
965          {object V155;          {object V160;
966          object V156;          object V161;
967          object V157;          object V162;
968          object V158;          object V163;
969          object V159;          object V164;
970          va_start(ap,first);          va_start(ap,first);
971          V155= V154;          V160= V159;
972          V156= V153;          V161= V158;
973          V157= V152;          V162= V157;
974          narg = narg - 3;          narg = narg - 3;
975          if (narg <= 0) goto T414;          if (narg <= 0) goto T414;
976          else {          else {
977          V158= first;}          V163= first;}
978          if (--narg <= 0) goto T415;          if (--narg <= 0) goto T415;
979          else {          else {
980          V159= va_arg(ap,object);}          V164= va_arg(ap,object);}
981          --narg; goto T416;          --narg; goto T416;
982          goto T414;          goto T414;
983  T414:;  T414:;
984          V158= Cnil;          V163= Cnil;
985          goto T415;          goto T415;
986  T415:;  T415:;
987          V159= (VV[1]->s.s_dbind);          V164= (VV[1]->s.s_dbind);
988          goto T416;          goto T416;
989  T416:;  T416:;
990          {object V160;          {object V165;
991          if(((V158))==Cnil){          if(((V163))==Cnil){
992          goto T421;}          goto T421;}
993          V160= list(2,(V155),list(4,VV[74],(V158),(V156),(V159)));          V165= list(2,(V160),list(4,VV[74],(V163),(V161),(V164)));
994          goto T419;          goto T419;
995          goto T421;          goto T421;
996  T421:;  T421:;
997          V160= list(2,(V155),(V156));          V165= list(2,(V160),(V161));
998          goto T419;          goto T419;
999  T419:;  T419:;
1000          if(((V157))==Cnil){          if(((V162))==Cnil){
1001          goto T424;}          goto T424;}
1002          (VV[5]->s.s_dbind)= make_cons(V160,(VV[5]->s.s_dbind));          (VV[5]->s.s_dbind)= make_cons(V165,(VV[5]->s.s_dbind));
1003          {object V162 = (VV[5]->s.s_dbind);          {object V167 = (VV[5]->s.s_dbind);
1004          VMR10(V162)}          VMR10(V167)}
1005          goto T424;          goto T424;
1006  T424:;  T424:;
1007          (VV[4]->s.s_dbind)= make_cons(V160,(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons(V165,(VV[4]->s.s_dbind));
1008          {object V164 = (VV[4]->s.s_dbind);          {object V169 = (VV[4]->s.s_dbind);
1009          VMR10(V164)}}          VMR10(V169)}}
1010          va_end(ap);          va_end(ap);
1011          return Cnil;}          return Cnil;}
1012          }          }
# Line 1011  static void L11() Line 1016  static void L11()
1016  {register object *base=vs_base;  {register object *base=vs_base;
1017          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1018          vs_check;          vs_check;
1019          {register object V165;          {register object V170;
         object V166;  
         register object V167;  
         object V168;  
         object V169;  
         object V170;  
1020          object V171;          object V171;
1021          object V172;          register object V172;
1022          V165=(base[0]);          object V173;
1023          V166=(base[1]);          object V174;
1024          V167=(base[2]);          object V175;
1025          V168=(base[3]);          object V176;
1026          V169=(base[4]);          object V177;
1027          V170=(base[5]);          V170=(base[0]);
1028          V171=(base[6]);          V171=(base[1]);
1029          V172=(base[7]);          V172=(base[2]);
1030            V173=(base[3]);
1031            V174=(base[4]);
1032            V175=(base[5]);
1033            V176=(base[6]);
1034            V177=(base[7]);
1035          vs_top=sup;          vs_top=sup;
1036          goto TTL;          goto TTL;
1037  TTL:;  TTL:;
1038          if(((V167))!=Cnil){          if(((V172))!=Cnil){
1039          goto T428;}          goto T428;}
1040          base[8]= VV[78];          base[8]= VV[78];
1041          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1042          Lgensym();          Lgensym();
1043          vs_top=sup;          vs_top=sup;
1044          V167= vs_base[0];          V172= vs_base[0];
1045          goto T428;          goto T428;
1046  T428:;  T428:;
1047          (void)((VFUN_NARGS=3,(*(LnkLI90))((V167),(V168),Ct)));          (void)((VFUN_NARGS=3,(*(LnkLI90))((V172),(V173),Ct)));
1048          if(!(type_of((V165))==t_cons)){          if(!(type_of((V170))==t_cons)){
1049          goto T435;}          goto T435;}
1050          {object V173;          {object V178;
1051          base[8]= VV[79];          base[8]= VV[79];
1052          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1053          Lgensym();          Lgensym();
1054          vs_top=sup;          vs_top=sup;
1055          V173= vs_base[0];          V178= vs_base[0];
1056          V174= list(4,VV[74],(V167),(V169),(V166));          V179= list(4,VV[74],(V172),(V174),(V171));
1057          (void)((*(LnkLI92))((V173),/* INLINE-ARGS */V174,(V165),(V170),(V171),(V172)));          (void)((*(LnkLI92))((V178),/* INLINE-ARGS */V179,(V170),(V175),(V176),(V177)));
1058          base[8]= (V165);          base[8]= (V170);
1059          base[9]= (V173);          base[9]= (V178);
1060          base[10]= (V170);          base[10]= (V175);
1061          base[11]= (V171);          base[11]= (V176);
1062          base[12]= (V172);          base[12]= (V177);
1063          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
1064          (void) (*Lnk88)();          (void) (*Lnk88)();
1065          return;}          return;}
1066          goto T435;          goto T435;
1067  T435:;  T435:;
1068          if(!(type_of((V165))==t_symbol)){          if(!(type_of((V170))==t_symbol)){
1069          goto T446;}          goto T446;}
1070          base[8]= (VFUN_NARGS=5,(*(LnkLI90))((V165),(V169),Cnil,(V167),(V166)));          base[8]= (VFUN_NARGS=5,(*(LnkLI90))((V170),(V174),Cnil,(V172),(V171)));
1071          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1072          return;          return;
1073          goto T446;          goto T446;
1074  T446:;  T446:;
1075          base[8]= VV[80];          base[8]= VV[80];
1076          base[9]= (V165);          base[9]= (V170);
1077          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
1078          Lerror();          Lerror();
1079          return;          return;
# Line 1080  static void L12() Line 1085  static void L12()
1085  {register object *base=vs_base;  {register object *base=vs_base;
1086          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
1087          vs_check;          vs_check;
1088          {object V175;          {object V180;
1089          object V176;          object V181;
1090          register object V177;          register object V182;
1091          V175=(base[0]);          V180=(base[0]);
1092          V176=(base[1]);          V181=(base[1]);
1093          vs_base=vs_base+2;          vs_base=vs_base+2;
1094          if(vs_base>=vs_top){vs_top=sup;goto T450;}          if(vs_base>=vs_top){vs_top=sup;goto T450;}
1095          V177=(base[2]);          V182=(base[2]);
1096          vs_top=sup;          vs_top=sup;
1097          goto T451;          goto T451;
1098          goto T450;          goto T450;
1099  T450:;  T450:;
1100          V177= Ct;          V182= Ct;
1101          goto T451;          goto T451;
1102  T451:;  T451:;
1103          {register object V178;          {register object V183;
1104          register object V179;          register object V184;
1105          V178= Cnil;          V183= Cnil;
1106          V179= Cnil;          V184= Cnil;
1107          {register object V180;          {register object V185;
1108          V180= (V175);          V185= (V180);
1109          goto T454;          goto T454;
1110  T454:;  T454:;
1111          if(!(((V180))==Cnil)){          if(!(((V185))==Cnil)){
1112          goto T455;}          goto T455;}
1113          base[3]= (V180);          base[3]= (V185);
1114          base[4]= nreverse((V178));          base[4]= nreverse((V183));
1115          base[5]= (V179);          base[5]= (V184);
1116          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1117          return;          return;
1118          goto T455;          goto T455;
1119  T455:;  T455:;
1120          {register object V181;          {register object V186;
1121          V181= CMPcar((V180));          V186= CMPcar((V185));
1122          if(!(type_of((V181))==t_string)){          if(!(type_of((V186))==t_string)){
1123          goto T465;}          goto T465;}
1124          if((CMPcdr((V180)))==Cnil){          if((CMPcdr((V185)))==Cnil){
1125          goto T465;}          goto T465;}
1126          if(((V177))==Cnil){          if(((V182))==Cnil){
1127          goto T470;}          goto T470;}
1128          V179= (V181);          V184= (V186);
1129          V177= Cnil;          V182= Cnil;
1130          goto T462;          goto T462;
1131          goto T470;          goto T470;
1132  T470:;  T470:;
1133          base[3]= (V180);          base[3]= (V185);
1134          base[4]= nreverse((V178));          base[4]= nreverse((V183));
1135          base[5]= (V179);          base[5]= (V184);
1136          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1137          return;          return;
1138          goto T465;          goto T465;
1139  T465:;  T465:;
1140          if(!(type_of((V181))==t_cons)){          if(!(type_of((V186))==t_cons)){
1141          goto T478;}          goto T478;}
1142          if(type_of(CMPcar((V181)))==t_symbol){          if(type_of(CMPcar((V186)))==t_symbol){
1143          goto T479;}          goto T479;}
1144          goto T478;          goto T478;
1145  T478:;  T478:;
1146          base[3]= (V180);          base[3]= (V185);
1147          base[4]= nreverse((V178));          base[4]= nreverse((V183));
1148          base[5]= (V179);          base[5]= (V184);
1149          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1150          return;          return;
1151          goto T479;          goto T479;
1152  T479:;  T479:;
1153          if(!((CMPcar((V181)))==(VV[8]))){          if(!((CMPcar((V186)))==(VV[8]))){
1154          goto T487;}          goto T487;}
1155          {register object V182;          {register object V187;
1156          V182= (V181);          V187= (V186);
1157          V178= make_cons((V182),(V178));          V183= make_cons((V187),(V183));
1158          goto T462;}          goto T462;}
1159          goto T487;          goto T487;
1160  T487:;  T487:;
1161          base[3]= (V180);          base[3]= (V185);
1162          base[4]= nreverse((V178));          base[4]= nreverse((V183));
1163          base[5]= (V179);          base[5]= (V184);
1164          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1165          return;}          return;}
1166          goto T462;          goto T462;
1167  T462:;  T462:;
1168          V180= CMPcdr((V180));          V185= CMPcdr((V185));
1169          goto T454;}}          goto T454;}}
1170          }          }
1171  }  }
# Line 1171  static void L13() Line 1176  static void L13()
1176          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1177          vs_check;          vs_check;
1178          vs_top=sup;          vs_top=sup;
1179          {object V183=base[0]->c.c_cdr;          {object V188=base[0]->c.c_cdr;
1180          base[2]= (V183->c.c_car);          base[2]= (V188->c.c_car);
1181          V183=V183->c.c_cdr;          V188=V188->c.c_cdr;
1182          base[3]= (V183->c.c_car);          base[3]= (V188->c.c_car);
1183          V183=V183->c.c_cdr;          V188=V188->c.c_cdr;
1184          base[4]= V183;}          base[4]= V188;}
1185          {object V184;          {object V189;
1186          base[6]= VV[81];          base[6]= VV[81];
1187          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1188          Lgensym();          Lgensym();
1189          vs_top=sup;          vs_top=sup;
1190          V184= vs_base[0];          V189= vs_base[0];
1191          {object V185;          {object V190;
1192          object V186;          object V191;
1193          base[6]= base[2];          base[6]= base[2];
1194          base[7]= (V184);          base[7]= (V189);
1195          base[8]= base[4];          base[8]= base[4];
1196          base[9]= Cnil;          base[9]= Cnil;
1197          base[10]= VV[82];          base[10]= VV[82];
# Line 1197  static void L13() Line 1202  static void L13()
1202          vs_top=(vs_base=base+6)+9;          vs_top=(vs_base=base+6)+9;
1203          (void) (*Lnk95)();          (void) (*Lnk95)();
1204          if(vs_base>=vs_top){vs_top=sup;goto T509;}          if(vs_base>=vs_top){vs_top=sup;goto T509;}
1205          V185= vs_base[0];          V190= vs_base[0];
1206          vs_base++;          vs_base++;
1207          if(vs_base>=vs_top){vs_top=sup;goto T510;}          if(vs_base>=vs_top){vs_top=sup;goto T510;}
1208          V186= vs_base[0];          V191= vs_base[0];
1209          vs_top=sup;          vs_top=sup;
1210          goto T511;          goto T511;
1211          goto T509;          goto T509;
1212  T509:;  T509:;
1213          V185= Cnil;          V190= Cnil;
1214          goto T510;          goto T510;
1215  T510:;  T510:;
1216          V186= Cnil;          V191= Cnil;
1217          goto T511;          goto T511;
1218  T511:;  T511:;
1219          V187= list(2,(V184),base[3]);          V192= list(2,(V189),base[3]);
1220          V188= make_cons(/* INLINE-ARGS */V187,Cnil);          V193= make_cons(/* INLINE-ARGS */V192,Cnil);
1221          V189= make_cons((V185),Cnil);          V194= make_cons((V190),Cnil);
1222          base[6]= listA(3,VV[73],/* INLINE-ARGS */V188,append((V186),/* INLINE-ARGS */V189));          base[6]= listA(3,VV[73],/* INLINE-ARGS */V193,append((V191),/* INLINE-ARGS */V194));
1223          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1224          return;}}          return;}}
1225  }  }

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