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

Diff of /gcl/mod/gcl_make_defpackage.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 175  T65:; Line 175  T65:;
175          V25= Cnil;          V25= Cnil;
176          {object V27;          {object V27;
177          register object V28;          register object V28;
178            V29 = (V23);
179          base[7]= (V23);          base[7]= (V23);
180          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
181          Lpackage_use_list();          Lpackage_use_list();
182          vs_top=sup;          vs_top=sup;
183          V29= vs_base[0];          V30= vs_base[0];
184          V27= make_cons((V23),V29);          V27= make_cons(V29,V30);
185          V28= CMPcar((V27));          V28= CMPcar((V27));
186          goto T81;          goto T81;
187  T81:;  T81:;
# Line 190  T81:; Line 191  T81:;
191          goto T63;          goto T63;
192          goto T82;          goto T82;
193  T82:;  T82:;
194          {long V30;          {long V31;
195          long V31;          long V32;
196          base[7]= (V28);          base[7]= (V28);
197          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
198          (void) (*Lnk12)();          (void) (*Lnk12)();
199          if(vs_base>=vs_top){vs_top=sup;goto T91;}          if(vs_base>=vs_top){vs_top=sup;goto T91;}
200          V30= fix(vs_base[0]);          V31= fix(vs_base[0]);
201          vs_base++;          vs_base++;
202          if(vs_base>=vs_top){vs_top=sup;goto T92;}          if(vs_base>=vs_top){vs_top=sup;goto T92;}
203          V31= fix(vs_base[0]);          V32= fix(vs_base[0]);
204          vs_top=sup;          vs_top=sup;
205          goto T93;          goto T93;
206          goto T91;          goto T91;
207  T91:;  T91:;
208          V30= fix(Cnil);          V31= fix(Cnil);
209          goto T92;          goto T92;
210  T92:;  T92:;
211          V31= fix(Cnil);          V32= fix(Cnil);
212          goto T93;          goto T93;
213  T93:;  T93:;
214          if(((V23))==((V28))){          if(((V23))==((V28))){
215          goto T94;}          goto T94;}
216          V31= 0;          V32= 0;
217          goto T94;          goto T94;
218  T94:;  T94:;
219          {object V32;          {object V33;
220          register object V33;          register object V34;
221          V34 = CMPmake_fixnum(V31);          V35 = CMPmake_fixnum(V32);
222          V35 = CMPmake_fixnum(V30);          V36 = CMPmake_fixnum(V31);
223          V32= number_plus(V34,V35);          V33= number_plus(V35,V36);
224          V33= small_fixnum(0);          V34= small_fixnum(0);
225          goto T101;          goto T101;
226  T101:;  T101:;
227          if(!(number_compare((V33),(V32))>=0)){          if(!(number_compare((V34),(V33))>=0)){
228          goto T102;}          goto T102;}
229          goto T88;          goto T88;
230          goto T102;          goto T102;
231  T102:;  T102:;
232          V36 = CMPmake_fixnum(V31);          V37 = CMPmake_fixnum(V32);
233          if(!(number_compare((V33),V36)<0)){          if(!(number_compare((V34),V37)<0)){
234          goto T111;}          goto T111;}
235          base[8]= (V28);          base[8]= (V28);
236          base[9]= (V33);          base[9]= (V34);
237          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
238          siLpackage_internal();          siLpackage_internal();
239          vs_top=sup;          vs_top=sup;
# Line 241  T102:; Line 242  T102:;
242          goto T111;          goto T111;
243  T111:;  T111:;
244          base[8]= (V28);          base[8]= (V28);
245          V37 = CMPmake_fixnum(V31);          V38 = CMPmake_fixnum(V32);
246          base[9]= number_minus((V33),V37);          base[9]= number_minus((V34),V38);
247          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
248          siLpackage_external();          siLpackage_external();
249          vs_top=sup;          vs_top=sup;
# Line 269  T117:; Line 270  T117:;
270          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
271          Llast();          Llast();
272          vs_top=sup;          vs_top=sup;
273          V38= vs_base[0];          V39= vs_base[0];
274          if(!((VV[2])==(CMPcar(V38)))){          if(!((VV[2])==(CMPcar(V39)))){
275          goto T122;}          goto T122;}
276          goto T123;          goto T123;
277  T123:;  T123:;
278            V40 = (V3);
279          base[8]= (V24);          base[8]= (V24);
280          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
281          Lsymbol_package();          Lsymbol_package();
282          vs_top=sup;          vs_top=sup;
283          V39= vs_base[0];          V41= vs_base[0];
284          if(((V3))==(V39)){          if((V40)==(V41)){
285          goto T132;}          goto T132;}
286          base[9]= (V24);          base[9]= (V24);
287          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 304  T108:; Line 306  T108:;
306          goto T105;          goto T105;
307          goto T105;          goto T105;
308  T105:;  T105:;
309          V33= one_plus((V33));          V34= one_plus((V34));
310          goto T101;}}          goto T101;}}
311          goto T88;          goto T88;
312  T88:;  T88:;
# Line 331  T63:; Line 333  T63:;
333          (void) (*Lnk15)();          (void) (*Lnk15)();
334          vs_top=sup;          vs_top=sup;
335          V13= vs_base[0];          V13= vs_base[0];
336            V43 = (V4);
337          if(((V5))==Cnil){          if(((V5))==Cnil){
338          goto T168;}          goto T168;}
339          V42= make_cons(VV[4],(V5));          V45= make_cons(VV[4],(V5));
340          base[5]= make_cons(/* INLINE-ARGS */V42,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V45,Cnil);
341          goto T166;          goto T166;
342          goto T168;          goto T168;
343  T168:;  T168:;
# Line 343  T168:; Line 346  T168:;
346  T166:;  T166:;
347          if(((V7))==Cnil){          if(((V7))==Cnil){
348          goto T172;}          goto T172;}
349          V43= make_cons(VV[5],(V7));          V46= make_cons(VV[5],(V7));
350          base[6]= make_cons(/* INLINE-ARGS */V43,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V46,Cnil);
351          goto T170;          goto T170;
352          goto T172;          goto T172;
353  T172:;  T172:;
# Line 353  T172:; Line 356  T172:;
356  T170:;  T170:;
357          if(((V8))==Cnil){          if(((V8))==Cnil){
358          goto T176;}          goto T176;}
359          V44= make_cons(VV[6],(V8));          V47= make_cons(VV[6],(V8));
360          base[7]= make_cons(/* INLINE-ARGS */V44,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V47,Cnil);
361          goto T174;          goto T174;
362          goto T176;          goto T176;
363  T176:;  T176:;
# Line 363  T176:; Line 366  T176:;
366  T174:;  T174:;
367          if(((V12))==Cnil){          if(((V12))==Cnil){
368          goto T180;}          goto T180;}
369          {object V46;          {object V49;
370          object V47= (V12);          object V50= (V12);
371          if(V47==Cnil){          if(V50==Cnil){
372          V45= Cnil;          V48= Cnil;
373          goto T182;}          goto T182;}
374          base[9]=V46=MMcons(Cnil,Cnil);          base[9]=V49=MMcons(Cnil,Cnil);
375          goto T183;          goto T183;
376  T183:;  T183:;
377          (V46->c.c_car)= symbol_name((V47->c.c_car));          (V49->c.c_car)= symbol_name((V50->c.c_car));
378          if((V47=MMcdr(V47))==Cnil){          if((V50=MMcdr(V50))==Cnil){
379          V45= base[9];          V48= base[9];
380          goto T182;}          goto T182;}
381          V46=MMcdr(V46)=MMcons(Cnil,Cnil);          V49=MMcdr(V49)=MMcons(Cnil,Cnil);
382          goto T183;}          goto T183;}
383          goto T182;          goto T182;
384  T182:;  T182:;
385          V48= make_cons(VV[7],V45);          V51= make_cons(VV[7],V48);
386          base[8]= make_cons(/* INLINE-ARGS */V48,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V51,Cnil);
387          goto T178;          goto T178;
388          goto T180;          goto T180;
389  T180:;  T180:;
# Line 389  T180:; Line 392  T180:;
392  T178:;  T178:;
393          if(((V11))==Cnil){          if(((V11))==Cnil){
394          goto T187;}          goto T187;}
395          {object V49;          {object V52;
396          object V50= (V11);          object V53= (V11);
397          if(V50==Cnil){          if(V53==Cnil){
398          base[9]= Cnil;          base[9]= Cnil;
399          goto T185;}          goto T185;}
400          base[10]=V49=MMcons(Cnil,Cnil);          base[10]=V52=MMcons(Cnil,Cnil);
401          goto T189;          goto T189;
402  T189:;  T189:;
403          base[12]= (V50->c.c_car);          base[12]= (V53->c.c_car);
404          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
405          Lsymbol_package();          Lsymbol_package();
406          vs_top=sup;          vs_top=sup;
# Line 405  T189:; Line 408  T189:;
408          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
409          Lpackage_name();          Lpackage_name();
410          vs_top=sup;          vs_top=sup;
411          V52= vs_base[0];          V55= vs_base[0];
412          V53= list(3,VV[8],V52,symbol_name((V50->c.c_car)));          V56= list(3,VV[8],V55,symbol_name((V53->c.c_car)));
413          (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);          (V52->c.c_car)= make_cons(/* INLINE-ARGS */V56,Cnil);
414          if((V50=MMcdr(V50))==Cnil){          if((V53=MMcdr(V53))==Cnil){
415          base[9]= base[10];          base[9]= base[10];
416          goto T185;}          goto T185;}
417          V49=MMcdr(V49)=MMcons(Cnil,Cnil);          V52=MMcdr(V52)=MMcons(Cnil,Cnil);
418          goto T189;}          goto T189;}
419          goto T187;          goto T187;
420  T187:;  T187:;
# Line 420  T187:; Line 423  T187:;
423  T185:;  T185:;
424          if(((V13))==Cnil){          if(((V13))==Cnil){
425          goto T196;}          goto T196;}
426          {object V54;          {object V57;
427          object V55= (V13);          object V58= (V13);
428          if(V55==Cnil){          if(V58==Cnil){
429          base[10]= Cnil;          base[10]= Cnil;
430          goto T194;}          goto T194;}
431          base[11]=V54=MMcons(Cnil,Cnil);          base[11]=V57=MMcons(Cnil,Cnil);
432          goto T198;          goto T198;
433  T198:;  T198:;
434          base[13]= (V55->c.c_car);          base[13]= (V58->c.c_car);
435          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
436          Lsymbol_package();          Lsymbol_package();
437          vs_top=sup;          vs_top=sup;
# Line 436  T198:; Line 439  T198:;
439          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
440          Lpackage_name();          Lpackage_name();
441          vs_top=sup;          vs_top=sup;
442          V57= vs_base[0];          V60= vs_base[0];
443          V58= list(3,VV[9],V57,symbol_name((V55->c.c_car)));          V61= list(3,VV[9],V60,symbol_name((V58->c.c_car)));
444          (V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil);          (V57->c.c_car)= make_cons(/* INLINE-ARGS */V61,Cnil);
445          if((V55=MMcdr(V55))==Cnil){          if((V58=MMcdr(V58))==Cnil){
446          base[10]= base[11];          base[10]= base[11];
447          goto T194;}          goto T194;}
448          V54=MMcdr(V54)=MMcons(Cnil,Cnil);          V57=MMcdr(V57)=MMcons(Cnil,Cnil);
449          goto T198;}          goto T198;}
450          goto T196;          goto T196;
451  T196:;  T196:;
# Line 452  T194:; Line 455  T194:;
455          vs_top=(vs_base=base+5)+6;          vs_top=(vs_base=base+5)+6;
456          Lappend();          Lappend();
457          vs_top=sup;          vs_top=sup;
458          V41= vs_base[0];          V44= vs_base[0];
459          {object V59 = listA(3,VV[3],(V4),V41);          {object V62 = listA(3,VV[3],V43,V44);
460          VMR1(V59)}}}          VMR1(V62)}}}
461          base[0]=base[0];          base[0]=base[0];
462          return Cnil;          return Cnil;
463  }  }

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