/[gcl]/gcl/pcl/pcl_low.c
ViewVC logotype

Diff of /gcl/pcl/pcl_low.c

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

revision 1.1 by camm, Wed Feb 26 22:21:42 2003 UTC revision 1.1.4.1 by camm, Wed Jul 16 02:02:52 2003 UTC
# Line 73  static object LI4(object first,...) Line 73  static object LI4(object first,...)
73          va_start(ap,first);          va_start(ap,first);
74          narg= narg - 0;          narg= narg - 0;
75          {          {
76          parse_key_new_new(narg,Vcs +0,(struct key *)&LI4key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI4key,first,ap);
77          V6=(Vcs[0]);          V6=(Vcs[0]);
78          V7=(Vcs[1]);          V7=(Vcs[1]);
79          base[0]= VV[11];          base[0]= VV[11];
# Line 1052  register object *base0; Line 1052  register object *base0;
1052          return;          return;
1053          }          }
1054  }  }
1055  static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* FIFTH */  static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* FIFTH */
1056  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)&LnkLI86,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */
1057  static object  LnkTLI85(){return call_proc0(VV[85],(void **)&LnkLI85);} /* STRUCTURE-FUNCTIONS-EXIST-P */  static object  LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* STRUCTURE-FUNCTIONS-EXIST-P */
1058  static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* COERCE */  static void LnkT84(){ call_or_link(VV[84],(void **)(void *)&Lnk84);} /* COERCE */
1059  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* COMPILE */  static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* COMPILE */
1060  static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* COMPILE-LAMBDA-DEFERRED */  static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)(void *)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* COMPILE-LAMBDA-DEFERRED */
1061  static object  LnkTLI81(){return call_proc0(VV[81],(void **)&LnkLI81);} /* IN-THE-COMPILER-P */  static object  LnkTLI81(){return call_proc0(VV[81],(void **)(void *)&LnkLI81);} /* IN-THE-COMPILER-P */
1062  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* COMPILE-LAMBDA-UNCOMPILED */  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* COMPILE-LAMBDA-UNCOMPILED */
1063  static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* BREAK */  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* BREAK */
1064  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */
1065  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-NAME */
1066  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[74],(void **)&LnkLI74,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[74],(void **)(void *)&LnkLI74,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
1067  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
1068    
1069  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1070  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.4.1

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