/[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.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpvs.h"  #include "cmpvs.h"
4  init_cmpvs(){do_init(VV);}  void init_cmpvs(){do_init(VV);}
5  /*      local entry for function VS-PUSH        */  /*      local entry for function VS-PUSH        */
6    
7  static object LI1()  static object LI1()
8    
9  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
10    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(symbol_value(VV[0]),symbol_value(VV[1]));
# Line 14  TTL:; Line 15  TTL:;
15          setq(VV[2],(number_compare(symbol_value(VV[1]),symbol_value(VV[2]))>=0?(symbol_value(VV[1])):symbol_value(VV[2])));          setq(VV[2],(number_compare(symbol_value(VV[1]),symbol_value(VV[2]))>=0?(symbol_value(VV[1])):symbol_value(VV[2])));
16          {object V2 = (V1);          {object V2 = (V1);
17          VMR1(V2)}}          VMR1(V2)}}
18            return Cnil;
19  }  }
20  /*      local entry for function SET-VS */  /*      local entry for function SET-VS */
21    
# Line 21  static object LI2(V5,V6) Line 23  static object LI2(V5,V6)
23    
24  register object V5;object V6;  register object V5;object V6;
25  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
26    goto TTL;
27  TTL:;  TTL:;
28          if(!(type_of((V5))==t_cons)){          if(!(type_of((V5))==t_cons)){
29          goto T6;}          goto T6;}
# Line 28  TTL:; Line 31  TTL:;
31          goto T6;}          goto T6;}
32          if(equal(cadr((V5)),(V6))){          if(equal(cadr((V5)),(V6))){
33          goto T7;}          goto T7;}
34    goto T6;
35  T6:;  T6:;
36          princ_str("\n   ",VV[4]);          princ_str("\n   ",VV[4]);
37          (void)((*(LnkLI11))((V6)));          (void)((*(LnkLI11))((V6)));
# Line 36  T6:; Line 40  T6:;
40          princ_char(59,VV[4]);          princ_char(59,VV[4]);
41          {object V7 = Cnil;          {object V7 = Cnil;
42          VMR2(V7)}          VMR2(V7)}
43    goto T7;
44  T7:;  T7:;
45          {object V8 = Cnil;          {object V8 = Cnil;
46          VMR2(V8)}          VMR2(V8)}
47            return Cnil;
48  }  }
49  /*      local entry for function WT-VS  */  /*      local entry for function WT-VS  */
50    
# Line 46  static object LI3(V10) Line 52  static object LI3(V10)
52    
53  register object V10;  register object V10;
54  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
55    goto TTL;
56  TTL:;  TTL:;
57          if(!((car((V10)))==(VV[5]))){          if(!((car((V10)))==(VV[5]))){
58          goto T19;}          goto T19;}
# Line 53  TTL:; Line 60  TTL:;
60          (void)((*(LnkLI12))(cadr((V10))));          (void)((*(LnkLI12))(cadr((V10))));
61          {object V11 = Cnil;          {object V11 = Cnil;
62          VMR3(V11)}          VMR3(V11)}
63    goto T19;
64  T19:;  T19:;
65          if(!((car((V10)))==(VV[6]))){          if(!((car((V10)))==(VV[6]))){
66          goto T24;}          goto T24;}
# Line 61  T19:; Line 69  T19:;
69          princ_char(93,VV[4]);          princ_char(93,VV[4]);
70          {object V12 = Cnil;          {object V12 = Cnil;
71          VMR3(V12)}          VMR3(V12)}
72    goto T24;
73  T24:;  T24:;
74          if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){          if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){
75          goto T30;}          goto T30;}
# Line 69  T24:; Line 78  T24:;
78          princ_char(93,VV[4]);          princ_char(93,VV[4]);
79          {object V13 = Cnil;          {object V13 = Cnil;
80          VMR3(V13)}          VMR3(V13)}
81    goto T30;
82  T30:;  T30:;
83          princ_str("base",VV[4]);          princ_str("base",VV[4]);
84          (void)((*(LnkLI12))(car((V10))));          (void)((*(LnkLI12))(car((V10))));
# Line 77  T30:; Line 87  T30:;
87          princ_char(93,VV[4]);          princ_char(93,VV[4]);
88          {object V14 = Cnil;          {object V14 = Cnil;
89          VMR3(V14)}          VMR3(V14)}
90            return Cnil;
91  }  }
92  /*      local entry for function WT-VS* */  /*      local entry for function WT-VS* */
93    
# Line 84  static object LI4(V16) Line 95  static object LI4(V16)
95    
96  object V16;  object V16;
97  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
98    goto TTL;
99  TTL:;  TTL:;
100          princ_char(40,VV[4]);          princ_char(40,VV[4]);
101          (void)((*(LnkLI11))((V16)));          (void)((*(LnkLI11))((V16)));
102          princ_str("->c.c_car)",VV[4]);          princ_str("->c.c_car)",VV[4]);
103          {object V17 = Cnil;          {object V17 = Cnil;
104          VMR4(V17)}          VMR4(V17)}
105            return Cnil;
106  }  }
107  /*      local entry for function WT-CCB-VS      */  /*      local entry for function WT-CCB-VS      */
108    
# Line 97  static object LI5(V19) Line 110  static object LI5(V19)
110    
111  object V19;  object V19;
112  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
113    goto TTL;
114  TTL:;  TTL:;
115          princ_str("(base0[",VV[4]);          princ_str("(base0[",VV[4]);
116          V20= number_minus(symbol_value(VV[7]),(V19));          V20= number_minus(symbol_value(VV[7]),(V19));
# Line 104  TTL:; Line 118  TTL:;
118          princ_str("]->c.c_car)",VV[4]);          princ_str("]->c.c_car)",VV[4]);
119          {object V21 = Cnil;          {object V21 = Cnil;
120          VMR5(V21)}          VMR5(V21)}
121            return Cnil;
122  }  }
123  /*      local entry for function CLINK  */  /*      local entry for function CLINK  */
124    
# Line 111  static object LI6(V23) Line 126  static object LI6(V23)
126    
127  object V23;  object V23;
128  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
129    goto TTL;
130  TTL:;  TTL:;
131          setq(VV[8],(V23));          setq(VV[8],(V23));
132          {object V24 = symbol_value(VV[8]);          {object V24 = symbol_value(VV[8]);
133          VMR6(V24)}          VMR6(V24)}
134            return Cnil;
135  }  }
136  /*      local entry for function WT-CLINK       */  /*      local entry for function WT-CLINK       */
137    
# Line 124  static object LI7(va_alist) Line 141  static object LI7(va_alist)
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;
144            Vcs[0]=Vcs[0];
145            va_start(ap);
146          narg = narg - 0;          narg = narg - 0;
147          if (narg <= 0) goto T48;          if (narg <= 0) goto T48;
148          else {          else {
         va_start(ap);  
149          V25= va_arg(ap,object);}          V25= va_arg(ap,object);}
150          --narg; goto T49;          --narg; goto T49;
151    goto T48;
152  T48:;  T48:;
153          V25= symbol_value(VV[8]);          V25= symbol_value(VV[8]);
154    goto T49;
155  T49:;  T49:;
156          if(((V25))!=Cnil){          if(((V25))!=Cnil){
157          goto T52;}          goto T52;}
158          princ_str("Cnil",VV[4]);          princ_str("Cnil",VV[4]);
159          {object V26 = Cnil;          {object V26 = Cnil;
160          VMR7(V26)}          VMR7(V26)}
161    goto T52;
162  T52:;  T52:;
163          {object V27 = (*(LnkLI11))((V25));          {object V27 = (*(LnkLI11))((V25));
164          VMR7(V27)}}          VMR7(V27)}
165            va_end(ap);
166            return Cnil;}
167          }          }
168  /*      local entry for function CCB-VS-PUSH    */  /*      local entry for function CCB-VS-PUSH    */
169    
170  static object LI8()  static object LI8()
171    
172  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
173    goto TTL;
174  TTL:;  TTL:;
175          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
176          {object V28 = symbol_value(VV[9]);          {object V28 = symbol_value(VV[9]);
177          VMR8(V28)}          VMR8(V28)}
178            return Cnil;
179  }  }
180  /*      local entry for function CVS-PUSH       */  /*      local entry for function CVS-PUSH       */
181    
182  static object LI9()  static object LI9()
183    
184  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
185    goto TTL;
186  TTL:;  TTL:;
187          {object V29;          {object V29;
188          V29= make_cons(VV[6],symbol_value(VV[10]));          V29= make_cons(VV[6],symbol_value(VV[10]));
189          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
190          {object V30 = (V29);          {object V30 = (V29);
191          VMR9(V30)}}          VMR9(V30)}}
192            return Cnil;
193  }  }
194  /*      local entry for function WT-LIST        */  /*      local entry for function WT-LIST        */
195    
# Line 170  static object LI10(V32) Line 197  static object LI10(V32)
197    
198  object V32;  object V32;
199  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
200    goto TTL;
201  TTL:;  TTL:;
202          {register object V33;          {register object V33;
203          V33= (V32);          V33= (V32);
204    goto T60;
205  T60:;  T60:;
206          if(((V33))!=Cnil){          if(((V33))!=Cnil){
207          goto T61;}          goto T61;}
208          {object V34 = Cnil;          {object V34 = Cnil;
209          VMR10(V34)}          VMR10(V34)}
210    goto T61;
211  T61:;  T61:;
212          (void)((*(LnkLI12))(car((V33))));          (void)((*(LnkLI12))(car((V33))));
213          if(!((cdr((V33)))==Cnil)){          if(!((cdr((V33)))==Cnil)){
214          goto T68;}          goto T68;}
215          goto T67;          goto T67;
216    goto T68;
217  T68:;  T68:;
218          princ_char(44,VV[4]);          princ_char(44,VV[4]);
219    goto T67;
220  T67:;  T67:;
221          V33= cdr((V33));          V33= cdr((V33));
222          goto T60;}          goto T60;}
223            return Cnil;
224  }  }
225  static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* WT1 */  static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],(void **)&LnkLI12,1,ap);} /* WT1 */
226  static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[11],&LnkLI11,1,ap);} /* WT-VS */  static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[11],(void **)&LnkLI11,1,ap);} /* WT-VS */
227    
228  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
229  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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