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

Diff of /gcl/cmpnew/cmpblock.c

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

revision 1.7 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.8 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 51  static object LI2(V10) Line 51  static object LI2(V10)
51  register object V10;  register object V10;
52  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
53          bds_check;          bds_check;
54  goto TTL;          goto TTL;
55  TTL:;  TTL:;
56          if(!(endp_prop((V10)))){          if(!(endp_prop((V10)))){
57          goto T9;}          goto T9;}
58          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));
59  goto T9;          goto T9;
60  T9:;  T9:;
61          if(type_of(car((V10)))==t_symbol){          if(type_of(car((V10)))==t_symbol){
62          goto T12;}          goto T12;}
63          (void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10)))));          (void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10)))));
64  goto T12;          goto T12;
65  T12:;  T12:;
66          {register object V11;          {register object V11;
67          object V12;          object V12;
# Line 72  T12:; Line 72  T12:;
72          goto T19;}          goto T19;}
73          if((structure_ref((V11),VV[0],2))==Cnil){          if((structure_ref((V11),VV[0],2))==Cnil){
74          goto T18;}          goto T18;}
75  goto T19;          goto T19;
76  T19:;  T19:;
77          setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1)));          setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1)));
78  goto T18;          goto T18;
79  T18:;  T18:;
80          if((structure_ref((V11),VV[0],3))!=Cnil){          if((structure_ref((V11),VV[0],3))!=Cnil){
81          goto T24;}          goto T24;}
# Line 83  T18:; Line 83  T18:;
83          goto T24;}          goto T24;}
84          if((structure_ref((V11),VV[0],1))==Cnil){          if((structure_ref((V11),VV[0],1))==Cnil){
85          goto T25;}          goto T25;}
86  goto T24;          goto T24;
87  T24:;  T24:;
88          V13= (*(LnkLI30))(cadr((V12)));          V13= (*(LnkLI30))(cadr((V12)));
89          {object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12));          {object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12));
90          bds_unwind1;          bds_unwind1;
91          VMR2(V14)}          VMR2(V14)}
92  goto T25;          goto T25;
93  T25:;  T25:;
94          {object V15 = (V12);          {object V15 = (V12);
95          bds_unwind1;          bds_unwind1;
# Line 109  static void L3() Line 109  static void L3()
109          V16=(base[0]);          V16=(base[0]);
110          V17=(base[1]);          V17=(base[1]);
111          vs_top=sup;          vs_top=sup;
112  goto TTL;          goto TTL;
113  TTL:;  TTL:;
114          if((structure_ref((V16),VV[0],3))==Cnil){          if((structure_ref((V16),VV[0],3))==Cnil){
115          goto T32;}          goto T32;}
116          base[2]= (*(LnkLI31))((V16),(V17));          base[2]= (*(LnkLI31))((V16),(V17));
117          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
118          return;          return;
119  goto T32;          goto T32;
120  T32:;  T32:;
121          if((structure_ref((V16),VV[0],2))==Cnil){          if((structure_ref((V16),VV[0],2))==Cnil){
122          goto T35;}          goto T35;}
123          base[2]= (*(LnkLI32))((V16),(V17));          base[2]= (*(LnkLI32))((V16),(V17));
124          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
125          return;          return;
126  goto T35;          goto T35;
127  T35:;  T35:;
128          base[2]= (V16);          base[2]= (V16);
129          base[3]= (V17);          base[3]= (V17);
# Line 144  static void L4() Line 144  static void L4()
144          V18=(base[0]);          V18=(base[0]);
145          V19=(base[1]);          V19=(base[1]);
146          vs_top=sup;          vs_top=sup;
147  goto TTL;          goto TTL;
148  TTL:;  TTL:;
149          (void)(structure_set((V18),VV[0],4,symbol_value(VV[9])));          (void)(structure_set((V18),VV[0],4,symbol_value(VV[9])));
150          (void)(structure_set((V18),VV[0],5,symbol_value(VV[10])));          (void)(structure_set((V18),VV[0],5,symbol_value(VV[10])));
# Line 161  static object LI5(V22,V23) Line 161  static object LI5(V22,V23)
161  register object V22;object V23;  register object V22;object V23;
162  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
163          bds_check;          bds_check;
164  goto TTL;          goto TTL;
165  TTL:;  TTL:;
166          bds_bind(VV[11],symbol_value(VV[11]));          bds_bind(VV[11],symbol_value(VV[11]));
167          (void)(structure_set((V22),VV[0],4,symbol_value(VV[9])));          (void)(structure_set((V22),VV[0],4,symbol_value(VV[9])));
# Line 202  static object LI6(V30,V31) Line 202  static object LI6(V30,V31)
202  register object V30;object V31;  register object V30;object V31;
203  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
204          bds_check;          bds_check;
205  goto TTL;          goto TTL;
206  TTL:;  TTL:;
207          bds_bind(VV[11],symbol_value(VV[11]));          bds_bind(VV[11],symbol_value(VV[11]));
208          bds_bind(VV[17],symbol_value(VV[17]));          bds_bind(VV[17],symbol_value(VV[17]));
# Line 262  static object LI7(V43) Line 262  static object LI7(V43)
262    
263  object V43;  object V43;
264  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
265  goto TTL;          goto TTL;
266  TTL:;  TTL:;
267          if(!(endp_prop((V43)))){          if(!(endp_prop((V43)))){
268          goto T107;}          goto T107;}
269          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));
270          goto T105;          goto T105;
271  goto T107;          goto T107;
272  T107:;  T107:;
273          if(endp_prop(cdr((V43)))){          if(endp_prop(cdr((V43)))){
274          goto T110;}          goto T110;}
# Line 277  T107:; Line 277  T107:;
277          V44 = make_fixnum((long)length((V43)));          V44 = make_fixnum((long)length((V43)));
278          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V44));          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V44));
279          goto T105;          goto T105;
280  goto T110;          goto T110;
281  T110:;  T110:;
282          if(type_of(car((V43)))==t_symbol){          if(type_of(car((V43)))==t_symbol){
283          goto T105;}          goto T105;}
284          (void)(car((V43)));          (void)(car((V43)));
285  goto T105;          goto T105;
286  T105:;  T105:;
287          {register object V45;          {register object V45;
288          register object V46;          register object V46;
# Line 292  T105:; Line 292  T105:;
292          V46= car((V43));          V46= car((V43));
293          V47= Cnil;          V47= Cnil;
294          V48= Cnil;          V48= Cnil;
295  goto T120;          goto T120;
296  T120:;  T120:;
297          if(!(endp_prop((V45)))){          if(!(endp_prop((V45)))){
298          goto T121;}          goto T121;}
299          {object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46)));          {object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46)));
300          VMR7(V49)}          VMR7(V49)}
301  goto T121;          goto T121;
302  T121:;  T121:;
303          {object V50= car((V45));          {object V50= car((V45));
304          if((V50!= VV[44]))goto T126;          if((V50!= VV[44]))goto T126;
305          V47= Ct;          V47= Ct;
306          goto T125;          goto T125;
307  goto T126;          goto T126;
308  T126:;  T126:;
309          if((V50!= VV[45]))goto T128;          if((V50!= VV[45]))goto T128;
310          V48= Ct;          V48= Ct;
311          goto T125;          goto T125;
312  goto T128;          goto T128;
313  T128:;  T128:;
314          V51= structure_ref(car((V45)),VV[0],0);          V51= structure_ref(car((V45)),VV[0],0);
315          if(!((/* INLINE-ARGS */V51)==((V46)))){          if(!((/* INLINE-ARGS */V51)==((V46)))){
# Line 322  T128:; Line 322  T128:;
322          goto T136;}          goto T136;}
323          (void)(structure_set((V53),VV[0],3,Ct));          (void)(structure_set((V53),VV[0],3,Ct));
324          goto T134;          goto T134;
325  goto T136;          goto T136;
326  T136:;  T136:;
327          if(((V48))==Cnil){          if(((V48))==Cnil){
328          goto T139;}          goto T139;}
329          (void)(structure_set((V53),VV[0],2,Ct));          (void)(structure_set((V53),VV[0],2,Ct));
330          goto T134;          goto T134;
331  goto T139;          goto T139;
332  T139:;  T139:;
333          (void)(structure_set((V53),VV[0],1,Ct));          (void)(structure_set((V53),VV[0],1,Ct));
334  goto T134;          goto T134;
335  T134:;  T134:;
336          V54= (*(LnkLI30))(cadr((V52)));          V54= (*(LnkLI30))(cadr((V52)));
337          {object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52));          {object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52));
338          VMR7(V55)}}}          VMR7(V55)}}}
339  goto T125;          goto T125;
340  T125:;  T125:;
341          V45= cdr((V45));          V45= cdr((V45));
342          goto T120;}          goto T120;}
# Line 358  static void L8() Line 358  static void L8()
358          V58=(base[2]);          V58=(base[2]);
359          V59=(base[3]);          V59=(base[3]);
360          vs_top=sup;          vs_top=sup;
361  goto TTL;          goto TTL;
362  TTL:;  TTL:;
363          if(((V58))==Cnil){          if(((V58))==Cnil){
364          goto T145;}          goto T145;}
365          base[4]= (*(LnkLI47))((V56),(V59));          base[4]= (*(LnkLI47))((V56),(V59));
366          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
367          return;          return;
368  goto T145;          goto T145;
369  T145:;  T145:;
370          if(((V57))==Cnil){          if(((V57))==Cnil){
371          goto T148;}          goto T148;}
372          base[4]= (*(LnkLI48))((V56),(V59));          base[4]= (*(LnkLI48))((V56),(V59));
373          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
374          return;          return;
375  goto T148;          goto T148;
376  T148:;  T148:;
377          base[4]= (V56);          base[4]= (V56);
378          base[5]= (V59);          base[5]= (V59);
# Line 394  static void L9() Line 394  static void L9()
394          V60=(base[0]);          V60=(base[0]);
395          V61=(base[1]);          V61=(base[1]);
396          vs_top=sup;          vs_top=sup;
397  goto TTL;          goto TTL;
398  TTL:;  TTL:;
399          base[2]= structure_ref((V60),VV[0],5);          base[2]= structure_ref((V60),VV[0],5);
400          base[3]= structure_ref((V60),VV[0],4);          base[3]= structure_ref((V60),VV[0],4);
# Line 415  static object LI10(V64,V65) Line 415  static object LI10(V64,V65)
415  object V64;object V65;  object V64;object V65;
416  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
417          bds_check;          bds_check;
418  goto TTL;          goto TTL;
419  TTL:;  TTL:;
420          bds_bind(VV[10],VV[22]);          bds_bind(VV[10],VV[22]);
421          V66= (*(LnkLI50))((V65));          V66= (*(LnkLI50))((V65));
# Line 426  TTL:; Line 426  TTL:;
426          V67= structure_ref((V64),VV[0],2);          V67= structure_ref((V64),VV[0],2);
427          (void)((*(LnkLI42))(/* INLINE-ARGS */V67));          (void)((*(LnkLI42))(/* INLINE-ARGS */V67));
428          goto T158;          goto T158;
429  goto T160;          goto T160;
430  T160:;  T160:;
431          V68= structure_ref((V64),VV[0],2);          V68= structure_ref((V64),VV[0],2);
432          (void)((*(LnkLI36))(/* INLINE-ARGS */V68));          (void)((*(LnkLI36))(/* INLINE-ARGS */V68));
433  goto T158;          goto T158;
434  T158:;  T158:;
435          princ_str("),Cnil);",VV[12]);          princ_str("),Cnil);",VV[12]);
436          {object V69 = Cnil;          {object V69 = Cnil;
# Line 445  static object LI11(V72,V73) Line 445  static object LI11(V72,V73)
445  object V72;object V73;  object V72;object V73;
446  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
447          bds_check;          bds_check;
448  goto TTL;          goto TTL;
449  TTL:;  TTL:;
450          princ_str("\n   {frame_ptr fr;",VV[12]);          princ_str("\n   {frame_ptr fr;",VV[12]);
451          princ_str("\n   fr=frs_sch(",VV[12]);          princ_str("\n   fr=frs_sch(",VV[12]);

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

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