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

Diff of /gcl/cmpnew/gcl_cmpcatch.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:26 2003 UTC
# Line 14  TTL:; Line 14  TTL:;
14          object V4;          object V4;
15          V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));          V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));
16          V4= Cnil;          V4= Cnil;
17          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          (VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1));
18          if(!(endp_prop((V2)))){          if(!(((V2))==Cnil)){
19          goto T5;}          goto T5;}
20          (void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0)));
21          goto T5;          goto T5;
22  T5:;  T5:;
23          V4= (*(LnkLI25))(car((V2)));          V4= (*(LnkLI25))(CMPcar((V2)));
24          (void)((*(LnkLI26))((V3),cadr((V4))));          (void)((*(LnkLI26))((V3),CMPcadr((V4))));
25          V2= (*(LnkLI27))(cdr((V2)));          V2= (*(LnkLI27))(CMPcdr((V2)));
26          (void)((*(LnkLI26))((V3),cadr((V2))));          (void)((*(LnkLI26))((V3),CMPcadr((V2))));
27          {object V5 = list(4,VV[2],(V3),(V4),(V2));          {object V5 = list(4,VV[2],(V3),(V4),(V2));
28          VMR1(V5)}}          VMR1(V5)}}
29          base[0]=base[0];          base[0]=base[0];
# Line 38  object V8;object V9; Line 38  object V8;object V9;
38          bds_check;          bds_check;
39          goto TTL;          goto TTL;
40  TTL:;  TTL:;
41          bds_bind(VV[3],symbol_value(VV[3]));          bds_bind(VV[3],(VV[3]->s.s_dbind));
42          bds_bind(VV[4],VV[5]);          bds_bind(VV[4],VV[5]);
43          V10= (*(LnkLI28))((V8));          V10= (*(LnkLI28))((V8));
44          bds_unwind1;          bds_unwind1;
# Line 47  TTL:; Line 47  TTL:;
47          (void)((VFUN_NARGS=2,(*(LnkLI29))(VV[7],VV[8])));          (void)((VFUN_NARGS=2,(*(LnkLI29))(VV[7],VV[8])));
48          princ_char(125,VV[6]);          princ_char(125,VV[6]);
49          princ_str("\n   else{",VV[6]);          princ_str("\n   else{",VV[6]);
50          base[1]= make_cons(VV[10],symbol_value(VV[9]));          base[1]= make_cons(VV[10],(VV[9]->s.s_dbind));
51          bds_bind(VV[9],base[1]);          bds_bind(VV[9],base[1]);
52          base[2]= (V9);          base[2]= (V9);
53          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 89  TTL:; Line 89  TTL:;
89          object V18;          object V18;
90          V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));          V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));
91          V18= Cnil;          V18= Cnil;
92          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          (VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1));
93          if(!(endp_prop((V16)))){          if(!(((V16))==Cnil)){
94          goto T35;}          goto T35;}
95          (void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0)));
96          goto T35;          goto T35;
97  T35:;  T35:;
98          base[1]= make_cons(VV[13],symbol_value(VV[12]));          base[1]= make_cons(VV[13],(VV[12]->s.s_dbind));
99          base[2]= make_cons(VV[13],symbol_value(VV[14]));          base[2]= make_cons(VV[13],(VV[14]->s.s_dbind));
100          base[3]= make_cons(VV[13],symbol_value(VV[15]));          base[3]= make_cons(VV[13],(VV[15]->s.s_dbind));
101          bds_bind(VV[12],base[1]);          bds_bind(VV[12],base[1]);
102          bds_bind(VV[14],base[2]);          bds_bind(VV[14],base[2]);
103          bds_bind(VV[15],base[3]);          bds_bind(VV[15],base[3]);
104          V19= (*(LnkLI25))(car((V16)));          V19= (*(LnkLI25))(CMPcar((V16)));
105          bds_unwind1;          bds_unwind1;
106          bds_unwind1;          bds_unwind1;
107          bds_unwind1;          bds_unwind1;
108          V18= V19;          V18= V19;
109          (void)((*(LnkLI26))((V17),cadr((V18))));          (void)((*(LnkLI26))((V17),CMPcadr((V18))));
110          V16= (*(LnkLI27))(cdr((V16)));          V16= (*(LnkLI27))(CMPcdr((V16)));
111          (void)((*(LnkLI26))((V17),cadr((V16))));          (void)((*(LnkLI26))((V17),CMPcadr((V16))));
112          {object V20 = list(4,VV[11],(V17),(V18),(V16));          {object V20 = list(4,VV[11],(V17),(V18),(V16));
113          VMR4(V20)}}          VMR4(V20)}}
114          base[0]=base[0];          base[0]=base[0];
# Line 125  object V23;object V24; Line 125  object V23;object V24;
125  TTL:;  TTL:;
126          {register object V25;          {register object V25;
127          object V26;          object V26;
128          bds_bind(VV[3],symbol_value(VV[3]));          bds_bind(VV[3],(VV[3]->s.s_dbind));
129          V25= list(2,VV[16],(*(LnkLI32))());          V25= list(2,VV[16],(*(LnkLI32))());
130          V26= Cnil;          V26= Cnil;
131          princ_str("\n   frs_push(FRS_PROTECT,Cnil);",VV[6]);          princ_str("\n   frs_push(FRS_PROTECT,Cnil);",VV[6]);
# Line 157  TTL:; Line 157  TTL:;
157          princ_str("\n   vs_base=vs_top=base+",VV[6]);          princ_str("\n   vs_base=vs_top=base+",VV[6]);
158          (void)((*(LnkLI31))((VV[3]->s.s_dbind)));          (void)((*(LnkLI31))((VV[3]->s.s_dbind)));
159          princ_char(59,VV[6]);          princ_char(59,VV[6]);
160          setq(VV[20],Ct);          (VV[20]->s.s_dbind)= Ct;
161          princ_str("\n   for(p= ",VV[6]);          princ_str("\n   for(p= ",VV[6]);
162          (void)((*(LnkLI31))((V25)));          (void)((*(LnkLI31))((V25)));
163          princ_str(";!endp(p);p=MMcdr(p))vs_push(MMcar(p));",VV[6]);          princ_str(";!endp(p);p=MMcdr(p))vs_push(MMcar(p));",VV[6]);
164          princ_str("\n   if(active)unwind(fr,tag);else{",VV[6]);          princ_str("\n   if(active)unwind(fr,tag);else{",VV[6]);
165          if(((V26))==Cnil){          if(((V26))==Cnil){
166          goto T94;}          goto T94;}
167          V28= car((V26));          V28= CMPcar((V26));
168          goto T92;          goto T92;
169          goto T94;          goto T94;
170  T94:;  T94:;
# Line 191  TTL:; Line 191  TTL:;
191          object V33;          object V33;
192          V32= (VFUN_NARGS=0,(*(LnkLI23))());          V32= (VFUN_NARGS=0,(*(LnkLI23))());
193          V33= Cnil;          V33= Cnil;
194          if(endp_prop((V31))){          if(((V31))==Cnil){
195          goto T100;}          goto T100;}
196          if(!(endp_prop(cdr((V31))))){          if(!((CMPcdr((V31)))==Cnil)){
197          goto T99;}          goto T99;}
198          goto T100;          goto T100;
199  T100:;  T100:;
200          V34 = make_fixnum((long)length((V31)));          V34 = CMPmake_fixnum((long)length((V31)));
201          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));
202          goto T99;          goto T99;
203  T99:;  T99:;
204          if(endp_prop(cddr((V31)))){          if((CMPcddr((V31)))==Cnil){
205          goto T104;}          goto T104;}
206          V35 = make_fixnum((long)length((V31)));          V35 = CMPmake_fixnum((long)length((V31)));
207          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));
208          goto T104;          goto T104;
209  T104:;  T104:;
210          V33= (*(LnkLI25))(car((V31)));          V33= (*(LnkLI25))(CMPcar((V31)));
211          (void)((*(LnkLI26))((V32),cadr((V33))));          (void)((*(LnkLI26))((V32),CMPcadr((V33))));
212          V31= (*(LnkLI25))(cadr((V31)));          V31= (*(LnkLI25))(CMPcadr((V31)));
213          (void)((*(LnkLI26))((V32),cadr((V31))));          (void)((*(LnkLI26))((V32),CMPcadr((V31))));
214          {object V36 = list(4,VV[21],(V32),(V33),(V31));          {object V36 = list(4,VV[21],(V32),(V33),(V31));
215          VMR6(V36)}}          VMR6(V36)}}
216          base[0]=base[0];          base[0]=base[0];
# Line 226  register object V39;object V40; Line 226  register object V39;object V40;
226          goto TTL;          goto TTL;
227  TTL:;  TTL:;
228          {register object V41;          {register object V41;
229          bds_bind(VV[3],symbol_value(VV[3]));          bds_bind(VV[3],(VV[3]->s.s_dbind));
230          V41= Cnil;          V41= Cnil;
231          princ_str("\n   {frame_ptr fr;",VV[6]);          princ_str("\n   {frame_ptr fr;",VV[6]);
232          {object V42= car((V39));          {object V42= CMPcar((V39));
233          if((V42!= VV[35]))goto T117;          if((V42!= VV[35]))goto T117;
234          V41= caddr((V39));          V41= CMPcaddr((V39));
235          goto T116;          goto T116;
236          goto T117;          goto T117;
237  T117:;  T117:;
238          if((V42!= VV[22]))goto T119;          if((V42!= VV[22]))goto T119;
239          V41= make_cons(VV[22],caddr((V39)));          V41= make_cons(VV[22],CMPcaddr((V39)));
240          goto T116;          goto T116;
241          goto T119;          goto T119;
242  T119:;  T119:;

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