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

Diff of /gcl/cmpnew/gcl_cmplabel.c

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

revision 1.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_cmplabel.h"
4    void init_gcl_cmplabel(){do_init(VV);}
5    /*      macro definition for NEXT-LABEL */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            if(!endp(V1))invalid_macro_call();}
15            base[2]= VV[0];
16            vs_top=(vs_base=base+2)+1;
17            return;
18    }
19    /*      macro definition for NEXT-LABEL*        */
20    
21    static void L2()
22    {register object *base=vs_base;
23            register object *sup=base+VM2; VC2
24            vs_reserve(VM2);
25            check_arg(2);
26            vs_top=sup;
27            {object V2=base[0]->c.c_cdr;
28            if(!endp(V2))invalid_macro_call();}
29            base[2]= VV[1];
30            vs_top=(vs_base=base+2)+1;
31            return;
32    }
33    /*      macro definition for WT-LABEL   */
34    
35    static void L3()
36    {register object *base=vs_base;
37            register object *sup=base+VM3; VC3
38            vs_reserve(VM3);
39            check_arg(2);
40            vs_top=sup;
41            {object V3=base[0]->c.c_cdr;
42            if(endp(V3))invalid_macro_call();
43            base[2]= (V3->c.c_car);
44            V3=V3->c.c_cdr;
45            if(!endp(V3))invalid_macro_call();}
46            V4= list(2,VV[3],base[2]);
47            V5= list(4,VV[4],VV[5],list(2,VV[6],base[2]),VV[7]);
48            base[3]= list(4,VV[2],/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,list(4,VV[8],VV[9],list(2,VV[6],base[2]),VV[10]));
49            vs_top=(vs_base=base+3)+1;
50            return;
51    }
52    /*      macro definition for WT-GO      */
53    
54    static void L4()
55    {register object *base=vs_base;
56            register object *sup=base+VM4; VC4
57            vs_reserve(VM4);
58            check_arg(2);
59            vs_top=sup;
60            {object V6=base[0]->c.c_cdr;
61            if(endp(V6))invalid_macro_call();
62            base[2]= (V6->c.c_car);
63            V6=V6->c.c_cdr;
64            if(!endp(V6))invalid_macro_call();}
65            V7= list(3,VV[12],base[2],Ct);
66            base[3]= list(3,VV[11],/* INLINE-ARGS */V7,list(4,VV[13],VV[14],list(2,VV[6],base[2]),VV[15]));
67            vs_top=(vs_base=base+3)+1;
68            return;
69    }
70    /*      local entry for function UNWIND-BDS     */
71    
72    static object LI5(V10,V11)
73    
74    object V10;object V11;
75    {        VMB5 VMS5 VMV5
76            goto TTL;
77    TTL:;
78            if(!(type_of(symbol_value(VV[16]))==t_cons)){
79            goto T1;}
80            princ_str("\n   restore_avma; ",VV[17]);
81            goto T1;
82    T1:;
83            if(((V10))==Cnil){
84            goto T5;}
85            princ_str("\n   bds_unwind(V",VV[17]);
86            (void)((*(LnkLI46))((V10)));
87            princ_str(");",VV[17]);
88            goto T5;
89    T5:;
90            {register object V12;
91            register long V13;
92            V12= (V11);
93            V13= 0;
94            goto T14;
95    T14:;
96            V14 = make_fixnum(V13);
97            if(!(number_compare(V14,(V12))>=0)){
98            goto T15;}
99            {object V15 = Cnil;
100            VMR5(V15)}
101            goto T15;
102    T15:;
103            princ_str("\n   bds_unwind1;",VV[17]);
104            V13= (long)(V13)+1;
105            goto T14;}
106            return Cnil;
107    }
108    /*      local entry for function UNWIND-EXIT    */
109    
110    static object LI6(object V16,object first,...)
111    {      
112            va_list ap;
113            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
114            bds_check;
115            {register object V17;
116            object V18;
117            object V19;
118            va_start(ap,first);
119            if(narg <1) too_few_arguments();
120            V17= V16;
121            narg = narg - 1;
122            if (narg <= 0) goto T24;
123            else {
124            V18= first;}
125            if (--narg <= 0) goto T25;
126            else {
127            V19= va_arg(ap,object);}
128            --narg; goto T26;
129            goto T24;
130    T24:;
131            V18= Cnil;
132            goto T25;
133    T25:;
134            V19= Cnil;
135            goto T26;
136    T26:;
137            {register object V20;
138            register long V21;
139            object V22;
140            bds_bind(VV[18],symbol_value(VV[18]));
141            V20= Cnil;
142            V21= 0;
143            V22= Cnil;
144            if(symbol_value(VV[19])==Cnil){
145            goto T32;}
146            (void)((*(LnkLI47))((V17),(V19)));
147            goto T32;
148    T32:;
149            if(!(((V17))==(VV[20]))){
150            goto T33;}
151            if((symbol_value(VV[21]))==(VV[22])){
152            goto T33;}
153            if((symbol_value(VV[21]))==(VV[23])){
154            goto T33;}
155            princ_str("\n   ",VV[17]);
156            (void)((*(LnkLI48))());
157            goto T33;
158    T33:;
159            if(!(type_of(symbol_value(VV[21]))==t_cons)){
160            goto T43;}
161            if(!((car(symbol_value(VV[21])))==(VV[24]))){
162            goto T43;}
163            (void)((*(LnkLI49))((V17),cadr(symbol_value(VV[21]))));
164            if(!(((V17))==(Ct))){
165            goto T41;}
166            {object V23 = Cnil;
167            bds_unwind1;
168            VMR6(V23)}
169            goto T43;
170    T43:;
171            if(!(type_of(symbol_value(VV[21]))==t_cons)){
172            goto T41;}
173            if(!((car(symbol_value(VV[21])))==(VV[25]))){
174            goto T41;}
175            (void)((*(LnkLI50))((V17),cadr(symbol_value(VV[21]))));
176            if(((V17))!=Cnil){
177            goto T41;}
178            {object V24 = Cnil;
179            bds_unwind1;
180            VMR6(V24)}
181            goto T41;
182    T41:;
183            {object V25;
184            register object V26;
185            V25= symbol_value(VV[26]);
186            V26= car((V25));
187            goto T60;
188    T60:;
189            if(!(endp_prop((V25)))){
190            goto T61;}
191            {object V27 = (*(LnkLI51))();
192            bds_unwind1;
193            VMR6(V27)}
194            goto T61;
195    T61:;
196            if(!(type_of((V26))==t_cons)){
197            goto T67;}
198            if(!(((V26))==(symbol_value(VV[27])))){
199            goto T70;}
200            if(!(type_of(symbol_value(VV[21]))==t_cons)){
201            goto T74;}
202            if((car(symbol_value(VV[21])))==(VV[24])){
203            goto T73;}
204            if(!((car(symbol_value(VV[21])))==(VV[25]))){
205            goto T74;}
206            goto T73;
207    T73:;
208            V28 = make_fixnum(V21);
209            (void)((*(LnkLI52))((V20),V28));
210            goto T72;
211            goto T74;
212    T74:;
213            if(((V20))!=Cnil){
214            goto T80;}
215            if(!((V21)>0)){
216            goto T81;}
217            goto T80;
218    T80:;
219            if(!(type_of((V17))==t_cons)){
220            goto T86;}
221            if(!((car((V17)))==(VV[28]))){
222            goto T89;}
223            V30= structure_ref(cadr((V17)),VV[28],1);
224            {register object x= /* INLINE-ARGS */V30,V29= VV[29];
225            while(!endp(V29))
226            if(eql(x,V29->c.c_car)){
227            goto T85;
228            }else V29=V29->c.c_cdr;}
229            goto T89;
230    T89:;
231            {register object x= car((V17)),V31= VV[30];
232            while(!endp(V31))
233            if(eql(x,V31->c.c_car)){
234            goto T93;
235            }else V31=V31->c.c_cdr;
236            goto T86;}
237            goto T93;
238    T93:;
239            goto T85;
240    T85:;
241            if(!(type_of(symbol_value(VV[21]))==t_cons)){
242            goto T95;}
243            if(!((car(symbol_value(VV[21])))==(VV[31]))){
244            goto T95;}
245            base[2]= (V17);
246            vs_top=(vs_base=base+2)+1;
247            (void) (*Lnk53)();
248            vs_top=sup;
249            V32 = make_fixnum(V21);
250            (void)((*(LnkLI52))((V20),V32));
251            goto T72;
252            goto T95;
253    T95:;
254            {object V33;
255            V33= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))()));
256            bds_bind(VV[21],(V33));
257            base[3]= (V17);
258            vs_top=(vs_base=base+3)+1;
259            (void) (*Lnk53)();
260            vs_top=sup;
261            bds_unwind1;
262            V34 = make_fixnum(V21);
263            (void)((*(LnkLI52))((V20),V34));
264            base[2]= (V33);
265            vs_top=(vs_base=base+2)+1;
266            (void) (*Lnk53)();
267            vs_top=sup;
268            goto T72;}
269            goto T86;
270    T86:;
271            V35 = make_fixnum(V21);
272            (void)((*(LnkLI52))((V20),V35));
273            base[2]= (V17);
274            vs_top=(vs_base=base+2)+1;
275            (void) (*Lnk53)();
276            vs_top=sup;
277            goto T72;
278            goto T81;
279    T81:;
280            base[2]= (V17);
281            vs_top=(vs_base=base+2)+1;
282            (void) (*Lnk53)();
283            vs_top=sup;
284            goto T72;
285    T72:;
286            if(((V18))==Cnil){
287            goto T109;}
288            if(!(type_of(symbol_value(VV[16]))==t_cons)){
289            goto T112;}
290            princ_str("\n   restore_avma; ",VV[17]);
291            goto T112;
292    T112:;
293            princ_str("\n   ",VV[17]);
294            if(type_of(symbol_value(VV[27]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[27]));
295            (symbol_value(VV[27]))->c.c_cdr = Ct;
296            princ_str("goto T",VV[17]);
297            (void)((*(LnkLI46))(car(symbol_value(VV[27]))));
298            princ_char(59,VV[17]);
299            goto T109;
300    T109:;
301            {object V36 = Cnil;
302            bds_unwind1;
303            VMR6(V36)}
304            goto T70;
305    T70:;
306            V18= Ct;
307            goto T65;
308            goto T67;
309    T67:;
310            if(!(type_of((V26))==t_fixnum||
311    type_of((V26))==t_bignum||
312    type_of((V26))==t_ratio||
313    type_of((V26))==t_shortfloat||
314    type_of((V26))==t_longfloat||
315    type_of((V26))==t_complex)){
316            goto T123;}
317            V20= (V26);
318            V21= 0;
319            goto T65;
320            goto T123;
321    T123:;
322            if(!(((V26))==(VV[33]))){
323            goto T129;}
324            V21= (long)(V21)+(1);
325            goto T65;
326            goto T129;
327    T129:;
328            if(!(((V26))==(VV[22]))){
329            goto T133;}
330            if(!((symbol_value(VV[27]))==(VV[22]))){
331            goto T65;}
332            base[2]= (V17);
333            vs_top=(vs_base=base+2)+1;
334            (void) (*Lnk53)();
335            vs_top=sup;
336            V37 = make_fixnum(V21);
337            (void)((*(LnkLI52))((V20),V37));
338            princ_str("\n   return;",VV[17]);
339            {object V38 = Cnil;
340            bds_unwind1;
341            VMR6(V38)}
342            goto T133;
343    T133:;
344            if(!(((V26))==(VV[34]))){
345            goto T143;}
346            if(!(type_of((V17))==t_cons)){
347            goto T145;}
348            {register object x= car((V17)),V39= VV[35];
349            while(!endp(V39))
350            if(eql(x,V39->c.c_car)){
351            goto T149;
352            }else V39=V39->c.c_cdr;
353            goto T145;}
354            goto T149;
355    T149:;
356            if(!(type_of(symbol_value(VV[21]))==t_cons)){
357            goto T151;}
358            if(!((car(symbol_value(VV[21])))==(VV[31]))){
359            goto T151;}
360            base[2]= (V17);
361            vs_top=(vs_base=base+2)+1;
362            (void) (*Lnk53)();
363            vs_top=sup;
364            V17= symbol_value(VV[21]);
365            goto T145;
366            goto T151;
367    T151:;
368            if((symbol_value(VV[36]))==Cnil){
369            goto T160;}
370            base[2]= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))()));
371            goto T158;
372            goto T160;
373    T160:;
374            base[2]= list(2,VV[31],(*(LnkLI55))());
375            goto T158;
376    T158:;
377            bds_bind(VV[21],base[2]);
378            base[3]= (V17);
379            vs_top=(vs_base=base+3)+1;
380            (void) (*Lnk53)();
381            vs_top=sup;
382            V17= (VV[21]->s.s_dbind);
383            bds_unwind1;
384            goto T145;
385    T145:;
386            princ_str("\n   frs_pop();",VV[17]);
387            goto T65;
388            goto T143;
389    T143:;
390            {object V40;
391            V40= (((V26))==(VV[37])?Ct:Cnil);
392            if(((V40))==Cnil){
393            goto T168;}
394            goto T65;
395            goto T168;
396    T168:;
397            if(!(((V26))==(VV[38]))){
398            goto T171;}
399            V18= Ct;
400            goto T65;
401            goto T171;
402    T171:;
403            {register object x= (V26),V41= VV[39];
404            while(!endp(V41))
405            if(type_of(V41->c.c_car)==t_cons &&eql(x,V41->c.c_car->c.c_car)){
406            V22= (V41->c.c_car);
407            goto T177;
408            }else V41=V41->c.c_cdr;
409            V22= Cnil;}
410            goto T177;
411    T177:;
412            if(((V22))==Cnil){
413            goto T175;}
414            {object V42;
415            setq(VV[40],number_plus(symbol_value(VV[40]),small_fixnum(1)));
416            V42= symbol_value(VV[40]);{object V43;
417            V43= symbol_value(VV[27]);
418            if(!((V43)==(car((V22))))){
419            goto T181;}}
420            goto T180;
421            goto T181;
422    T181:;
423            (void)((*(LnkLI56))());
424            goto T180;
425    T180:;
426            V22= cdr((V22));
427            princ_str("\n   {",VV[17]);
428            V44= (*(LnkLI57))(car((V22)));
429            (void)((*(LnkLI46))(/* INLINE-ARGS */V44));
430            princ_char(86,VV[17]);
431            (void)((*(LnkLI46))((V42)));
432            princ_str(" = ",VV[17]);
433            (void)((
434            V45 = cdr((V22)),
435            (type_of(V45) == t_sfun ?(*((V45)->sfn.sfn_self)):
436            (fcall.fun=(V45),fcall.argd=1,fcalln))((V17))));
437            princ_char(59,VV[17]);
438            V46 = make_fixnum(V21);
439            (void)((*(LnkLI52))((V20),V46));
440            princ_str("\n   VMR",VV[17]);
441            (void)((*(LnkLI46))(symbol_value(VV[41])));
442            princ_char(40,VV[17]);
443            V48= (*(LnkLI57))(car((V22)));
444            if(!(equal(/* INLINE-ARGS */V48,VV[42]))){
445            goto T202;}
446            V47= VV[43];
447            goto T200;
448            goto T202;
449    T202:;
450            V47= VV[44];
451            goto T200;
452    T200:;
453            (void)((*(LnkLI46))(V47));
454            princ_char(86,VV[17]);
455            (void)((*(LnkLI46))((V42)));
456            princ_str(")}",VV[17]);
457            {object V49 = Cnil;
458            bds_unwind1;
459            VMR6(V49)}}
460            goto T175;
461    T175:;
462            (void)((*(LnkLI51))());}
463            goto T65;
464    T65:;
465            V25= cdr((V25));
466            V26= car((V25));
467            goto T60;}}
468            va_end(ap);
469            base[0]=base[0];
470            return Cnil;}
471            }
472    /*      local entry for function UNWIND-NO-EXIT */
473    
474    static object LI7(V51)
475    
476    register object V51;
477    {        VMB7 VMS7 VMV7
478            goto TTL;
479    TTL:;
480            {register object V52;
481            register long V53;
482            V52= Cnil;
483            V53= 0;
484            {register object V54;
485            register object V55;
486            V54= symbol_value(VV[26]);
487            V55= car((V54));
488            goto T217;
489    T217:;
490            if(!(endp_prop((V54)))){
491            goto T218;}
492            {object V56 = (*(LnkLI51))();
493            VMR7(V56)}
494            goto T218;
495    T218:;
496            if(!(type_of((V55))==t_cons)){
497            goto T224;}
498            if(!(((V55))==((V51)))){
499            goto T222;}
500            V57 = make_fixnum(V53);
501            (void)((*(LnkLI52))((V52),V57));
502            {object V58 = Cnil;
503            VMR7(V58)}
504            goto T224;
505    T224:;
506            if(!(type_of((V55))==t_fixnum||
507    type_of((V55))==t_bignum||
508    type_of((V55))==t_ratio||
509    type_of((V55))==t_shortfloat||
510    type_of((V55))==t_longfloat||
511    type_of((V55))==t_complex)){
512            goto T230;}
513            V52= (V55);
514            V53= 0;
515            goto T222;
516            goto T230;
517    T230:;
518            if(!(((V55))==(VV[33]))){
519            goto T236;}
520            V53= (long)(V53)+(1);
521            goto T222;
522            goto T236;
523    T236:;
524            {register object x= (V55),V59= VV[45];
525            while(!endp(V59))
526            if(eql(x,V59->c.c_car)){
527            goto T241;
528            }else V59=V59->c.c_cdr;
529            goto T240;}
530            goto T241;
531    T241:;
532            if(!(((V51))==((V55)))){
533            goto T243;}
534            V60 = make_fixnum(V53);
535            (void)((*(LnkLI52))((V52),V60));
536            {object V61 = Cnil;
537            VMR7(V61)}
538            goto T243;
539    T243:;
540            (void)((*(LnkLI51))());
541            goto T222;
542            goto T240;
543    T240:;
544            if(!(((V55))==(VV[34]))){
545            goto T247;}
546            princ_str("\n   frs_pop();",VV[17]);
547            goto T222;
548            goto T247;
549    T247:;
550            if(!(((V55))==(VV[37]))){
551            goto T251;}
552            if(!(((V51))==(VV[37]))){
553            goto T254;}
554            V62 = make_fixnum(V53);
555            (void)((*(LnkLI52))((V52),V62));
556            {object V63 = Cnil;
557            VMR7(V63)}
558            goto T254;
559    T254:;
560            (void)((*(LnkLI51))());
561            goto T222;
562            goto T251;
563    T251:;
564            {object V64;
565            V64= (((V55))==(VV[38])?Ct:Cnil);
566            if(((V64))==Cnil){
567            goto T259;}
568            goto T222;
569            goto T259;
570    T259:;
571            (void)((*(LnkLI51))());}
572            goto T222;
573    T222:;
574            V54= cdr((V54));
575            V55= car((V54));
576            goto T217;}}
577            base[0]=base[0];
578            return Cnil;
579    }
580    /*      local entry for function TAIL-RECURSION-POSSIBLE        */
581    
582    static object LI8()
583    
584    {        VMB8 VMS8 VMV8
585            goto TTL;
586    TTL:;
587            {register object V65;
588            register object V66;
589            V65= symbol_value(VV[26]);
590            V66= car((V65));
591            goto T269;
592    T269:;
593            if(!(endp_prop((V65)))){
594            goto T270;}
595            {object V67 = (*(LnkLI51))();
596            VMR8(V67)}
597            goto T270;
598    T270:;
599            if(!(((V66))==(VV[37]))){
600            goto T276;}
601            {object V68 = Ct;
602            VMR8(V68)}
603            goto T276;
604    T276:;
605            if(type_of((V66))==t_fixnum||
606    type_of((V66))==t_bignum||
607    type_of((V66))==t_ratio||
608    type_of((V66))==t_shortfloat||
609    type_of((V66))==t_longfloat||
610    type_of((V66))==t_complex){
611            goto T278;}
612            if(((V66))==(VV[33])){
613            goto T278;}
614            if(!(((V66))==(VV[34]))){
615            goto T279;}
616            goto T278;
617    T278:;
618            {object V69 = Cnil;
619            VMR8(V69)}
620            goto T279;
621    T279:;
622            {register object V70;
623            if(!(type_of((V66))==t_cons)){
624            goto T286;}
625            V70= Ct;
626            goto T285;
627            goto T286;
628    T286:;
629            V70= (((V66))==(VV[38])?Ct:Cnil);
630            goto T285;
631    T285:;
632            if(((V70))==Cnil){
633            goto T289;}
634            goto T274;
635            goto T289;
636    T289:;
637            (void)((*(LnkLI51))());}
638            goto T274;
639    T274:;
640            V65= cdr((V65));
641            V66= car((V65));
642            goto T269;}
643            base[0]=base[0];
644            return Cnil;
645    }
646    static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
647    static object  LnkTLI56(){return call_proc0(VV[56],(void **)(void *)&LnkLI56);} /* WFS-ERROR */
648    static object  LnkTLI55(){return call_proc0(VV[55],(void **)(void *)&LnkLI55);} /* VS-PUSH */
649    static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* CS-PUSH */
650    static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* SET-LOC */
651    static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* UNWIND-BDS */
652    static object  LnkTLI51(){return call_proc0(VV[51],(void **)(void *)&LnkLI51);} /* BABOON */
653    static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */
654    static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */
655    static object  LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* RESET-TOP */
656    static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
657    static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */
658    
659    #ifdef SYSTEM_SPECIAL_INIT
660    SYSTEM_SPECIAL_INIT
661    #endif
662    

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