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

Diff of /gcl/lsp/info.c

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

revision 1.12 by camm, Tue Feb 18 04:06:52 2003 UTC revision 1.13 by camm, Wed Feb 26 22:21:36 2003 UTC
# Line 16  static void L1() Line 16  static void L1()
16          V2=(base[1]);          V2=(base[1]);
17          V3=(base[2]);          V3=(base[2]);
18          vs_top=sup;          vs_top=sup;
19  goto TTL;          goto TTL;
20  TTL:;  TTL:;
21          {register object V4;          {register object V4;
22          V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));          V4= (VFUN_NARGS=5,(*(LnkLI88))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));
# Line 194  static void L3() Line 194  static void L3()
194          V14=(base[0]);          V14=(base[0]);
195          V15=fix(base[1]);          V15=fix(base[1]);
196          vs_top=sup;          vs_top=sup;
197  goto TTL;          goto TTL;
198  TTL:;  TTL:;
199          {register long V16;          {register long V16;
200          register long V17;          register long V17;
# Line 253  static void L4() Line 253  static void L4()
253          check_arg(1);          check_arg(1);
254          V23=(base[0]);          V23=(base[0]);
255          vs_top=sup;          vs_top=sup;
256  goto TTL;          goto TTL;
257  TTL:;  TTL:;
258          {register long V24;          {register long V24;
259          object V25;          object V25;
# Line 358  static void L5() Line 358  static void L5()
358          check_arg(1);          check_arg(1);
359          V42=(base[0]);          V42=(base[0]);
360          vs_top=sup;          vs_top=sup;
361  goto TTL;          goto TTL;
362  TTL:;  TTL:;
363          {register long V43;          {register long V43;
364          long V44;          long V44;
# Line 445  static void L6() Line 445  static void L6()
445          V50=(base[0]);          V50=(base[0]);
446          V51=(base[1]);          V51=(base[1]);
447          vs_top=sup;          vs_top=sup;
448  goto TTL;          goto TTL;
449  TTL:;  TTL:;
450          base[2]= (V50);          base[2]= (V50);
451          base[3]= make_fixnum((long)(*(LnkLI95))(fix((V51))));          base[3]= make_fixnum((long)(*(LnkLI95))(fix((V51))));
# Line 468  static void L7() Line 468  static void L7()
468          V52=(base[0]);          V52=(base[0]);
469          V53=(base[1]);          V53=(base[1]);
470          vs_top=sup;          vs_top=sup;
471  goto TTL;          goto TTL;
472  TTL:;  TTL:;
473          {register long V54;          {register long V54;
474          register object V55;          register object V55;
# Line 538  static void L8() Line 538  static void L8()
538          vs_reserve(VM8);          vs_reserve(VM8);
539          check_arg(0);          check_arg(0);
540          vs_top=sup;          vs_top=sup;
541  goto TTL;          goto TTL;
542  TTL:;{object V59;  TTL:;{object V59;
543          V59= caddr(symbol_value(VV[20]));          V59= caddr(symbol_value(VV[20]));
544          if(V59==Cnil)goto T200;          if(V59==Cnil)goto T200;
# Line 598  static void L9() Line 598  static void L9()
598          check_arg(1);          check_arg(1);
599          V66=(base[0]);          V66=(base[0]);
600          vs_top=sup;          vs_top=sup;
601  goto TTL;          goto TTL;
602  TTL:;  TTL:;
603          {register object V67;          {register object V67;
604          register object V68;          register object V68;
# Line 684  static void L10() Line 684  static void L10()
684          V74=(base[0]);          V74=(base[0]);
685          V75=(base[1]);          V75=(base[1]);
686          vs_top=sup;          vs_top=sup;
687  goto TTL;          goto TTL;
688  TTL:;  TTL:;
689          {object V76;          {object V76;
690          V76= (V74);          V76= (V74);
# Line 743  static void L11() Line 743  static void L11()
743          V78=(base[0]);          V78=(base[0]);
744          V79=(base[1]);          V79=(base[1]);
745          vs_top=sup;          vs_top=sup;
746  goto TTL;          goto TTL;
747  TTL:;  TTL:;
748          {register long V80;          {register long V80;
749          V80= 0;          V80= 0;
# Line 834  static void L13() Line 834  static void L13()
834          check_arg(1);          check_arg(1);
835          V91=(base[0]);          V91=(base[0]);
836          vs_top=sup;          vs_top=sup;
837  goto TTL;          goto TTL;
838  TTL:;  TTL:;
839          base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91)));          base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91)));
840          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 852  static void L14() Line 852  static void L14()
852          check_arg(1);          check_arg(1);
853          V92=(base[0]);          V92=(base[0]);
854          vs_top=sup;          vs_top=sup;
855  goto TTL;          goto TTL;
856  TTL:;  TTL:;
857          {object V93;          {object V93;
858          register object V94;          register object V94;
# Line 991  static void L15() Line 991  static void L15()
991          V102=(base[0]);          V102=(base[0]);
992          V103=(base[1]);          V103=(base[1]);
993          vs_top=sup;          vs_top=sup;
994  goto TTL;          goto TTL;
995  TTL:;  TTL:;
996          if(!(eql((V103),VV[42]))){          if(!(eql((V103),VV[42]))){
997          goto T353;}          goto T353;}
# Line 1020  static void L16() Line 1020  static void L16()
1020          V104=(base[0]);          V104=(base[0]);
1021          V105=(base[1]);          V105=(base[1]);
1022          vs_top=sup;          vs_top=sup;
1023  goto TTL;          goto TTL;
1024  TTL:;  TTL:;
1025          {register object V106;          {register object V106;
1026          V106= (V104);          V106= (V104);
# Line 1099  static void L18() Line 1099  static void L18()
1099          check_arg(1);          check_arg(1);
1100          V112=(base[0]);          V112=(base[0]);
1101          vs_top=sup;          vs_top=sup;
1102  goto TTL;          goto TTL;
1103  TTL:;  TTL:;
1104          base[1]= (V112);          base[1]= (V112);
1105          base[2]= car(symbol_value(VV[20]));          base[2]= car(symbol_value(VV[20]));
# Line 1137  static void L19() Line 1137  static void L19()
1137          check_arg(1);          check_arg(1);
1138          V115=(base[0]);          V115=(base[0]);
1139          vs_top=sup;          vs_top=sup;
1140  goto TTL;          goto TTL;
1141  TTL:;  TTL:;
1142          if(symbol_value(VV[43])==Cnil){          if(symbol_value(VV[43])==Cnil){
1143          base[1]= Cnil;          base[1]= Cnil;
# Line 1186  static void L20() Line 1186  static void L20()
1186          check_arg(1);          check_arg(1);
1187          V116=(base[0]);          V116=(base[0]);
1188          vs_top=sup;          vs_top=sup;
1189  goto TTL;          goto TTL;
1190  TTL:;  TTL:;
1191          base[1]= (V116);          base[1]= (V116);
1192          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1217  static void L21() Line 1217  static void L21()
1217          check_arg(1);          check_arg(1);
1218          V117=(base[0]);          V117=(base[0]);
1219          vs_top=sup;          vs_top=sup;
1220  goto TTL;          goto TTL;
1221  TTL:;  TTL:;
1222          {object V118;          {object V118;
1223          register object V119;          register object V119;
# Line 1276  static void L22() Line 1276  static void L22()
1276          check_arg(1);          check_arg(1);
1277          V123=(base[0]);          V123=(base[0]);
1278          vs_top=sup;          vs_top=sup;
1279  goto TTL;          goto TTL;
1280  TTL:;  TTL:;
1281          {register object V124;          {register object V124;
1282          V124= small_fixnum(0);          V124= small_fixnum(0);
# Line 1613  static void L24() Line 1613  static void L24()
1613          V162=(base[0]);          V162=(base[0]);
1614          V163=(base[1]);          V163=(base[1]);
1615          vs_top=sup;          vs_top=sup;
1616  goto TTL;          goto TTL;
1617  TTL:;  TTL:;
1618          {register object V164;          {register object V164;
1619          register object V165;          register object V165;
# Line 1871  static void L26() Line 1871  static void L26()
1871          check_arg(1);          check_arg(1);
1872          V188=(base[0]);          V188=(base[0]);
1873          vs_top=sup;          vs_top=sup;
1874  goto TTL;          goto TTL;
1875  TTL:;  TTL:;
1876          {object V189;          {object V189;
1877          base[2]= (V188);          base[2]= (V188);
# Line 2286  static void L28() Line 2286  static void L28()
2286          vs_reserve(VM28);          vs_reserve(VM28);
2287          check_arg(0);          check_arg(0);
2288          vs_top=sup;          vs_top=sup;
2289  goto TTL;          goto TTL;
2290  TTL:;  TTL:;
2291          base[1]= VV[79];          base[1]= VV[79];
2292          vs_base=vs_top;          vs_base=vs_top;
# Line 2309  static void L29() Line 2309  static void L29()
2309          vs_reserve(VM29);          vs_reserve(VM29);
2310          check_arg(1);          check_arg(1);
2311          vs_top=sup;          vs_top=sup;
2312  goto TTL;          goto TTL;
2313  TTL:;  TTL:;
2314          if(!(type_of(base[0])==t_symbol)){          if(!(type_of(base[0])==t_symbol)){
2315          goto T877;}          goto T877;}

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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