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

Diff of /gcl/cmpnew/cmpcall.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_cmpcall(){do_init(VV);}  void init_cmpcall(){do_init(VV);}
5  /*      local entry for function FAST-LINK-PROCLAIMED-TYPE-P    */  /*      local entry for function FAST-LINK-PROCLAIMED-TYPE-P    */
6    
7  static object LI1(V1,va_alist)  static object LI1(object V1,object first,...)
         object V1;  
         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
11          {register object V2;          {register object V2;
12          object V3;          object V3;
13          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
14          va_start(ap);          va_start(ap,first);
15          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
16          V2= V1;          V2= V1;
17          narg = narg - 1;          narg = narg - 1;
18          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
19          else {          else {
20          V3= va_arg(ap,object);}          V3= first;}
21          --narg; goto T2;          --narg; goto T2;
22  goto T1;  goto T1;
23  T1:;  T1:;
# Line 385  TTL:; Line 383  TTL:;
383  }  }
384  /*      local entry for function C2FUNCALL      */  /*      local entry for function C2FUNCALL      */
385    
386  static object LI5(V55,V54,va_alist)  static object LI5(object V55,object V54,object first,...)
         object V55,V54;  
         va_dcl  
387  {        {      
388          va_list ap;          va_list ap;
389          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
# Line 397  static object LI5(V55,V54,va_alist) Line 393  static object LI5(V55,V54,va_alist)
393          register object V58;          register object V58;
394          object V59;          object V59;
395          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
396          va_start(ap);          va_start(ap,first);
397          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
398          V56= V55;          V56= V55;
399          V57= V54;          V57= V54;
400          narg = narg - 2;          narg = narg - 2;
401          if (narg <= 0) goto T118;          if (narg <= 0) goto T118;
402          else {          else {
403          V58= va_arg(ap,object);}          V58= first;}
404          if (--narg <= 0) goto T119;          if (--narg <= 0) goto T119;
405          else {          else {
406          V59= va_arg(ap,object);}          V59= va_arg(ap,object);}
# Line 525  T126:; Line 521  T126:;
521          }          }
522  /*      local entry for function FCALLN-INLINE  */  /*      local entry for function FCALLN-INLINE  */
523    
524  static object LI6(va_alist)  static object LI6(object first,...)
         va_dcl  
525  {        {      
526          va_list ap;          va_list ap;
527          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
528          {register object V70;          {register object V70;
529          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
530          va_start(ap);          va_start(ap,first);
531          narg= narg - 0;          narg= narg - 0;
532          V71 = list_vector(narg,ap);          V71 = list_vector_new(narg,first,ap);
533          V70= V71;          V70= V71;
534          {register object V72;          {register object V72;
535          object V73;          object V73;
# Line 1303  T550:; Line 1298  T550:;
1298          V169= Cnil;}          V169= Cnil;}
1299  goto T555;  goto T555;
1300  T555:;  T555:;
1301          princ_str("(va_alist)va_dcl{",VV[29]);          princ_str("(object first,...){",VV[29]);
1302          base[0]= (*(LnkLI143))((V166));          base[0]= (*(LnkLI143))((V166));
1303          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1304          (void) (*Lnk144)();          (void) (*Lnk144)();
# Line 1311  T555:; Line 1306  T555:;
1306          V171= vs_base[0];          V171= vs_base[0];
1307          (void)((*(LnkLI117))(V171));          (void)((*(LnkLI117))(V171));
1308          princ_str("V1;",VV[29]);          princ_str("V1;",VV[29]);
1309          princ_str("va_list ap;va_start(ap);V1=call_",VV[29]);          princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]);
1310          if(((V169))==Cnil){          if(((V169))==Cnil){
1311          goto T566;}          goto T566;}
1312          V172= VV[80];          V172= VV[80];
# Line 1322  T566:; Line 1317  T566:;
1317  goto T564;  goto T564;
1318  T564:;  T564:;
1319          (void)((*(LnkLI117))(V172));          (void)((*(LnkLI117))(V172));
1320          princ_str("proc(VV[",VV[29]);          princ_str("proc_new(VV[",VV[29]);
1321          V173= (*(LnkLI145))((V164));          V173= (*(LnkLI145))((V164));
1322          (void)((*(LnkLI117))(/* INLINE-ARGS */V173));          (void)((*(LnkLI117))(/* INLINE-ARGS */V173));
1323          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
# Line 1334  T564:; Line 1329  T564:;
1329          (void)((*(LnkLI117))(V174));          (void)((*(LnkLI117))(V174));
1330  goto T572;  goto T572;
1331  T572:;  T572:;
1332          princ_str(",ap);va_end(ap);return V1;}",VV[29]);          princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);
1333          goto T520;}          goto T520;}
1334  goto T551;  goto T551;
1335  T551:;  T551:;
# Line 1520  T635:; Line 1515  T635:;
1515  }  }
1516  /*      local entry for function WT-SIMPLE-CALL */  /*      local entry for function WT-SIMPLE-CALL */
1517    
1518  static object LI16(V204,V203,V202,va_alist)  static object LI16(object V204,object V203,object V202,object first,...)
         object V204,V203,V202;  
         va_dcl  
