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

Diff of /gcl/cmpnew/cmpenv.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 328  goto T119; Line 328  goto T119;
328  T119:;  T119:;
329          V39= make_cons(V45,(V39));          V39= make_cons(V45,(V39));
330          V41= cdr((V41));          V41= cdr((V41));
331          V42= (1)+(V42);          V42= (long)(1)+(V42);
332          goto T105;}          goto T105;}
333  goto T102;  goto T102;
334  T102:;  T102:;
# Line 512  T208:; Line 512  T208:;
512          goto T225;          goto T225;
513  goto T226;  goto T226;
514  T226:;  T226:;
515          V70= ((length((V65)))<(64)?Ct:Cnil);          V70= (((long)length((V65)))<(64)?Ct:Cnil);
516  goto T225;  goto T225;
517  T225:;  T225:;
518          if(((V70))==Cnil){          if(((V70))==Cnil){
# Line 1147  T470:; Line 1147  T470:;
1147          V142= get(car((V122)),VV[67],Cnil);          V142= get(car((V122)),VV[67],Cnil);
1148          (void)((          (void)((
1149          V143 = V142,          V143 = V142,
1150          (type_of(V143) == t_sfun ?(*(object (*)())((V143)->sfn.sfn_self)):          (type_of(V143) == t_sfun ?(*((V143)->sfn.sfn_self)):
1151          (fcall.fun=(V143),fcall.argd=1,fcalln))((V141))));          (fcall.fun=(V143),fcall.argd=1,fcalln))((V141))));
1152          V140= cdr((V140));          V140= cdr((V140));
1153          V141= car((V140));          V141= car((V140));
# Line 2447  T1196:; Line 2447  T1196:;
2447  }  }
2448  static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */  static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */
2449  static object  LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */  static object  LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */
2450  static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],(void **)&LnkLI184,ap);} /* REMOVE */  static object  LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[184],(void **)&LnkLI184,ap);va_end(ap);return V1;} /* REMOVE */
2451  static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],(void **)&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */  static object  LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,3,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */
2452  static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],(void **)&LnkLI182,1,ap);} /* C1PROGN */  static object  LnkTLI182(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[182],(void **)&LnkLI182,1,ap);va_end(ap);return V1;} /* C1PROGN */
2453  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* CMP-MACROEXPAND */  static object  LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
2454  static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],(void **)&LnkLI179,1,ap);} /* SCH-GLOBAL */  static object  LnkTLI179(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[179],(void **)&LnkLI179,1,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
2455  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */  static object  LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,3,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */
2456  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,2,ap);} /* PROCLAIM-VAR */  static object  LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[135],(void **)&LnkLI135,2,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */
2457  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */
2458  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],(void **)&LnkLI128,ap);} /* CMPWARN */  static object  LnkTLI128(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[128],(void **)&LnkLI128,ap);va_end(ap);return V1;} /* CMPWARN */
2459  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],(void **)&LnkLI127,2,ap);} /* TYPE-AND */  static object  LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[127],(void **)&LnkLI127,2,ap);va_end(ap);return V1;} /* TYPE-AND */
2460  static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */  static object  LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,1,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */
2461  static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */  static object  LnkTLI125(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[125],(void **)&LnkLI125,1,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
2462  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */  static object  LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,1,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */
2463  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* WARN */  static object  LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[123],(void **)&LnkLI123,ap);va_end(ap);return V1;} /* WARN */
2464  static object  LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],(void **)&LnkLI122,1,ap);} /* TYPE-FILTER */  static object  LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2465  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPERR */  static object  LnkTLI121(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[121],(void **)&LnkLI121,ap);va_end(ap);return V1;} /* CMPERR */
2466  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */
2467  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */
2468  static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */  static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */
2469  static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */  static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */
2470  static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */  static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
2471  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,1,ap);} /* WT-DATA1 */  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;} /* WT-DATA1 */
2472  static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
2473  static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* PUSH-DATA-INCF */  static object  LnkTLI113(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[113],(void **)&LnkLI113,1,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
2474    
2475  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2476  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