/[gcl]/gcl/cmpnew/cmplabel.c
ViewVC logotype

Diff of /gcl/cmpnew/cmplabel.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 83  T1:; Line 83  T1:;
83          if(((V10))==Cnil){          if(((V10))==Cnil){
84          goto T5;}          goto T5;}
85          princ_str("\n   bds_unwind(V",VV[16]);          princ_str("\n   bds_unwind(V",VV[16]);
86          (void)((*(LnkLI42))((V10)));          (void)((*(LnkLI45))((V10)));
87          princ_str(");",VV[16]);          princ_str(");",VV[16]);
88  goto T5;  goto T5;
89  T5:;  T5:;
# Line 101  T14:; Line 101  T14:;
101  goto T15;  goto T15;
102  T15:;  T15:;
103          princ_str("\n   bds_unwind1;",VV[16]);          princ_str("\n   bds_unwind1;",VV[16]);
104          V13= (V13)+1;          V13= (long)(V13)+1;
105          goto T14;}          goto T14;}
106          return Cnil;          return Cnil;
107  }  }
# Line 146  T26:; Line 146  T26:;
146          V22= Cnil;          V22= Cnil;
147          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[18])==Cnil){
148          goto T32;}          goto T32;}
149          (void)((*(LnkLI43))((V17),(V19)));          (void)((*(LnkLI46))((V17),(V19)));
150  goto T32;  goto T32;
151  T32:;  T32:;
152          if(!(((V17))==(VV[19]))){          if(!(((V17))==(VV[19]))){
# Line 156  T32:; Line 156  T32:;
156          if((symbol_value(VV[20]))==(VV[22])){          if((symbol_value(VV[20]))==(VV[22])){
157          goto T33;}          goto T33;}
158          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
159          (void)((*(LnkLI44))());          (void)((*(LnkLI47))());
160  goto T33;  goto T33;
161  T33:;  T33:;
162          if(!(type_of(symbol_value(VV[20]))==t_cons)){          if(!(type_of(symbol_value(VV[20]))==t_cons)){
163          goto T43;}          goto T43;}
164          if(!((car(symbol_value(VV[20])))==(VV[23]))){          if(!((car(symbol_value(VV[20])))==(VV[23]))){
165          goto T43;}          goto T43;}
166          (void)((*(LnkLI45))((V17),cadr(symbol_value(VV[20]))));          (void)((*(LnkLI48))((V17),cadr(symbol_value(VV[20]))));
167          if(!(((V17))==(Ct))){          if(!(((V17))==(Ct))){
168          goto T41;}          goto T41;}
169          {object V23 = Cnil;          {object V23 = Cnil;
# Line 175  T43:; Line 175  T43:;
175          goto T41;}          goto T41;}
176          if(!((car(symbol_value(VV[20])))==(VV[24]))){          if(!((car(symbol_value(VV[20])))==(VV[24]))){
177          goto T41;}          goto T41;}
178          (void)((*(LnkLI46))((V17),cadr(symbol_value(VV[20]))));          (void)((*(LnkLI49))((V17),cadr(symbol_value(VV[20]))));
179          if(((V17))!=Cnil){          if(((V17))!=Cnil){
180          goto T41;}          goto T41;}
181          {object V24 = Cnil;          {object V24 = Cnil;
# Line 191  goto T60; Line 191  goto T60;
191  T60:;  T60:;
192          if(!(endp((V25)))){          if(!(endp((V25)))){
193          goto T61;}          goto T61;}
194          {object V27 = (*(LnkLI47))();          {object V27 = (*(LnkLI50))();
195          bds_unwind1;          bds_unwind1;
196          VMR6(V27)}          VMR6(V27)}
197  goto T61;  goto T61;
# Line 209  T61:; Line 209  T61:;
209  goto T73;  goto T73;
210  T73:;  T73:;
211          V28 = make_fixnum(V21);          V28 = make_fixnum(V21);
212          (void)((*(LnkLI48))((V20),V28));          (void)((*(LnkLI51))((V20),V28));
213          goto T72;          goto T72;
214  goto T74;  goto T74;
215  T74:;  T74:;
# Line 247  T85:; Line 247  T85:;
247          goto T95;}          goto T95;}
248          base[2]= (V17);          base[2]= (V17);
249          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
250          (void) (*Lnk49)();          (void) (*Lnk52)();
251          vs_top=sup;          vs_top=sup;
252          V32 = make_fixnum(V21);          V32 = make_fixnum(V21);
253          (void)((*(LnkLI48))((V20),V32));          (void)((*(LnkLI51))((V20),V32));
254          goto T72;          goto T72;
255  goto T95;  goto T95;
256  T95:;  T95:;
257          {object V33;          {object V33;
258          V33= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI50))()));          V33= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI53))()));
259          bds_bind(VV[20],(V33));          bds_bind(VV[20],(V33));
260          base[3]= (V17);          base[3]= (V17);
261          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
262          (void) (*Lnk49)();          (void) (*Lnk52)();
263          vs_top=sup;          vs_top=sup;
264          bds_unwind1;          bds_unwind1;
265          V34 = make_fixnum(V21);          V34 = make_fixnum(V21);
266          (void)((*(LnkLI48))((V20),V34));          (void)((*(LnkLI51))((V20),V34));
267          base[2]= (V33);          base[2]= (V33);
268          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
269          (void) (*Lnk49)();          (void) (*Lnk52)();
270          vs_top=sup;          vs_top=sup;
271          goto T72;}          goto T72;}
272  goto T86;  goto T86;
273  T86:;  T86:;
274          V35 = make_fixnum(V21);          V35 = make_fixnum(V21);
275          (void)((*(LnkLI48))((V20),V35));          (void)((*(LnkLI51))((V20),V35));
276          base[2]= (V17);          base[2]= (V17);
277          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
278          (void) (*Lnk49)();          (void) (*Lnk52)();
279          vs_top=sup;          vs_top=sup;
280          goto T72;          goto T72;
281  goto T81;  goto T81;
282  T81:;  T81:;
283          base[2]= (V17);          base[2]= (V17);
284          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
285          (void) (*Lnk49)();          (void) (*Lnk52)();
286          vs_top=sup;          vs_top=sup;
287  goto T72;  goto T72;
288  T72:;  T72:;
# Line 297  T112:; Line 297  T112:;
297          if(type_of(symbol_value(VV[26]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[26]));          if(type_of(symbol_value(VV[26]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[26]));
298          (symbol_value(VV[26]))->c.c_cdr = Ct;          (symbol_value(VV[26]))->c.c_cdr = Ct;
299          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
300          (void)((*(LnkLI42))(car(symbol_value(VV[26]))));          (void)((*(LnkLI45))(car(symbol_value(VV[26]))));
301          princ_char(59,VV[16]);          princ_char(59,VV[16]);
302  goto T109;  goto T109;
303  T109:;  T109:;
# Line 324  goto T123; Line 324  goto T123;
324  T123:;  T123:;
325          if(!(((V26))==(VV[32]))){          if(!(((V26))==(VV[32]))){
326          goto T129;}          goto T129;}
327          V21= (V21)+(1);          V21= (long)(V21)+(1);
328          goto T65;          goto T65;
329  goto T129;  goto T129;
330  T129:;  T129:;
# Line 334  T129:; Line 334  T129:;
334          goto T65;}          goto T65;}
335          base[2]= (V17);          base[2]= (V17);
336          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
337          (void) (*Lnk49)();          (void) (*Lnk52)();
338          vs_top=sup;          vs_top=sup;
339          V37 = make_fixnum(V21);          V37 = make_fixnum(V21);
340          (void)((*(LnkLI48))((V20),V37));          (void)((*(LnkLI51))((V20),V37));
341          princ_str("\n   return;",VV[16]);          princ_str("\n   return;",VV[16]);
342          {object V38 = Cnil;          {object V38 = Cnil;
343          bds_unwind1;          bds_unwind1;
# Line 362  T149:; Line 362  T149:;
362          goto T151;}          goto T151;}
363          base[2]= (V17);          base[2]= (V17);
364          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
365          (void) (*Lnk49)();          (void) (*Lnk52)();
366          vs_top=sup;          vs_top=sup;
367          V17= symbol_value(VV[20]);          V17= symbol_value(VV[20]);
368          goto T145;          goto T145;
# Line 370  goto T151; Line 370  goto T151;
370  T151:;  T151:;
371          if((symbol_value(VV[35]))==Cnil){          if((symbol_value(VV[35]))==Cnil){
372          goto T160;}          goto T160;}
373          base[2]= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI50))()));          base[2]= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI53))()));
374          goto T158;          goto T158;
375  goto T160;  goto T160;
376  T160:;  T160:;
377          base[2]= list(2,VV[30],(*(LnkLI51))());          base[2]= list(2,VV[30],(*(LnkLI54))());
378  goto T158;  goto T158;
379  T158:;  T158:;
380          bds_bind(VV[20],base[2]);          bds_bind(VV[20],base[2]);
381          base[3]= (V17);          base[3]= (V17);
382          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
383          (void) (*Lnk49)();          (void) (*Lnk52)();
384          vs_top=sup;          vs_top=sup;
385          V17= (VV[20]->s.s_dbind);          V17= (VV[20]->s.s_dbind);
386          bds_unwind1;          bds_unwind1;
# Line 423  T177:; Line 423  T177:;
423          goto T180;          goto T180;
424  goto T181;  goto T181;
425  T181:;  T181:;
426          (void)((*(LnkLI52))());          (void)((*(LnkLI55))());
427  goto T180;  goto T180;
428  T180:;  T180:;
429          V22= cdr((V22));          V22= cdr((V22));
430          princ_str("\n   {",VV[16]);          princ_str("\n   {",VV[16]);
431          V44= (*(LnkLI53))(car((V22)));          V44= (*(LnkLI56))(car((V22)));
432          (void)((*(LnkLI42))(/* INLINE-ARGS */V44));          (void)((*(LnkLI45))(/* INLINE-ARGS */V44));
433          princ_char(86,VV[16]);          princ_char(86,VV[16]);
434          (void)((*(LnkLI42))((V42)));          (void)((*(LnkLI45))((V42)));
435          princ_str(" = ",VV[16]);          princ_str(" = ",VV[16]);
436          (void)((          (void)((
437          V45 = cdr((V22)),          V45 = cdr((V22)),
438          (type_of(V45) == t_sfun ?(*(object (*)())((V45)->sfn.sfn_self)):          (type_of(V45) == t_sfun ?(*((V45)->sfn.sfn_self)):
439          (fcall.fun=(V45),fcall.argd=1,fcalln))((V17))));          (fcall.fun=(V45),fcall.argd=1,fcalln))((V17))));
440          princ_char(59,VV[16]);          princ_char(59,VV[16]);
441          V46 = make_fixnum(V21);          V46 = make_fixnum(V21);
442          (void)((*(LnkLI48))((V20),V46));          (void)((*(LnkLI51))((V20),V46));
443          princ_str("\n   VMR",VV[16]);          princ_str("\n   VMR",VV[16]);
444          (void)((*(LnkLI42))(symbol_value(VV[40])));          (void)((*(LnkLI45))(symbol_value(VV[40])));
445          princ_str("(V",VV[16]);          princ_char(40,VV[16]);
446          (void)((*(LnkLI42))((V42)));          V48= (*(LnkLI56))(car((V22)));
447            if(!(equal(/* INLINE-ARGS */V48,VV[41]))){
448            goto T202;}
449            V47= VV[42];
450            goto T200;
451    goto T202;
452    T202:;
453            V47= VV[43];
454    goto T200;
455    T200:;
456            (void)((*(LnkLI45))(V47));
457            princ_char(86,VV[16]);
458            (void)((*(LnkLI45))((V42)));
459          princ_str(")}",VV[16]);          princ_str(")}",VV[16]);
460          {object V47 = Cnil;          {object V49 = Cnil;
461          bds_unwind1;          bds_unwind1;
462          VMR6(V47)}}          VMR6(V49)}}
463  goto T175;  goto T175;
464  T175:;  T175:;
465          (void)((*(LnkLI47))());}          (void)((*(LnkLI50))());}
466  goto T65;  goto T65;
467  T65:;  T65:;
468          V25= cdr((V25));          V25= cdr((V25));
# Line 462  T65:; Line 474  T65:;
474          }          }
475  /*      local entry for function UNWIND-NO-EXIT */  /*      local entry for function UNWIND-NO-EXIT */
476    
477  static object LI7(V49)  static object LI7(V51)
478    
479  register object V49;  register object V51;
480  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
481  goto TTL;  goto TTL;
482  TTL:;  TTL:;
         {register object V50;  
         register long V51;  
         V50= Cnil;  
         V51= 0;  
483          {register object V52;          {register object V52;
484          register object V53;          register long V53;
485          V52= symbol_value(VV[25]);          V52= Cnil;
486          V53= car((V52));          V53= 0;
487  goto T211;          {register object V54;
488  T211:;          register object V55;
489          if(!(endp((V52)))){          V54= symbol_value(VV[25]);
490          goto T212;}          V55= car((V54));
491          {object V54 = (*(LnkLI47))();  goto T217;
492          VMR7(V54)}  T217:;
493  goto T212;          if(!(endp((V54)))){
 T212:;  
         if(!(type_of((V53))==t_cons)){  
494          goto T218;}          goto T218;}
495          if(!(((V53))==((V49)))){          {object V56 = (*(LnkLI50))();
         goto T216;}  
         V55 = make_fixnum(V51);  
         (void)((*(LnkLI48))((V50),V55));  
         {object V56 = Cnil;  
496          VMR7(V56)}          VMR7(V56)}
497  goto T218;  goto T218;
498  T218:;  T218:;
499          if(!(type_of((V53))==t_fixnum||          if(!(type_of((V55))==t_cons)){
 type_of((V53))==t_bignum||  
 type_of((V53))==t_ratio||  
 type_of((V53))==t_shortfloat||  
 type_of((V53))==t_longfloat||  
 type_of((V53))==t_complex)){  
500          goto T224;}          goto T224;}
501          V50= (V53);          if(!(((V55))==((V51)))){
502          V51= 0;          goto T222;}
503          goto T216;          V57 = make_fixnum(V53);
504            (void)((*(LnkLI51))((V52),V57));
505            {object V58 = Cnil;
506            VMR7(V58)}
507  goto T224;  goto T224;
508  T224:;  T224:;
509          if(!(((V53))==(VV[32]))){          if(!(type_of((V55))==t_fixnum||
510    type_of((V55))==t_bignum||
511    type_of((V55))==t_ratio||
512    type_of((V55))==t_shortfloat||
513    type_of((V55))==t_longfloat||
514    type_of((V55))==t_complex)){
515          goto T230;}          goto T230;}
516          V51= (V51)+(1);          V52= (V55);
517          goto T216;          V53= 0;
518            goto T222;
519  goto T230;  goto T230;
520  T230:;  T230:;
521          {register object x= (V53),V57= VV[41];          if(!(((V55))==(VV[32]))){
522          while(!endp(V57))          goto T236;}
523          if(eql(x,V57->c.c_car)){          V53= (long)(V53)+(1);
524          goto T235;          goto T222;
525          }else V57=V57->c.c_cdr;  goto T236;
526          goto T234;}  T236:;
527  goto T235;          {register object x= (V55),V59= VV[44];
528  T235:;          while(!endp(V59))
529          if(!(((V49))==((V53)))){          if(eql(x,V59->c.c_car)){
530          goto T237;}          goto T241;
531          V58 = make_fixnum(V51);          }else V59=V59->c.c_cdr;
532          (void)((*(LnkLI48))((V50),V58));          goto T240;}
         {object V59 = Cnil;  
         VMR7(V59)}  
 goto T237;  
 T237:;  
         (void)((*(LnkLI47))());  
         goto T216;  
 goto T234;  
 T234:;  
         if(!(((V53))==(VV[33]))){  
         goto T241;}  
         princ_str("\n   frs_pop();",VV[16]);  
         goto T216;  
533  goto T241;  goto T241;
534  T241:;  T241:;
535          if(!(((V53))==(VV[36]))){          if(!(((V51))==((V55)))){
536          goto T245;}          goto T243;}
537          if(!(((V49))==(VV[36]))){          V60 = make_fixnum(V53);
538          goto T248;}          (void)((*(LnkLI51))((V52),V60));
         V60 = make_fixnum(V51);  
         (void)((*(LnkLI48))((V50),V60));  
539          {object V61 = Cnil;          {object V61 = Cnil;
540          VMR7(V61)}          VMR7(V61)}
541  goto T248;  goto T243;
542  T248:;  T243:;
543          (void)((*(LnkLI47))());          (void)((*(LnkLI50))());
544          goto T216;          goto T222;
545  goto T245;  goto T240;
546  T245:;  T240:;
547          {object V62;          if(!(((V55))==(VV[33]))){
548          V62= (((V53))==(VV[37])?Ct:Cnil);          goto T247;}
549          if(((V62))==Cnil){          princ_str("\n   frs_pop();",VV[16]);
550          goto T253;}          goto T222;
551          goto T216;  goto T247;
552  goto T253;  T247:;
553  T253:;          if(!(((V55))==(VV[36]))){
554          (void)((*(LnkLI47))());}          goto T251;}
555  goto T216;          if(!(((V51))==(VV[36]))){
556  T216:;          goto T254;}
557          V52= cdr((V52));          V62 = make_fixnum(V53);
558          V53= car((V52));          (void)((*(LnkLI51))((V52),V62));
559          goto T211;}}          {object V63 = Cnil;
560            VMR7(V63)}
561    goto T254;
562    T254:;
563            (void)((*(LnkLI50))());
564            goto T222;
565    goto T251;
566    T251:;
567            {object V64;
568            V64= (((V55))==(VV[37])?Ct:Cnil);
569            if(((V64))==Cnil){
570            goto T259;}
571            goto T222;
572    goto T259;
573    T259:;
574            (void)((*(LnkLI50))());}
575    goto T222;
576    T222:;
577            V54= cdr((V54));
578            V55= car((V54));
579            goto T217;}}
580          base[0]=base[0];          base[0]=base[0];
581          return Cnil;          return Cnil;
582  }  }
# Line 575  static object LI8() Line 587  static object LI8()
587  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
588  goto TTL;  goto TTL;
589  TTL:;  TTL:;
590          {register object V63;          {register object V65;
591          register object V64;          register object V66;
592          V63= symbol_value(VV[25]);          V65= symbol_value(VV[25]);
593          V64= car((V63));          V66= car((V65));
594  goto T263;  goto T269;
595  T263:;  T269:;
596          if(!(endp((V63)))){          if(!(endp((V65)))){
         goto T264;}  
         {object V65 = (*(LnkLI47))();  
         VMR8(V65)}  
 goto T264;  
 T264:;  
         if(!(((V64))==(VV[36]))){  
597          goto T270;}          goto T270;}
598          {object V66 = Ct;          {object V67 = (*(LnkLI50))();
599          VMR8(V66)}          VMR8(V67)}
600  goto T270;  goto T270;
601  T270:;  T270:;
602          if(type_of((V64))==t_fixnum||          if(!(((V66))==(VV[36]))){
603  type_of((V64))==t_bignum||          goto T276;}
604  type_of((V64))==t_ratio||          {object V68 = Ct;
605  type_of((V64))==t_shortfloat||          VMR8(V68)}
606  type_of((V64))==t_longfloat||  goto T276;
607  type_of((V64))==t_complex){  T276:;
608          goto T272;}          if(type_of((V66))==t_fixnum||
609          if(((V64))==(VV[32])){  type_of((V66))==t_bignum||
610          goto T272;}  type_of((V66))==t_ratio||
611          if(!(((V64))==(VV[33]))){  type_of((V66))==t_shortfloat||
612          goto T273;}  type_of((V66))==t_longfloat||
613  goto T272;  type_of((V66))==t_complex){
614  T272:;          goto T278;}
615          {object V67 = Cnil;          if(((V66))==(VV[32])){
616          VMR8(V67)}          goto T278;}
617  goto T273;          if(!(((V66))==(VV[33]))){
618  T273:;          goto T279;}
619          {register object V68;  goto T278;
620          if(!(type_of((V64))==t_cons)){  T278:;
621          goto T280;}          {object V69 = Cnil;
622          V68= Ct;          VMR8(V69)}
         goto T279;  
 goto T280;  
 T280:;  
         V68= (((V64))==(VV[37])?Ct:Cnil);  
623  goto T279;  goto T279;
624  T279:;  T279:;
625          if(((V68))==Cnil){          {register object V70;
626          goto T283;}          if(!(type_of((V66))==t_cons)){
627          goto T268;          goto T286;}
628  goto T283;          V70= Ct;
629  T283:;          goto T285;
630          (void)((*(LnkLI47))());}  goto T286;
631  goto T268;  T286:;
632  T268:;          V70= (((V66))==(VV[37])?Ct:Cnil);
633          V63= cdr((V63));  goto T285;
634          V64= car((V63));  T285:;
635          goto T263;}          if(((V70))==Cnil){
636            goto T289;}
637            goto T274;
638    goto T289;
639    T289:;
640            (void)((*(LnkLI50))());}
641    goto T274;
642    T274:;
643            V65= cdr((V65));
644            V66= car((V65));
645            goto T269;}
646          base[0]=base[0];          base[0]=base[0];
647          return Cnil;          return Cnil;
648  }  }
649  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* REP-TYPE */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,1,ap);va_end(ap);return V1;} /* REP-TYPE */
650  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* WFS-ERROR */  static object  LnkTLI55(){return call_proc0(VV[55],(void **)&LnkLI55);} /* WFS-ERROR */
651  static object  LnkTLI51(){return call_proc0(VV[51],(void **)&LnkLI51);} /* VS-PUSH */  static object  LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* VS-PUSH */
652  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* CS-PUSH */  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* CS-PUSH */
653  static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* SET-LOC */  static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* SET-LOC */
654  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,2,ap);} /* UNWIND-BDS */  static object  LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[51],(void **)&LnkLI51,2,ap);va_end(ap);return V1;} /* UNWIND-BDS */
655  static object  LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* BABOON */  static object  LnkTLI50(){return call_proc0(VV[50],(void **)&LnkLI50);} /* BABOON */
656  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,2,ap);} /* SET-JUMP-FALSE */  static object  LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,2,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */
657  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,2,ap);} /* SET-JUMP-TRUE */  static object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,2,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */
658  static object  LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* RESET-TOP */  static object  LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* RESET-TOP */
659  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,2,ap);} /* RECORD-CALL-INFO */  static object  LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,2,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
660  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,1,ap);} /* WT1 */  static object  LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[45],(void **)&LnkLI45,1,ap);va_end(ap);return V1;} /* WT1 */
661    
662  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
663  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