/[gcl]/gcl/lsp/readline.c
ViewVC logotype

Diff of /gcl/lsp/readline.c

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

revision 1.6 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.7 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 37  TTL:; Line 37  TTL:;
37          goto T11;}          goto T11;}
38          V2= (V5);          V2= (V5);
39          goto T7;          goto T7;
40  goto T11;          goto T11;
41  T11:;  T11:;
42          base[0]= coerce_to_string((V5));          base[0]= coerce_to_string((V5));
43          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
44          Lfind_package();          Lfind_package();
45          vs_top=sup;          vs_top=sup;
46          V2= vs_base[0];}          V2= vs_base[0];}
47  goto T7;          goto T7;
48  T7:;  T7:;
49          V3= Cnil;          V3= Cnil;
50          V4= Cnil;          V4= Cnil;
# Line 57  T7:; Line 57  T7:;
57          V8= vs_base[0];          V8= vs_base[0];
58          V6= make_cons((V2),V8);          V6= make_cons((V2),V8);
59          V7= car((V6));          V7= car((V6));
60  goto T20;          goto T20;
61  T20:;  T20:;
62          if(!(endp_prop((V6)))){          if(!(endp_prop((V6)))){
63          goto T21;}          goto T21;}
64          V3= Cnil;          V3= Cnil;
65          goto T6;          goto T6;
66  goto T21;          goto T21;
67  T21:;  T21:;
68          {long V9;          {long V9;
69          long V10;          long V10;
# Line 77  T21:; Line 77  T21:;
77          V10= fix(vs_base[0]);          V10= fix(vs_base[0]);
78          vs_top=sup;          vs_top=sup;
79          goto T32;          goto T32;
80  goto T30;          goto T30;
81  T30:;  T30:;
82          V9= fix(Cnil);          V9= fix(Cnil);
83  goto T31;          goto T31;
84  T31:;  T31:;
85          V10= fix(Cnil);          V10= fix(Cnil);
86  goto T32;          goto T32;
87  T32:;  T32:;
88          if(((V2))==((V7))){          if(((V2))==((V7))){
89          goto T33;}          goto T33;}
90          V10= 0;          V10= 0;
91  goto T33;          goto T33;
92  T33:;  T33:;
93          {object V11;          {object V11;
94          register object V12;          register object V12;
# Line 96  T33:; Line 96  T33:;
96          V14 = make_fixnum(V9);          V14 = make_fixnum(V9);
97          V11= number_plus(V13,V14);          V11= number_plus(V13,V14);
98          V12= small_fixnum(0);          V12= small_fixnum(0);
99  goto T40;          goto T40;
100  T40:;  T40:;
101          if(!(number_compare((V12),(V11))>=0)){          if(!(number_compare((V12),(V11))>=0)){
102          goto T41;}          goto T41;}
103          goto T27;          goto T27;
104  goto T41;          goto T41;
105  T41:;  T41:;
106          V15 = make_fixnum(V10);          V15 = make_fixnum(V10);
107          if(!(number_compare((V12),V15)<0)){          if(!(number_compare((V12),V15)<0)){
# Line 113  T41:; Line 113  T41:;
113          vs_top=sup;          vs_top=sup;
114          V4= vs_base[0];          V4= vs_base[0];
115          goto T48;          goto T48;
116  goto T50;          goto T50;
117  T50:;  T50:;
118          base[3]= (V7);          base[3]= (V7);
119          V16 = make_fixnum(V10);          V16 = make_fixnum(V10);
# Line 122  T50:; Line 122  T50:;
122          siLpackage_external();          siLpackage_external();
123          vs_top=sup;          vs_top=sup;
124          V4= vs_base[0];          V4= vs_base[0];
125  goto T48;          goto T48;
126  T48:;  T48:;
127  goto T46;          goto T46;
128  T46:;  T46:;
129          if(((V4))!=Cnil){          if(((V4))!=Cnil){
130          goto T56;}          goto T56;}
131          goto T47;          goto T47;
132  goto T56;          goto T56;
133  T56:;  T56:;
134          V3= car((V4));          V3= car((V4));
135          if(((V7))==((V2))){          if(((V7))==((V2))){
# Line 147  T56:; Line 147  T56:;
147          V17= vs_base[0];          V17= vs_base[0];
148          if(!((VV[2])==(car(V17)))){          if(!((VV[2])==(car(V17)))){
149          goto T61;}          goto T61;}
150  goto T62;          goto T62;
151  T62:;  T62:;
152          base[3]= (V3);          base[3]= (V3);
153          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 161  T62:; Line 161  T62:;
161          vs_top=sup;          vs_top=sup;
162          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
163          goto T71;}          goto T71;}
164  goto T72;          goto T72;
165  T72:;  T72:;
166          V18= symbol_name((V3));          V18= symbol_name((V3));
167          V1= make_cons(/* INLINE-ARGS */V18,(V1));          V1= make_cons(/* INLINE-ARGS */V18,(V1));
168  goto T71;          goto T71;
169  T71:;  T71:;
170  goto T61;          goto T61;
171  T61:;  T61:;
172          V4= cdr((V4));          V4= cdr((V4));
173          goto T46;          goto T46;
174  goto T47;          goto T47;
175  T47:;  T47:;
176          goto T44;          goto T44;
177  goto T44;          goto T44;
178  T44:;  T44:;
179          V12= one_plus((V12));          V12= one_plus((V12));
180          goto T40;}}          goto T40;}}
181  goto T27;          goto T27;
182  T27:;  T27:;
183          V6= cdr((V6));          V6= cdr((V6));
184          V7= car((V6));          V7= car((V6));
185          goto T20;}}          goto T20;}}
186  goto T6;          goto T6;
187  T6:;  T6:;
188          goto T5;          goto T5;
189  goto T5;          goto T5;
190  T5:;  T5:;
191          {object V19;          {object V19;
192          register object V20;          register object V20;
# Line 205  T5:; Line 205  T5:;
205          goto T96;}          goto T96;}
206          V19= (V22);          V19= (V22);
207          goto T92;          goto T92;
208  goto T96;          goto T96;
209  T96:;  T96:;
210          base[0]= coerce_to_string((V22));          base[0]= coerce_to_string((V22));
211          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
212          Lfind_package();          Lfind_package();
213          vs_top=sup;          vs_top=sup;
214          V19= vs_base[0];}          V19= vs_base[0];}
215  goto T92;          goto T92;
216  T92:;  T92:;
217          V20= Cnil;          V20= Cnil;
218          V21= Cnil;          V21= Cnil;
# Line 225  T92:; Line 225  T92:;
225          V25= vs_base[0];          V25= vs_base[0];
226          V23= make_cons((V19),V25);          V23= make_cons((V19),V25);
227          V24= car((V23));          V24= car((V23));
228  goto T105;          goto T105;
229  T105:;  T105:;
230          if(!(endp_prop((V23)))){          if(!(endp_prop((V23)))){
231          goto T106;}          goto T106;}
232          V20= Cnil;          V20= Cnil;
233          goto T91;          goto T91;
234  goto T106;          goto T106;
235  T106:;  T106:;
236          {long V26;          {long V26;
237          long V27;          long V27;
# Line 245  T106:; Line 245  T106:;
245          V27= fix(vs_base[0]);          V27= fix(vs_base[0]);
246          vs_top=sup;          vs_top=sup;
247          goto T117;          goto T117;
248  goto T115;          goto T115;
249  T115:;  T115:;
250          V26= fix(Cnil);          V26= fix(Cnil);
251  goto T116;          goto T116;
252  T116:;  T116:;
253          V27= fix(Cnil);          V27= fix(Cnil);
254  goto T117;          goto T117;
255  T117:;  T117:;
256          if(((V19))==((V24))){          if(((V19))==((V24))){
257          goto T118;}          goto T118;}
258          V27= 0;          V27= 0;
259  goto T118;          goto T118;
260  T118:;  T118:;
261          {object V28;          {object V28;
262          register object V29;          register object V29;
# Line 264  T118:; Line 264  T118:;
264          V31 = make_fixnum(V26);          V31 = make_fixnum(V26);
265          V28= number_plus(V30,V31);          V28= number_plus(V30,V31);
266          V29= small_fixnum(0);          V29= small_fixnum(0);
267  goto T125;          goto T125;
268  T125:;  T125:;
269          if(!(number_compare((V29),(V28))>=0)){          if(!(number_compare((V29),(V28))>=0)){
270          goto T126;}          goto T126;}
271          goto T112;          goto T112;
272  goto T126;          goto T126;
273  T126:;  T126:;
274          V32 = make_fixnum(V27);          V32 = make_fixnum(V27);
275          if(!(number_compare((V29),V32)<0)){          if(!(number_compare((V29),V32)<0)){
# Line 281  T126:; Line 281  T126:;
281          vs_top=sup;          vs_top=sup;
282          V21= vs_base[0];          V21= vs_base[0];
283          goto T133;          goto T133;
284  goto T135;          goto T135;
285  T135:;  T135:;
286          base[3]= (V24);          base[3]= (V24);
287          V33 = make_fixnum(V27);          V33 = make_fixnum(V27);
# Line 290  T135:; Line 290  T135:;
290          siLpackage_external();          siLpackage_external();
291          vs_top=sup;          vs_top=sup;
292          V21= vs_base[0];          V21= vs_base[0];
293  goto T133;          goto T133;
294  T133:;  T133:;
295  goto T131;          goto T131;
296  T131:;  T131:;
297          if(((V21))!=Cnil){          if(((V21))!=Cnil){
298          goto T141;}          goto T141;}
299          goto T132;          goto T132;
300  goto T141;          goto T141;
301  T141:;  T141:;
302          V20= car((V21));          V20= car((V21));
303          if(((V24))==((V19))){          if(((V24))==((V19))){
# Line 315  T141:; Line 315  T141:;
315          V34= vs_base[0];          V34= vs_base[0];
316          if(!((VV[2])==(car(V34)))){          if(!((VV[2])==(car(V34)))){
317          goto T146;}          goto T146;}
318  goto T147;          goto T147;
319  T147:;  T147:;
320          base[3]= (V20);          base[3]= (V20);
321          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 329  T147:; Line 329  T147:;
329          vs_top=sup;          vs_top=sup;
330          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
331          goto T156;}          goto T156;}
332  goto T157;          goto T157;
333  T157:;  T157:;
334          base[3]= Cnil;          base[3]= Cnil;
335          base[4]= VV[4];          base[4]= VV[4];
# Line 339  T157:; Line 339  T157:;
339          vs_top=sup;          vs_top=sup;
340          V35= vs_base[0];          V35= vs_base[0];
341          V1= make_cons(V35,(V1));          V1= make_cons(V35,(V1));
342  goto T156;          goto T156;
343  T156:;  T156:;
344  goto T146;          goto T146;
345  T146:;  T146:;
346          V21= cdr((V21));          V21= cdr((V21));
347          goto T131;          goto T131;
348  goto T132;          goto T132;
349  T132:;  T132:;
350          goto T129;          goto T129;
351  goto T129;          goto T129;
352  T129:;  T129:;
353          V29= one_plus((V29));          V29= one_plus((V29));
354          goto T125;}}          goto T125;}}
355  goto T112;          goto T112;
356  T112:;  T112:;
357          V23= cdr((V23));          V23= cdr((V23));
358          V24= car((V23));          V24= car((V23));
359          goto T105;}}          goto T105;}}
360  goto T91;          goto T91;
361  T91:;  T91:;
362          goto T90;          goto T90;
363  goto T90;          goto T90;
364  T90:;  T90:;
365          base[0]= Ct;          base[0]= Ct;
366          base[1]= VV[5];          base[1]= VV[5];
# Line 369  T90:; Line 369  T90:;
369          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
370          (void) (*Lnk0)();          (void) (*Lnk0)();
371          return;}          return;}
372  goto T2;          goto T2;
373  T2:;  T2:;
374          base[0]= Cnil;          base[0]= Cnil;
375          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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