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

Diff of /gcl/cmpnew/cmpvs.c

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

revision 1.8 by camm, Tue Jul 15 18:03:37 2003 UTC revision 1.9 by camm, Tue Sep 2 20:32:43 2003 UTC
# Line 34  TTL:; Line 34  TTL:;
34          goto T6;          goto T6;
35  T6:;  T6:;
36          princ_str("\n   ",VV[4]);          princ_str("\n   ",VV[4]);
37          (void)((*(LnkLI11))((V6)));          (void)((*(LnkLI12))((V6)));
38          princ_str("= ",VV[4]);          princ_str("= ",VV[4]);
39          (void)((*(LnkLI12))((V5)));          (void)((*(LnkLI13))((V5)));
40          princ_char(59,VV[4]);          princ_char(59,VV[4]);
41          {object V7 = Cnil;          {object V7 = Cnil;
42          VMR2(V7)}          VMR2(V7)}
# Line 57  TTL:; Line 57  TTL:;
57          if(!((car((V10)))==(VV[5]))){          if(!((car((V10)))==(VV[5]))){
58          goto T19;}          goto T19;}
59          princ_char(86,VV[4]);          princ_char(86,VV[4]);
60          (void)((*(LnkLI12))(cadr((V10))));          (void)((*(LnkLI13))(cadr((V10))));
61          {object V11 = Cnil;          {object V11 = Cnil;
62          VMR3(V11)}          VMR3(V11)}
63          goto T19;          goto T19;
64  T19:;  T19:;
65          if(!((car((V10)))==(VV[6]))){          if(!((car((V10)))==(VV[6]))){
66          goto T24;}          goto T24;}
67            setq(VV[7],Ct);
68          princ_str("Vcs[",VV[4]);          princ_str("Vcs[",VV[4]);
69          (void)((*(LnkLI12))(cdr((V10))));          (void)((*(LnkLI13))(cdr((V10))));
70          princ_char(93,VV[4]);          princ_char(93,VV[4]);
71          {object V12 = Cnil;          {object V12 = Cnil;
72          VMR3(V12)}          VMR3(V12)}
73          goto T24;          goto T24;
74  T24:;  T24:;
75          if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){          if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){
76          goto T30;}          goto T32;}
77          princ_str("base[",VV[4]);          princ_str("base[",VV[4]);
78          (void)((*(LnkLI12))(cdr((V10))));          (void)((*(LnkLI13))(cdr((V10))));
79          princ_char(93,VV[4]);          princ_char(93,VV[4]);
80          {object V13 = Cnil;          {object V13 = Cnil;
81          VMR3(V13)}          VMR3(V13)}
82          goto T30;          goto T32;
83  T30:;  T32:;
84          princ_str("base",VV[4]);          princ_str("base",VV[4]);
85          (void)((*(LnkLI12))(car((V10))));          (void)((*(LnkLI13))(car((V10))));
86          princ_char(91,VV[4]);          princ_char(91,VV[4]);
87          (void)((*(LnkLI12))(cdr((V10))));          (void)((*(LnkLI13))(cdr((V10))));
88          princ_char(93,VV[4]);          princ_char(93,VV[4]);
89          {object V14 = Cnil;          {object V14 = Cnil;
90          VMR3(V14)}          VMR3(V14)}
# Line 98  object V16; Line 99  object V16;
99          goto TTL;          goto TTL;
100  TTL:;  TTL:;
101          princ_char(40,VV[4]);          princ_char(40,VV[4]);
102          (void)((*(LnkLI11))((V16)));          (void)((*(LnkLI12))((V16)));
103          princ_str("->c.c_car)",VV[4]);          princ_str("->c.c_car)",VV[4]);
104          {object V17 = Cnil;          {object V17 = Cnil;
105          VMR4(V17)}          VMR4(V17)}
# Line 113  object V19; Line 114  object V19;
114          goto TTL;          goto TTL;
115  TTL:;  TTL:;
116          princ_str("(base0[",VV[4]);          princ_str("(base0[",VV[4]);
117          V20= number_minus(symbol_value(VV[7]),(V19));          V20= number_minus(symbol_value(VV[8]),(V19));
118          (void)((*(LnkLI12))(/* INLINE-ARGS */V20));          (void)((*(LnkLI13))(/* INLINE-ARGS */V20));
119          princ_str("]->c.c_car)",VV[4]);          princ_str("]->c.c_car)",VV[4]);
120          {object V21 = Cnil;          {object V21 = Cnil;
121          VMR5(V21)}          VMR5(V21)}
# Line 128  object V23; Line 129  object V23;
129  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
130          goto TTL;          goto TTL;
131  TTL:;  TTL:;
132          setq(VV[8],(V23));          setq(VV[9],(V23));
133          {object V24 = symbol_value(VV[8]);          {object V24 = symbol_value(VV[9]);
134          VMR6(V24)}          VMR6(V24)}
135          return Cnil;          return Cnil;
136  }  }
# Line 140  static object LI7(object first,...) Line 141  static object LI7(object first,...)
141          va_list ap;          va_list ap;
142          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
143          {object V25;          {object V25;
         Vcs[0]=Vcs[0];  
144          va_start(ap,first);          va_start(ap,first);
145          narg = narg - 0;          narg = narg - 0;
146          if (narg <= 0) goto T48;          if (narg <= 0) goto T50;
147          else {          else {
148          V25= first;}          V25= first;}
149          --narg; goto T49;          --narg; goto T51;
150          goto T48;          goto T50;
151  T48:;  T50:;
152          V25= symbol_value(VV[8]);          V25= symbol_value(VV[9]);
153          goto T49;          goto T51;
154  T49:;  T51:;
155          if(((V25))!=Cnil){          if(((V25))!=Cnil){
156          goto T52;}          goto T54;}
157          princ_str("Cnil",VV[4]);          princ_str("Cnil",VV[4]);
158          {object V26 = Cnil;          {object V26 = Cnil;
159          VMR7(V26)}          VMR7(V26)}
160          goto T52;          goto T54;
161  T52:;  T54:;
162          {object V27 = (*(LnkLI11))((V25));          {object V27 = (*(LnkLI12))((V25));
163          VMR7(V27)}          VMR7(V27)}
164          va_end(ap);          va_end(ap);
165          return Cnil;}          return Cnil;}
# Line 171  static object LI8() Line 171  static object LI8()
171  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
172          goto TTL;          goto TTL;
173  TTL:;  TTL:;
174          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
175          {object V28 = symbol_value(VV[9]);          {object V28 = symbol_value(VV[10]);
176          VMR8(V28)}          VMR8(V28)}
177          return Cnil;          return Cnil;
178  }  }
# Line 184  static object LI9() Line 184  static object LI9()
184          goto TTL;          goto TTL;
185  TTL:;  TTL:;
186          {object V29;          {object V29;
187          V29= make_cons(VV[6],symbol_value(VV[10]));          V29= make_cons(VV[6],symbol_value(VV[11]));
188          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
189          {object V30 = (V29);          {object V30 = (V29);
190          VMR9(V30)}}          VMR9(V30)}}
191          return Cnil;          return Cnil;
# Line 200  object V32; Line 200  object V32;
200  TTL:;  TTL:;
201          {register object V33;          {register object V33;
202          V33= (V32);          V33= (V32);
203          goto T60;          goto T62;
204  T60:;  T62:;
205          if(((V33))!=Cnil){          if(((V33))!=Cnil){
206          goto T61;}          goto T63;}
207          {object V34 = Cnil;          {object V34 = Cnil;
208          VMR10(V34)}          VMR10(V34)}
209          goto T61;          goto T63;
210  T61:;  T63:;
211          (void)((*(LnkLI12))(car((V33))));          (void)((*(LnkLI13))(car((V33))));
212          if(!((cdr((V33)))==Cnil)){          if(!((cdr((V33)))==Cnil)){
213          goto T68;}          goto T70;}
214          goto T67;          goto T69;
215          goto T68;          goto T70;
216  T68:;  T70:;
217          princ_char(44,VV[4]);          princ_char(44,VV[4]);
218          goto T67;          goto T69;
219  T67:;  T69:;
220          V33= cdr((V33));          V33= cdr((V33));
221          goto T60;}          goto T62;}
222          return Cnil;          return Cnil;
223  }  }
224  static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)(void *)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* WT1 */
225  static object  LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[11],(void **)(void *)&LnkLI11,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)(void *)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT-VS */
226    
227  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
228  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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