1519  {        {      
1520          va_list ap;          va_list ap;
1521          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
# Line 1531  static object LI16(V204,V203,V202,va_ali Line 1524  static object LI16(V204,V203,V202,va_ali
1524          object V207;          object V207;
1525          object V208;          object V208;
1526          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1527          va_start(ap);          va_start(ap,first);
1528          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1529          V205= V204;          V205= V204;
1530          V206= V203;          V206= V203;
# Line 1539  static object LI16(V204,V203,V202,va_ali Line 1532  static object LI16(V204,V203,V202,va_ali
1532          narg = narg - 3;          narg = narg - 3;
1533          if (narg <= 0) goto T673;          if (narg <= 0) goto T673;
1534          else {          else {
1535          V208= va_arg(ap,object);}          V208= first;}
1536          --narg; goto T674;          --narg; goto T674;
1537  goto T673;  goto T673;
1538  T673:;  T673:;
# Line 1927  register object *base0; Line 1920  register object *base0;
1920          }          }
1921  }  }
1922  static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* WT-INLINE-LOC */  static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* WT-INLINE-LOC */
1923  static object  LnkTLI151(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[151],(void **)&LnkLI151,1,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */
1924  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* WT-LOC */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* WT-LOC */
1925  static object  LnkTLI148(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[148],(void **)&LnkLI148,ap);va_end(ap);return V1;} /* REMOVE */  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[148],(void **)&LnkLI148,first,ap);va_end(ap);return V1;} /* REMOVE */
1926  static object  LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[147],(void **)&LnkLI147,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */
1927  static object  LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,258,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
1928  static object  LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
1929  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* DECLARATION-TYPE */  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* DECLARATION-TYPE */
1930  static object  LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,1,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
1931  static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */  static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
1932  static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
1933  static object  LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
1934  static object  LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,4,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */  static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */
1935  static object  LnkTLI138(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[138],(void **)&LnkLI138,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)&LnkLI138,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
1936  static object  LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,2,ap);va_end(ap);return V1;} /* INLINE-PROC */  static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)&LnkLI137,2,first,ap);va_end(ap);return V1;} /* INLINE-PROC */
1937  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,2,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */  static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
1938  static object  LnkTLI135(){return call_proc0(VV[135],(void **)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI135(){return call_proc0(VV[135],(void **)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
1939  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
1940  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SAVE-AVMA */  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SAVE-AVMA */
1941  static object  LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */  static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
1942  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* CMPNOTE */  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */
1943  static object  LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1944  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,2,ap);va_end(ap);return V1;} /* C2PSETQ */  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
1945  static object  LnkTLI128(){return call_proc0(VV[128],(void **)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */  static object  LnkTLI128(){return call_proc0(VV[128],(void **)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
1946  static object  LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[127],(void **)&LnkLI127,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
1947  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* INC-INLINE-BLOCKS */  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* INC-INLINE-BLOCKS */
1948  static object  LnkTLI125(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[125],(void **)&LnkLI125,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */
1949  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,3,ap);va_end(ap);return V1;} /* C2LET */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */
1950  static object  LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[123],(void **)&LnkLI123,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */
1951  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[122],(void **)&LnkLI122,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)&LnkLI122,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
1952  static object  LnkTLI121(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[121],(void **)&LnkLI121,1,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */
1953  static object  LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[120],(void **)&LnkLI120,1,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */
1954  static object  LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[119],(void **)&LnkLI119,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)&LnkLI119,first,ap);va_end(ap);return V1;} /* CS-PUSH */
1955  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* UNWIND-EXIT */  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)&LnkLI118,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1956  static object  LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* WT1 */
1957  static object  LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* PUSH-ARGS */  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */
1958  static object  LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* C2EXPR* */  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
1959  static object  LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* VS-PUSH */  static object  LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* VS-PUSH */
1960  static object  LnkTLI113(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[113],(void **)&LnkLI113,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
1961  static object  LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* BABOON */  static object  LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* BABOON */
1962  static object  LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,3,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)&LnkLI111,3,first,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */
1963  static object  LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[110],(void **)&LnkLI110,2,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */
1964  static object  LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,2,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,2,first,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */
1965  static object  LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
1966  static object  LnkTLI107(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[107],(void **)&LnkLI107,ap);va_end(ap);return V1;} /* C2FUNCALL */  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)&LnkLI107,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
1967  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;} /* ADD-INFO */  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;} /* ADD-INFO */
1968  static object  LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,1,ap);va_end(ap);return V1;} /* C1EXPR */  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
1969  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[104],(void **)&LnkLI104,ap);va_end(ap);return V1;} /* MAKE-INFO */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)&LnkLI104,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
1970  static object  LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[103],(void **)&LnkLI103,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)&LnkLI103,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
1971  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
1972  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;} /* CMP-MACRO-FUNCTION */  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;} /* CMP-MACRO-FUNCTION */
1973  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
1974    
1975  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1976  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