/[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.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 43  T1:; Line 43  T1:;
43          V12= structure_ref((V2),VV[0],2);          V12= structure_ref((V2),VV[0],2);
44          (void)((*(LnkLI12))(/* INLINE-ARGS */V12));          (void)((*(LnkLI12))(/* INLINE-ARGS */V12));
45          princ_str(");",VV[1]);          princ_str(");",VV[1]);
46          setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));
47          {object V13 = symbol_value(VV[2]);          {object V14 = symbol_value(VV[3]);
48          VMR1(V13)}          VMR1(V14)}
49  goto T16;  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);          V15= structure_ref((V2),VV[0],4);
53          if(!(type_of(/* INLINE-ARGS */V14)==t_fixnum||type_of(/* INLINE-ARGS */V14)==t_bignum)){          if(!(type_of(/* INLINE-ARGS */V15)==t_fixnum||type_of(/* INLINE-ARGS */V15)==t_bignum)){
54          goto T27;}          goto T27;}
55          princ_str("\n   base0[",VV[1]);          princ_str("\n   base0[",VV[1]);
56          V15= structure_ref((V2),VV[0],4);          V16= structure_ref((V2),VV[0],4);
57          (void)((*(LnkLI17))(/* INLINE-ARGS */V15));          (void)((*(LnkLI17))(/* INLINE-ARGS */V16));
58          princ_str("]=",VV[1]);          princ_str("]=",VV[1]);
59          V16= structure_ref((V2),VV[0],2);          V17= structure_ref((V2),VV[0],2);
60          (void)((*(LnkLI12))(/* INLINE-ARGS */V16));          (void)((*(LnkLI12))(/* INLINE-ARGS */V17));
61          princ_char(59,VV[1]);          princ_char(59,VV[1]);
62          {object V17 = Cnil;          {object V18 = Cnil;
63          VMR1(V17)}          VMR1(V18)}
64  goto T27;  goto T27;
65  T27:;  T27:;
66          {object V18 = (*(LnkLI18))();          {object V19 = (*(LnkLI18))();
67          VMR1(V18)}          VMR1(V19)}
68  goto T25;  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]);
         V19= structure_ref((V2),VV[0],4);  
         (void)((*(LnkLI17))(/* INLINE-ARGS */V19));  
         princ_char(44,VV[1]);  
         princ_char(86,VV[1]);  
