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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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