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

Diff of /gcl/cmpnew/cmpspecial.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 138  T44:; Line 138  T44:;
138    
139  static object LI5(V28)  static object LI5(V28)
140    
141  register object V28;  object V28;
142  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
143  goto TTL;  goto TTL;
144  TTL:;  TTL:;
# Line 175  T67:; Line 175  T67:;
175          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32))));
176  goto T66;  goto T66;
177  T66:;  T66:;
178          V29= make_cons(car((V32)),(V29));          {register object V33;
179            V33= car((V32));
180            V29= make_cons((V33),(V29));}
181            {register object V34;
182          if(!(endp_prop(cdr((V32))))){          if(!(endp_prop(cdr((V32))))){
183          goto T78;}          goto T78;}
184          V33= Cnil;          V34= Cnil;
185          goto T76;          goto T76;
186  goto T78;  goto T78;
187  T78:;  T78:;
188          base[2]= cadr((V32));          base[3]= cadr((V32));
189          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
190          Leval();          Leval();
191          vs_top=sup;          vs_top=sup;
192          V33= vs_base[0];          V34= vs_base[0];
193  goto T76;  goto T76;
194  T76:;  T76:;
195          V30= make_cons(V33,(V30));          V30= make_cons((V34),(V30));
196          goto T62;          goto T62;}
197  goto T64;  goto T64;
198  T64:;  T64:;
199          if(!(type_of((V32))==t_symbol)){          if(!(type_of((V32))==t_symbol)){
200          goto T82;}          goto T83;}
201          V29= make_cons((V32),(V29));          {register object V35;
202          V30= make_cons(Cnil,(V30));          V35= (V32);
203          goto T62;          V29= make_cons((V35),(V29));}
204  goto T82;          {register object V36;
205  T82:;          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))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32))));
211  goto T62;  goto T62;
212  T62:;  T62:;
# Line 211  T53:; Line 218  T53:;
218          V29= reverse((V29));          V29= reverse((V29));
219          V30= reverse((V30));          V30= reverse((V30));
220          {object symbols,values;          {object symbols,values;
221          bds_ptr V34=bds_top;          bds_ptr V37=bds_top;
222          base[0]= (V29);          base[0]= (V29);
223          symbols= base[0];          symbols= base[0];
224          base[1]= (V30);          base[1]= (V30);
# Line 223  T53:; Line 230  T53:;
230          else{bds_bind(MMcar(symbols),MMcar(values));          else{bds_bind(MMcar(symbols),MMcar(values));
231          values=MMcdr(values);}          values=MMcdr(values);}
232          symbols=MMcdr(symbols);}          symbols=MMcdr(symbols);}
233          V35= (*(LnkLI50))(cdr((V28)));          V38= (*(LnkLI50))(cdr((V28)));
234          bds_unwind(V34);          bds_unwind(V37);
235          V28= V35;}          V28= V38;}
236          {object V36 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28));          {object V39 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28));
237          VMR5(V36)}}          VMR5(V39)}}
238          base[0]=base[0];          base[0]=base[0];
239          return Cnil;          return Cnil;
240  }  }
# Line 237  static void L6() Line 244  static void L6()
244  {register object *base=vs_base;  {register object *base=vs_base;
245          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
246          vs_reserve(VM6);          vs_reserve(VM6);
247          {object V37;          {object V40;
248          object V38;          object V41;
249          object V39;          object V42;
250          check_arg(3);          check_arg(3);
251          V37=(base[0]);          V40=(base[0]);
252          V38=(base[1]);          V41=(base[1]);
253          V39=(base[2]);          V42=(base[2]);
254          vs_top=sup;          vs_top=sup;
255  goto TTL;  goto TTL;
256  TTL:;  TTL:;
257          {object symbols,values;          {object symbols,values;
258          bds_ptr V40=bds_top;          bds_ptr V43=bds_top;
259          base[3]= (V37);          base[3]= (V40);
260          symbols= base[3];          symbols= base[3];
261          base[4]= (V38);          base[4]= (V41);
262          values= base[4];          values= base[4];
263          while(!endp(symbols)){          while(!endp(symbols)){
264          if(type_of(MMcar(symbols))!=t_symbol)          if(type_of(MMcar(symbols))!=t_symbol)
# Line 260  TTL:; Line 267  TTL:;
267          else{bds_bind(MMcar(symbols),MMcar(values));          else{bds_bind(MMcar(symbols),MMcar(values));
268          values=MMcdr(values);}          values=MMcdr(values);}
269          symbols=MMcdr(symbols);}          symbols=MMcdr(symbols);}
270          base[3]= (V39);          base[3]= (V42);
271          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
272          (void) (*Lnk59)();          (void) (*Lnk59)();
273          bds_unwind(V40);          bds_unwind(V43);
274          return;}          return;}
275          }          }
276  }  }
277  /*      local entry for function C1FUNCTION     */  /*      local entry for function C1FUNCTION     */
278    
279  static object LI7(V42)  static object LI7(V45)
280    
281  register object V42;  register object V45;
282  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
283          bds_check;          bds_check;
284  goto TTL;  goto TTL;
285  TTL:;  TTL:;
286          {object V43;          {object V46;
287          V43= Cnil;          V46= Cnil;
288          if(!(endp_prop((V42)))){          if(!(endp_prop((V45)))){
         goto T104;}  
         (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));  
 goto T104;  
 T104:;  
         if(endp_prop(cdr((V42)))){  
289          goto T107;}          goto T107;}
290          V44 = make_fixnum((long)length((V42)));          (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));
         (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));  
