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

Diff of /gcl/cmpnew/cmpblock.c

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

revision 1.8 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.9 by camm, Tue Jul 15 18:03:36 2003 UTC
# Line 19  static object LI1(object first,...) Line 19  static object LI1(object first,...)
19          va_start(ap,first);          va_start(ap,first);
20          narg= narg - 0;          narg= narg - 0;
21          {          {
22          parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
23          V1=(Vcs[0]);          V1=(Vcs[0]);
24          V2=(Vcs[1]);          V2=(Vcs[1]);
25          V3=(Vcs[2]);          V3=(Vcs[2]);
# Line 465  TTL:; Line 465  TTL:;
465          base[0]=base[0];          base[0]=base[0];
466          return Cnil;          return Cnil;
467  }  }
468  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WT1 */
469  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
470  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
471  static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* C2RETURN-LOCAL */  static void LnkT49(){ call_or_link(VV[49],(void **)(void *)&Lnk49);} /* C2RETURN-LOCAL */
472  static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CLB */  static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CLB */
473  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CCB */  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CCB */
474  static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1EXPR */  static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
475  static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */  static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
476  static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* WT-VS* */  static object  LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
477  static object  LnkTLI41(){return call_proc0(VV[41],(void **)&LnkLI41);} /* CCB-VS-PUSH */  static object  LnkTLI41(){return call_proc0(VV[41],(void **)(void *)&LnkLI41);} /* CCB-VS-PUSH */
478  static object  LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* CLINK */  static object  LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* CLINK */
479  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)&LnkLI39,first,ap);va_end(ap);return V1;} /* WT-CLINK */  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* WT-CLINK */
480  static object  LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)&LnkLI38,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)(void *)&LnkLI38,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
481  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[37],(void **)&LnkLI37,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[37],(void **)(void *)&LnkLI37,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
482  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT-VS */
483  static object  LnkTLI35(){return call_proc0(VV[35],(void **)&LnkLI35);} /* VS-PUSH */  static object  LnkTLI35(){return call_proc0(VV[35],(void **)(void *)&LnkLI35);} /* VS-PUSH */
484  static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* C2EXPR */  static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* C2EXPR */
485  static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* C2BLOCK-LOCAL */  static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* C2BLOCK-LOCAL */
486  static object  LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CLB */  static object  LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CLB */
487  static object  LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)&LnkLI31,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CCB */  static object  LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)(void *)&LnkLI31,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CCB */
488  static object  LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)&LnkLI30,1,first,ap);va_end(ap);return V1;} /* RESET-INFO-TYPE */  static object  LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,1,first,ap);va_end(ap);return V1;} /* RESET-INFO-TYPE */
489  static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* C1PROGN */  static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
490  static object  LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-BLK */  static object  LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-BLK */
491  static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[27],(void **)&LnkLI27,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[27],(void **)(void *)&LnkLI27,first,ap);va_end(ap);return V1;} /* CMPERR */
492  static object  LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)&LnkLI26,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */  static object  LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
493    
494  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
495  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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