/[gcl]/gcl/cmpnew/cmpinline.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpinline.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 748  T303:; Line 748  T303:;
748          vs_top=sup;          vs_top=sup;
749          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
750          goto T304;}          goto T304;}
751          V135= (V135)+(1);          V135= (long)(V135)+(1);
752          goto T300;          goto T300;
753  goto T304;  goto T304;
754  T304:;  T304:;
755          V138 = make_fixnum(((V137))-(48));          V138 = make_fixnum((long)((long)(V137))-(48));
756          V136= make_cons(V138,(V136));          V136= make_cons(V138,(V136));
757          V135= (V135)+(1);          V135= (long)(V135)+(1);
758          V137= char_code(elt((V133),V135));          V137= char_code(elt((V133),V135));
759          goto T303;}          goto T303;}
760  goto T300;  goto T300;
# Line 925  T328:; Line 925  T328:;
925  goto T326;  goto T326;
926  T326:;  T326:;
927          V139= cdr((V139));          V139= cdr((V139));
928          V140= (V140)+1;          V140= (long)(V140)+1;
929          goto T320;}}          goto T320;}}
930  goto T292;  goto T292;
931  T292:;  T292:;
# Line 1092  T465:; Line 1092  T465:;
1092          if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){          if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){
1093          goto T492;}          goto T492;}
1094          {object V181;          {object V181;
1095          V182 = make_fixnum(length((V166)));          V182 = make_fixnum((long)length((V166)));
1096          V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil);          V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil);
1097          (base[0]->c.c_car)= cdr((base[0]->c.c_car));          (base[0]->c.c_car)= cdr((base[0]->c.c_car));
1098          if(((V181))==Cnil){          if(((V181))==Cnil){
# Line 1102  goto T492; Line 1102  goto T492;
1102  T492:;  T492:;
1103  goto T490;  goto T490;
1104  T490:;  T490:;
1105          base[1]= make_fixnum(length((V166)));          base[1]= make_fixnum((long)length((V166)));
1106          base[2]= VV[39];          base[2]= VV[39];
1107          base[3]= Ct;          base[3]= Ct;
1108          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 1413  T637:; Line 1413  T637:;
1413  goto T638;  goto T638;
1414  T638:;  T638:;
1415          princ_char(125,VV[5]);          princ_char(125,VV[5]);
1416          V231= (V231)+1;          V231= (long)(V231)+1;
1417          goto T637;}}          goto T637;}}
1418          return Cnil;          return Cnil;
1419  }  }
# Line 1454  T660:; Line 1454  T660:;
1454          vs_top=sup;          vs_top=sup;
1455          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1456          goto T661;}          goto T661;}
1457          V235= (V235)+(1);          V235= (long)(V235)+(1);
1458          goto T652;          goto T652;
1459  goto T661;  goto T661;
1460  T661:;  T661:;
1461          V235= (V235)+(1);          V235= (long)(V235)+(1);
1462          goto T660;          goto T660;
1463  goto T652;  goto T652;
1464  T652:;  T652:;
1465          {long V237;          {long V237;
1466          V237= length((V233));          V237= (long)length((V233));
1467  goto T674;  goto T674;
1468  T674:;  T674:;
1469          if(!((V235)>=(V237))){          if(!((V235)>=(V237))){
# Line 1484  T675:; Line 1484  T675:;
1484          goto T682;}          goto T682;}
1485          {register object V239;          {register object V239;
1486          register object V240;          register object V240;
1487          V239= elt((V233),(V235)+1);          V239= elt((V233),(long)(V235)+1);
1488          V240= small_fixnum(0);          V240= small_fixnum(0);
1489          if(!(eql((V239),VV[54]))){          if(!(eql((V239),VV[54]))){
1490          goto T689;}          goto T689;}
# Line 1492  T675:; Line 1492  T675:;
1492          goto T691;}          goto T691;}
1493          V241 = make_fixnum(V236);          V241 = make_fixnum(V236);
1494          V242= one_plus(V241);          V242= one_plus(V241);
1495          V243 = make_fixnum(length((V234)));          V243 = make_fixnum((long)length((V234)));
1496          if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){          if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){
1497          goto T691;}          goto T691;}
1498          princ_char(44,VV[5]);          princ_char(44,VV[5]);
# Line 1534  T689:; Line 1534  T689:;
1534          Lchar_code();          Lchar_code();
1535          vs_top=sup;          vs_top=sup;
1536          V247= vs_base[0];          V247= vs_base[0];
1537          V248 = make_fixnum((48));          V248 = make_fixnum((long)(48));
1538          V240= number_minus(V247,V248);          V240= number_minus(V247,V248);
1539          V249 = make_fixnum(length((V233)));          V249 = make_fixnum((long)length((V233)));
1540          V250 = make_fixnum(V235);          V250 = make_fixnum(V235);
1541          V251= number_plus(V250,small_fixnum(2));          V251= number_plus(V250,small_fixnum(2));
1542          if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){          if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){
# Line 1556  T689:; Line 1556  T689:;
1556          Lchar_code();          Lchar_code();
1557          vs_top=sup;          vs_top=sup;
1558          V255= vs_base[0];          V255= vs_base[0];
1559          V256 = make_fixnum((48));          V256 = make_fixnum((long)(48));
1560          V257= number_minus(V255,V256);          V257= number_minus(V255,V256);
1561          V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257);          V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257);
1562          V235= (V235)+(1);          V235= (long)(V235)+(1);
1563  goto T721;  goto T721;
1564  T721:;  T721:;
1565          V258 = make_fixnum(V236);          V258 = make_fixnum(V236);
# Line 1574  T734:; Line 1574  T734:;
1574          vs_top=sup;}          vs_top=sup;}
1575  goto T686;  goto T686;
1576  T686:;  T686:;
1577          V235= (V235)+(2);          V235= (long)(V235)+(2);
1578          goto T679;          goto T679;
1579  goto T682;  goto T682;
1580  T682:;  T682:;
1581          (void)(princ(code_char(V238),symbol_value(VV[5])));          (void)(princ(code_char(V238),symbol_value(VV[5])));
1582          V235= (V235)+(1);}          V235= (long)(V235)+(1);}
1583  goto T679;  goto T679;
1584  T679:;  T679:;
1585          goto T674;}          goto T674;}
# Line 1652  TTL:; Line 1652  TTL:;
1652          princ_str("CMP",VV[5]);          princ_str("CMP",VV[5]);
1653  goto T754;  goto T754;
1654  T754:;  T754:;
1655          princ_str("make_fixnum(",VV[5]);          princ_str("make_fixnum((long)",VV[5]);
1656          base[0]= (V274);          base[0]= (V274);
1657          base[1]= (V275);          base[1]= (V275);
1658          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 1835  static object LI24(va_alist) Line 1835  static object LI24(va_alist)
1835          {object V316;          {object V316;
1836          object V317;          object V317;
1837          V316= Cnil;          V316= Cnil;
1838          V317= make_fixnum(length((V314)));          V317= make_fixnum((long)length((V314)));
1839          if(type_of(symbol_value(VV[13]))==t_cons){          if(type_of(symbol_value(VV[13]))==t_cons){
1840          goto T825;}          goto T825;}
1841          V316= Cnil;          V316= Cnil;
# Line 1862  T824:; Line 1862  T824:;
1862  goto T822;  goto T822;
1863  T822:;  T822:;
1864          princ_str("list(",VV[5]);          princ_str("list(",VV[5]);
1865          V319 = make_fixnum(length((V314)));          V319 = make_fixnum((long)length((V314)));
1866          (void)((*(LnkLI76))(V319));          (void)((*(LnkLI76))(V319));
1867  goto T820;  goto T820;
1868  T820:;  T820:;
# Line 1910  static object LI25(va_alist) Line 1910  static object LI25(va_alist)
1910          va_start(ap);          va_start(ap);
1911          narg= narg - 0;          narg= narg - 0;
1912          V325 = list_vector(narg,ap);          V325 = list_vector(narg,ap);
1913          V324= V325;switch(length((V324))){          V324= V325;switch((long)length((V324))){
1914          case 1:          case 1:
1915  goto T859;  goto T859;
1916  T859:;  T859:;
# Line 1931  T860:; Line 1931  T860:;
1931  goto T861;  goto T861;
1932  T861:;  T861:;
1933          princ_str("listA(",VV[5]);          princ_str("listA(",VV[5]);
1934          V328 = make_fixnum(length((V324)));          V328 = make_fixnum((long)length((V324)));
1935          (void)((*(LnkLI76))(V328));          (void)((*(LnkLI76))(V328));
1936          {register object V329;          {register object V329;
1937          register object V330;          register object V330;
# Line 2067  register object *base0; Line 2067  register object *base0;
2067          V355=(base[0]);          V355=(base[0]);
2068          vs_top=sup;          vs_top=sup;
2069          princ_str("(VFUN_NARGS=",VV[5]);          princ_str("(VFUN_NARGS=",VV[5]);
2070          V356 = make_fixnum(length((V355)));          V356 = make_fixnum((long)length((V355)));
2071          (void)((*(LnkLI76))(V356));          (void)((*(LnkLI76))(V356));
2072          princ_char(44,VV[5]);          princ_char(44,VV[5]);
2073          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
# Line 2081  register object *base0; Line 2081  register object *base0;
2081          return;          return;
2082          }          }
2083  }  }
2084  static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,1,ap);} /* FUNCTION-RETURN-TYPE */  static object  LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,1,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
2085  static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],(void **)&LnkLI108,1,ap);} /* TYPE-FILTER */  static object  LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2086  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */
2087  static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* TYPE>= */  static object  LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,2,ap);va_end(ap);return V1;} /* TYPE>= */
2088  static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */  static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */
2089  static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],(void **)&LnkLI104,3,ap);} /* INLINE-TYPE-MATCHES */  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,3,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
2090  static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],(void **)&LnkLI103,3,ap);} /* ADD-FAST-LINK */  static object  LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[103],(void **)&LnkLI103,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
2091  static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[102],(void **)&LnkLI102,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[102],(void **)&LnkLI102,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
2092  static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,1,ap);} /* INLINE-TYPE */  static object  LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* INLINE-TYPE */
2093  static object  LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */  static object  LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */
2094  static object  LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],(void **)&LnkLI7,ap);} /* INLINE-ARGS */  static object  LnkTLI7(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[7],(void **)&LnkLI7,ap);va_end(ap);return V1;} /* INLINE-ARGS */
2095  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* MAKE-VAR */  static object  LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[99],(void **)&LnkLI99,ap);va_end(ap);return V1;} /* MAKE-VAR */
2096  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* COERCE-LOC-STRUCTURE-REF */  static object  LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,2,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */
2097  static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],(void **)&LnkLI95,1,ap);} /* C2EXPR* */  static object  LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,1,ap);va_end(ap);return V1;} /* C2EXPR* */
2098  static object  LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */  static object  LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */
2099  static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */  static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */
2100  static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */  static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */
# Line 2102  static void LnkT91(){ call_or_link(VV[91 Line 2102  static void LnkT91(){ call_or_link(VV[91
2102  static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */  static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */
2103  static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */  static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */
2104  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */
2105  static object  LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],(void **)&LnkLI87,2,ap);} /* NEED-TO-PROTECT */  static object  LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,2,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
2106  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,2,ap);} /* GET-INLINE-LOC */  static object  LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2107  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */
2108  static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],(void **)&LnkLI84,3,ap);} /* GET-INLINE-INFO */  static object  LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
2109  static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[83],(void **)&LnkLI83,1,ap);} /* INLINE-POSSIBLE */  static object  LnkTLI83(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[83],(void **)&LnkLI83,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2110  static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[81],(void **)&LnkLI81,ap);} /* CS-PUSH */  static object  LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[81],(void **)&LnkLI81,ap);va_end(ap);return V1;} /* CS-PUSH */
2111  static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,2,ap);} /* WT-VAR */  static object  LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,2,ap);va_end(ap);return V1;} /* WT-VAR */
2112  static object  LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */  static object  LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */
2113  static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */  static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */
2114  static object  LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],(void **)&LnkLI77,1,ap);} /* REP-TYPE */  static object  LnkTLI77(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[77],(void **)&LnkLI77,1,ap);va_end(ap);return V1;} /* REP-TYPE */
2115  static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],(void **)&LnkLI76,1,ap);} /* WT1 */  static object  LnkTLI76(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[76],(void **)&LnkLI76,1,ap);va_end(ap);return V1;} /* WT1 */
2116  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,2,ap);} /* ARGS-INFO-CHANGED-VARS */  static object  LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
2117  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,2,ap);} /* COERCE-LOC */  static object  LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,2,ap);va_end(ap);return V1;} /* COERCE-LOC */
2118    
2119  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2120  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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