291  goto T107;  goto T107;
292  T107:;  T107:;
293          {register object V45;          if(endp_prop(cdr((V45)))){
294          V45= car((V42));          goto T110;}
295          if(!(type_of((V45))==t_symbol)){          V47 = make_fixnum((long)length((V45)));
296          goto T112;}          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V47));
297          V43= (*(LnkLI60))((V45));  goto T110;
298          if(((V43))==Cnil){  T110:;
299            {register object V48;
300            V48= car((V45));
301            if(!(type_of((V48))==t_symbol)){
302          goto T115;}          goto T115;}
303          if(!((car((V43)))==(VV[12]))){          V46= (*(LnkLI60))((V48));
304          goto T115;}          if(((V46))==Cnil){
305          {object V46 = list(3,VV[11],symbol_value(VV[13]),(V43));          goto T118;}
306          VMR7(V46)}          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;  goto T115;
318  T115:;  T115:;
319          {object V47;          if(!(type_of((V48))==t_cons)){
320          V48= get((V45),VV[15],Cnil);          goto T126;}
321          V47= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V48)==Cnil?Ct:Cnil)));          if(!((car((V48)))==(VV[17]))){
322          {object V49 = list(3,VV[11],(V47),list(3,VV[16],(V47),(V45)));          goto T126;}
323          VMR7(V49)}}          if(!(endp_prop(cdr((V48))))){
324  goto T112;          goto T130;}
325  T112:;          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48))));
326          if(!(type_of((V45))==t_cons)){  goto T130;
327          goto T123;}  T130:;
         if(!((car((V45)))==(VV[17]))){  
         goto T123;}  
         if(!(endp_prop(cdr((V45))))){  
         goto T127;}  
         (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45))));  
 goto T127;  
 T127:;  
