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

Diff of /gcl/cmpnew/cmpif.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 20  TTL:; Line 20  TTL:;
20          goto T3;}          goto T3;}
21  goto T4;  goto T4;
22  T4:;  T4:;
23          V5 = make_fixnum(length((V2)));          V5 = make_fixnum((long)length((V2)));
24          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
25  goto T3;  goto T3;
26  T3:;  T3:;
# Line 28  T3:; Line 28  T3:;
28          goto T8;}          goto T8;}
29          if(endp(cdddr((V2)))){          if(endp(cdddr((V2)))){
30          goto T8;}          goto T8;}
31          V6 = make_fixnum(length((V2)));          V6 = make_fixnum((long)length((V2)));
32          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
33  goto T8;  goto T8;
34  T8:;  T8:;
# Line 160  goto T69; Line 160  goto T69;
160  T69:;  T69:;
161          if(endp(cddr((V16)))){          if(endp(cddr((V16)))){
162          goto T72;}          goto T72;}
163          V31 = make_fixnum(length(cdr((V16))));          V31 = make_fixnum((long)length(cdr((V16))));
164          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
165  goto T72;  goto T72;
166  T72:;  T72:;
# Line 226  TTL:; Line 226  TTL:;
226          if(!(type_of((V43))==t_cons)){          if(!(type_of((V43))==t_cons)){
227          goto T91;}          goto T91;}
228          {object V45= car((V43));          {object V45= car((V43));
229          if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){          if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){
230          case 0:          case 0:
231  goto T95;  goto T95;
232  T95:;  T95:;
# Line 266  T102:; Line 266  T102:;
266          VMR3(V53)}          VMR3(V53)}
267  goto T93;  goto T93;
268  T93:;  T93:;
269          if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){          if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){
270          case 0:          case 0:
271  goto T107;  goto T107;
272  T107:;  T107:;
# Line 315  goto T118; Line 315  goto T118;
315  T118:;  T118:;
316          if(endp(cddr((V43)))){          if(endp(cddr((V43)))){
317          goto T121;}          goto T121;}
318          V62 = make_fixnum(length(cdr((V43))));          V62 = make_fixnum((long)length(cdr((V43))));
319          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
320  goto T121;  goto T121;
321  T121:;  T121:;
# Line 1362  T678:; Line 1362  T678:;
1362          V209= Cnil;          V209= Cnil;
1363  goto T689;  goto T689;
1364  T689:;  T689:;
1365          if(!((length((V208)))<=(5))){          if(!(((long)length((V208)))<=(5))){
1366          goto T690;}          goto T690;}
1367          goto T687;          goto T687;
1368  goto T690;  goto T690;
# Line 1555  T828:; Line 1555  T828:;
1555          base[0]=base[0];          base[0]=base[0];
1556          return Cnil;          return Cnil;
1557  }  }
1558  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
1559  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],(void **)&LnkLI74,ap);} /* INLINE-ARGS */  static object  LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[74],(void **)&LnkLI74,ap);va_end(ap);return V1;} /* INLINE-ARGS */
1560  static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* ADD-OBJECT */  static object  LnkTLI73(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[73],(void **)&LnkLI73,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */
1561  static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],(void **)&LnkLI72,2,ap);} /* ADD-INFO */  static object  LnkTLI72(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[72],(void **)&LnkLI72,2,ap);va_end(ap);return V1;} /* ADD-INFO */
1562  static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,1,ap);} /* C1PROGN */  static object  LnkTLI71(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[71],(void **)&LnkLI71,1,ap);va_end(ap);return V1;} /* C1PROGN */
1563  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPERR */  static object  LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[69],(void **)&LnkLI69,ap);va_end(ap);return V1;} /* CMPERR */
1564  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */  static object  LnkTLI68(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[68],(void **)&LnkLI68,2,ap);va_end(ap);return V1;} /* CONVERT-CASE-TO-SWITCH */
1565  static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */  static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */
1566  static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */  static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */
1567  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* C1CASE */  static object  LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[65],(void **)&LnkLI65,ap);va_end(ap);return V1;} /* C1CASE */
1568  static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */  static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */
1569  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */
1570  static object  LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */  static object  LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */
1571  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,2,ap);} /* WT-VAR */  static object  LnkTLI61(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[61],(void **)&LnkLI61,2,ap);va_end(ap);return V1;} /* WT-VAR */
1572  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],(void **)&LnkLI60,ap);} /* UNWIND-EXIT */  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[60],(void **)&LnkLI60,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1573  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* C1ARGS */  static object  LnkTLI59(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[59],(void **)&LnkLI59,2,ap);va_end(ap);return V1;} /* C1ARGS */
1574  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* C2EXPR* */  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* C2EXPR* */
1575  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI57(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[57],(void **)&LnkLI57,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1576  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,3,ap);} /* CJT */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,3,ap);va_end(ap);return V1;} /* CJT */
1577  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */
1578  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */  static object  LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[54],(void **)&LnkLI54,1,ap);va_end(ap);return V1;} /* WT1 */
1579  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,3,ap);} /* CJF */  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[53],(void **)&LnkLI53,3,ap);va_end(ap);return V1;} /* CJF */
1580  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */
1581  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,2,ap);} /* C1EXPR* */  static object  LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[50],(void **)&LnkLI50,2,ap);va_end(ap);return V1;} /* C1EXPR* */
1582  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1FMLA */  static object  LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,2,ap);va_end(ap);return V1;} /* C1FMLA */
1583  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */  static object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* MAKE-INFO */
1584  static object  LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */  static object  LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */
1585  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1EXPR */  static object  LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,1,ap);va_end(ap);return V1;} /* C1EXPR */
1586  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */  static object  LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[45],(void **)&LnkLI45,1,ap);va_end(ap);return V1;} /* C1FMLA-CONSTANT */
1587  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[44],(void **)&LnkLI44,3,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
1588  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
1589    
1590  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1591  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