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; |
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)))); |
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 |
|
|
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]); |
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 |
|
|
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 |
|
|
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; |
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])); |
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 |
|
|
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]); |
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 |
|
|
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; |
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)))); |
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 |
|
|
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])); |
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))); |
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 |