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

Diff of /gcl/lsp/loop.c

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

revision 1.5 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.6 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 188  static void L7() Line 188  static void L7()
188          goto T20;}          goto T20;}
189          if(!((car(base[5]))==(VV[5]))){          if(!((car(base[5]))==(VV[5]))){
190          goto T24;}          goto T24;}
191          V18 = make_fixnum(length(cdr(base[5])));          V18 = make_fixnum((long)length(cdr(base[5])));
192          V17= one_minus(V18);          V17= one_minus(V18);
193          goto T20;          goto T20;
194  goto T24;  goto T24;
# Line 216  T28:; Line 216  T28:;
216          goto T20;}          goto T20;}
217  goto T32;  goto T32;
218  T32:;  T32:;
219          V22 = make_fixnum(length(cdr(base[5])));          V22 = make_fixnum((long)length(cdr(base[5])));
220          V17= number_minus(V22,small_fixnum(2));          V17= number_minus(V22,small_fixnum(2));
221  goto T20;  goto T20;
222  T20:;  T20:;
# Line 876  T163:; Line 876  T163:;
876          base[28]= VV[60];          base[28]= VV[60];
877          {object V100;          {object V100;
878          object V101;          object V101;
879          V100= make_fixnum(length((V98)));          V100= make_fixnum((long)length((V98)));
880          base[32]= VV[61];          base[32]= VV[61];
881          if(!(number_compare((V100),small_fixnum(10))<0)){          if(!(number_compare((V100),small_fixnum(10))<0)){
882          goto T217;}          goto T217;}
# Line 1210  static void L32() Line 1210  static void L32()
1210          base[7]= Cnil;          base[7]= Cnil;
1211          base[8]= Cnil;          base[8]= Cnil;
1212          base[9]= Cnil;}          base[9]= Cnil;}
1213          if((length(base[3]))==(length(base[5]))){          if(((long)length(base[3]))==((long)length(base[5]))){
1214          goto T323;}          goto T323;}
1215          base[10]= VV[68];          base[10]= VV[68];
1216          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
# Line 1575  T494:; Line 1575  T494:;
1575          L40(base);          L40(base);
1576          vs_top=sup;          vs_top=sup;
1577          V175= fix(vs_base[0]);          V175= fix(vs_base[0]);
1578          base[2]= make_fixnum((fix((V172)))+(V175));          base[2]= make_fixnum((long)(fix((V172)))+(V175));
1579          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1580          return;          return;
1581  goto T506;  goto T506;
# Line 1604  T515:; Line 1604  T515:;
1604          L40(base);          L40(base);
1605          vs_top=sup;          vs_top=sup;
1606          V178= fix(vs_base[0]);          V178= fix(vs_base[0]);
1607          base[2]= make_fixnum((/* INLINE-ARGS */V177)+(V178));          base[2]= make_fixnum((long)(/* INLINE-ARGS */V177)+(V178));
1608          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1609          return;}          return;}
1610  goto T513;  goto T513;
# Line 1631  T525:; Line 1631  T525:;
1631          vs_top=sup;          vs_top=sup;
1632          V182= vs_base[0];          V182= vs_base[0];
1633          V173= fix(number_plus(V181,V182));          V173= fix(number_plus(V181,V182));
1634          V173= (V173)+(1);          V173= (long)(V173)+(1);
1635          V179= cdr((V179));          V179= cdr((V179));
1636          V180= car((V179));          V180= car((V179));
1637          goto T524;}          goto T524;}
# Line 1737  goto T585; Line 1737  goto T585;
1737  T585:;  T585:;
1738          if(!(((V171))==(VV[85]))){          if(!(((V171))==(VV[85]))){
1739          goto T596;}          goto T596;}
1740          {long V186= length(cadr((V168)));          {long V186= (long)length(cadr((V168)));
1741          base[2]= cddr((V168));          base[2]= cddr((V168));
1742          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1743          L40(base);          L40(base);
1744          vs_top=sup;          vs_top=sup;
1745          V187= fix(vs_base[0]);          V187= fix(vs_base[0]);
1746          base[2]= make_fixnum((/* INLINE-ARGS */V186)+(V187));          base[2]= make_fixnum((long)(/* INLINE-ARGS */V186)+(V187));
1747          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1748          return;}          return;}
1749  goto T596;  goto T596;
# Line 1817  T620:; Line 1817  T620:;
1817          L40(base);          L40(base);
1818          vs_top=sup;          vs_top=sup;
1819          V192= fix(vs_base[0]);          V192= fix(vs_base[0]);
1820          base[2]= make_fixnum((3)+(V192));          base[2]= make_fixnum((long)(3)+(V192));
1821          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1822          return;}}          return;}}
1823  goto T497;  goto T497;
# Line 4458  T1520:; Line 4458  T1520:;
4458          goto T1531;}          goto T1531;}
4459  goto T1533;  goto T1533;
4460  T1533:;  T1533:;
4461          V406= length((V405));          V406= (long)length((V405));
4462          V407= make_fixnum(V406);          V407= make_fixnum(V406);
4463  goto T1531;  goto T1531;
4464  T1531:;  T1531:;
# Line 5192  T1810:;} Line 5192  T1810:;}
5192          vs_top=sup;          vs_top=sup;
5193  goto T1826;  goto T1826;
5194  T1826:;  T1826:;
5195          V486 = make_fixnum(length((V476)));          V486 = make_fixnum((long)length((V476)));
5196          {register object x= V486,V485= VV[238];          {register object x= V486,V485= VV[238];
5197          while(!endp(V485))          while(!endp(V485))
5198          if(eql(x,V485->c.c_car)){          if(eql(x,V485->c.c_car)){
# Line 6042  T2189:; Line 6042  T2189:;
6042          V556= vs_base[0];          V556= vs_base[0];
6043          V554= (          V554= (
6044          V557 = V556,          V557 = V556,
6045          (type_of(V557) == t_sfun ?(*(object (*)())((V557)->sfn.sfn_self)):          (type_of(V557) == t_sfun ?(*((V557)->sfn.sfn_self)):
6046          (fcall.fun=(V557),fcall.argd=2,fcalln))((V537),(V541)));          (fcall.fun=(V557),fcall.argd=2,fcalln))((V537),(V541)));
6047          if(((V554))==Cnil){          if(((V554))==Cnil){
6048          goto T2197;}          goto T2197;}
# Line 7413  goto TTL; Line 7413  goto TTL;
7413  TTL:;  TTL:;
7414          {object V695;          {object V695;
7415          object V696;          object V696;
7416          V695= make_fixnum(length((V694)));          V695= make_fixnum((long)length((V694)));
7417          base[3]= VV[61];          base[3]= VV[61];
7418          if(!(number_compare((V695),small_fixnum(10))<0)){          if(!(number_compare((V695),small_fixnum(10))<0)){
7419          goto T2696;}          goto T2696;}
# Line 7515  T2726:; Line 7515  T2726:;
7515  goto T2722;  goto T2722;
7516  T2722:;  T2722:;
7517          V702= list(2,VV[17],(V702));          V702= list(2,VV[17],(V702));
7518          V703= (V703)-(4);          V703= (long)(V703)-(4);
7519          goto T2721;          goto T2721;
7520          }          }
7521  }  }
# Line 7525  static void LnkT394(){ call_or_link(VV[3 Line 7525  static void LnkT394(){ call_or_link(VV[3
7525  static void LnkT393(){ call_or_link(VV[393],(void **)&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */  static void LnkT393(){ call_or_link(VV[393],(void **)&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */
7526  static void LnkT390(){ call_or_link(VV[390],(void **)&Lnk390);} /* NAMED-VARIABLE */  static void LnkT390(){ call_or_link(VV[390],(void **)&Lnk390);} /* NAMED-VARIABLE */
7527  static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-SEQUENCER */  static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-SEQUENCER */
7528  static object  LnkTLI382(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[382],(void **)&LnkLI382,ap);} /* DELETE */  static object  LnkTLI382(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[382],(void **)&LnkLI382,ap);va_end(ap);return V1;} /* DELETE */
7529  static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-TASSOC */  static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-TASSOC */
7530  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
7531  static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* MAKE-LOOP-PATH */  static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* MAKE-LOOP-PATH */
# Line 7540  static void LnkT371(){ call_or_link(VV[3 Line 7540  static void LnkT371(){ call_or_link(VV[3
7540  static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */  static void LnkT368(){ call_or_link(VV[368],(void **)&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */
7541  static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-GET-COLLECTION-INFO */  static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-GET-COLLECTION-INFO */
7542  static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* MAKE-LOOP-COLLECTOR */  static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* MAKE-LOOP-COLLECTOR */
7543  static object  LnkTLI364(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[364],(void **)&LnkLI364,ap);} /* FIND */  static object  LnkTLI364(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[364],(void **)&LnkLI364,ap);va_end(ap);return V1;} /* FIND */
7544  static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-OPTIONAL-TYPE */  static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-OPTIONAL-TYPE */
7545  static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-EMIT-BODY */  static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-EMIT-BODY */
7546  static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-PROGN */  static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-GET-PROGN */
# Line 7550  static void LnkT356(){ call_or_link(VV[3 Line 7550  static void LnkT356(){ call_or_link(VV[3
7550  static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-MAKE-VARIABLE */  static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-MAKE-VARIABLE */
7551  static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-DECLARE-VARIABLE */  static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-DECLARE-VARIABLE */
7552  static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TEQUAL */  static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TEQUAL */
7553  static object  LnkTLI352(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[352],(void **)&LnkLI352,2,ap);} /* COERCE */  static object  LnkTLI352(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[352],(void **)&LnkLI352,2,ap);va_end(ap);return V1;} /* COERCE */
7554  static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-CONSTRUCT-RETURN */  static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-CONSTRUCT-RETURN */
7555  static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-PSEUDO-BODY */  static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-PSEUDO-BODY */
7556  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-TMEMBER */  static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-TMEMBER */
# Line 7561  static void LnkT345(){ call_or_link(VV[3 Line 7561  static void LnkT345(){ call_or_link(VV[3
7561  static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-ITERATION-DRIVER */  static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-ITERATION-DRIVER */
7562  static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* LOOP-ERROR */  static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* LOOP-ERROR */
7563  static void LnkT323(){ call_or_link(VV[323],(void **)&Lnk323);} /* SUBTYPEP */  static void LnkT323(){ call_or_link(VV[323],(void **)&Lnk323);} /* SUBTYPEP */
7564  static object  LnkTLI342(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[342],(void **)&LnkLI342,ap);} /* WARN */  static object  LnkTLI342(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[342],(void **)&LnkLI342,ap);va_end(ap);return V1;} /* WARN */
7565  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* LOOP-CONTEXT */  static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* LOOP-CONTEXT */
7566  static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* SPECIAL-OPERATOR-P */  static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* SPECIAL-OPERATOR-P */
7567  static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */  static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */

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

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