328          base[0]= make_cons(VV[20],symbol_value(VV[19]));          base[0]= make_cons(VV[20],symbol_value(VV[19]));
329          base[1]= make_cons(VV[20],symbol_value(VV[21]));          base[1]= make_cons(VV[20],symbol_value(VV[21]));
330          base[2]= make_cons(VV[20],symbol_value(VV[22]));          base[2]= make_cons(VV[20],symbol_value(VV[22]));
# Line 326  T127:; Line 333  T127:;
333          bds_bind(VV[21],base[1]);          bds_bind(VV[21],base[1]);
334          bds_bind(VV[22],base[2]);          bds_bind(VV[22],base[2]);
335          bds_bind(VV[23],base[3]);          bds_bind(VV[23],base[3]);
336          V45= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V45))));          V48= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V48))));
337          {object V50 = list(3,VV[11],cadr((V45)),(V45));          {object V53 = list(3,VV[11],cadr((V48)),(V48));
338          bds_unwind1;          bds_unwind1;
339          bds_unwind1;          bds_unwind1;
340          bds_unwind1;          bds_unwind1;
341          bds_unwind1;          bds_unwind1;
342          VMR7(V50)}          VMR7(V53)}
343  goto T123;  goto T126;
344  T123:;  T126:;
345          {object V51 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V45)));          {object V54 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48)));
346          VMR7(V51)}}}          VMR7(V54)}}}
347          base[0]=base[0];          base[0]=base[0];
348          return Cnil;          return Cnil;
349  }  }
350  /*      local entry for function C2FUNCTION     */  /*      local entry for function C2FUNCTION     */
351    
352  static object LI8(V53)  static object LI8(V56)
353    
354  register object V53;  register object V56;
355  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
356  goto TTL;  goto TTL;
357  TTL:;  TTL:;
358          {object V54= car((V53));          {object V57= car((V56));
359          if((V54!= VV[16]))goto T136;          if((V57!= VV[16]))goto T139;
360          V55= list(2,VV[25],(*(LnkLI64))(caddr((V53))));          V58= list(2,VV[25],(*(LnkLI64))(caddr((V56))));
361          {object V56 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V55));          {object V59 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V58));
362          VMR8(V56)}          VMR8(V59)}
 goto T136;  
 T136:;  
         if((V54!= VV[12]))goto T137;  
         if((cadddr((V53)))==Cnil){  
         goto T139;}  
         V57= list(2,VV[26],structure_ref(caddr((V53)),VV[27],2));  
         {object V58 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V57));  
         VMR8(V58)}  
