/[gcl]/gcl/lsp/defstruct.c
ViewVC logotype

Diff of /gcl/lsp/defstruct.c

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

revision 1.9 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.10 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 4  Line 4 
4  void init_defstruct(){do_init(VV);}  void init_defstruct(){do_init(VV);}
5  /*      local entry for function MAKE-ACCESS-FUNCTION   */  /*      local entry for function MAKE-ACCESS-FUNCTION   */
6    
7  static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist)  static object LI1(object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...)
         object V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,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
# Line 22  static object LI1(V11,V10,V9,V8,V7,V6,V5 Line 20  static object LI1(V11,V10,V9,V8,V7,V6,V5
20          object V21;          object V21;
21          object V22;          object V22;
22          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
23          va_start(ap);          va_start(ap,first);
24          if(narg <11) too_few_arguments();          if(narg <11) too_few_arguments();
25          V12= V11;          V12= V11;
26          V13= V10;          V13= V10;
# Line 38  static object LI1(V11,V10,V9,V8,V7,V6,V5 Line 36  static object LI1(V11,V10,V9,V8,V7,V6,V5
36          narg = narg - 11;          narg = narg - 11;
37          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
38          else {          else {
39          V22= va_arg(ap,object);}          V22= first;}
40          --narg; goto T2;          --narg; goto T2;
41  goto T1;  goto T1;
42  T1:;  T1:;
# Line 1323  T549:; Line 1321  T549:;
1321  }  }
1322  /*      local entry for function DEFINE-STRUCTURE       */  /*      local entry for function DEFINE-STRUCTURE       */
1323    
1324  static object LI10(V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,va_alist)  static object LI10(object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object V219,object V218,object first,...)
         object V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218;  
         va_dcl  
1325  {        {      
1326          va_list ap;          va_list ap;
1327          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
# Line 1343  static object LI10(V229,V228,V227,V226,V Line 1339  static object LI10(V229,V228,V227,V226,V
1339          object V241;          object V241;
1340          register object V242;          register object V242;
1341          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1342          va_start(ap);          va_start(ap,first);
1343          if(narg <12) too_few_arguments();          if(narg <12) too_few_arguments();
1344          Vcs[0]=MMcons(V229,Cnil);          Vcs[0]=MMcons(V229,Cnil);
1345          V230= V228;          V230= V228;
# Line 1360  static object LI10(V229,V228,V227,V226,V Line 1356  static object LI10(V229,V228,V227,V226,V
1356          narg = narg - 12;          narg = narg - 12;
1357          if (narg <= 0) goto T595;          if (narg <= 0) goto T595;
1358          else {          else {
1359          V241= va_arg(ap,object);}          V241= first;}
1360          if (--narg <= 0) goto T596;          if (--narg <= 0) goto T596;
1361          else {          else {
1362          V242= va_arg(ap,object);}          V242= va_arg(ap,object);}
# Line 2142  T970:; Line 2138  T970:;
2138  }  }
2139  /*      local entry for function MAKE-S-DATA    */  /*      local entry for function MAKE-S-DATA    */
2140    
2141  static object LI12(va_alist)  static object LI12(object first,...)
         va_dcl  
2142  {        {      
2143          va_list ap;          va_list ap;
2144          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
# Line 2166  static object LI12(va_alist) Line 2161  static object LI12(va_alist)
2161          object V335;          object V335;
2162          object V336;          object V336;
2163          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2164          va_start(ap);          va_start(ap,first);
2165          narg= narg - 0;          narg= narg - 0;
2166          {          {
2167          parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)&LI12key,first,ap);
2168          V319=(Vcs[0]);          V319=(Vcs[0]);
2169          V320=(Vcs[1]);          V320=(Vcs[1]);
2170          V321=(Vcs[2]);          V321=(Vcs[2]);
# Line 2488  T1070:; Line 2483  T1070:;
2483  }  }
2484  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */
2485  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */
2486  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */
2487  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */
2488  static object  LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */
2489  static object  LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */
2490  static object  LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* MAKE-S-DATA */  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)&LnkLI133,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */
2491  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-SLOT-POS */  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-SLOT-POS */
2492  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;} /* WARN */  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;} /* WARN */
2493  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */
2494  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */
2495  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */
2496  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,20738,ap);va_end(ap);return V1;} /* ROUND-UP */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */
2497  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */
2498  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)&LnkLI122,2,first,ap);va_end(ap);return V1;} /* COERCE */
2499  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */
2500  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */
2501  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */
2502  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;} /* MAKE-ARRAY */  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;} /* MAKE-ARRAY */
2503  static object  LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */  static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */
2504  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;} /* NORMALIZE-TYPE */  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;} /* NORMALIZE-TYPE */
2505  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;} /* BEST-ARRAY-ELEMENT-TYPE */  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;} /* BEST-ARRAY-ELEMENT-TYPE */
2506  static object  LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */  static object  LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */
2507  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */
2508  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */
2509  static object  LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[108],(void **)&LnkLI108,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[108],(void **)&LnkLI108,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */
2510  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */
2511    
2512  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

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

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