/[gcl]/gcl/pcl/pcl_gcl_low.c
ViewVC logotype

Diff of /gcl/pcl/pcl_gcl_low.c

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

revision 1.3 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 910  T117:; Line 910  T117:;
910          siLfset();          siLfset();
911          vs_top=sup;          vs_top=sup;
912          (void)((*(LnkLI73))((V164)));          (void)((*(LnkLI73))((V164)));
913            V168 = (V166);
914            V169 = (V164);
915          if(((V167))==Cnil){          if(((V167))==Cnil){
916          goto T155;}          goto T155;}
917          V168= Cnil;          V170= Cnil;
918          goto T154;          goto T154;
919          goto T155;          goto T155;
920  T155:;  T155:;
921          V168= (V163);          V170= (V163);
922          goto T154;          goto T154;
923  T154:;  T154:;
924          V169= list(3,(V166),(V164),V168);          V171= list(3,V168,V169,V170);
925          (V153->c.c_cdr)= make_cons(/* INLINE-ARGS */V169,Cnil);          (V153->c.c_cdr)= make_cons(/* INLINE-ARGS */V171,Cnil);
926          goto T124;}}          goto T124;}}
927          goto T126;          goto T126;
928  T126:;  T126:;
# Line 930  T124:; Line 932  T124:;
932          while(MMcdr(V153)!=Cnil)V153=MMcdr(V153);          while(MMcdr(V153)!=Cnil)V153=MMcdr(V153);
933          if((V154=MMcdr(V154))==Cnil){          if((V154=MMcdr(V154))==Cnil){
934          base[1]=base[1]->c.c_cdr;          base[1]=base[1]->c.c_cdr;
935          {object V170 = base[1];          {object V172 = base[1];
936          VMR27(V170)}}          VMR27(V172)}}
937          goto T117;}          goto T117;}
938          base[0]=base[0];          base[0]=base[0];
939          return Cnil;          return Cnil;
940  }  }
941  /*      local entry for function STRUCTURE-SLOTD-NAME   */  /*      local entry for function STRUCTURE-SLOTD-NAME   */
942    
943  static object LI32(V172)  static object LI32(V174)
944    
945  object V172;  object V174;
946  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
947          goto TTL;          goto TTL;
948  TTL:;  TTL:;
949          {object V173 = CMPcar((V172));          {object V175 = CMPcar((V174));
950          VMR28(V173)}          VMR28(V175)}
951          return Cnil;          return Cnil;
952  }  }
953  /*      local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL        */  /*      local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL        */
954    
955  static object LI33(V175)  static object LI33(V177)
956    
957  object V175;  object V177;
958  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
959          goto TTL;          goto TTL;
960  TTL:;  TTL:;
961          {object V176 = CMPcadr((V175));          {object V178 = CMPcadr((V177));
962          VMR29(V176)}          VMR29(V178)}
963          return Cnil;          return Cnil;
964  }  }
965  /*      local entry for function STRUCTURE-SLOTD-READER-FUNCTION        */  /*      local entry for function STRUCTURE-SLOTD-READER-FUNCTION        */
966    
967  static object LI34(V178)  static object LI34(V180)
968    
969  object V178;  object V180;
970  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
971          goto TTL;          goto TTL;
972  TTL:;  TTL:;
973          {object V179 = CMPcaddr((V178));          {object V181 = CMPcaddr((V180));
974          VMR30(V179)}          VMR30(V181)}
975          return Cnil;          return Cnil;
976  }  }
977  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */
978    
979  static object LI35(V181)  static object LI35(V183)
980    
981  object V181;  object V183;
982  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
983          goto TTL;          goto TTL;
984  TTL:;  TTL:;
985          {object V182 = CMPcadddr((V181));          {object V184 = CMPcadddr((V183));
986          VMR31(V182)}          VMR31(V184)}
987          return Cnil;          return Cnil;
988  }  }
989  /*      local entry for function RENEW-SYS-FILES        */  /*      local entry for function RENEW-SYS-FILES        */
# Line 1052  T169:; Line 1054  T169:;
1054          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1055          Lformat();          Lformat();
1056          vs_top=sup;          vs_top=sup;
         {object V184;  
         register object V185;  
         V184= Cnil;  
         V185= Cnil;  
1057          {object V186;          {object V186;
1058          register object V187;          register object V187;
1059          register object V188;          V186= Cnil;
1060          {object V189;          V187= Cnil;
1061            {object V188;
1062            register object V189;
1063            register object V190;
1064            {object V191;
1065          base[2]= VV[55];          base[2]= VV[55];
1066          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1067          Lfind_package();          Lfind_package();
1068          vs_top=sup;          vs_top=sup;
1069          V189= vs_base[0];          V191= vs_base[0];
1070          base[2]= (V189);          base[2]= (V191);
1071          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1072          Lpackagep();          Lpackagep();
1073          vs_top=sup;          vs_top=sup;
1074          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1075          goto T191;}          goto T191;}
1076          base[2]= coerce_to_string((V189));          base[2]= coerce_to_string((V191));
1077          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1078          Lfind_package();          Lfind_package();
1079          vs_top=sup;          vs_top=sup;
1080          V189= vs_base[0];          V191= vs_base[0];
1081          if(((V189))!=Cnil){          if(((V191))!=Cnil){
1082          goto T191;}          goto T191;}
1083          base[2]= VV[56];          base[2]= VV[56];
1084          base[3]= VV[57];          base[3]= VV[57];
# Line 1090  T169:; Line 1092  T169:;
1092          vs_top=sup;          vs_top=sup;
1093          goto T191;          goto T191;
1094  T191:;  T191:;
1095          V186= (V189);}          V188= (V191);}
1096          V187= Cnil;          V189= Cnil;
1097          V188= Cnil;          V190= Cnil;
1098          {object V190;          {object V192;
1099          register object V191;          register object V193;
1100          base[4]= (V186);          V194 = (V188);
1101            base[4]= (V188);
1102          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1103          Lpackage_use_list();          Lpackage_use_list();
1104          vs_top=sup;          vs_top=sup;
1105          V192= vs_base[0];          V195= vs_base[0];
1106          V190= make_cons((V186),V192);          V192= make_cons(V194,V195);
1107          V191= CMPcar((V190));          V193= CMPcar((V192));
1108          goto T208;          goto T208;
1109  T208:;  T208:;
1110          if(!(((V190))==Cnil)){          if(!(((V192))==Cnil)){
1111          goto T209;}          goto T209;}
1112          V187= Cnil;          V189= Cnil;
1113          goto T187;          goto T187;
1114          goto T209;          goto T209;
1115  T209:;  T209:;
1116          {long V193;          {long V196;
1117          register long V194;          register long V197;
1118          base[4]= (V191);          base[4]= (V193);
1119          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1120          (void) (*Lnk78)();          (void) (*Lnk78)();
1121          if(vs_base>=vs_top){vs_top=sup;goto T218;}          if(vs_base>=vs_top){vs_top=sup;goto T218;}
1122          V193= fix(vs_base[0]);          V196= fix(vs_base[0]);
1123          vs_base++;          vs_base++;
1124          if(vs_base>=vs_top){vs_top=sup;goto T219;}          if(vs_base>=vs_top){vs_top=sup;goto T219;}
1125          V194= fix(vs_base[0]);          V197= fix(vs_base[0]);
1126          vs_top=sup;          vs_top=sup;
1127          goto T220;          goto T220;
1128          goto T218;          goto T218;
1129  T218:;  T218:;
1130          V193= fix(Cnil);          V196= fix(Cnil);
1131          goto T219;          goto T219;
1132  T219:;  T219:;
1133          V194= fix(Cnil);          V197= fix(Cnil);
1134          goto T220;          goto T220;
1135  T220:;  T220:;
1136          if(((V186))==((V191))){          if(((V188))==((V193))){
1137          goto T221;}          goto T221;}
1138          V194= 0;          V197= 0;
1139          goto T221;          goto T221;
1140  T221:;  T221:;
1141          {long V195;          {long V198;
1142          register long V196;          register long V199;
1143          V195= (long)(V194)+(V193);          V198= (long)(V197)+(V196);
1144          V196= 0;          V199= 0;
1145          goto T228;          goto T228;
1146  T228:;  T228:;
1147          if(!((V196)>=(V195))){          if(!((V199)>=(V198))){
1148          goto T231;}          goto T231;}
1149          goto T215;          goto T215;
1150          goto T231;          goto T231;
1151  T231:;  T231:;
1152          if(!((V196)<(V194))){          if(!((V199)<(V197))){
1153          goto T236;}          goto T236;}
1154          base[4]= (V191);          base[4]= (V193);
1155          base[5]= CMPmake_fixnum(V196);          base[5]= CMPmake_fixnum(V199);
1156          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1157          siLpackage_internal();          siLpackage_internal();
1158          vs_top=sup;          vs_top=sup;
1159          V188= vs_base[0];          V190= vs_base[0];
1160          goto T234;          goto T234;
1161          goto T236;          goto T236;
1162  T236:;  T236:;
1163          base[4]= (V191);          base[4]= (V193);
1164          V197 = CMPmake_fixnum(V196);          V200 = CMPmake_fixnum(V199);
1165          V198 = CMPmake_fixnum(V194);          V201 = CMPmake_fixnum(V197);
1166          base[5]= number_minus(V197,V198);          base[5]= number_minus(V200,V201);
1167          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1168          siLpackage_external();          siLpackage_external();
1169          vs_top=sup;          vs_top=sup;
1170          V188= vs_base[0];          V190= vs_base[0];
1171          goto T234;          goto T234;
1172  T234:;  T234:;
1173          goto T229;          goto T229;
1174  T229:;  T229:;
1175          if(((V188))!=Cnil){          if(((V190))!=Cnil){
1176          goto T242;}          goto T242;}
1177          goto T230;          goto T230;
1178          goto T242;          goto T242;
1179  T242:;  T242:;
1180          V187= CMPcar((V188));          V189= CMPcar((V190));
1181          if(((V191))==((V186))){          if(((V193))==((V188))){
1182          goto T248;}          goto T248;}
1183          base[5]= symbol_name((V187));          base[5]= symbol_name((V189));
1184          base[6]= (V186);          base[6]= (V188);
1185          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1186          Lfind_symbol();          Lfind_symbol();
1187          Llist();          Llist();
# Line 1187  T242:; Line 1190  T242:;
1190          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1191          Llast();          Llast();
1192          vs_top=sup;          vs_top=sup;
1193          V199= vs_base[0];          V202= vs_base[0];
1194          if(!((VV[58])==(CMPcar(V199)))){          if(!((VV[58])==(CMPcar(V202)))){
1195          goto T247;}          goto T247;}
1196          goto T248;          goto T248;
1197  T248:;  T248:;
1198          {object V200 =((V187))->s.s_plist;          {object V203 =((V189))->s.s_plist;
1199           object ind= VV[22];           object ind= VV[22];
1200          while(V200!=Cnil){          while(V203!=Cnil){
1201          if(V200->c.c_car==ind){          if(V203->c.c_car==ind){
1202          if(((V200->c.c_cdr->c.c_car))==Cnil){          if(((V203->c.c_cdr->c.c_car))==Cnil){
1203          goto T257;}          goto T257;}
1204          goto T259;          goto T259;
1205          }else V200=V200->c.c_cdr->c.c_cdr;}          }else V203=V203->c.c_cdr->c.c_cdr;}
1206          goto T257;}          goto T257;}
1207          goto T259;          goto T259;
1208  T259:;  T259:;
1209          if(((V185))==Cnil){          if(((V187))==Cnil){
1210          goto T261;}          goto T261;}
1211          {object V201;          {object V204;
1212          object V202;          object V205;
1213          V201= (V185);          V204= (V187);
1214          V185= make_cons((V187),Cnil);          V187= make_cons((V189),Cnil);
1215          V202= (V185);          V205= (V187);
1216          ((V201))->c.c_cdr = (V202);          ((V204))->c.c_cdr = (V205);
1217          goto T257;}          goto T257;}
1218          goto T261;          goto T261;
1219  T261:;  T261:;
1220          V185= make_cons((V187),Cnil);          V187= make_cons((V189),Cnil);
1221          V184= (V185);          V186= (V187);
1222          goto T257;          goto T257;
1223  T257:;  T257:;
1224          goto T247;          goto T247;
1225  T247:;  T247:;
1226          V188= CMPcdr((V188));          V190= CMPcdr((V190));
1227          goto T229;          goto T229;
1228          goto T230;          goto T230;
1229  T230:;  T230:;
1230          V196= (long)(V196)+1;          V199= (long)(V199)+1;
1231          goto T228;}}          goto T228;}}
1232          goto T215;          goto T215;
1233  T215:;  T215:;
1234          V190= CMPcdr((V190));          V192= CMPcdr((V192));
1235          V191= CMPcar((V190));          V193= CMPcar((V192));
1236          goto T208;}}          goto T208;}}
1237          goto T187;          goto T187;
1238  T187:;  T187:;
1239          V183= (V184);          V185= (V186);
1240          goto T186;          goto T186;
1241          V183= Cnil;          V185= Cnil;
1242          goto T186;          goto T186;
1243          V183= Cnil;}          V185= Cnil;}
1244          goto T186;          goto T186;
1245  T186:;  T186:;
1246          V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V183)),VV[59]);          V206= list(3,VV[53],list(2,VV[54],list(2,VV[31],V185)),VV[59]);
1247          (void)(print(/* INLINE-ARGS */V203,base[0]));          (void)(print(/* INLINE-ARGS */V206,base[0]));
1248          base[2]= base[0];          base[2]= base[0];
1249          base[3]= VV[60];          base[3]= VV[60];
1250          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 1264  T283:; Line 1267  T283:;
1267          for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1268          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1269          vs_top=sup;          vs_top=sup;
1270          {object V204 = vs_base[0];          {object V207 = vs_base[0];
1271          VMR32(V204)}}}          VMR32(V207)}}}
1272          base[0]=base[0];          base[0]=base[0];
1273          return Cnil;          return Cnil;
1274  }  }
# Line 1276  register object *base0; Line 1279  register object *base0;
1279  {       register object *base=vs_base;  {       register object *base=vs_base;
1280          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
1281          vs_check;          vs_check;
1282          {object V205;          {object V208;
1283          object V206;          object V209;
1284          check_arg(2);          check_arg(2);
1285          V205=(base[0]);          V208=(base[0]);
1286          V206=(base[1]);          V209=(base[1]);
1287          vs_top=sup;          vs_top=sup;
1288          base[2]= (V206);          base[2]= (V209);
1289          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1290          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
1291          base[5]= (V205);          base[5]= (V208);
1292          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1293          siLstructure_set();          siLstructure_set();
1294          return;          return;
# Line 1298  register object *base0; Line 1301  register object *base0;
1301  {       register object *base=vs_base;  {       register object *base=vs_base;
1302          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1303          vs_check;          vs_check;
1304          {object V207;          {object V210;
1305          check_arg(1);          check_arg(1);
1306          V207=(base[0]);          V210=(base[0]);
1307          vs_top=sup;          vs_top=sup;
1308          base[1]= (V207);          base[1]= (V210);
1309          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
1310          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1311          (void) (*Lnk79)();          (void) (*Lnk79)();
# Line 1316  register object *base0; Line 1319  register object *base0;
1319  {       register object *base=vs_base;  {       register object *base=vs_base;
1320          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1321          vs_check;          vs_check;
1322          {object V208;          {object V211;
1323          check_arg(1);          check_arg(1);
1324          V208=(base[0]);          V211=(base[0]);
1325          vs_top=sup;          vs_top=sup;
1326          base[1]= (((V208))==(Ct)?Ct:Cnil);          base[1]= (((V211))==(Ct)?Ct:Cnil);
1327          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1328          return;          return;
1329          }          }

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

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