/[gcl]/gcl/mod/gcl_readline.c
ViewVC logotype

Diff of /gcl/mod/gcl_readline.c

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

revision 1.1 by camm, Tue Sep 23 21:50:20 2003 UTC revision 1.2 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 58  T10:; Line 58  T10:;
58          V4= Cnil;          V4= Cnil;
59          {object V6;          {object V6;
60          object V7;          object V7;
61            V8 = (V2);
62          base[2]= (V2);          base[2]= (V2);
63          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
64          Lpackage_use_list();          Lpackage_use_list();
65          vs_top=sup;          vs_top=sup;
66          V8= vs_base[0];          V9= vs_base[0];
67          V6= make_cons((V2),V8);          V6= make_cons(V8,V9);
68          V7= CMPcar((V6));          V7= CMPcar((V6));
69          goto T27;          goto T27;
70  T27:;  T27:;
# Line 73  T27:; Line 74  T27:;
74          goto T6;          goto T6;
75          goto T28;          goto T28;
76  T28:;  T28:;
77          {long V9;          {long V10;
78          long V10;          long V11;
79          base[2]= (V7);          base[2]= (V7);
80          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
81          (void) (*Lnk9)();          (void) (*Lnk9)();
82          if(vs_base>=vs_top){vs_top=sup;goto T37;}          if(vs_base>=vs_top){vs_top=sup;goto T37;}
83          V9= fix(vs_base[0]);          V10= fix(vs_base[0]);
84          vs_base++;          vs_base++;
85          if(vs_base>=vs_top){vs_top=sup;goto T38;}          if(vs_base>=vs_top){vs_top=sup;goto T38;}
86          V10= fix(vs_base[0]);          V11= fix(vs_base[0]);
87          vs_top=sup;          vs_top=sup;
88          goto T39;          goto T39;
89          goto T37;          goto T37;
90  T37:;  T37:;
91          V9= fix(Cnil);          V10= fix(Cnil);
92          goto T38;          goto T38;
93  T38:;  T38:;
94          V10= fix(Cnil);          V11= fix(Cnil);
95          goto T39;          goto T39;
96  T39:;  T39:;
97          if(((V2))==((V7))){          if(((V2))==((V7))){
98          goto T40;}          goto T40;}
99          V10= 0;          V11= 0;
100          goto T40;          goto T40;
101  T40:;  T40:;
102          {object V11;          {object V12;
103          register object V12;          register object V13;
104          V13 = CMPmake_fixnum(V10);          V14 = CMPmake_fixnum(V11);
105          V14 = CMPmake_fixnum(V9);          V15 = CMPmake_fixnum(V10);
106          V11= number_plus(V13,V14);          V12= number_plus(V14,V15);
107          V12= small_fixnum(0);          V13= small_fixnum(0);
108          goto T47;          goto T47;
109  T47:;  T47:;
110          if(!(number_compare((V12),(V11))>=0)){          if(!(number_compare((V13),(V12))>=0)){
111          goto T48;}          goto T48;}
112          goto T34;          goto T34;
113          goto T48;          goto T48;
114  T48:;  T48:;
115          V15 = CMPmake_fixnum(V10);          V16 = CMPmake_fixnum(V11);
116          if(!(number_compare((V12),V15)<0)){          if(!(number_compare((V13),V16)<0)){
117          goto T57;}          goto T57;}
118          base[3]= (V7);          base[3]= (V7);
119          base[4]= (V12);          base[4]= (V13);
120          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
121          siLpackage_internal();          siLpackage_internal();
122          vs_top=sup;          vs_top=sup;
# Line 124  T48:; Line 125  T48:;
125          goto T57;          goto T57;
126  T57:;  T57:;
127          base[3]= (V7);          base[3]= (V7);
128          V16 = CMPmake_fixnum(V10);          V17 = CMPmake_fixnum(V11);
129          base[4]= number_minus((V12),V16);          base[4]= number_minus((V13),V17);
130          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
131          siLpackage_external();          siLpackage_external();
132          vs_top=sup;          vs_top=sup;
# Line 152  T63:; Line 153  T63:;
153          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
154          Llast();          Llast();
155          vs_top=sup;          vs_top=sup;
156          V17= vs_base[0];          V18= vs_base[0];
157          if(!((VV[4])==(CMPcar(V17)))){          if(!((VV[4])==(CMPcar(V18)))){
158          goto T68;}          goto T68;}
159          goto T69;          goto T69;
160  T69:;  T69:;
# Line 167  T69:; Line 168  T69:;
168          goto T78;}          goto T78;}
169          goto T79;          goto T79;
170  T79:;  T79:;
171          V18= symbol_name((V3));          V19= symbol_name((V3));
172          V1= make_cons(/* INLINE-ARGS */V18,(V1));          V1= make_cons(/* INLINE-ARGS */V19,(V1));
173          goto T78;          goto T78;
174  T78:;  T78:;
175          goto T68;          goto T68;
# Line 180  T54:; Line 181  T54:;
181          goto T51;          goto T51;
182          goto T51;          goto T51;
183  T51:;  T51:;
184          V12= one_plus((V12));          V13= one_plus((V13));
185          goto T47;}}          goto T47;}}
186          goto T34;          goto T34;
187  T34:;  T34:;
# Line 192  T6:; Line 193  T6:;
193          goto T5;          goto T5;
194          goto T5;          goto T5;
195  T5:;  T5:;
196          {object V19;          {object V20;
         register object V20;  
197          register object V21;          register object V21;
198          {object V22;          register object V22;
199            {object V23;
200          base[0]= VV[5];          base[0]= VV[5];
201          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
202          Lfind_package();          Lfind_package();
203          vs_top=sup;          vs_top=sup;
204          V22= vs_base[0];          V23= vs_base[0];
205          base[0]= (V22);          base[0]= (V23);
206          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
207          Lpackagep();          Lpackagep();
208          vs_top=sup;          vs_top=sup;
209          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
210          goto T101;}          goto T101;}
211          base[0]= coerce_to_string((V22));          base[0]= coerce_to_string((V23));
212          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
213          Lfind_package();          Lfind_package();
214          vs_top=sup;          vs_top=sup;
215          V22= vs_base[0];          V23= vs_base[0];
216          if(((V22))!=Cnil){          if(((V23))!=Cnil){
217          goto T101;}          goto T101;}
218          base[0]= VV[2];          base[0]= VV[2];
219          base[1]= VV[3];          base[1]= VV[3];
# Line 226  T5:; Line 227  T5:;
227          vs_top=sup;          vs_top=sup;
228          goto T101;          goto T101;
229  T101:;  T101:;
230          V19= (V22);}          V20= (V23);}
         V20= Cnil;  