363  goto T139;  goto T139;
364  T139:;  T139:;
365          V59= list(2,VV[28],structure_ref(caddr((V53)),VV[27],1));          if((V57!= VV[12]))goto T140;
366          {object V60 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V59));          if((cadddr((V56)))==Cnil){
367          VMR8(V60)}          goto T142;}
368  goto T137;          V60= list(2,VV[26],structure_ref(caddr((V56)),VV[27],2));
369  T137:;          {object V61 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V60));
370          {register object V61;          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)));          setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1)));
380          V61= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32])));          V64= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32])));
381          if((symbol_value(VV[34]))!=Cnil){          {object V65;
382          goto T147;}          if((symbol_value(VV[33]))!=Cnil){
383          V62= Cnil;          goto T150;}
384          goto T145;          V66= Cnil;
385  goto T147;          goto T148;
386  T147:;  goto T150;
387          V62= make_cons(small_fixnum(0),small_fixnum(0));  T150:;
388  goto T145;          V66= make_cons(small_fixnum(0),small_fixnum(0));
389  T145:;  goto T148;
390          V63= list(5,VV[30],V62,symbol_value(VV[35]),(V61),(V53));  T148:;
391          setq(VV[33],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[33])));          V65= list(5,VV[30],V66,symbol_value(VV[34]),(V64),(V56));
392          setq(VV[36],make_cons((V61),symbol_value(VV[36])));          setq(VV[35],make_cons((V65),symbol_value(VV[35])));}
393          if((symbol_value(VV[34]))==Cnil){          setq(VV[36],make_cons(V64,symbol_value(VV[36])));
394          goto T152;}          if((symbol_value(VV[33]))==Cnil){
395          V64= list(3,VV[37],structure_ref((V61),VV[27],3),symbol_value(VV[34]));          goto T156;}
396          {object V65 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V64));          V68= list(3,VV[37],structure_ref((V64),VV[27],3),symbol_value(VV[33]));
397          VMR8(V65)}          {object V69 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V68));
398  goto T152;          VMR8(V69)}
399  T152:;  goto T156;
400          (void)((*(LnkLI66))(Cnil));{object V66;  T156:;
401          V66= symbol_value(VV[39]);          (void)((*(LnkLI66))(Cnil));{object V70;
402          V67= structure_ref((V61),VV[27],3);          V70= symbol_value(VV[39]);
403          V68= list(3,VV[38],V66,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V67)));          V71= structure_ref((V64),VV[27],3);
404          (void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V68,Ct)));}          V72= list(3,VV[38],V70,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V71)));
405          V69= list(2,VV[42],symbol_value(VV[39]));          (void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));}
406          {object V70 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V69));          V73= list(2,VV[42],symbol_value(VV[39]));
407          VMR8(V70)}}}          {object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73));
408            VMR8(V74)}}}
409            base[0]=base[0];
410          return Cnil;          return Cnil;
411  }  }
412  /*      local entry for function WT-SYMBOL-FUNCTION     */  /*      local entry for function WT-SYMBOL-FUNCTION     */
413    
414  static object LI9(V72)  static object LI9(V76)
415    
416  object V72;  object V76;
417  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
418  goto TTL;  goto TTL;
419  TTL:;  TTL:;
420          if((symbol_value(VV[43]))==Cnil){          if((symbol_value(VV[43]))==Cnil){
421          goto T157;}          goto T161;}
422          princ_str("symbol_function(VV[",VV[44]);          princ_str("symbol_function(VV[",VV[44]);
423          (void)((*(LnkLI69))((V72)));          (void)((*(LnkLI69))((V76)));
424          princ_str("])",VV[44]);          princ_str("])",VV[44]);
425          {object V73 = Cnil;          {object V77 = Cnil;
426          VMR9(V73)}          VMR9(V77)}
427  goto T157;  goto T161;
428  T157:;  T161:;
429          princ_str("(VV[",VV[44]);          princ_str("(VV[",VV[44]);
430          (void)((*(LnkLI69))((V72)));          (void)((*(LnkLI69))((V76)));
431          princ_str("]->s.s_gfdef)",VV[44]);          princ_str("]->s.s_gfdef)",VV[44]);
432          {object V74 = Cnil;          {object V78 = Cnil;
433          VMR9(V74)}          VMR9(V78)}
434          return Cnil;          return Cnil;
435  }  }
436  /*      local entry for function WT-MAKE-CCLOSURE       */  /*      local entry for function WT-MAKE-CCLOSURE       */
437    
438  static object LI10(V77,V78)  static object LI10(V81,V82)
439    
440  object V77;object V78;  object V81;object V82;
441  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
442  goto TTL;  goto TTL;
443  TTL:;  TTL:;
444          princ_str("\n   make_cclosure_new(LC",VV[44]);          princ_str("\n   make_cclosure_new(LC",VV[44]);
445          (void)((*(LnkLI69))((V77)));          (void)((*(LnkLI69))((V81)));
446          princ_str(",Cnil,",VV[44]);          princ_str(",Cnil,",VV[44]);
447          (void)((VFUN_NARGS=1,(*(LnkLI70))((V78))));          (void)((VFUN_NARGS=1,(*(LnkLI70))((V82))));
448          princ_str(",Cdata)",VV[44]);          princ_str(",Cdata)",VV[44]);
449          {object V79 = Cnil;          {object V83 = Cnil;
450          VMR10(V79)}          VMR10(V83)}
451          return Cnil;          return Cnil;
452  }  }
453  static object  LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* WT-CLINK */  static object  LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* WT-CLINK */

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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