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

Diff of /gcl/cmpnew/cmpeval.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 246  T65:; Line 246  T65:;
246          return;          return;
247  goto T63;  goto T63;
248  T63:;  T63:;
249          V37= (V37)+(1);          V37= (long)(V37)+(1);
250          V38= cdr((V38));          V38= cdr((V38));
251          V39= car((V38));          V39= car((V38));
252          goto T58;}          goto T58;}
# Line 396  T116:; Line 396  T116:;
396          vs_top=sup;          vs_top=sup;
397          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
398          goto T122;}          goto T122;}
399          if(!((length((V49)))==(length(car((V54)))))){          if(!(((long)length((V49)))==((long)length(car((V54)))))){
400          goto T122;}          goto T122;}
401          {register object V55;          {register object V55;
402          register object V56;          register object V56;
# Line 520  T181:; Line 520  T181:;
520  goto T186;  goto T186;
521  T186:;  T186:;
522          V63= (          V63= (
523          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):
524          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
525  goto T185;  goto T185;
526  T185:;  T185:;
# Line 614  T239:; Line 614  T239:;
614  goto T242;  goto T242;
615  T242:;  T242:;
616          V75= (          V75= (
617          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):
618          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
619  goto T238;  goto T238;
620  T238:;  T238:;
# Line 1128  TTL:; Line 1128  TTL:;
1128          V143= Cnil;          V143= Cnil;
1129          V144= make_cons((V140),(V141));          V144= make_cons((V140),(V141));
1130          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1131          base[2]= make_fixnum(length((V144)));          base[2]= make_fixnum((long)length((V144)));
1132          base[3]= VV[57];          base[3]= VV[57];
1133          base[4]= Ct;          base[4]= Ct;
1134          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
# Line 2089  T847:; Line 2089  T847:;
2089          VMR37(V389)}}          VMR37(V389)}}
2090          return Cnil;          return Cnil;
2091  }  }
2092  static object  LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],(void **)&LnkLI177,1,ap);} /* ABS */  static object  LnkTLI177(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[177],(void **)&LnkLI177,1,ap);va_end(ap);return V1;} /* ABS */
2093  static object  LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],(void **)&LnkLI176,1,ap);} /* AET-C-TYPE */  static object  LnkTLI176(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[176],(void **)&LnkLI176,1,ap);va_end(ap);return V1;} /* AET-C-TYPE */
2094  static object  LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */  static object  LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */
2095  static object  LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],(void **)&LnkLI174,ap);} /* INLINE-ARGS */  static object  LnkTLI174(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[174],(void **)&LnkLI174,ap);va_end(ap);return V1;} /* INLINE-ARGS */
2096  static object  LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],(void **)&LnkLI173,2,ap);} /* COERCE-LOC */  static object  LnkTLI173(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[173],(void **)&LnkLI173,2,ap);va_end(ap);return V1;} /* COERCE-LOC */
2097  static object  LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],(void **)&LnkLI172,1,ap);} /* INLINE-TYPE */  static object  LnkTLI172(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[172],(void **)&LnkLI172,1,ap);va_end(ap);return V1;} /* INLINE-TYPE */
2098  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
2099  static object  LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],(void **)&LnkLI170,1,ap);} /* TYPE-FILTER */  static object  LnkTLI170(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[170],(void **)&LnkLI170,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2100  static object  LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],(void **)&LnkLI169,2,ap);} /* C1EXPR* */  static object  LnkTLI169(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[169],(void **)&LnkLI169,2,ap);va_end(ap);return V1;} /* C1EXPR* */
2101  static object  LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],(void **)&LnkLI168,1,ap);} /* C1PROGN */  static object  LnkTLI168(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[168],(void **)&LnkLI168,1,ap);va_end(ap);return V1;} /* C1PROGN */
2102  static object  LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],(void **)&LnkLI167,2,ap);} /* C2EXPR-TOP */  static object  LnkTLI167(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[167],(void **)&LnkLI167,2,ap);va_end(ap);return V1;} /* C2EXPR-TOP */
2103  static object  LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */  static object  LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */
2104  static object  LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],(void **)&LnkLI165,1,ap);} /* WT1 */  static object  LnkTLI165(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[165],(void **)&LnkLI165,1,ap);va_end(ap);return V1;} /* WT1 */
2105  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */
2106  static object  LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */
2107  static object  LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],(void **)&LnkLI162,ap);} /* UNWIND-EXIT */  static object  LnkTLI162(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[162],(void **)&LnkLI162,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
2108  static object  LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],(void **)&LnkLI161,2,ap);} /* GET-INLINE-LOC */  static object  LnkTLI161(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[161],(void **)&LnkLI161,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2109  static object  LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */  static object  LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */
2110  static object  LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],(void **)&LnkLI159,1,ap);} /* VOLATILE */  static object  LnkTLI159(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[159],(void **)&LnkLI159,1,ap);va_end(ap);return V1;} /* VOLATILE */
2111  static object  LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],(void **)&LnkLI158,4,ap);} /* C2CALL-GLOBAL */  static object  LnkTLI158(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[158],(void **)&LnkLI158,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
2112  static object  LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],(void **)&LnkLI157,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI157(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[157],(void **)&LnkLI157,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
2113  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */
2114  static object  LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],(void **)&LnkLI154,2,ap);} /* TYPE-AND */  static object  LnkTLI154(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[154],(void **)&LnkLI154,2,ap);va_end(ap);return V1;} /* TYPE-AND */
2115  static object  LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],(void **)&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */  static object  LnkTLI152(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[152],(void **)&LnkLI152,3,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */
2116  static object  LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],(void **)&LnkLI151,1,ap);} /* GET-ARG-TYPES */  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;} /* GET-ARG-TYPES */
2117  static object  LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],(void **)&LnkLI150,1,ap);} /* GET-RETURN-TYPE */  static object  LnkTLI150(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[150],(void **)&LnkLI150,1,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */
2118  static object  LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],(void **)&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */  static object  LnkTLI149(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[149],(void **)&LnkLI149,3,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */
2119  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */
2120  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,2,ap);} /* RECORD-CALL-INFO */  static object  LnkTLI32(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[32],(void **)&LnkLI32,2,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
2121  static object  LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],(void **)&LnkLI147,1,ap);} /* INLINE-POSSIBLE */  static object  LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[147],(void **)&LnkLI147,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2122  static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */  static object  LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,3,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */
2123  static object  LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],(void **)&LnkLI145,3,ap);} /* AND-FORM-TYPE */  static object  LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,3,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
2124  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */  static object  LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,1,ap);va_end(ap);return V1;} /* GET-LOCAL-ARG-TYPES */
2125  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */  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;} /* GET-LOCAL-RETURN-TYPE */
2126  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* C1ARGS */  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;} /* C1ARGS */
2127  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,1,ap);} /* C1LOCAL-FUN */  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,1,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
2128  static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,2,ap);} /* TYPE>= */  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;} /* TYPE>= */
2129  static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */  static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */
2130  static object  LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],(void **)&LnkLI138,ap);} /* CMPWARN */  static object  LnkTLI138(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[138],(void **)&LnkLI138,ap);va_end(ap);return V1;} /* CMPWARN */
2131  static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */  static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */
2132  static object  LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */
2133  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* CMPERR */  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;} /* CMPERR */
2134  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,2,ap);} /* C1LAMBDA-FUN */  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;} /* C1LAMBDA-FUN */
2135  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */
2136  static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,1,ap);} /* C1VAR */  static object  LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,1,ap);va_end(ap);return V1;} /* C1VAR */
2137  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,1,ap);} /* ADD-CONSTANT */  static object  LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,1,ap);va_end(ap);return V1;} /* ADD-CONSTANT */
2138  static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */  static object  LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,2,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */
2139  static object  LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],(void **)&LnkLI129,1,ap);} /* ADD-OBJECT */  static object  LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */
2140  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,1,ap);} /* OBJECT-TYPE */  static object  LnkTLI128(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[128],(void **)&LnkLI128,1,ap);va_end(ap);return V1;} /* OBJECT-TYPE */
2141  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* MAKE-INFO */  static object  LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[127],(void **)&LnkLI127,ap);va_end(ap);return V1;} /* MAKE-INFO */
2142  static object  LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */  static object  LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */
2143  static object  LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */  static object  LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */
2144  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* ADD-INFO */  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;} /* ADD-INFO */
2145  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* C1EXPR */  static object  LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[123],(void **)&LnkLI123,1,ap);va_end(ap);return V1;} /* C1EXPR */
2146    
2147  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2148  SYSTEM_SPECIAL_INIT  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