72          V20= structure_ref((V2),VV[0],4);          V20= structure_ref((V2),VV[0],4);
73          (void)((*(LnkLI17))(/* INLINE-ARGS */V20));          (void)((*(LnkLI17))(/* INLINE-ARGS */V20));
74            princ_char(44,VV[1]);
75            princ_char(86,VV[1]);
76            V21= structure_ref((V2),VV[0],4);
77            (void)((*(LnkLI17))(/* INLINE-ARGS */V21));
78          princ_str("alloc,",VV[1]);          princ_str("alloc,",VV[1]);
79          princ_char(40,VV[1]);          princ_char(40,VV[1]);
80          V21= structure_ref((V2),VV[0],2);          V22= structure_ref((V2),VV[0],2);
81          (void)((*(LnkLI12))(/* INLINE-ARGS */V21));          (void)((*(LnkLI12))(/* INLINE-ARGS */V22));
82          princ_str("));",VV[1]);          princ_str("));",VV[1]);
83          {object V22 = Cnil;          {object V23 = Cnil;
84          VMR1(V22)}          VMR1(V23)}
85  goto T35;  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);          V24= structure_ref((V2),VV[0],4);
89          (void)((*(LnkLI17))(/* INLINE-ARGS */V23));          (void)((*(LnkLI17))(/* INLINE-ARGS */V24));
90          princ_char(61,VV[1]);          princ_char(61,VV[1]);
91          V25= structure_ref((V2),VV[0],1);          V26= structure_ref((V2),VV[0],1);
92          {object V24= /* INLINE-ARGS */V25;          {object V25= /* INLINE-ARGS */V26;
93          if((V24!= VV[20]))goto T52;          if((V25!= VV[20]))goto T52;
94          goto T51;          goto T51;
95  goto T52;  goto T52;
96  T52:;  T52:;
97          if((V24!= VV[21]))goto T53;          if((V25!= VV[21]))goto T53;
98          princ_str("fix",VV[1]);          princ_str("fix",VV[1]);
99          goto T51;          goto T51;
100  goto T53;  goto T53;
101  T53:;  T53:;
102          if((V24!= VV[22]))goto T55;          if((V25!= 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;  goto T55;
106  T55:;  T55:;
107          if((V24!= VV[23]))goto T57;          if((V25!= VV[23]))goto T57;
108          princ_str("lf",VV[1]);          princ_str("lf",VV[1]);
109          goto T51;          goto T51;
110  goto T57;  goto T57;
111  T57:;  T57:;
112          if((V24!= VV[24]))goto T59;          if((V25!= VV[24]))goto T59;
113          princ_str("sf",VV[1]);          princ_str("sf",VV[1]);
114          goto T51;          goto T51;
115  goto T59;  goto T59;
# Line 118  T59:; Line 118  T59:;
118  goto T51;  goto T51;
119  T51:;  T51:;
120          princ_char(40,VV[1]);          princ_char(40,VV[1]);
121          V26= structure_ref((V2),VV[0],2);          V27= structure_ref((V2),VV[0],2);
122          (void)((*(LnkLI12))(/* INLINE-ARGS */V26));          (void)((*(LnkLI12))(/* INLINE-ARGS */V27));
123          princ_str(");",VV[1]);          princ_str(");",VV[1]);
124          {object V27 = Cnil;          {object V28 = Cnil;
125          VMR1(V27)}}          VMR1(V28)}}
126          return Cnil;          return Cnil;
127  }  }
128  /*      local entry for function C2BIND-LOC     */  /*      local entry for function C2BIND-LOC     */
129    
130  static object LI2(V30,V31)  static object LI2(V31,V32)
131    
132  register object V30;register object V31;  register object V31;register object V32;
133  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
134          bds_check;          bds_check;
135  goto TTL;  goto TTL;
136  TTL:;  TTL:;
137          V33= structure_ref((V30),VV[0],1);          V34= structure_ref((V31),VV[0],1);
138          {object V32= /* INLINE-ARGS */V33;          {object V33= /* INLINE-ARGS */V34;
139          if((V32!= VV[11]))goto T65;          if((V33!= VV[11]))goto T65;
140          if((structure_ref((V30),VV[0],3))==Cnil){          if((structure_ref((V31),VV[0],3))==Cnil){
141          goto T67;}          goto T67;}
142          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
143          V34= structure_ref((V30),VV[0],2);          V35= structure_ref((V31),VV[0],2);
144          (void)((*(LnkLI12))(/* INLINE-ARGS */V34));          (void)((*(LnkLI12))(/* INLINE-ARGS */V35));
145          princ_str("=MMcons(",VV[1]);          princ_str("=MMcons(",VV[1]);
146          (void)((*(LnkLI17))((V31)));          (void)((*(LnkLI17))((V32)));
147          princ_char(44,VV[1]);          princ_char(44,VV[1]);
148          (void)((VFUN_NARGS=0,(*(LnkLI13))()));          (void)((VFUN_NARGS=0,(*(LnkLI13))()));
149          princ_str(");",VV[1]);          princ_str(");",VV[1]);
150          V35= structure_ref((V30),VV[0],2);          V36= structure_ref((V31),VV[0],2);
151          (void)((*(LnkLI14))(/* INLINE-ARGS */V35));          (void)((*(LnkLI14))(/* INLINE-ARGS */V36));
152          V36= (*(LnkLI15))();          V37= (*(LnkLI15))();
153          {object V37 = structure_set((V30),VV[0],3,/* INLINE-ARGS */V36);          {object V38 = structure_set((V31),VV[0],3,/* INLINE-ARGS */V37);
154          VMR2(V37)}          VMR2(V38)}
155  goto T67;  goto T67;
156  T67:;  T67:;
157          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
158          V38= structure_ref((V30),VV[0],2);          V39= structure_ref((V31),VV[0],2);
159          (void)((*(LnkLI12))(/* INLINE-ARGS */V38));          (void)((*(LnkLI12))(/* INLINE-ARGS */V39));
160          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
161          (void)((*(LnkLI17))((V31)));          (void)((*(LnkLI17))((V32)));
162          princ_char(59,VV[1]);          princ_char(59,VV[1]);
163          {object V39 = Cnil;          {object V40 = Cnil;
164          VMR2(V39)}          VMR2(V40)}
165  goto T65;  goto T65;
166  T65:;  T65:;
167          if((V32!= VV[16]))goto T84;          if((V33!= VV[16]))goto T84;
168          princ_str("\n   bds_bind(VV[",VV[1]);          princ_str("\n   bds_bind(VV[",VV[1]);
169          V40= structure_ref((V30),VV[0],4);          V41= structure_ref((V31),VV[0],4);
170          (void)((*(LnkLI17))(/* INLINE-ARGS */V40));          (void)((*(LnkLI17))(/* INLINE-ARGS */V41));
171          princ_str("],",VV[1]);          princ_str("],",VV[1]);
172          (void)((*(LnkLI17))((V31)));          (void)((*(LnkLI17))((V32)));
173          princ_str(");",VV[1]);          princ_str(");",VV[1]);
174          setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));
175          {object V41 = symbol_value(VV[2]);          {object V43 = symbol_value(VV[3]);
176          VMR2(V41)}          VMR2(V43)}
177  goto T84;  goto T84;
178  T84:;  T84:;
179          if((V32!= VV[10]))goto T92;          if((V33!= VV[10]))goto T92;
180          princ_str("\n   base0[",VV[1]);          princ_str("\n   base0[",VV[1]);
181          V42= structure_ref((V30),VV[0],4);          V44= structure_ref((V31),VV[0],4);
182          (void)((*(LnkLI17))(/* INLINE-ARGS */V42));          (void)((*(LnkLI17))(/* INLINE-ARGS */V44));
183          princ_str("]=",VV[1]);          princ_str("]=",VV[1]);
184          (void)((*(LnkLI17))((V31)));          (void)((*(LnkLI17))((V32)));
185          princ_char(59,VV[1]);          princ_char(59,VV[1]);
186          {object V43 = Cnil;          {object V45 = Cnil;
187          VMR2(V43)}          VMR2(V45)}
188  goto T92;  goto T92;
189  T92:;  T92:;
190          if((V32!= VV[19]))goto T98;          if((V33!= VV[19]))goto T98;
191          bds_bind(VV[4],small_fixnum(0));          bds_bind(VV[4],small_fixnum(0));
192          bds_bind(VV[5],symbol_value(VV[5]));          bds_bind(VV[5],symbol_value(VV[5]));
193          base[2]= VV[6];          base[2]= VV[6];
# Line 195  T92:; Line 195  T92:;
195          (void) (*Lnk26)();          (void) (*Lnk26)();
196          vs_top=sup;          vs_top=sup;
197          princ_str("\n   V",VV[1]);          princ_str("\n   V",VV[1]);
198          V44= structure_ref((V30),VV[0],4);          V46= structure_ref((V31),VV[0],4);
199          (void)((*(LnkLI17))(/* INLINE-ARGS */V44));          (void)((*(LnkLI17))(/* INLINE-ARGS */V46));
200          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
201          base[2]= (V31);          base[2]= (V32);
202          base[3]= (V30);          base[3]= (V31);
203          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
204          (void) (*Lnk27)();          (void) (*Lnk27)();
205          vs_top=sup;          vs_top=sup;
206          princ_char(59,VV[1]);          princ_char(59,VV[1]);
207          {object V45 = (*(LnkLI28))();          {object V47 = (*(LnkLI28))();
208          bds_unwind1;          bds_unwind1;
209          bds_unwind1;          bds_unwind1;
210          VMR2(V45)}          VMR2(V47)}
211  goto T98;  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);          V48= structure_ref((V31),VV[0],4);
215          (void)((*(LnkLI17))(/* INLINE-ARGS */V46));          (void)((*(LnkLI17))(/* INLINE-ARGS */V48));
216          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
217          V48= structure_ref((V30),VV[0],1);          V50= structure_ref((V31),VV[0],1);
218          {object V47= /* INLINE-ARGS */V48;          {object V49= /* INLINE-ARGS */V50;
219          if((V47!= VV[20]))goto T115;          if((V49!= VV[20]))goto T115;
220          base[0]= (V31);          base[0]= (V32);
221          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
222          (void) (*Lnk29)();          (void) (*Lnk29)();
223          vs_top=sup;          vs_top=sup;
224          goto T114;          goto T114;
225  goto T115;  goto T115;
226  T115:;  T115:;
227          if((V47!= VV[21]))goto T117;          if((V49!= VV[21]))goto T117;
228          base[0]= (V31);          base[0]= (V32);
229          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
230          (void) (*Lnk30)();          (void) (*Lnk30)();
231          vs_top=sup;          vs_top=sup;
232          goto T114;          goto T114;
233  goto T117;  goto T117;
234  T117:;  T117:;
235          if((V47!= VV[22]))goto T119;          if((V49!= VV[22]))goto T119;
236          base[0]= (V31);          base[0]= (V32);
237          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
238          (void) (*Lnk31)();          (void) (*Lnk31)();
239          vs_top=sup;          vs_top=sup;
240          goto T114;          goto T114;
241  goto T119;  goto T119;
242  T119:;  T119:;
243          if((V47!= VV[23]))goto T121;          if((V49!= VV[23]))goto T121;
244          base[0]= (V31);          base[0]= (V32);
245          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
246          (void) (*Lnk32)();          (void) (*Lnk32)();
247          vs_top=sup;          vs_top=sup;
248          goto T114;          goto T114;
249  goto T121;  goto T121;
250  T121:;  T121:;
251          if((V47!= VV[24]))goto T123;          if((V49!= VV[24]))goto T123;
252          base[0]= (V31);          base[0]= (V32);
253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
254          (void) (*Lnk33)();          (void) (*Lnk33)();
255          vs_top=sup;          vs_top=sup;
# Line 260  T123:; Line 260  T123:;
260  goto T114;  goto T114;
261  T114:;  T114:;
262          princ_char(59,VV[1]);          princ_char(59,VV[1]);
263          {object V49 = Cnil;          {object V51 = Cnil;
264          VMR2(V49)}}          VMR2(V51)}}
265          base[0]=base[0];          base[0]=base[0];
266          return Cnil;          return Cnil;
267  }  }
268  /*      local entry for function C2BIND-INIT    */  /*      local entry for function C2BIND-INIT    */
269    
270  static object LI3(V52,V53)  static object LI3(V54,V55)
271    
272  register object V52;register object V53;  register object V54;register object V55;
273  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
274          bds_check;          bds_check;
275  goto TTL;  goto TTL;
276  TTL:;  TTL:;
277          V55= structure_ref((V52),VV[0],1);          V57= structure_ref((V54),VV[0],1);
278          {object V54= /* INLINE-ARGS */V55;          {object V56= /* INLINE-ARGS */V57;
279          if((V54!= VV[11]))goto T126;          if((V56!= VV[11]))goto T126;
280          if((structure_ref((V52),VV[0],3))==Cnil){          if((structure_ref((V54),VV[0],3))==Cnil){
281          goto T128;}          goto T128;}
282          {object V56;          {object V58;
283          V56= list(2,VV[7],structure_ref((V52),VV[0],2));          V58= list(2,VV[7],structure_ref((V54),VV[0],2));
284          bds_bind(VV[8],(V56));          bds_bind(VV[8],(V58));
285          V57= (*(LnkLI34))((V53));          V59= (*(LnkLI34))((V55));
286          bds_unwind1;          bds_unwind1;
287          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
288          (void)((*(LnkLI17))((V56)));          (void)((*(LnkLI17))((V58)));
289          princ_str("=MMcons(",VV[1]);          princ_str("=MMcons(",VV[1]);
290          (void)((*(LnkLI17))((V56)));          (void)((*(LnkLI17))((V58)));
291          princ_char(44,VV[1]);          princ_char(44,VV[1]);
292          (void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9]))));          (void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9]))));
293          princ_str(");",VV[1]);}          princ_str(");",VV[1]);}
294          V58= structure_ref((V52),VV[0],2);          V60= structure_ref((V54),VV[0],2);
295          (void)((*(LnkLI14))(/* INLINE-ARGS */V58));          (void)((*(LnkLI14))(/* INLINE-ARGS */V60));
296          V59= (*(LnkLI15))();          V61= (*(LnkLI15))();
297          {object V60 = structure_set((V52),VV[0],3,/* INLINE-ARGS */V59);          {object V62 = structure_set((V54),VV[0],3,/* INLINE-ARGS */V61);
298          VMR3(V60)}          VMR3(V62)}
299  goto T128;  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((V54),VV[0],2));
302          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
303          {object V61 = (*(LnkLI34))((V53));          {object V63 = (*(LnkLI34))((V55));
304          bds_unwind1;          bds_unwind1;
305          VMR3(V61)}          VMR3(V63)}
306  goto T126;  goto T126;
307  T126:;  T126:;
308          if((V54!= VV[16]))goto T143;          if((V56!= VV[16]))goto T143;
309          base[0]= list(2,VV[3],structure_ref((V52),VV[0],4));          base[0]= list(2,VV[2],structure_ref((V54),VV[0],4));
310          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
311          V62= (*(LnkLI34))((V53));          V64= (*(LnkLI34))((V55));
312          bds_unwind1;          bds_unwind1;
313          setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));
314          {object V63 = symbol_value(VV[2]);          {object V66 = symbol_value(VV[3]);
315          VMR3(V63)}          VMR3(V66)}
316  goto T143;  goto T143;
317  T143:;  T143:;
318          if((V54!= VV[10]))goto T147;          if((V56!= 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((V54),VV[0],4));
320          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
321          {object V64 = (*(LnkLI34))((V53));          {object V67 = (*(LnkLI34))((V55));
322          bds_unwind1;          bds_unwind1;
323          VMR3(V64)}          VMR3(V67)}
324  goto T147;  goto T147;
325  T147:;  T147:;
326          if((V54== VV[20])          if((V56== VV[20])
327          || (V54== VV[21])          || (V56== VV[21])
328          || (V54== VV[22])          || (V56== VV[22])
329          || (V54== VV[23])          || (V56== VV[23])
330          || (V54== VV[24]))goto T150;          || (V56== VV[24]))goto T150;
331          if((V54!= VV[19]))goto T149;          if((V56!= VV[19]))goto T149;
332  goto T150;  goto T150;
333  T150:;  T150:;
334          base[0]= list(3,VV[0],(V52),Cnil);          base[0]= list(3,VV[0],(V54),Cnil);
335          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
336          {object V65 = (*(LnkLI34))((V53));          {object V68 = (*(LnkLI34))((V55));
337          bds_unwind1;          bds_unwind1;
338          VMR3(V65)}          VMR3(V68)}
339  goto T149;  goto T149;
340  T149:;  T149:;
341          {object V66 = (*(LnkLI25))();          {object V69 = (*(LnkLI25))();
342          VMR3(V66)}}          VMR3(V69)}}
343          base[0]=base[0];          base[0]=base[0];
344          return Cnil;          return Cnil;
345  }  }
346  /*      local entry for function SET-BDS-BIND   */  /*      local entry for function SET-BDS-BIND   */
347    
348  static object LI4(V69,V70)  static object LI4(V72,V73)
349    
350  object V69;object V70;  object V72;object V73;
351  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
352  goto TTL;  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))((V73)));
356          princ_str("],",VV[1]);          princ_str("],",VV[1]);
357          (void)((*(LnkLI17))((V69)));          (void)((*(LnkLI17))((V72)));
358          princ_str(");",VV[1]);          princ_str(");",VV[1]);
359          {object V71 = Cnil;          {object V74 = Cnil;
360          VMR4(V71)}          VMR4(V74)}
361          return Cnil;          return Cnil;
362  }  }
363  static object  LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* C2EXPR* */  static object  LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* C2EXPR* */

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26