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

Diff of /gcl/cmpnew/gcl_cmpvs.c

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

revision 1.2 by camm, Sun Sep 14 02:43:02 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC
# Line 10  static object LI1() Line 10  static object LI1()
10          goto TTL;          goto TTL;
11  TTL:;  TTL:;
12          {object V1;          {object V1;
13          V1= make_cons(symbol_value(VV[0]),symbol_value(VV[1]));          V1= make_cons((VV[0]->s.s_dbind),(VV[1]->s.s_dbind));
14          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          (VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1));
15          setq(VV[2],(number_compare(symbol_value(VV[1]),symbol_value(VV[2]))>=0?(symbol_value(VV[1])):symbol_value(VV[2])));          (VV[2]->s.s_dbind)= (number_compare((VV[1]->s.s_dbind),(VV[2]->s.s_dbind))>=0?((VV[1]->s.s_dbind)):(VV[2]->s.s_dbind));
16          {object V2 = (V1);          {object V2 = (V1);
17          VMR1(V2)}}          VMR1(V2)}}
18          return Cnil;          return Cnil;
# Line 27  register object V5;object V6; Line 27  register object V5;object V6;
27  TTL:;  TTL:;
28          if(!(type_of((V5))==t_cons)){          if(!(type_of((V5))==t_cons)){
29          goto T6;}          goto T6;}
30          if(!((car((V5)))==(VV[3]))){          if(!((CMPcar((V5)))==(VV[3]))){
31          goto T6;}          goto T6;}
32          if(equal(cadr((V5)),(V6))){          if(equal(CMPcadr((V5)),(V6))){
33          goto T7;}          goto T7;}
34          goto T6;          goto T6;
35  T6:;  T6:;
# Line 54  register object V10; Line 54  register object V10;
54  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
55          goto TTL;          goto TTL;
56  TTL:;  TTL:;
57          if(!((car((V10)))==(VV[5]))){          if(!((CMPcar((V10)))==(VV[5]))){
58          goto T19;}          goto T19;}
59          princ_char(86,VV[4]);          princ_char(86,VV[4]);
60          (void)((*(LnkLI13))(cadr((V10))));          (void)((*(LnkLI13))(CMPcadr((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(!((CMPcar((V10)))==(VV[6]))){
66          goto T24;}          goto T24;}
67          setq(VV[7],Ct);          (VV[7]->s.s_dbind)= Ct;
68          princ_str("Vcs[",VV[4]);          princ_str("Vcs[",VV[4]);
69          (void)((*(LnkLI13))(cdr((V10))));          (void)((*(LnkLI13))(CMPcdr((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(CMPcar((V10)),(VV[0]->s.s_dbind))==0)){
76          goto T32;}          goto T32;}
77          princ_str("base[",VV[4]);          princ_str("base[",VV[4]);
78          (void)((*(LnkLI13))(cdr((V10))));          (void)((*(LnkLI13))(CMPcdr((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 T32;          goto T32;
83  T32:;  T32:;
84          princ_str("base",VV[4]);          princ_str("base",VV[4]);
85          (void)((*(LnkLI13))(car((V10))));          (void)((*(LnkLI13))(CMPcar((V10))));
86          princ_char(91,VV[4]);          princ_char(91,VV[4]);
87          (void)((*(LnkLI13))(cdr((V10))));          (void)((*(LnkLI13))(CMPcdr((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 114  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[8]),(V19));          V20= number_minus((VV[8]->s.s_dbind),(V19));
118          (void)((*(LnkLI13))(/* 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;
# Line 129  object V23; Line 129  object V23;
129  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
130          goto TTL;          goto TTL;
131  TTL:;  TTL:;
132          setq(VV[9],(V23));          (VV[9]->s.s_dbind)= (V23);
133          {object V24 = symbol_value(VV[9]);          {object V24 = (VV[9]->s.s_dbind);
134          VMR6(V24)}          VMR6(V24)}
135          return Cnil;          return Cnil;
136  }  }
# Line 149  static object LI7(object first,...) Line 149  static object LI7(object first,...)
149          --narg; goto T51;          --narg; goto T51;
150          goto T50;          goto T50;
151  T50:;  T50:;
152          V25= symbol_value(VV[9]);          V25= (VV[9]->s.s_dbind);
153          goto T51;          goto T51;
154  T51:;  T51:;
155          if(((V25))!=Cnil){          if(((V25))!=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[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          (VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1));
175          {object V28 = symbol_value(VV[10]);          {object V28 = (VV[10]->s.s_dbind);
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[11]));          V29= make_cons(VV[6],(VV[11]->s.s_dbind));
188          setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));          (VV[11]->s.s_dbind)= number_plus((VV[11]->s.s_dbind),small_fixnum(1));
189          {object V30 = (V29);          {object V30 = (V29);
190          VMR9(V30)}}          VMR9(V30)}}
191          return Cnil;          return Cnil;
# Line 208  T62:; Line 208  T62:;
208          VMR10(V34)}          VMR10(V34)}
209          goto T63;          goto T63;
210  T63:;  T63:;
211          (void)((*(LnkLI13))(car((V33))));          (void)((*(LnkLI13))(CMPcar((V33))));
212          if(!((cdr((V33)))==Cnil)){          if(!((CMPcdr((V33)))==Cnil)){
213          goto T70;}          goto T70;}
214          goto T69;          goto T69;
215          goto T70;          goto T70;
# Line 217  T70:; Line 217  T70:;
217          princ_char(44,VV[4]);          princ_char(44,VV[4]);
218          goto T69;          goto T69;
219  T69:;  T69:;
220          V33= cdr((V33));          V33= CMPcdr((V33));
221          goto T62;}          goto T62;}
222          return Cnil;          return Cnil;
223  }  }

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