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

Diff of /gcl/cmpnew/gcl_cmpspecial.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_cmpspecial.h"
4    void init_gcl_cmpspecial(){do_init(VV);}
5    /*      local entry for function C1QUOTE        */
6    
7    static object LI1(V2)
8    
9    register object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            if(!(endp_prop((V2)))){
14            goto T1;}
15            (void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0)));
16            goto T1;
17    T1:;
18            if(endp_prop(cdr((V2)))){
19            goto T4;}
20            V3 = make_fixnum((long)length((V2)));
21            (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));
22            goto T4;
23    T4:;
24            {object V4 = (*(LnkLI47))(car((V2)),Ct);
25            VMR1(V4)}
26            return Cnil;
27    }
28    /*      local entry for function C1EVAL-WHEN    */
29    
30    static object LI2(V6)
31    
32    register object V6;
33    {        VMB2 VMS2 VMV2
34            goto TTL;
35    TTL:;
36            if(!(endp_prop((V6)))){
37            goto T7;}
38            (void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0)));
39            goto T7;
40    T7:;
41            {register object V7;
42            register object V8;
43            V7= car((V6));
44            V8= car((V7));
45            goto T13;
46    T13:;
47            if(!(endp_prop((V7)))){
48            goto T14;}
49            {object V9 = (*(LnkLI48))();
50            VMR2(V9)}
51            goto T14;
52    T14:;
53            {object V10= (V8);
54            if((V10!= VV[49]))goto T19;
55            {object V11 = (*(LnkLI50))(cdr((V6)));
56            VMR2(V11)}
57            goto T19;
58    T19:;
59            if((V10!= VV[51])
60            && (V10!= VV[52]))goto T20;
61            goto T18;
62            goto T20;
63    T20:;
64            (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[2],(V8))));}
65            goto T18;
66    T18:;
67            V7= cdr((V7));
68            V8= car((V7));
69            goto T13;}
70            base[0]=base[0];
71            return Cnil;
72    }
73    /*      local entry for function C1DECLARE      */
74    
75    static object LI3(V13)
76    
77    object V13;
78    {        VMB3 VMS3 VMV3
79            goto TTL;
80    TTL:;
81            V14= make_cons(VV[4],(V13));
82            {object V15 = (VFUN_NARGS=2,(*(LnkLI53))(VV[3],/* INLINE-ARGS */V14));
83            VMR3(V15)}
84            return Cnil;
85    }
86    /*      local entry for function C1THE  */
87    
88    static object LI4(V17)
89    
90    register object V17;
91    {        VMB4 VMS4 VMV4
92            goto TTL;
93    TTL:;
94            {register object V18;
95            register object V19;
96            object V20;
97            V18= Cnil;
98            V19= Cnil;
99            V20= Cnil;
100            if(endp_prop((V17))){
101            goto T30;}
102            if(!(endp_prop(cdr((V17))))){
103            goto T29;}
104            goto T30;
105    T30:;
106            V21 = make_fixnum((long)length((V17)));
107            (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));
108            goto T29;
109    T29:;
110            if(endp_prop(cddr((V17)))){
111            goto T34;}
112            V22 = make_fixnum((long)length((V17)));
113            (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));
114            goto T34;
115    T34:;
116            V19= (*(LnkLI54))(cadr((V17)));
117            base[0]= cadr((V19));
118            vs_top=(vs_base=base+0)+1;
119            (void) (*Lnk55)();
120            vs_top=sup;
121            V18= vs_base[0];
122            V23= (*(LnkLI57))(car((V17)));
123            V24= structure_ref((V18),VV[6],2);
124            V20= (*(LnkLI56))(/* INLINE-ARGS */V23,/* INLINE-ARGS */V24);
125            if(((V20))!=Cnil){
126            goto T44;}
127            V25= make_cons(VV[5],(V17));
128            (void)((VFUN_NARGS=2,(*(LnkLI58))(VV[7],/* INLINE-ARGS */V25)));
129            goto T44;
130    T44:;
131            (void)(structure_set((V18),VV[6],2,(V20)));
132            {object V26 = listA(3,car((V19)),(V18),cddr((V19)));
133            VMR4(V26)}}
134            base[0]=base[0];
135            return Cnil;
136    }
137    /*      local entry for function C1COMPILER-LET */
138    
139    static object LI5(V28)
140    
141    object V28;
142    {        VMB5 VMS5 VMV5
143            goto TTL;
144    TTL:;
145            {register object V29;
146            register object V30;
147            V29= Cnil;
148            V30= Cnil;
149            if(!(endp_prop((V28)))){
150            goto T50;}
151            (void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0)));
152            goto T50;
153    T50:;
154            {register object V31;
155            register object V32;
156            V31= car((V28));
157            V32= car((V31));
158            goto T57;
159    T57:;
160            if(!(endp_prop((V31)))){
161            goto T58;}
162            goto T53;
163            goto T58;
164    T58:;
165            if(!(type_of((V32))==t_cons)){
166            goto T64;}
167            if(!(type_of(car((V32)))==t_symbol)){
168            goto T67;}
169            if(endp_prop(cdr((V32)))){
170            goto T66;}
171            if(endp_prop(cddr((V32)))){
172            goto T66;}
173            goto T67;
174    T67:;
175            (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32))));
176            goto T66;
177    T66:;
178            {register object V33;
179            V33= car((V32));
180            V29= make_cons((V33),(V29));}
181            {register object V34;
182            if(!(endp_prop(cdr((V32))))){
183            goto T78;}
184            V34= Cnil;
185            goto T76;
186            goto T78;
187    T78:;
188            base[3]= cadr((V32));
189            vs_top=(vs_base=base+3)+1;
190            Leval();
191            vs_top=sup;
192            V34= vs_base[0];
193            goto T76;
194    T76:;
195            V30= make_cons((V34),(V30));
196            goto T62;}
197            goto T64;
198    T64:;
199            if(!(type_of((V32))==t_symbol)){
200            goto T83;}
201            {register object V35;
202            V35= (V32);
203            V29= make_cons((V35),(V29));}
204            {register object V36;
205            V36= Cnil;
206            V30= make_cons((V36),(V30));
207            goto T62;}
208            goto T83;
209    T83:;
210            (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32))));
211            goto T62;
212    T62:;
213            V31= cdr((V31));
214            V32= car((V31));
215            goto T57;}
216            goto T53;
217    T53:;
218            V29= reverse((V29));
219            V30= reverse((V30));
220            {object symbols,values;
221            bds_ptr V37=bds_top;
222            base[0]= (V29);
223            symbols= base[0];
224            base[1]= (V30);
225            values= base[1];
226            while(!endp(symbols)){
227            if(type_of(MMcar(symbols))!=t_symbol)
228            FEinvalid_variable("~s is not a symbol.",MMcar(symbols));
229            if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
230            else{bds_bind(MMcar(symbols),MMcar(values));
231            values=MMcdr(values);}
232            symbols=MMcdr(symbols);}
233            V38= (*(LnkLI50))(cdr((V28)));
234            bds_unwind(V37);
235            V28= V38;}
236            {object V39 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28));
237            VMR5(V39)}}
238            base[0]=base[0];
239            return Cnil;
240    }
241    /*      function definition for C2COMPILER-LET  */
242    
243    static void L6()
244    {register object *base=vs_base;
245            register object *sup=base+VM6; VC6
246            vs_reserve(VM6);
247            {object V40;
248            object V41;
249            object V42;
250            check_arg(3);
251            V40=(base[0]);
252            V41=(base[1]);
253            V42=(base[2]);
254            vs_top=sup;
255            goto TTL;
256    TTL:;
257            {object symbols,values;
258            bds_ptr V43=bds_top;
259            base[3]= (V40);
260            symbols= base[3];
261            base[4]= (V41);
262            values= base[4];
263            while(!endp(symbols)){
264            if(type_of(MMcar(symbols))!=t_symbol)
265            FEinvalid_variable("~s is not a symbol.",MMcar(symbols));
266            if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
267            else{bds_bind(MMcar(symbols),MMcar(values));
268            values=MMcdr(values);}
269            symbols=MMcdr(symbols);}
270            base[3]= (V42);
271            vs_top=(vs_base=base+3)+1;
272            (void) (*Lnk59)();
273            bds_unwind(V43);
274            return;}
275            }
276    }
277    /*      local entry for function C1FUNCTION     */
278    
279    static object LI7(V45)
280    
281    register object V45;
282    {        VMB7 VMS7 VMV7
283            bds_check;
284            goto TTL;
285    TTL:;
286            {object V46;
287            V46= Cnil;
288            if(!(endp_prop((V45)))){
289            goto T107;}
290            (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));
291            goto T107;
292    T107:;
293            if(endp_prop(cdr((V45)))){
294            goto T110;}
295            V47 = make_fixnum((long)length((V45)));
296            (void)((*(LnkLI46))(VV[11],small_fixnum(1),V47));
297            goto T110;
298    T110:;
299            {register object V48;
300            V48= car((V45));
301            if(!(type_of((V48))==t_symbol)){
302            goto T115;}
303            V46= (*(LnkLI60))((V48));
304            if(((V46))==Cnil){
305            goto T118;}
306            if(!((car((V46)))==(VV[12]))){
307            goto T118;}
308            {object V49 = list(3,VV[11],symbol_value(VV[13]),(V46));
309            VMR7(V49)}
310            goto T118;
311    T118:;
312            {object V50;
313            V51= get((V48),VV[15],Cnil);
314            V50= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V51)==Cnil?Ct:Cnil)));
315            {object V52 = list(3,VV[11],(V50),list(3,VV[16],(V50),(V48)));
316            VMR7(V52)}}
317            goto T115;
318    T115:;
319            if(!(type_of((V48))==t_cons)){
320            goto T126;}
321            if(!((car((V48)))==(VV[17]))){
322            goto T126;}
323            if(!(endp_prop(cdr((V48))))){
324            goto T130;}
325            (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48))));
326            goto T130;
327    T130:;
328            base[0]= make_cons(VV[20],symbol_value(VV[19]));
329            base[1]= make_cons(VV[20],symbol_value(VV[21]));
330            base[2]= make_cons(VV[20],symbol_value(VV[22]));
331            base[3]= make_cons(VV[20],symbol_value(VV[23]));
332            bds_bind(VV[19],base[0]);
333            bds_bind(VV[21],base[1]);
334            bds_bind(VV[22],base[2]);
335            bds_bind(VV[23],base[3]);
336            V48= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V48))));
337            {object V53 = list(3,VV[11],cadr((V48)),(V48));
338            bds_unwind1;
339            bds_unwind1;
340            bds_unwind1;
341            bds_unwind1;
342            VMR7(V53)}
343            goto T126;
344    T126:;
345            {object V54 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48)));
346            VMR7(V54)}}}
347            base[0]=base[0];
348            return Cnil;
349    }
350    /*      local entry for function C2FUNCTION     */
351    
352    static object LI8(V56)
353    
354    register object V56;
355    {        VMB8 VMS8 VMV8
356            goto TTL;
357    TTL:;
358            {object V57= car((V56));
359            if((V57!= VV[16]))goto T139;
360            V58= list(2,VV[25],(*(LnkLI64))(caddr((V56))));
361            {object V59 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V58));
362            VMR8(V59)}
363            goto T139;
364    T139:;
365            if((V57!= VV[12]))goto T140;
366            if((cadddr((V56)))==Cnil){
367            goto T142;}
368            V60= list(2,VV[26],structure_ref(caddr((V56)),VV[27],2));
369            {object V61 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V60));
370            VMR8(V61)}
371            goto T142;
372    T142:;
373            V62= list(2,VV[28],structure_ref(caddr((V56)),VV[27],1));
374            {object V63 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V62));
375            VMR8(V63)}
376            goto T140;
377    T140:;
378            {register object V64;
379            setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1)));
380            V64= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32])));
381            {object V65;
382            if((symbol_value(VV[33]))!=Cnil){
383            goto T150;}
384            V66= Cnil;
385            goto T148;
386            goto T150;
387    T150:;
388            V66= make_cons(small_fixnum(0),small_fixnum(0));
389            goto T148;
390    T148:;
391            V65= list(5,VV[30],V66,symbol_value(VV[34]),(V64),(V56));
392            setq(VV[35],make_cons((V65),symbol_value(VV[35])));}
393            setq(VV[36],make_cons(V64,symbol_value(VV[36])));
394            if((symbol_value(VV[33]))==Cnil){
395            goto T156;}
396            V68= list(3,VV[37],structure_ref((V64),VV[27],3),symbol_value(VV[33]));
397            {object V69 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V68));
398            VMR8(V69)}
399            goto T156;
400    T156:;
401            (void)((*(LnkLI66))(Cnil));{object V70;
402            V70= symbol_value(VV[39]);
403            V71= structure_ref((V64),VV[27],3);
404            V72= list(3,VV[38],V70,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V71)));
405            (void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));}
406            V73= list(2,VV[42],symbol_value(VV[39]));
407            {object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73));
408            VMR8(V74)}}}
409            base[0]=base[0];
410            return Cnil;
411    }
412    /*      local entry for function WT-SYMBOL-FUNCTION     */
413    
414    static object LI9(V76)
415    
416    object V76;
417    {        VMB9 VMS9 VMV9
418            goto TTL;
419    TTL:;
420            if((symbol_value(VV[43]))==Cnil){
421            goto T161;}
422            princ_str("symbol_function(VV[",VV[44]);
423            (void)((*(LnkLI69))((V76)));
424            princ_str("])",VV[44]);
425            {object V77 = Cnil;
426            VMR9(V77)}
427            goto T161;
428    T161:;
429            princ_str("(VV[",VV[44]);
430            (void)((*(LnkLI69))((V76)));
431            princ_str("]->s.s_gfdef)",VV[44]);
432            {object V78 = Cnil;
433            VMR9(V78)}
434            return Cnil;
435    }
436    /*      local entry for function WT-MAKE-CCLOSURE       */
437    
438    static object LI10(V81,V82)
439    
440    object V81;object V82;
441    {        VMB10 VMS10 VMV10
442            goto TTL;
443    TTL:;
444            princ_str("\n   make_cclosure_new(LC",VV[44]);
445            (void)((*(LnkLI69))((V81)));
446            princ_str(",Cnil,",VV[44]);
447            (void)((VFUN_NARGS=1,(*(LnkLI70))((V82))));
448            princ_str(",Cdata)",VV[44]);
449            {object V83 = Cnil;
450            VMR10(V83)}
451            return Cnil;
452    }
453    static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* WT-CLINK */
454    static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* WT1 */
455    static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
456    static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* ADD-INIT */
457    static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
458    static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[65],(void **)(void *)&LnkLI65,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
459    static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
460    static object  LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[63],(void **)(void *)&LnkLI63,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
461    static object  LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[62],(void **)(void *)&LnkLI62,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
462    static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[61],(void **)(void *)&LnkLI61,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
463    static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-CLOSURE */
464    static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* C2EXPR */
465    static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* CMPWARN */
466    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;} /* TYPE-FILTER */
467    static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
468    static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* COPY-INFO */
469    static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
470    static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPERR */
471    static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
472    static object  LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* C1NIL */
473    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;} /* C1CONSTANT-VALUE */
474    static object  LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
475    static object  LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[45],(void **)(void *)&LnkLI45,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
476    
477    #ifdef SYSTEM_SPECIAL_INIT
478    SYSTEM_SPECIAL_INIT
479    #endif
480    

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