231          V21= Cnil;          V21= Cnil;
232          {object V23;          V22= Cnil;
233          object V24;          {object V24;
234          base[2]= (V19);          object V25;
235            V26 = (V20);
236            base[2]= (V20);
237          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
238          Lpackage_use_list();          Lpackage_use_list();
239          vs_top=sup;          vs_top=sup;
240          V25= vs_base[0];          V27= vs_base[0];
241          V23= make_cons((V19),V25);          V24= make_cons(V26,V27);
242          V24= CMPcar((V23));          V25= CMPcar((V24));
243          goto T118;          goto T118;
244  T118:;  T118:;
245          if(!(((V23))==Cnil)){          if(!(((V24))==Cnil)){
246          goto T119;}          goto T119;}
247          V20= Cnil;          V21= Cnil;
248          goto T97;          goto T97;
249          goto T119;          goto T119;
250  T119:;  T119:;
251          {long V26;          {long V28;
252          long V27;          long V29;
253          base[2]= (V24);          base[2]= (V25);
254          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
255          (void) (*Lnk9)();          (void) (*Lnk9)();
256          if(vs_base>=vs_top){vs_top=sup;goto T128;}          if(vs_base>=vs_top){vs_top=sup;goto T128;}
257          V26= fix(vs_base[0]);          V28= fix(vs_base[0]);
258          vs_base++;          vs_base++;
259          if(vs_base>=vs_top){vs_top=sup;goto T129;}          if(vs_base>=vs_top){vs_top=sup;goto T129;}
260          V27= fix(vs_base[0]);          V29= fix(vs_base[0]);
261          vs_top=sup;          vs_top=sup;
262          goto T130;          goto T130;
263          goto T128;          goto T128;
264  T128:;  T128:;
265          V26= fix(Cnil);          V28= fix(Cnil);
266          goto T129;          goto T129;
267  T129:;  T129:;
268          V27= fix(Cnil);          V29= fix(Cnil);
269          goto T130;          goto T130;
270  T130:;  T130:;
271          if(((V19))==((V24))){          if(((V20))==((V25))){
272          goto T131;}          goto T131;}
273          V27= 0;          V29= 0;
274          goto T131;          goto T131;
275  T131:;  T131:;
276          {object V28;          {object V30;
277          register object V29;          register object V31;
278          V30 = CMPmake_fixnum(V27);          V32 = CMPmake_fixnum(V29);
279          V31 = CMPmake_fixnum(V26);          V33 = CMPmake_fixnum(V28);
280          V28= number_plus(V30,V31);          V30= number_plus(V32,V33);
281          V29= small_fixnum(0);          V31= small_fixnum(0);
282          goto T138;          goto T138;
283  T138:;  T138:;
284          if(!(number_compare((V29),(V28))>=0)){          if(!(number_compare((V31),(V30))>=0)){
285          goto T139;}          goto T139;}
286          goto T125;          goto T125;
287          goto T139;          goto T139;
288  T139:;  T139:;
289          V32 = CMPmake_fixnum(V27);          V34 = CMPmake_fixnum(V29);
290          if(!(number_compare((V29),V32)<0)){          if(!(number_compare((V31),V34)<0)){
291          goto T148;}          goto T148;}
292          base[3]= (V24);          base[3]= (V25);
293          base[4]= (V29);          base[4]= (V31);
294          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
295          siLpackage_internal();          siLpackage_internal();
296          vs_top=sup;          vs_top=sup;
297          V21= vs_base[0];          V22= vs_base[0];
298          goto T146;          goto T146;
299          goto T148;          goto T148;
300  T148:;  T148:;
301          base[3]= (V24);          base[3]= (V25);
302          V33 = CMPmake_fixnum(V27);          V35 = CMPmake_fixnum(V29);
303          base[4]= number_minus((V29),V33);          base[4]= number_minus((V31),V35);
304          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
305          siLpackage_external();          siLpackage_external();
306          vs_top=sup;          vs_top=sup;
307          V21= vs_base[0];          V22= vs_base[0];
308          goto T146;          goto T146;
309  T146:;  T146:;
310          goto T144;          goto T144;
311  T144:;  T144:;
312          if(((V21))!=Cnil){          if(((V22))!=Cnil){
313          goto T154;}          goto T154;}
314          goto T145;          goto T145;
315          goto T154;          goto T154;
316  T154:;  T154:;
317          V20= CMPcar((V21));          V21= CMPcar((V22));
318          if(((V24))==((V19))){          if(((V25))==((V20))){
319          goto T160;}          goto T160;}
320          base[4]= symbol_name((V20));          base[4]= symbol_name((V21));
321          base[5]= (V19);          base[5]= (V20);
322          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
323          Lfind_symbol();          Lfind_symbol();
324          Llist();          Llist();
# Line 325  T154:; Line 327  T154:;
327          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
328          Llast();          Llast();
329          vs_top=sup;          vs_top=sup;
330          V34= vs_base[0];          V36= vs_base[0];
331          if(!((VV[4])==(CMPcar(V34)))){          if(!((VV[4])==(CMPcar(V36)))){
332          goto T159;}          goto T159;}
333          goto T160;          goto T160;
334  T160:;  T160:;
335          if(((V20))->s.s_dbind!=OBJNULL){          if(((V21))->s.s_dbind!=OBJNULL){
336          goto T170;}          goto T170;}
337          base[3]= (V20);          base[3]= (V21);
338          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
339          Lfboundp();          Lfboundp();
340          vs_top=sup;          vs_top=sup;
# Line 342  T160:; Line 344  T160:;
344  T170:;  T170:;
345          base[3]= Cnil;          base[3]= Cnil;
346          base[4]= VV[6];          base[4]= VV[6];
347          base[5]= (V20);          base[5]= (V21);
348          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
349          Lformat();          Lformat();
350          vs_top=sup;          vs_top=sup;
351          V35= vs_base[0];          V37= vs_base[0];
352          V1= make_cons(V35,(V1));          V38 = (V1);
353            V1= make_cons(V37,V38);
354          goto T169;          goto T169;
355  T169:;  T169:;
356          goto T159;          goto T159;
357  T159:;  T159:;
358          V21= CMPcdr((V21));          V22= CMPcdr((V22));
359          goto T144;          goto T144;
360          goto T145;          goto T145;
361  T145:;  T145:;
362          goto T142;          goto T142;
363          goto T142;          goto T142;
364  T142:;  T142:;
365          V29= one_plus((V29));          V31= one_plus((V31));
366          goto T138;}}          goto T138;}}
367          goto T125;          goto T125;
368  T125:;  T125:;
369          V23= CMPcdr((V23));          V24= CMPcdr((V24));
370          V24= CMPcar((V23));          V25= CMPcar((V24));
371          goto T118;}}          goto T118;}}
372          goto T97;          goto T97;
373  T97:;  T97:;

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

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