/[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.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 80  T13:; Line 80  T13:;
80          V24= symbol_value(VV[0]);}          V24= symbol_value(VV[0]);}
81  goto T8;  goto T8;
82  T8:;  T8:;
83          V27 = make_fixnum(length((V24)));          V27 = make_fixnum((long)length((V24)));
84          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
85          goto T17;}          goto T17;}
86          goto T16;          goto T16;
# Line 1030  T426:; Line 1030  T426:;
1030          V161= structure_ref((V160),VV[55],2);          V161= structure_ref((V160),VV[55],2);
1031          {object V162;          {object V162;
1032          register object V163;          register object V163;
1033          V164 = make_fixnum(length((V161)));          V164 = make_fixnum((long)length((V161)));
1034          V162= (number_compare((V155),V164)<=0?((V155)):V164);          V162= (number_compare((V155),V164)<=0?((V155)):V164);
1035          V163= small_fixnum(0);          V163= small_fixnum(0);
1036  goto T434;  goto T434;
# Line 1080  T454:; Line 1080  T454:;
1080          goto T447;}          goto T447;}
1081  goto T443;  goto T443;
1082  T443:;  T443:;
1083          V171 = make_fixnum(length(symbol_value(VV[58])));          V171 = make_fixnum((long)length(symbol_value(VV[58])));
1084          if(!(number_compare((V155),V171)<0)){          if(!(number_compare((V155),V171)<0)){
1085          goto T468;}          goto T468;}
1086          {register object V173;          {register object V173;
# Line 1114  T468:; Line 1114  T468:;
1114  }  }
1115  /*      local entry for function ROUND-UP       */  /*      local entry for function ROUND-UP       */
1116    
1117  static long LI8(V180,V181)  static object LI8(V180,V181)
1118    
1119  long V180;long V181;  long V180;long V181;
1120  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
# Line 1126  TTL:; Line 1126  TTL:;
1126          Lceiling();          Lceiling();
1127          vs_top=sup;          vs_top=sup;
1128          V180= fix(vs_base[0]);          V180= fix(vs_base[0]);
1129          {long V182 = (V180)*(V181);          {long V182 = (long)(V180)*(V181);
1130          VMR8(V182)}          VMR8((object)V182)}
1131          base[0]=base[0];          base[0]=base[0];
1132  }  }
1133  /*      local entry for function GET-SLOT-POS   */  /*      local entry for function GET-SLOT-POS   */
# Line 1226  T492:; Line 1226  T492:;
1226          goto T537;          goto T537;
1227  goto T538;  goto T538;
1228  T538:;  T538:;
1229          V201 = make_fixnum(length(symbol_value(VV[59])));          V201 = make_fixnum((long)length(symbol_value(VV[59])));
1230          if(number_compare((V186),V201)<0){          if(number_compare((V186),V201)<0){
1231          goto T540;}          goto T540;}
1232          V200= Cnil;          V200= Cnil;
# Line 1288  T557:; Line 1288  T557:;
1288          V212= nconc((V212),VV[62]);          V212= nconc((V212),VV[62]);
1289  goto T566;  goto T566;
1290  T566:;  T566:;
1291          V210= (*(LnkLI126))(V206,V208);          V210= (long)(*(LnkLI126))(V206,V208);
1292          if(!((V206)==(V210))){          if(!((V206)==(V210))){
1293          goto T579;}          goto T579;}
1294          goto T578;          goto T578;
# Line 1307  T578:; Line 1307  T578:;
1307          vs_top=sup;          vs_top=sup;
1308          V218= vs_base[0];          V218= vs_base[0];
1309          V206= fix(number_plus(V217,V218));          V206= fix(number_plus(V217,V218));
1310          V207= (V207)+(1);          V207= (long)(V207)+(1);
1311          V211= cdr((V211));          V211= cdr((V211));
1312          V212= car((V211));          V212= car((V211));
1313          goto T556;}          goto T556;}
# Line 1318  T552:; Line 1318  T552:;
1318          (void) (*Lnk125)();          (void) (*Lnk125)();
1319          vs_top=sup;          vs_top=sup;
1320          V219= vs_base[0];          V219= vs_base[0];
1321          V220 = make_fixnum((*(LnkLI126))(V206,fix(V219)));          V220 = make_fixnum((long)(*(LnkLI126))(V206,fix(V219)));
1322          {object V221 = list(3,(V205),V220,(V191));          {object V221 = list(3,(V205),V220,(V191));
1323          VMR9(V221)}}}}          VMR9(V221)}}}}
1324          base[0]=base[0];          base[0]=base[0];
# Line 1393  T608:; Line 1393  T608:;
1393          V235= VV[19];          V235= VV[19];
1394  goto T605;  goto T605;
1395  T605:;  T605:;
1396          V248= make_fixnum(length((V237)));          V248= make_fixnum((long)length((V237)));
1397          {register object V249;          {register object V249;
1398          register object V250;          register object V250;
1399          V249= (V237);          V249= (V237);
# Line 2484  T1072:; Line 2484  T1072:;
2484  }  }
2485  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */
2486  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */
2487  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,5,ap);} /* MAKE-PREDICATE */  static object  LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */
2488  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,5,ap);} /* MAKE-CONSTRUCTOR */  static object  LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */
2489  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* PARSE-SLOT-DESCRIPTION */  static object  LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */
2490  static object  LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],(void **)&LnkLI136,3,ap);} /* CHECK-S-DATA */  static object  LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */
2491  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* MAKE-S-DATA */  static object  LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[135],(void **)&LnkLI135,ap);va_end(ap);return V1;} /* MAKE-S-DATA */
2492  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,3,ap);} /* GET-SLOT-POS */  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;} /* GET-SLOT-POS */
2493  static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],(void **)&LnkLI133,ap);} /* WARN */  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;} /* WARN */
2494  static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */  static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */
2495  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,3,ap);} /* MAKE-T-TYPE */  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */
2496  static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */  static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */
2497  static long  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[126],(void **)&LnkLI126,20738,ap);} /* ROUND-UP */  static object  LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,20738,ap);va_end(ap);return V1;} /* ROUND-UP */
2498  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */
2499  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* COERCE */  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* COERCE */
2500  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */
2501  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */
2502  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */
2503  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],(void **)&LnkLI120,ap);} /* MAKE-ARRAY */  static object  LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[120],(void **)&LnkLI120,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
2504  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],(void **)&LnkLI119,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */  static object  LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */
2505  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],(void **)&LnkLI118,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[118],(void **)&LnkLI118,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
2506  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  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;} /* BEST-ARRAY-ELEMENT-TYPE */
2507  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */
2508  static object  LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */  static object  LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */
2509  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */
2510  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */
2511  static object  LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],(void **)&LnkLI110,ap);} /* ADJUST-ARRAY */  static object  LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */
2512  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */  static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */
2513    
2514  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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