/[gcl]/gcl/pcl/pcl_fin.c
ViewVC logotype

Diff of /gcl/pcl/pcl_fin.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 201  T40:; Line 201  T40:;
201          goto T33;          goto T33;
202          goto T46;          goto T46;
203  T46:;  T46:;
204            V22 = (V20);
205          base[0]= (V21);          base[0]= (V21);
206          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
207          (void) (*Lnk35)();          (void) (*Lnk35)();
208          vs_top=sup;          vs_top=sup;
209          V22= vs_base[0];          V23= vs_base[0];
210          (void)((*(LnkLI34))((V20),V22));          (void)((*(LnkLI34))(V22,V23));
211          goto T33;          goto T33;
212  T33:;  T33:;
213          {object V23 = (V20);          {object V24 = (V20);
214          VMR7(V23)}          VMR7(V24)}
215          base[0]=base[0];          base[0]=base[0];
216          return Cnil;          return Cnil;
217  }  }
# Line 222  static void L8() Line 223  static void L8()
223          vs_check;          vs_check;
224          check_arg(2);          check_arg(2);
225          vs_top=sup;          vs_top=sup;
226          {object V24=base[0]->c.c_cdr;          {object V25=base[0]->c.c_cdr;
227          if(endp(V24))invalid_macro_call();          if(endp(V25))invalid_macro_call();
228          base[2]= (V24->c.c_car);          base[2]= (V25->c.c_car);
229          V24=V24->c.c_cdr;          V25=V25->c.c_cdr;
230          if(endp(V24))invalid_macro_call();          if(endp(V25))invalid_macro_call();
231          base[3]= (V24->c.c_car);          base[3]= (V25->c.c_car);
232          V24=V24->c.c_cdr;          V25=V25->c.c_cdr;
233          if(!endp(V24))invalid_macro_call();}          if(!endp(V25))invalid_macro_call();}
234          {object V25;          {object V26;
235          object V26;          object V27;
236          base[6]= list(2,VV[16],base[3]);          base[6]= list(2,VV[16],base[3]);
237          base[7]= base[1];          base[7]= base[1];
238          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
239          Lmacroexpand();          Lmacroexpand();
240          vs_top=sup;          vs_top=sup;
241          V25= vs_base[0];          V26= vs_base[0];
242          base[6]= (V25);          base[6]= (V26);
243          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
244          Lconstantp();          Lconstantp();
245          vs_top=sup;          vs_top=sup;
246          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
247          goto T60;}          goto T60;}
248          base[6]= small_fixnum(15);          base[6]= small_fixnum(15);
249          base[8]= (V25);          base[8]= (V26);
250          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
251          Leval();          Leval();
252          vs_top=sup;          vs_top=sup;
# Line 254  static void L8() Line 255  static void L8()
255          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
256          Lminus();          Lminus();
257          vs_top=sup;          vs_top=sup;
258          V26= vs_base[0];          V27= vs_base[0];
259          goto T58;          goto T58;
260          goto T60;          goto T60;
261  T60:;  T60:;
262          V26= list(4,VV[17],VV[18],list(2,VV[16],base[3]),small_fixnum(2));          V27= list(4,VV[17],VV[18],list(2,VV[16],base[3]),small_fixnum(2));
263          goto T58;          goto T58;
264  T58:;  T58:;
265          base[6]= list(2,VV[9],list(3,VV[19],(V26),base[2]));          base[6]= list(2,VV[9],list(3,VV[19],(V27),base[2]));
266          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
267          return;}          return;}
268  }  }
# Line 317  static void L10() Line 318  static void L10()
318          vs_check;          vs_check;
319          check_arg(2);          check_arg(2);
320          vs_top=sup;          vs_top=sup;
321          {object V27=base[0]->c.c_cdr;          {object V28=base[0]->c.c_cdr;
322          if(endp(V27))invalid_macro_call();          if(endp(V28))invalid_macro_call();
323          base[2]= (V27->c.c_car);          base[2]= (V28->c.c_car);
324          V27=V27->c.c_cdr;          V28=V28->c.c_cdr;
325          if(!endp(V27))invalid_macro_call();}          if(!endp(V28))invalid_macro_call();}
326          base[3]= list(2,VV[20],base[2]);          base[3]= list(2,VV[20],base[2]);
327          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
328          return;          return;
# Line 334  static void L11() Line 335  static void L11()
335          vs_check;          vs_check;
336          check_arg(2);          check_arg(2);
337          vs_top=sup;          vs_top=sup;
338          {object V28=base[0]->c.c_cdr;          {object V29=base[0]->c.c_cdr;
339          if(endp(V28))invalid_macro_call();          if(endp(V29))invalid_macro_call();
340          base[2]= (V28->c.c_car);          base[2]= (V29->c.c_car);
341          V28=V28->c.c_cdr;          V29=V29->c.c_cdr;
342          if(!endp(V28))invalid_macro_call();}          if(!endp(V29))invalid_macro_call();}
343          base[3]= list(2,VV[21],list(3,VV[22],base[2],VV[23]));          base[3]= list(2,VV[21],list(3,VV[22],base[2],VV[23]));
344          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
345          return;          return;
# Line 351  static void L12() Line 352  static void L12()
352          vs_check;          vs_check;
353          check_arg(2);          check_arg(2);
354          vs_top=sup;          vs_top=sup;
355          {object V29=base[0]->c.c_cdr;          {object V30=base[0]->c.c_cdr;
356          if(endp(V29))invalid_macro_call();          if(endp(V30))invalid_macro_call();
357          base[2]= (V29->c.c_car);          base[2]= (V30->c.c_car);
358          V29=V29->c.c_cdr;          V30=V30->c.c_cdr;
359          if(!endp(V29))invalid_macro_call();}          if(!endp(V30))invalid_macro_call();}
360          base[3]= list(3,VV[22],base[2],VV[24]);          base[3]= list(3,VV[22],base[2],VV[24]);
361          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
362          return;          return;
# Line 368  static void L13() Line 369  static void L13()
369          vs_check;          vs_check;
370          check_arg(2);          check_arg(2);
371          vs_top=sup;          vs_top=sup;
372          {object V30=base[0]->c.c_cdr;          {object V31=base[0]->c.c_cdr;
373          if(endp(V30))invalid_macro_call();          if(endp(V31))invalid_macro_call();
374          base[2]= (V30->c.c_car);          base[2]= (V31->c.c_car);
375          V30=V30->c.c_cdr;          V31=V31->c.c_cdr;
376          if(!endp(V30))invalid_macro_call();}          if(!endp(V31))invalid_macro_call();}
377          base[3]= list(3,VV[22],base[2],VV[25]);          base[3]= list(3,VV[22],base[2],VV[25]);
378          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
379          return;          return;
# Line 384  register object *base0; Line 385  register object *base0;
385  {       register object *base=vs_base;  {       register object *base=vs_base;
386          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
387          vs_check;          vs_check;
388          {object V31;          {object V32;
389          vs_top[0]=Cnil;          vs_top[0]=Cnil;
390          {object *p=vs_top;          {object *p=vs_top;
391           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
392          V31=(base[0]);          V32=(base[0]);
393          vs_top=sup;          vs_top=sup;
394          (void)simple_symlispcall(VV[36],base+1,0);          (void)simple_symlispcall(VV[36],base+1,0);
395          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);

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

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