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

Diff of /gcl/cmpnew/cmpbind.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 "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;
# Line 28  TTL:; Line 29  TTL:;
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]);
# Line 43  T1:; Line 46  T1:;
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);
# Line 57  T16:; Line 61  T16:;
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]);
# Line 76  T25:; Line 82  T25:;
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);
# Line 85  T35:; Line 92  T35:;
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);
# Line 110  T51:; Line 123  T51:;
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    
# Line 118  static object LI2(V30,V31) Line 132  static object LI2(V30,V31)
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;
# Line 137  TTL:; Line 152  TTL:;
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);
# Line 146  T67:; Line 162  T67:;
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]);
# Line 157  T65:; Line 174  T65:;
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]);
# Line 167  T84:; Line 185  T84:;
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));
# Line 189  T92:; Line 208  T92:;
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);
# Line 202  T98:; Line 222  T98:;
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);
# Line 209  T115:; Line 230  T115:;
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);
# Line 216  T117:; Line 238  T117:;
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);
# Line 223  T119:; Line 246  T119:;
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);
# Line 230  T121:; Line 254  T121:;
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    
# Line 244  static object LI3(V52,V53) Line 272  static object LI3(V52,V53)
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;
# Line 267  TTL:; Line 296  TTL:;
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));
# Line 282  T126:; Line 313  T126:;
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));
# Line 289  T143:; Line 321  T143:;
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])
# Line 296  T147:; Line 329  T147:;
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    
# Line 312  static object LI4(V69,V70) Line 349  static object LI4(V69,V70)
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)));
# Line 320  TTL:; Line 358  TTL:;
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

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