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

Diff of /gcl/cmpnew/cmpcatch.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpcatch.h"  #include "cmpcatch.h"
4  init_cmpcatch(){do_init(VV);}  void init_cmpcatch(){do_init(VV);}
5  /*      local entry for function C1CATCH        */  /*      local entry for function C1CATCH        */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          {object V3;          {object V3;
14          object V4;          object V4;
# Line 17  TTL:; Line 18  TTL:;
18          if(!(endp((V2)))){          if(!(endp((V2)))){
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;
22  T5:;  T5:;
23          V4= (*(LnkLI25))(car((V2)));          V4= (*(LnkLI25))(car((V2)));
24          (void)((*(LnkLI26))((V3),cadr((V4))));          (void)((*(LnkLI26))((V3),cadr((V4))));
# Line 24  T5:; Line 26  T5:;
26          (void)((*(LnkLI26))((V3),cadr((V2))));          (void)((*(LnkLI26))((V3),cadr((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];
30            return Cnil;
31  }  }
32  /*      local entry for function C2CATCH        */  /*      local entry for function C2CATCH        */
33    
# Line 32  static object LI2(V8,V9) Line 36  static object LI2(V8,V9)
36  object V8;object V9;  object V8;object V9;
37  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
38          bds_check;          bds_check;
39    goto TTL;
40  TTL:;  TTL:;
41          bds_bind(VV[3],symbol_value(VV[3]));          bds_bind(VV[3],symbol_value(VV[3]));
42          bds_bind(VV[4],VV[5]);          bds_bind(VV[4],VV[5]);
# Line 53  TTL:; Line 58  TTL:;
58          {object V11 = Cnil;          {object V11 = Cnil;
59          bds_unwind1;          bds_unwind1;
60          VMR2(V11)}          VMR2(V11)}
61            base[0]=base[0];
62            return Cnil;
63  }  }
64  /*      local entry for function SET-PUSH-CATCH-FRAME   */  /*      local entry for function SET-PUSH-CATCH-FRAME   */
65    
# Line 60  static object LI3(V13) Line 67  static object LI3(V13)
67    
68  object V13;  object V13;
69  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
70    goto TTL;
71  TTL:;  TTL:;
72          princ_str("\n   frs_push(FRS_CATCH,",VV[6]);          princ_str("\n   frs_push(FRS_CATCH,",VV[6]);
73          (void)((*(LnkLI31))((V13)));          (void)((*(LnkLI31))((V13)));
74          princ_str(");",VV[6]);          princ_str(");",VV[6]);
75          {object V14 = Cnil;          {object V14 = Cnil;
76          VMR3(V14)}          VMR3(V14)}
77            return Cnil;
78  }  }
79  /*      local entry for function C1UNWIND-PROTECT       */  /*      local entry for function C1UNWIND-PROTECT       */
80    
# Line 74  static object LI4(V16) Line 83  static object LI4(V16)
83  register object V16;  register object V16;
84  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
85          bds_check;          bds_check;
86    goto TTL;
87  TTL:;  TTL:;
88          {object V17;          {object V17;
89          object V18;          object V18;
# Line 83  TTL:; Line 93  TTL:;
93          if(!(endp((V16)))){          if(!(endp((V16)))){
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;
97  T35:;  T35:;
98          base[1]= make_cons(VV[13],symbol_value(VV[12]));          base[1]= make_cons(VV[13],symbol_value(VV[12]));
99          base[2]= make_cons(VV[13],symbol_value(VV[14]));          base[2]= make_cons(VV[13],symbol_value(VV[14]));
# Line 100  T35:; Line 111  T35:;
111          (void)((*(LnkLI26))((V17),cadr((V16))));          (void)((*(LnkLI26))((V17),cadr((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];
115            return Cnil;
116  }  }
117  /*      local entry for function C2UNWIND-PROTECT       */  /*      local entry for function C2UNWIND-PROTECT       */
118    
# Line 108  static object LI5(V23,V24) Line 121  static object LI5(V23,V24)
121  object V23;object V24;  object V23;object V24;
122  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
123          bds_check;          bds_check;
124    goto TTL;
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],symbol_value(VV[3]));
129          V25= list(2,VV[16],(*(LnkLI32))());          V25= list(2,VV[16],(*(LnkLI32))());
130          V26= Cnil;          V26= Cnil;
         princ_str("\n   {object tag;frame_ptr fr;object p;bool active;",VV[6]);  
131          princ_str("\n   frs_push(FRS_PROTECT,Cnil);",VV[6]);          princ_str("\n   frs_push(FRS_PROTECT,Cnil);",VV[6]);
132            princ_str("\n   {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;",VV[6]);
133          princ_str("\n   if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}",VV[6]);          princ_str("\n   if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}",VV[6]);
134          princ_str("\n   else{",VV[6]);          princ_str("\n   else{",VV[6]);
135          bds_bind(VV[4],VV[17]);          bds_bind(VV[4],VV[17]);
# Line 152  TTL:; Line 166  TTL:;
166          goto T94;}          goto T94;}
167          V28= car((V26));          V28= car((V26));
168          goto T92;          goto T92;
169    goto T94;
170  T94:;  T94:;
171          V28= Cnil;          V28= Cnil;
172    goto T92;
173  T92:;  T92:;
174          (void)((VFUN_NARGS=3,(*(LnkLI29))(VV[7],Cnil,V28)));          (void)((VFUN_NARGS=3,(*(LnkLI29))(VV[7],Cnil,V28)));
175          princ_str("}}",VV[6]);          princ_str("}}",VV[6]);
176          {object V29 = Cnil;          {object V29 = Cnil;
177          bds_unwind1;          bds_unwind1;
178          VMR5(V29)}}          VMR5(V29)}}
179            base[0]=base[0];
180            return Cnil;
181  }  }
182  /*      local entry for function C1THROW        */  /*      local entry for function C1THROW        */
183    
# Line 167  static object LI6(V31) Line 185  static object LI6(V31)
185    
186  register object V31;  register object V31;
187  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
188    goto TTL;
189  TTL:;  TTL:;
190          {object V32;          {object V32;
191          object V33;          object V33;
# Line 176  TTL:; Line 195  TTL:;
195          goto T100;}          goto T100;}
196          if(!(endp(cdr((V31))))){          if(!(endp(cdr((V31))))){
197          goto T99;}          goto T99;}
198    goto T100;
199  T100:;  T100:;
200          V34 = make_fixnum(length((V31)));          V34 = make_fixnum(length((V31)));
201          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));
202    goto T99;
203  T99:;  T99:;
204          if(endp(cddr((V31)))){          if(endp(cddr((V31)))){
205          goto T104;}          goto T104;}
206          V35 = make_fixnum(length((V31)));          V35 = make_fixnum(length((V31)));
207          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));
208    goto T104;
209  T104:;  T104:;
210          V33= (*(LnkLI25))(car((V31)));          V33= (*(LnkLI25))(car((V31)));
211          (void)((*(LnkLI26))((V32),cadr((V33))));          (void)((*(LnkLI26))((V32),cadr((V33))));
# Line 191  T104:; Line 213  T104:;
213          (void)((*(LnkLI26))((V32),cadr((V31))));          (void)((*(LnkLI26))((V32),cadr((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];
217            return Cnil;
218  }  }
219  /*      local entry for function C2THROW        */  /*      local entry for function C2THROW        */
220    
# Line 199  static object LI7(V39,V40) Line 223  static object LI7(V39,V40)
223  register object V39;object V40;  register object V39;object V40;
224  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
225          bds_check;          bds_check;
226    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],symbol_value(VV[3]));
# Line 208  TTL:; Line 233  TTL:;
233          if((V42!= VV[35]))goto T117;          if((V42!= VV[35]))goto T117;
234          V41= caddr((V39));          V41= caddr((V39));
235          goto T116;          goto T116;
236    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],caddr((V39)));
240          goto T116;          goto T116;
241    goto T119;
242  T119:;  T119:;
243          V41= list(2,VV[16],(*(LnkLI32))());          V41= list(2,VV[16],(*(LnkLI32))());
244          bds_bind(VV[4],(V41));          bds_bind(VV[4],(V41));
245          V43= (*(LnkLI28))((V39));          V43= (*(LnkLI28))((V39));
246          bds_unwind1;}          bds_unwind1;}
247    goto T116;
248  T116:;  T116:;
249          princ_str("\n   fr=frs_sch_catch(",VV[6]);          princ_str("\n   fr=frs_sch_catch(",VV[6]);
250          (void)((*(LnkLI31))((V41)));          (void)((*(LnkLI31))((V41)));
# Line 233  T116:; Line 261  T116:;
261          {object V45 = Cnil;          {object V45 = Cnil;
262          bds_unwind1;          bds_unwind1;
263          VMR7(V45)}}          VMR7(V45)}}
264            base[0]=base[0];
265            return Cnil;
266  }  }
267  static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],(void **)&LnkLI34,3,ap);} /* TOO-MANY-ARGS */
268  static object  LnkTLI33(){return call_proc0(VV[33],&LnkLI33);} /* RESET-TOP */  static object  LnkTLI33(){return call_proc0(VV[33],(void **)&LnkLI33);} /* RESET-TOP */
269  static object  LnkTLI32(){return call_proc0(VV[32],&LnkLI32);} /* VS-PUSH */  static object  LnkTLI32(){return call_proc0(VV[32],(void **)&LnkLI32);} /* VS-PUSH */
270  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[31],&LnkLI31,1,ap);} /* WT1 */  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[31],(void **)&LnkLI31,1,ap);} /* WT1 */
271  static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* C2EXPR */  static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* C2EXPR */
272  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],&LnkLI29,ap);} /* UNWIND-EXIT */  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],(void **)&LnkLI29,ap);} /* UNWIND-EXIT */
273  static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[28],&LnkLI28,1,ap);} /* C2EXPR* */  static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[28],(void **)&LnkLI28,1,ap);} /* C2EXPR* */
274  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,1,ap);} /* C1PROGN */  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],(void **)&LnkLI27,1,ap);} /* C1PROGN */
275  static object  LnkTLI26(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[26],&LnkLI26,2,ap);} /* ADD-INFO */  static object  LnkTLI26(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[26],(void **)&LnkLI26,2,ap);} /* ADD-INFO */
276  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,1,ap);} /* C1EXPR */  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],(void **)&LnkLI25,1,ap);} /* C1EXPR */
277  static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],&LnkLI24,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],(void **)&LnkLI24,3,ap);} /* TOO-FEW-ARGS */
278  static object  LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[23],&LnkLI23,ap);} /* MAKE-INFO */  static object  LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[23],(void **)&LnkLI23,ap);} /* MAKE-INFO */
279    
280  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
281  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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