1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpbind.h" |
#include "cmpbind.h" |
4 |
init_cmpbind(){do_init(VV);} |
void init_cmpbind(){do_init(VV);} |
5 |
/* local entry for function C2BIND */ |
/* local entry for function C2BIND */ |
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 |
V4= structure_ref((V2),VV[0],1); |
V4= structure_ref((V2),VV[0],1); |
14 |
{object V3= /* INLINE-ARGS */V4; |
{object V3= /* INLINE-ARGS */V4; |
29 |
V8= (*(LnkLI15))(); |
V8= (*(LnkLI15))(); |
30 |
{object V9 = structure_set((V2),VV[0],3,/* INLINE-ARGS */V8); |
{object V9 = structure_set((V2),VV[0],3,/* INLINE-ARGS */V8); |
31 |
VMR1(V9)} |
VMR1(V9)} |
32 |
|
goto T3; |
33 |
T3:; |
T3:; |
34 |
{object V10 = Cnil; |
{object V10 = Cnil; |
35 |
VMR1(V10)} |
VMR1(V10)} |
36 |
|
goto T1; |
37 |
T1:; |
T1:; |
38 |
if((V3!= VV[16]))goto T16; |
if((V3!= VV[16]))goto T16; |
39 |
princ_str("\n bds_bind(VV[",VV[1]); |
princ_str("\n bds_bind(VV[",VV[1]); |
46 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
47 |
{object V13 = symbol_value(VV[2]); |
{object V13 = symbol_value(VV[2]); |
48 |
VMR1(V13)} |
VMR1(V13)} |
49 |
|
goto T16; |
50 |
T16:; |
T16:; |
51 |
if((V3!= VV[10]))goto T25; |
if((V3!= VV[10]))goto T25; |
52 |
V14= structure_ref((V2),VV[0],4); |
V14= structure_ref((V2),VV[0],4); |
61 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
62 |
{object V17 = Cnil; |
{object V17 = Cnil; |
63 |
VMR1(V17)} |
VMR1(V17)} |
64 |
|
goto T27; |
65 |
T27:; |
T27:; |
66 |
{object V18 = (*(LnkLI18))(); |
{object V18 = (*(LnkLI18))(); |
67 |
VMR1(V18)} |
VMR1(V18)} |
68 |
|
goto T25; |
69 |
T25:; |
T25:; |
70 |
if((V3!= VV[19]))goto T35; |
if((V3!= VV[19]))goto T35; |
71 |
princ_str("\n SETQ_IO(V",VV[1]); |
princ_str("\n SETQ_IO(V",VV[1]); |
82 |
princ_str("));",VV[1]); |
princ_str("));",VV[1]); |
83 |
{object V22 = Cnil; |
{object V22 = Cnil; |
84 |
VMR1(V22)} |
VMR1(V22)} |
85 |
|
goto T35; |
86 |
T35:; |
T35:; |
87 |
princ_str("\n V",VV[1]); |
princ_str("\n V",VV[1]); |
88 |
V23= structure_ref((V2),VV[0],4); |
V23= structure_ref((V2),VV[0],4); |
92 |
{object V24= /* INLINE-ARGS */V25; |
{object V24= /* INLINE-ARGS */V25; |
93 |
if((V24!= VV[20]))goto T52; |
if((V24!= VV[20]))goto T52; |
94 |
goto T51; |
goto T51; |
95 |
|
goto T52; |
96 |
T52:; |
T52:; |
97 |
if((V24!= VV[21]))goto T53; |
if((V24!= VV[21]))goto T53; |
98 |
princ_str("fix",VV[1]); |
princ_str("fix",VV[1]); |
99 |
goto T51; |
goto T51; |
100 |
|
goto T53; |
101 |
T53:; |
T53:; |
102 |
if((V24!= VV[22]))goto T55; |
if((V24!= VV[22]))goto T55; |
103 |
princ_str("char_code",VV[1]); |
princ_str("char_code",VV[1]); |
104 |
goto T51; |
goto T51; |
105 |
|
goto T55; |
106 |
T55:; |
T55:; |
107 |
if((V24!= VV[23]))goto T57; |
if((V24!= VV[23]))goto T57; |
108 |
princ_str("lf",VV[1]); |
princ_str("lf",VV[1]); |
109 |
goto T51; |
goto T51; |
110 |
|
goto T57; |
111 |
T57:; |
T57:; |
112 |
if((V24!= VV[24]))goto T59; |
if((V24!= VV[24]))goto T59; |
113 |
princ_str("sf",VV[1]); |
princ_str("sf",VV[1]); |
114 |
goto T51; |
goto T51; |
115 |
|
goto T59; |
116 |
T59:; |
T59:; |
117 |
(void)((*(LnkLI25))());} |
(void)((*(LnkLI25))());} |
118 |
|
goto T51; |
119 |
T51:; |
T51:; |
120 |
princ_char(40,VV[1]); |
princ_char(40,VV[1]); |
121 |
V26= structure_ref((V2),VV[0],2); |
V26= structure_ref((V2),VV[0],2); |
123 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
124 |
{object V27 = Cnil; |
{object V27 = Cnil; |
125 |
VMR1(V27)}} |
VMR1(V27)}} |
126 |
|
return Cnil; |
127 |
} |
} |
128 |
/* local entry for function C2BIND-LOC */ |
/* local entry for function C2BIND-LOC */ |
129 |
|
|
132 |
register object V30;register object V31; |
register object V30;register object V31; |
133 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
134 |
bds_check; |
bds_check; |
135 |
|
goto TTL; |
136 |
TTL:; |
TTL:; |
137 |
V33= structure_ref((V30),VV[0],1); |
V33= structure_ref((V30),VV[0],1); |
138 |
{object V32= /* INLINE-ARGS */V33; |
{object V32= /* INLINE-ARGS */V33; |
152 |
V36= (*(LnkLI15))(); |
V36= (*(LnkLI15))(); |
153 |
{object V37 = structure_set((V30),VV[0],3,/* INLINE-ARGS */V36); |
{object V37 = structure_set((V30),VV[0],3,/* INLINE-ARGS */V36); |
154 |
VMR2(V37)} |
VMR2(V37)} |
155 |
|
goto T67; |
156 |
T67:; |
T67:; |
157 |
princ_str("\n ",VV[1]); |
princ_str("\n ",VV[1]); |
158 |
V38= structure_ref((V30),VV[0],2); |
V38= structure_ref((V30),VV[0],2); |
162 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
163 |
{object V39 = Cnil; |
{object V39 = Cnil; |
164 |
VMR2(V39)} |
VMR2(V39)} |
165 |
|
goto T65; |
166 |
T65:; |
T65:; |
167 |
if((V32!= VV[16]))goto T84; |
if((V32!= VV[16]))goto T84; |
168 |
princ_str("\n bds_bind(VV[",VV[1]); |
princ_str("\n bds_bind(VV[",VV[1]); |
174 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
175 |
{object V41 = symbol_value(VV[2]); |
{object V41 = symbol_value(VV[2]); |
176 |
VMR2(V41)} |
VMR2(V41)} |
177 |
|
goto T84; |
178 |
T84:; |
T84:; |
179 |
if((V32!= VV[10]))goto T92; |
if((V32!= VV[10]))goto T92; |
180 |
princ_str("\n base0[",VV[1]); |
princ_str("\n base0[",VV[1]); |
185 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
186 |
{object V43 = Cnil; |
{object V43 = Cnil; |
187 |
VMR2(V43)} |
VMR2(V43)} |
188 |
|
goto T92; |
189 |
T92:; |
T92:; |
190 |
if((V32!= VV[19]))goto T98; |
if((V32!= VV[19]))goto T98; |
191 |
bds_bind(VV[4],small_fixnum(0)); |
bds_bind(VV[4],small_fixnum(0)); |
208 |
bds_unwind1; |
bds_unwind1; |
209 |
bds_unwind1; |
bds_unwind1; |
210 |
VMR2(V45)} |
VMR2(V45)} |
211 |
|
goto T98; |
212 |
T98:; |
T98:; |
213 |
princ_str("\n V",VV[1]); |
princ_str("\n V",VV[1]); |
214 |
V46= structure_ref((V30),VV[0],4); |
V46= structure_ref((V30),VV[0],4); |
222 |
(void) (*Lnk29)(); |
(void) (*Lnk29)(); |
223 |
vs_top=sup; |
vs_top=sup; |
224 |
goto T114; |
goto T114; |
225 |
|
goto T115; |
226 |
T115:; |
T115:; |
227 |
if((V47!= VV[21]))goto T117; |
if((V47!= VV[21]))goto T117; |
228 |
base[0]= (V31); |
base[0]= (V31); |
230 |
(void) (*Lnk30)(); |
(void) (*Lnk30)(); |
231 |
vs_top=sup; |
vs_top=sup; |
232 |
goto T114; |
goto T114; |
233 |
|
goto T117; |
234 |
T117:; |
T117:; |
235 |
if((V47!= VV[22]))goto T119; |
if((V47!= VV[22]))goto T119; |
236 |
base[0]= (V31); |
base[0]= (V31); |
238 |
(void) (*Lnk31)(); |
(void) (*Lnk31)(); |
239 |
vs_top=sup; |
vs_top=sup; |
240 |
goto T114; |
goto T114; |
241 |
|
goto T119; |
242 |
T119:; |
T119:; |
243 |
if((V47!= VV[23]))goto T121; |
if((V47!= VV[23]))goto T121; |
244 |
base[0]= (V31); |
base[0]= (V31); |
246 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
goto T114; |
goto T114; |
249 |
|
goto T121; |
250 |
T121:; |
T121:; |
251 |
if((V47!= VV[24]))goto T123; |
if((V47!= VV[24]))goto T123; |
252 |
base[0]= (V31); |
base[0]= (V31); |
254 |
(void) (*Lnk33)(); |
(void) (*Lnk33)(); |
255 |
vs_top=sup; |
vs_top=sup; |
256 |
goto T114; |
goto T114; |
257 |
|
goto T123; |
258 |
T123:; |
T123:; |
259 |
(void)((*(LnkLI25))());} |
(void)((*(LnkLI25))());} |
260 |
|
goto T114; |
261 |
T114:; |
T114:; |
262 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
263 |
{object V49 = Cnil; |
{object V49 = Cnil; |
264 |
VMR2(V49)}} |
VMR2(V49)}} |
265 |
|
base[0]=base[0]; |
266 |
|
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function C2BIND-INIT */ |
/* local entry for function C2BIND-INIT */ |
269 |
|
|
272 |
register object V52;register object V53; |
register object V52;register object V53; |
273 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
274 |
bds_check; |
bds_check; |
275 |
|
goto TTL; |
276 |
TTL:; |
TTL:; |
277 |
V55= structure_ref((V52),VV[0],1); |
V55= structure_ref((V52),VV[0],1); |
278 |
{object V54= /* INLINE-ARGS */V55; |
{object V54= /* INLINE-ARGS */V55; |
296 |
V59= (*(LnkLI15))(); |
V59= (*(LnkLI15))(); |
297 |
{object V60 = structure_set((V52),VV[0],3,/* INLINE-ARGS */V59); |
{object V60 = structure_set((V52),VV[0],3,/* INLINE-ARGS */V59); |
298 |
VMR3(V60)} |
VMR3(V60)} |
299 |
|
goto T128; |
300 |
T128:; |
T128:; |
301 |
base[0]= list(2,VV[7],structure_ref((V52),VV[0],2)); |
base[0]= list(2,VV[7],structure_ref((V52),VV[0],2)); |
302 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
303 |
{object V61 = (*(LnkLI34))((V53)); |
{object V61 = (*(LnkLI34))((V53)); |
304 |
bds_unwind1; |
bds_unwind1; |
305 |
VMR3(V61)} |
VMR3(V61)} |
306 |
|
goto T126; |
307 |
T126:; |
T126:; |
308 |
if((V54!= VV[16]))goto T143; |
if((V54!= VV[16]))goto T143; |
309 |
base[0]= list(2,VV[3],structure_ref((V52),VV[0],4)); |
base[0]= list(2,VV[3],structure_ref((V52),VV[0],4)); |
313 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
314 |
{object V63 = symbol_value(VV[2]); |
{object V63 = symbol_value(VV[2]); |
315 |
VMR3(V63)} |
VMR3(V63)} |
316 |
|
goto T143; |
317 |
T143:; |
T143:; |
318 |
if((V54!= VV[10]))goto T147; |
if((V54!= VV[10]))goto T147; |
319 |
base[0]= list(2,VV[10],structure_ref((V52),VV[0],4)); |
base[0]= list(2,VV[10],structure_ref((V52),VV[0],4)); |
321 |
{object V64 = (*(LnkLI34))((V53)); |
{object V64 = (*(LnkLI34))((V53)); |
322 |
bds_unwind1; |
bds_unwind1; |
323 |
VMR3(V64)} |
VMR3(V64)} |
324 |
|
goto T147; |
325 |
T147:; |
T147:; |
326 |
if((V54== VV[20]) |
if((V54== VV[20]) |
327 |
|| (V54== VV[21]) |
|| (V54== VV[21]) |
329 |
|| (V54== VV[23]) |
|| (V54== VV[23]) |
330 |
|| (V54== VV[24]))goto T150; |
|| (V54== VV[24]))goto T150; |
331 |
if((V54!= VV[19]))goto T149; |
if((V54!= VV[19]))goto T149; |
332 |
|
goto T150; |
333 |
T150:; |
T150:; |
334 |
base[0]= list(3,VV[0],(V52),Cnil); |
base[0]= list(3,VV[0],(V52),Cnil); |
335 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
336 |
{object V65 = (*(LnkLI34))((V53)); |
{object V65 = (*(LnkLI34))((V53)); |
337 |
bds_unwind1; |
bds_unwind1; |
338 |
VMR3(V65)} |
VMR3(V65)} |
339 |
|
goto T149; |
340 |
T149:; |
T149:; |
341 |
{object V66 = (*(LnkLI25))(); |
{object V66 = (*(LnkLI25))(); |
342 |
VMR3(V66)}} |
VMR3(V66)}} |
343 |
|
base[0]=base[0]; |
344 |
|
return Cnil; |
345 |
} |
} |
346 |
/* local entry for function SET-BDS-BIND */ |
/* local entry for function SET-BDS-BIND */ |
347 |
|
|
349 |
|
|
350 |
object V69;object V70; |
object V69;object V70; |
351 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
352 |
|
goto TTL; |
353 |
TTL:; |
TTL:; |
354 |
princ_str("\n bds_bind(VV[",VV[1]); |
princ_str("\n bds_bind(VV[",VV[1]); |
355 |
(void)((*(LnkLI17))((V70))); |
(void)((*(LnkLI17))((V70))); |
358 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
359 |
{object V71 = Cnil; |
{object V71 = Cnil; |
360 |
VMR4(V71)} |
VMR4(V71)} |
361 |
|
return Cnil; |
362 |
} |
} |
363 |
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* C2EXPR* */ |
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],(void **)&LnkLI34,1,ap);} /* C2EXPR* */ |
364 |
static LnkT33(){ call_or_link(VV[33],&Lnk33);} /* WT-SHORT-FLOAT-LOC */ |
static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* WT-SHORT-FLOAT-LOC */ |
365 |
static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* WT-LONG-FLOAT-LOC */ |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* WT-LONG-FLOAT-LOC */ |
366 |
static LnkT31(){ call_or_link(VV[31],&Lnk31);} /* WT-CHARACTER-LOC */ |
static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* WT-CHARACTER-LOC */ |
367 |
static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* WT-FIXNUM-LOC */ |
static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* WT-FIXNUM-LOC */ |
368 |
static LnkT29(){ call_or_link(VV[29],&Lnk29);} /* WT-LOC */ |
static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* WT-LOC */ |
369 |
static object LnkTLI28(){return call_proc0(VV[28],&LnkLI28);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI28(){return call_proc0(VV[28],(void **)&LnkLI28);} /* CLOSE-INLINE-BLOCKS */ |
370 |
static LnkT27(){ call_or_link(VV[27],&Lnk27);} /* WT-INTEGER-LOC */ |
static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* WT-INTEGER-LOC */ |
371 |
static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* SAVE-AVMA */ |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* SAVE-AVMA */ |
372 |
static object LnkTLI25(){return call_proc0(VV[25],&LnkLI25);} /* BABOON */ |
static object LnkTLI25(){return call_proc0(VV[25],(void **)&LnkLI25);} /* BABOON */ |
373 |
static object LnkTLI18(){return call_proc0(VV[18],&LnkLI18);} /* WFS-ERROR */ |
static object LnkTLI18(){return call_proc0(VV[18],(void **)&LnkLI18);} /* WFS-ERROR */ |
374 |
static object LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],&LnkLI17,1,ap);} /* WT1 */ |
static object LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],(void **)&LnkLI17,1,ap);} /* WT1 */ |
375 |
static object LnkTLI15(){return call_proc0(VV[15],&LnkLI15);} /* CCB-VS-PUSH */ |
static object LnkTLI15(){return call_proc0(VV[15],(void **)&LnkLI15);} /* CCB-VS-PUSH */ |
376 |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* CLINK */ |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* CLINK */ |
377 |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[13],&LnkLI13,ap);} /* WT-CLINK */ |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[13],(void **)&LnkLI13,ap);} /* WT-CLINK */ |
378 |
static object LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* WT-VS */ |
static object LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],(void **)&LnkLI12,1,ap);} /* WT-VS */ |
379 |
|
|
380 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
381 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |