/[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.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 18  TTL:; Line 18  TTL:;
18          vs_top=sup;          vs_top=sup;
19          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
20          goto T2;}          goto T2;}
21          {register object V1;          {object V1;
22          V1= Cnil;          V1= Cnil;
23          {object V2;          {object V2;
24          register object V3;          register object V3;
# Line 48  goto T7; Line 48  goto T7;
48  T7:;  T7:;
49          V3= Cnil;          V3= Cnil;
50          V4= Cnil;          V4= Cnil;
51          {long V6;          {object V6;
52          long V7;          object V7;
53          base[0]= (V2);          base[2]= (V2);
54          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
55          (void) (*Lnk5)();          Lpackage_use_list();
56          if(vs_base>=vs_top){vs_top=sup;goto T17;}          vs_top=sup;
57          V6= fix(vs_base[0]);          V8= vs_base[0];
58          vs_base++;          V6= make_cons((V2),V8);
59          if(vs_base>=vs_top){vs_top=sup;goto T18;}          V7= car((V6));
60          V7= fix(vs_base[0]);  goto T20;
61          vs_top=sup;  T20:;
62          goto T19;          if(!(endp_prop((V6)))){
63  goto T17;          goto T21;}
 T17:;  
         V6= fix(Cnil);  
 goto T18;  
 T18:;  
         V7= fix(Cnil);  
 goto T19;  
 T19:;  
         {object V8;  
         register object V9;  
         V10 = make_fixnum(V7);  
         V11 = make_fixnum(V6);  
         V8= number_plus(V10,V11);  
         V9= small_fixnum(0);  
 goto T23;  
 T23:;  
         if(!(number_compare((V9),(V8))>=0)){  
         goto T24;}  
64          V3= Cnil;          V3= Cnil;
65          goto T6;          goto T6;
66  goto T24;  goto T21;
67  T24:;  T21:;
68          V12 = make_fixnum(V7);          {long V9;
69          if(!(number_compare((V9),V12)<0)){          long V10;
70          goto T35;}          base[2]= (V7);
71          base[1]= (V2);          vs_top=(vs_base=base+2)+1;
72          base[2]= (V9);          (void) (*Lnk6)();
73          vs_top=(vs_base=base+1)+2;          if(vs_base>=vs_top){vs_top=sup;goto T30;}
74            V9= fix(vs_base[0]);
75            vs_base++;
76            if(vs_base>=vs_top){vs_top=sup;goto T31;}
77            V10= fix(vs_base[0]);
78            vs_top=sup;
79            goto T32;
80    goto T30;
81    T30:;
82            V9= fix(Cnil);
83    goto T31;
84    T31:;
85            V10= fix(Cnil);
86    goto T32;
87    T32:;
88            if(((V2))==((V7))){
89            goto T33;}
90            V10= 0;
91    goto T33;
92    T33:;
93            {object V11;
94            register object V12;
95            V13 = make_fixnum(V10);
96            V14 = make_fixnum(V9);
97            V11= number_plus(V13,V14);
98            V12= small_fixnum(0);
99    goto T40;
100    T40:;
101            if(!(number_compare((V12),(V11))>=0)){
102            goto T41;}
103            goto T27;
104    goto T41;
105    T41:;
106            V15 = make_fixnum(V10);
107            if(!(number_compare((V12),V15)<0)){
108            goto T50;}
109            base[3]= (V7);
110            base[4]= (V12);
111            vs_top=(vs_base=base+3)+2;
112          siLpackage_internal();          siLpackage_internal();
113          vs_top=sup;          vs_top=sup;
114          V4= vs_base[0];          V4= vs_base[0];
115          goto T33;          goto T48;
116  goto T35;  goto T50;
117  T35:;  T50:;
118          base[1]= (V2);          base[3]= (V7);
119          V13 = make_fixnum(V7);          V16 = make_fixnum(V10);
120          base[2]= number_minus((V9),V13);          base[4]= number_minus((V12),V16);
121          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
122          siLpackage_external();          siLpackage_external();
123          vs_top=sup;          vs_top=sup;
124          V4= vs_base[0];          V4= vs_base[0];
125  goto T33;  goto T48;
126  T33:;  T48:;
127  goto T31;  goto T46;
128  T31:;  T46:;
129          if(((V4))!=Cnil){          if(((V4))!=Cnil){
130          goto T41;}          goto T56;}
131          goto T32;          goto T47;
132  goto T41;  goto T56;
133  T41:;  T56:;
134          V3= car((V4));          V3= car((V4));
135          base[1]= (V3);          if(((V7))==((V2))){
136          vs_top=(vs_base=base+1)+1;          goto T62;}
137            base[4]= symbol_name((V3));
138            base[5]= (V2);
139            vs_top=(vs_base=base+4)+2;
140            Lfind_symbol();
141            Llist();
142            vs_top=sup;
143            base[3]= vs_base[0];
144            vs_top=(vs_base=base+3)+1;
145            Llast();
146            vs_top=sup;
147            V17= vs_base[0];
148            if(!((VV[2])==(car(V17)))){
149            goto T61;}
150    goto T62;
151    T62:;
152            base[3]= (V3);
153            vs_top=(vs_base=base+3)+1;
154          Lboundp();          Lboundp();
155          vs_top=sup;          vs_top=sup;
156          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
157          goto T47;}          goto T72;}
158          base[1]= (V3);          base[3]= (V3);
159          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+3)+1;
160          Lfboundp();          Lfboundp();
161          vs_top=sup;          vs_top=sup;
162          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
163          goto T46;}          goto T71;}
164    goto T72;
165    T72:;
166            V18= symbol_name((V3));
167            V1= make_cons(/* INLINE-ARGS */V18,(V1));
168    goto T71;
169    T71:;
170    goto T61;
171    T61:;
172            V4= cdr((V4));
173            goto T46;
174  goto T47;  goto T47;
175  T47:;  T47:;
176          V14= symbol_name((V3));          goto T44;
177          V1= make_cons(/* INLINE-ARGS */V14,(V1));  goto T44;
178  goto T46;  T44:;
179  T46:;          V12= one_plus((V12));
180          V4= cdr((V4));          goto T40;}}
181          goto T31;  goto T27;
182  goto T32;  T27:;
183  T32:;          V6= cdr((V6));
184          goto T29;          V7= car((V6));
185  goto T29;          goto T20;}}
 T29:;  
         V9= one_plus((V9));  
         goto T23;}}}  
186  goto T6;  goto T6;
187  T6:;  T6:;
188          goto T5;          goto T5;
189  goto T5;  goto T5;
190  T5:;  T5:;
191          {object V15;          {object V19;
192          register object V16;          register object V20;
193          register object V17;          register object V21;
194          {object V18;          {object V22;
195          base[0]= VV[2];          base[0]= VV[3];
196          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
197          Lfind_package();          Lfind_package();
198          vs_top=sup;          vs_top=sup;
199          V18= vs_base[0];          V22= vs_base[0];
200          base[0]= (V18);          base[0]= (V22);
201          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
202          Lpackagep();          Lpackagep();
203          vs_top=sup;          vs_top=sup;
204          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
205          goto T66;}          goto T96;}
206          V15= (V18);          V19= (V22);
207          goto T62;          goto T92;
208  goto T66;  goto T96;
209  T66:;  T96:;
210          base[0]= coerce_to_string((V18));          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          V15= vs_base[0];}          V19= vs_base[0];}
215  goto T62;  goto T92;
216  T62:;  T92:;
217          V16= Cnil;          V20= Cnil;
218          V17= Cnil;          V21= Cnil;
219          {long V19;          {object V23;
220          long V20;          object V24;
221          base[0]= (V15);          base[2]= (V19);
222          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
223          (void) (*Lnk5)();          Lpackage_use_list();
224          if(vs_base>=vs_top){vs_top=sup;goto T72;}          vs_top=sup;
225          V19= fix(vs_base[0]);          V25= vs_base[0];
226            V23= make_cons((V19),V25);
227            V24= car((V23));
228    goto T105;
229    T105:;
230            if(!(endp_prop((V23)))){
231            goto T106;}
232            V20= Cnil;
233            goto T91;
234    goto T106;
235    T106:;
236            {long V26;
237            long V27;
238            base[2]= (V24);
239            vs_top=(vs_base=base+2)+1;
240            (void) (*Lnk6)();
241            if(vs_base>=vs_top){vs_top=sup;goto T115;}
242            V26= fix(vs_base[0]);
243          vs_base++;          vs_base++;
244          if(vs_base>=vs_top){vs_top=sup;goto T73;}          if(vs_base>=vs_top){vs_top=sup;goto T116;}
245          V20= fix(vs_base[0]);          V27= fix(vs_base[0]);
246          vs_top=sup;          vs_top=sup;
247          goto T74;          goto T117;
248  goto T72;  goto T115;
249  T72:;  T115:;
250          V19= fix(Cnil);          V26= fix(Cnil);
251  goto T73;  goto T116;
252  T73:;  T116:;
253          V20= fix(Cnil);          V27= fix(Cnil);
254  goto T74;  goto T117;
255  T74:;  T117:;
256          {object V21;          if(((V19))==((V24))){
257          register object V22;          goto T118;}
258          V23 = make_fixnum(V20);          V27= 0;
259          V24 = make_fixnum(V19);  goto T118;
260          V21= number_plus(V23,V24);  T118:;
261          V22= small_fixnum(0);          {object V28;
262  goto T78;          register object V29;
263  T78:;          V30 = make_fixnum(V27);
264          if(!(number_compare((V22),(V21))>=0)){          V31 = make_fixnum(V26);
265          goto T79;}          V28= number_plus(V30,V31);
266          V16= Cnil;          V29= small_fixnum(0);
267          goto T61;  goto T125;
268  goto T79;  T125:;
269  T79:;          if(!(number_compare((V29),(V28))>=0)){
270          V25 = make_fixnum(V20);          goto T126;}
271          if(!(number_compare((V22),V25)<0)){          goto T112;
272          goto T90;}  goto T126;
273          base[1]= (V15);  T126:;
274          base[2]= (V22);          V32 = make_fixnum(V27);
275          vs_top=(vs_base=base+1)+2;          if(!(number_compare((V29),V32)<0)){
276            goto T135;}
277            base[3]= (V24);
278            base[4]= (V29);
279            vs_top=(vs_base=base+3)+2;
280          siLpackage_internal();          siLpackage_internal();
281          vs_top=sup;          vs_top=sup;
282          V17= vs_base[0];          V21= vs_base[0];
283          goto T88;          goto T133;
284  goto T90;  goto T135;
285  T90:;  T135:;
286          base[1]= (V15);          base[3]= (V24);
287          V26 = make_fixnum(V20);          V33 = make_fixnum(V27);
288          base[2]= number_minus((V22),V26);          base[4]= number_minus((V29),V33);
289          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
290          siLpackage_external();          siLpackage_external();
291          vs_top=sup;          vs_top=sup;
292          V17= vs_base[0];          V21= vs_base[0];
293  goto T88;  goto T133;
294  T88:;  T133:;
295  goto T86;  goto T131;
296  T86:;  T131:;
297          if(((V17))!=Cnil){          if(((V21))!=Cnil){
298          goto T96;}          goto T141;}
299          goto T87;          goto T132;
300  goto T96;  goto T141;
301  T96:;  T141:;
302          V16= car((V17));          V20= car((V21));
303          base[1]= (V16);          if(((V24))==((V19))){
304          vs_top=(vs_base=base+1)+1;          goto T147;}
305            base[4]= symbol_name((V20));
306            base[5]= (V19);
307            vs_top=(vs_base=base+4)+2;
308            Lfind_symbol();
309            Llist();
310            vs_top=sup;
311            base[3]= vs_base[0];
312            vs_top=(vs_base=base+3)+1;
313            Llast();
314            vs_top=sup;
315            V34= vs_base[0];
316            if(!((VV[2])==(car(V34)))){
317            goto T146;}
318    goto T147;
319    T147:;
320            base[3]= (V20);
321            vs_top=(vs_base=base+3)+1;
322          Lboundp();          Lboundp();
323          vs_top=sup;          vs_top=sup;
324          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
325          goto T102;}          goto T157;}
326          base[1]= (V16);          base[3]= (V20);
327          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+3)+1;
328          Lfboundp();          Lfboundp();
329          vs_top=sup;          vs_top=sup;
330          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
331          goto T101;}          goto T156;}
332  goto T102;  goto T157;
333  T102:;  T157:;
334          base[1]= Cnil;          base[3]= Cnil;
335          base[2]= VV[3];          base[4]= VV[4];
336          base[3]= (V16);          base[5]= (V20);
337          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+3)+3;
338          Lformat();          Lformat();
339          vs_top=sup;          vs_top=sup;
340          V27= vs_base[0];          V35= vs_base[0];
341          V1= make_cons(V27,(V1));          V1= make_cons(V35,(V1));
342  goto T101;  goto T156;
343  T101:;  T156:;
344          V17= cdr((V17));  goto T146;
345          goto T86;  T146:;
346  goto T87;          V21= cdr((V21));
347  T87:;          goto T131;
348          goto T84;  goto T132;
349  goto T84;  T132:;
350  T84:;          goto T129;
351          V22= one_plus((V22));  goto T129;
352          goto T78;}}}  T129:;
353  goto T61;          V29= one_plus((V29));
354  T61:;          goto T125;}}
355          goto T60;  goto T112;
356  goto T60;  T112:;
357  T60:;          V23= cdr((V23));
358            V24= car((V23));
359            goto T105;}}
360    goto T91;
361    T91:;
362            goto T90;
363    goto T90;
364    T90:;
365          base[0]= Ct;          base[0]= Ct;
366          base[1]= VV[4];          base[1]= VV[5];
367          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
368          base[3]= (V1);          base[3]= (V1);
369          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
# Line 286  T2:; Line 376  T2:;
376          return;          return;
377  }  }
378  static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */  static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */
379  static void LnkT5(){ call_or_link(VV[5],(void **)&Lnk5);} /* PACKAGE-SIZE */  static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PACKAGE-SIZE */
380    
381  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
382  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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