/[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.7 by camm, Mon Oct 14 05:24:42 2002 UTC revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC
# Line 4  Line 4 
4  void init_cmpinline(){do_init(VV);}  void init_cmpinline(){do_init(VV);}
5  /*      local entry for function MAKE-INFO      */  /*      local entry for function MAKE-INFO      */
6    
7  static object LI1(va_alist)  static object LI1(object first,...)
         va_dcl  
8  {        {      
9          va_list ap;          va_list ap;
10          int narg = VFUN_NARGS; VMB1 VMS1 VMV1          int narg = VFUN_NARGS; VMB1 VMS1 VMV1
# Line 15  static object LI1(va_alist) Line 14  static object LI1(va_alist)
14          object V4;          object V4;
15          object V5;          object V5;
16          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
17          va_start(ap);          va_start(ap,first);
18          narg= narg - 0;          narg= narg - 0;
19          {          {
20          parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
21          V1=(Vcs[0]);          V1=(Vcs[0]);
22          V2=(Vcs[1]);          V2=(Vcs[1]);
23          if(Vcs[2]==0){          if(Vcs[2]==0){
# Line 264  T87:; Line 263  T87:;
263  }  }
264  /*      local entry for function INLINE-ARGS    */  /*      local entry for function INLINE-ARGS    */
265    
266  static object LI6(V59,V58,va_alist)  static object LI6(object V59,object V58,object first,...)
         object V59,V58;  
         va_dcl  
267  {        {      
268          va_list ap;          va_list ap;
269          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
# Line 275  static object LI6(V59,V58,va_alist) Line 272  static object LI6(V59,V58,va_alist)
272          object V61;          object V61;
273          object V62;          object V62;
274          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
275          va_start(ap);          va_start(ap,first);
276          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
277          V60= V59;          V60= V59;
278          V61= V58;          V61= V58;
279          narg = narg - 2;          narg = narg - 2;
280          if (narg <= 0) goto T93;          if (narg <= 0) goto T93;
281          else {          else {
282          V62= va_arg(ap,object);}          V62= first;}
283          --narg; goto T94;          --narg; goto T94;
284  goto T93;  goto T93;
285  T93:;  T93:;
# Line 1847  T817:; Line 1844  T817:;
1844  }  }
1845  /*      local entry for function LIST-INLINE    */  /*      local entry for function LIST-INLINE    */
1846    
1847  static object LI24(va_alist)  static object LI24(object first,...)
         va_dcl  
1848  {        {      
1849          va_list ap;          va_list ap;
1850          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1851          {object V320;          {object V320;
1852          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1853          va_start(ap);          va_start(ap,first);
1854          narg= narg - 0;          narg= narg - 0;
1855          V321 = list_vector(narg,ap);          V321 = list_vector_new(narg,first,ap);
1856          V320= V321;          V320= V321;
1857          {object V322;          {object V322;
1858          object V323;          object V323;
# Line 1926  T875:; Line 1922  T875:;
1922          }          }
1923  /*      local entry for function LIST*-INLINE   */  /*      local entry for function LIST*-INLINE   */
1924    
1925  static object LI25(va_alist)  static object LI25(object first,...)
         va_dcl  
1926  {        {      
1927          va_list ap;          va_list ap;
1928          int narg = VFUN_NARGS; VMB25 VMS25 VMV25          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1929          {register object V330;          {register object V330;
1930          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1931          va_start(ap);          va_start(ap,first);
1932          narg= narg - 0;          narg= narg - 0;
1933          V331 = list_vector(narg,ap);          V331 = list_vector_new(narg,first,ap);
1934          V330= V331;switch((long)length((V330))){          V330= V331;switch((long)length((V330))){
1935          case 1:          case 1:
1936  goto T879;  goto T879;
# Line 2108  register object *base0; Line 2103  register object *base0;
2103          return;          return;
2104          }          }
2105  }  }
2106  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 */  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
2107  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 */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2108  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 */
2109  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>= */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
2110  static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */  static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */
2111  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 */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
2112  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 */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
2113  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 */  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
2114  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 */  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* INLINE-TYPE */
2115  static object  LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */  static object  LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */
2116  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 */  static object  LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[7],(void **)&LnkLI7,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
2117  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 */  static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)&LnkLI99,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
2118  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 */  static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)&LnkLI97,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */
2119  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* */  static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)&LnkLI95,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
2120  static object  LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */  static object  LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */
2121  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 */
2122  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 2129  static void LnkT91(){ call_or_link(VV[91 Line 2124  static void LnkT91(){ call_or_link(VV[91
2124  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 */
2125  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 */
2126  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */
2127  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 */  static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
2128  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 */  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2129  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */
2130  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 */  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
2131  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 */  static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2132  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 */  static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */
2133  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 */  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
2134  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 */
2135  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 */
2136  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 */  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
2137  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 */  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */
2138  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 */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
2139  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 */  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC */
2140    
2141  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2142  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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