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

Diff of /gcl/cmpnew/cmptag.c

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

revision 1.2 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC
# Line 107  TTL:; Line 107  TTL:;
107          vs_top=sup;          vs_top=sup;
108          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
109          goto T34;}          goto T34;}
110          {int V23= fix(structure_ref((V22),VV[2],6));          {long V23= fix(structure_ref((V22),VV[2],6));
111          V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));          V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));
112          {object V25 = structure_set((V22),VV[2],6,V24);          {object V25 = structure_set((V22),VV[2],6,V24);
113          VMR3(V25)}}          VMR3(V25)}}
# Line 1114  static object  LnkTLI48(va_alist)va_dcl{ Line 1114  static object  LnkTLI48(va_alist)va_dcl{
1114  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* ADD-REG1 */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* ADD-REG1 */
1115  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,2,ap);} /* JUMPS-TO-P */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,2,ap);} /* JUMPS-TO-P */
1116  static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* STRUCTURE-SUBTYPE-P */  static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* STRUCTURE-SUBTYPE-P */
1117    
1118    #ifdef SYSTEM_SPECIAL_INIT
1119    SYSTEM_SPECIAL_INIT
1120    #endif
1121    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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