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

Diff of /gcl/lsp/mislib.c

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

revision 1.10 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.11 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 37  TTL:; Line 37  TTL:;
37          goto T1;}          goto T1;}
38          {object V5 = Cnil;          {object V5 = Cnil;
39          VMR2(V5)}          VMR2(V5)}
40  goto T1;          goto T1;
41  T1:;  T1:;
42          base[0]= (V3);          base[0]= (V3);
43          base[1]= small_fixnum(100);          base[1]= small_fixnum(100);
# Line 49  T1:; Line 49  T1:;
49          goto T6;}          goto T6;}
50          {object V7 = Ct;          {object V7 = Ct;
51          VMR2(V7)}          VMR2(V7)}
52  goto T6;          goto T6;
53  T6:;  T6:;
54          base[0]= (V3);          base[0]= (V3);
55          base[1]= small_fixnum(400);          base[1]= small_fixnum(400);
# Line 118  static void L4() Line 118  static void L4()
118          V17=(base[1]);          V17=(base[1]);
119          vs_top=sup;          vs_top=sup;
120          goto T28;          goto T28;
121  goto T27;          goto T27;
122  T27:;  T27:;
123          V17= symbol_value(VV[9]);          V17= symbol_value(VV[9]);
124  goto T28;          goto T28;
125  T28:;  T28:;
126          {object V18;          {object V18;
127          object V19;          object V19;
# Line 196  T28:; Line 196  T28:;
196          V23= number_plus(VV[8],V26);          V23= number_plus(VV[8],V26);
197          {register object V27;          {register object V27;
198          V27= Cnil;          V27= Cnil;
199  goto T55;          goto T55;
200  T55:;  T55:;
201          V28= (*(LnkLI17))((V23));          V28= (*(LnkLI17))((V23));
202          V27= number_minus((V21),/* INLINE-ARGS */V28);          V27= number_minus((V21),/* INLINE-ARGS */V28);
# Line 204  T55:; Line 204  T55:;
204          goto T62;}          goto T62;}
205          V29= small_fixnum(366);          V29= small_fixnum(366);
206          goto T60;          goto T60;
207  goto T62;          goto T62;
208  T62:;  T62:;
209          V29= small_fixnum(365);          V29= small_fixnum(365);
210  goto T60;          goto T60;
211  T60:;  T60:;
212          if(!(number_compare((V27),V29)<0)){          if(!(number_compare((V27),V29)<0)){
213          goto T56;}          goto T56;}
214          V21= one_plus((V27));          V21= one_plus((V27));
215          goto T53;          goto T53;
216  goto T56;          goto T56;
217  T56:;  T56:;
218          V23= number_plus((V23),small_fixnum(1));          V23= number_plus((V23),small_fixnum(1));
219          goto T55;}          goto T55;}
220  goto T53;          goto T53;
221  T53:;  T53:;
222          if(((*(LnkLI18))((V23)))==Cnil){          if(((*(LnkLI18))((V23)))==Cnil){
223          goto T70;}          goto T70;}
# Line 234  T53:; Line 234  T53:;
234          base[10]= (V17);          base[10]= (V17);
235          vs_top=(vs_base=base+2)+9;          vs_top=(vs_base=base+2)+9;
236          return;          return;
237  goto T73;          goto T73;
238  T73:;  T73:;
239          if(!(number_compare((V21),small_fixnum(60))>0)){          if(!(number_compare((V21),small_fixnum(60))>0)){
240          goto T70;}          goto T70;}
241          V21= number_minus((V21),small_fixnum(1));          V21= number_minus((V21),small_fixnum(1));
242  goto T70;          goto T70;
243  T70:;  T70:;
244          {register object V30;          {register object V30;
245          V30= VV[12];          V30= VV[12];
246  goto T90;          goto T90;
247  T90:;  T90:;
248          if(!(number_compare((V21),car((V30)))<=0)){          if(!(number_compare((V21),car((V30)))<=0)){
249          goto T91;}          goto T91;}
250          V31 = make_fixnum((long)length((V30)));          V31 = make_fixnum((long)length((V30)));
251          V22= number_minus(small_fixnum(13),V31);          V22= number_minus(small_fixnum(13),V31);
252          goto T88;          goto T88;
253  goto T91;          goto T91;
254  T91:;  T91:;
255          V21= number_minus((V21),car((V30)));          V21= number_minus((V21),car((V30)));
256          V30= cdr((V30));          V30= cdr((V30));
257          goto T90;}          goto T90;}
258  goto T88;          goto T88;
259  T88:;  T88:;
260          base[2]= (V18);          base[2]= (V18);
261          base[3]= (V19);          base[3]= (V19);
# Line 297  static object LI5(object V37,object V36, Line 297  static object LI5(object V37,object V36,
297          else {          else {
298          V44= first;}          V44= first;}
299          --narg; goto T111;          --narg; goto T111;
300  goto T110;          goto T110;
301  T110:;  T110:;
302          V44= symbol_value(VV[9]);          V44= symbol_value(VV[9]);
303  goto T111;          goto T111;
304  T111:;  T111:;
305          V40= number_plus((V40),(V44));          V40= number_plus((V40),(V44));
306          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
# Line 350  T111:; Line 350  T111:;
350          V53= vs_base[0];          V53= vs_base[0];
351          vs_top=sup;          vs_top=sup;
352          goto T131;          goto T131;
353  goto T122;          goto T122;
354  T122:;  T122:;
355          V45= Cnil;          V45= Cnil;
356  goto T123;          goto T123;
357  T123:;  T123:;
358          V46= Cnil;          V46= Cnil;
359  goto T124;          goto T124;
360  T124:;  T124:;
361          V47= Cnil;          V47= Cnil;
362  goto T125;          goto T125;
363  T125:;  T125:;
364          V48= Cnil;          V48= Cnil;
365  goto T126;          goto T126;
366  T126:;  T126:;
367          V49= Cnil;          V49= Cnil;
368  goto T127;          goto T127;
369  T127:;  T127:;
370          V50= Cnil;          V50= Cnil;
371  goto T128;          goto T128;
372  T128:;  T128:;
373          V51= Cnil;          V51= Cnil;
374  goto T129;          goto T129;
375  T129:;  T129:;
376          V52= Cnil;          V52= Cnil;
377  goto T130;          goto T130;
378  T130:;  T130:;
379          V53= Cnil;          V53= Cnil;
380  goto T131;          goto T131;
381  T131:;  T131:;
382          base[0]= (V50);          base[0]= (V50);
383          base[1]= small_fixnum(100);          base[1]= small_fixnum(100);
# Line 392  T131:; Line 392  T131:;
392          goto T138;}          goto T138;}
393          V43= number_plus((V43),small_fixnum(100));          V43= number_plus((V43),small_fixnum(100));
394          goto T115;          goto T115;
395  goto T138;          goto T138;
396  T138:;  T138:;
397          V57= number_minus((V43),(V50));          V57= number_minus((V43),(V50));
398          if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){          if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){
399          goto T115;}          goto T115;}
400          V43= number_minus((V43),small_fixnum(100));}          V43= number_minus((V43),small_fixnum(100));}
401  goto T115;          goto T115;
402  T115:;  T115:;
403          if(((*(LnkLI18))((V43)))==Cnil){          if(((*(LnkLI18))((V43)))==Cnil){
404          goto T145;}          goto T145;}
405          if(number_compare((V42),small_fixnum(2))>0){          if(number_compare((V42),small_fixnum(2))>0){
406          goto T144;}          goto T144;}
407  goto T145;          goto T145;
408  T145:;  T145:;
409          V41= number_minus((V41),small_fixnum(1));          V41= number_minus((V41),small_fixnum(1));
410  goto T144;          goto T144;
411  T144:;  T144:;
412          base[1]= (V41);          base[1]= (V41);
413          base[2]= (*(LnkLI17))((V43));          base[2]= (*(LnkLI17))((V43));

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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