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

Diff of /gcl/cmpnew/gcl_cmpbind.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 10  register object V2; Line 10  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11          goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          V4= structure_ref((V2),VV[0],1);          {object V3= STREF(object,(V2),4);
         {object V3= /* INLINE-ARGS */V4;  
14          if((V3!= VV[11]))goto T1;          if((V3!= VV[11]))goto T1;
15          if((structure_ref((V2),VV[0],3))==Cnil){          if((STREF(object,(V2),12))==Cnil){
16          goto T3;}          goto T3;}
17          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
18          V5= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V5));  
19          princ_str("=MMcons(",VV[1]);          princ_str("=MMcons(",VV[1]);
20          V6= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V6));  
21          princ_char(44,VV[1]);          princ_char(44,VV[1]);
22          (void)((VFUN_NARGS=0,(*(LnkLI13))()));          (void)((VFUN_NARGS=0,(*(LnkLI13))()));
23          princ_str(");",VV[1]);          princ_str(");",VV[1]);
24          V7= structure_ref((V2),VV[0],2);          (void)((*(LnkLI14))(STREF(object,(V2),8)));
25          (void)((*(LnkLI14))(/* INLINE-ARGS */V7));          V4= (*(LnkLI15))();
26          V8= (*(LnkLI15))();          V5= Ct;
27          {object V9 = structure_set((V2),VV[0],3,/* INLINE-ARGS */V8);          STSET(object,(V2),12, /* INLINE-ARGS */V4);
28          VMR1(V9)}          {object V6 = /* INLINE-ARGS */V4;
29            VMR1(V6)}
30          goto T3;          goto T3;
31  T3:;  T3:;
32          {object V10 = Cnil;          {object V7 = Cnil;
33          VMR1(V10)}          VMR1(V7)}
34          goto T1;          goto T1;
35  T1:;  T1:;
36          if((V3!= VV[16]))goto T16;          if((V3!= VV[16]))goto T16;
37          princ_str("\n   bds_bind(VV[",VV[1]);          princ_str("\n   bds_bind(VV[",VV[1]);
38          V11= structure_ref((V2),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V2),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V11));  
39          princ_str("],",VV[1]);          princ_str("],",VV[1]);
40          V12= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V12));  
41          princ_str(");",VV[1]);          princ_str(");",VV[1]);
42          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));          (VV[3]->s.s_dbind)= make_cons(VV[2],(VV[3]->s.s_dbind));
43          {object V14 = symbol_value(VV[3]);          {object V9 = (VV[3]->s.s_dbind);
44          VMR1(V14)}          VMR1(V9)}
45          goto T16;          goto T16;
46  T16:;  T16:;
47          if((V3!= VV[10]))goto T25;          if((V3!= VV[10]))goto T25;
48          V15= structure_ref((V2),VV[0],4);          {object V10= STREF(object,(V2),16);
49          if(!(type_of(/* INLINE-ARGS */V15)==t_fixnum||type_of(/* INLINE-ARGS */V15)==t_bignum)){          if(!(type_of(V10)==t_fixnum||type_of(V10)==t_bignum)){
50          goto T27;}          goto T27;}}
51          princ_str("\n   base0[",VV[1]);          princ_str("\n   base0[",VV[1]);
52          V16= structure_ref((V2),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V2),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V16));  
53          princ_str("]=",VV[1]);          princ_str("]=",VV[1]);
54          V17= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V17));  
55          princ_char(59,VV[1]);          princ_char(59,VV[1]);
56          {object V18 = Cnil;          {object V11 = Cnil;
57          VMR1(V18)}          VMR1(V11)}
58          goto T27;          goto T27;
59  T27:;  T27:;
60          {object V19 = (*(LnkLI18))();          {object V12 = (*(LnkLI18))();
61          VMR1(V19)}          VMR1(V12)}
62          goto T25;          goto T25;
63  T25:;  T25:;
64          if((V3!= VV[19]))goto T35;          if((V3!= VV[19]))goto T35;
65          princ_str("\n   SETQ_IO(V",VV[1]);          princ_str("\n   SETQ_IO(V",VV[1]);
66          V20= structure_ref((V2),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V2),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V20));  
67          princ_char(44,VV[1]);          princ_char(44,VV[1]);
68          princ_char(86,VV[1]);          princ_char(86,VV[1]);
69          V21= structure_ref((V2),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V2),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V21));  
70          princ_str("alloc,",VV[1]);          princ_str("alloc,",VV[1]);
71          princ_char(40,VV[1]);          princ_char(40,VV[1]);
72          V22= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V22));  
73          princ_str("));",VV[1]);          princ_str("));",VV[1]);
74          {object V23 = Cnil;          {object V13 = Cnil;
75          VMR1(V23)}          VMR1(V13)}
76          goto T35;          goto T35;
77  T35:;  T35:;
78          princ_str("\n   V",VV[1]);          princ_str("\n   V",VV[1]);
79          V24= structure_ref((V2),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V2),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V24));  
80          princ_char(61,VV[1]);          princ_char(61,VV[1]);
81          V26= structure_ref((V2),VV[0],1);          {object V14= STREF(object,(V2),4);
82          {object V25= /* INLINE-ARGS */V26;          if((V14!= VV[20]))goto T52;
         if((V25!= VV[20]))goto T52;  
83          goto T51;          goto T51;
84          goto T52;          goto T52;
85  T52:;  T52:;
86          if((V25!= VV[21]))goto T53;          if((V14!= VV[21]))goto T53;
87          princ_str("fix",VV[1]);          princ_str("fix",VV[1]);
88          goto T51;          goto T51;
89          goto T53;          goto T53;
90  T53:;  T53:;
91          if((V25!= VV[22]))goto T55;          if((V14!= VV[22]))goto T55;
92          princ_str("char_code",VV[1]);          princ_str("char_code",VV[1]);
93          goto T51;          goto T51;
94          goto T55;          goto T55;
95  T55:;  T55:;
96          if((V25!= VV[23]))goto T57;          if((V14!= VV[23]))goto T57;
97          princ_str("lf",VV[1]);          princ_str("lf",VV[1]);
98          goto T51;          goto T51;
99          goto T57;          goto T57;
100  T57:;  T57:;
101          if((V25!= VV[24]))goto T59;          if((V14!= VV[24]))goto T59;
102          princ_str("sf",VV[1]);          princ_str("sf",VV[1]);
103          goto T51;          goto T51;
104          goto T59;          goto T59;
# Line 118  T59:; Line 107  T59:;
107          goto T51;          goto T51;
108  T51:;  T51:;
109          princ_char(40,VV[1]);          princ_char(40,VV[1]);
110          V27= structure_ref((V2),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V2),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V27));  
111          princ_str(");",VV[1]);          princ_str(");",VV[1]);
112          {object V28 = Cnil;          {object V15 = Cnil;
113          VMR1(V28)}}          VMR1(V15)}}
114          return Cnil;          return Cnil;
115  }  }
116  /*      local entry for function C2BIND-LOC     */  /*      local entry for function C2BIND-LOC     */
117    
118  static object LI2(V31,V32)  static object LI2(V18,V19)
119    
120  register object V31;register object V32;  register object V18;register object V19;
121  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
122          bds_check;          bds_check;
123          goto TTL;          goto TTL;
124  TTL:;  TTL:;
125          V34= structure_ref((V31),VV[0],1);          {object V20= STREF(object,(V18),4);
126          {object V33= /* INLINE-ARGS */V34;          if((V20!= VV[11]))goto T65;
127          if((V33!= VV[11]))goto T65;          if((STREF(object,(V18),12))==Cnil){
         if((structure_ref((V31),VV[0],3))==Cnil){  
128          goto T67;}          goto T67;}
129          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
130          V35= structure_ref((V31),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V18),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V35));  
131          princ_str("=MMcons(",VV[1]);          princ_str("=MMcons(",VV[1]);
132          (void)((*(LnkLI17))((V32)));          (void)((*(LnkLI17))((V19)));
133          princ_char(44,VV[1]);          princ_char(44,VV[1]);
134          (void)((VFUN_NARGS=0,(*(LnkLI13))()));          (void)((VFUN_NARGS=0,(*(LnkLI13))()));
135          princ_str(");",VV[1]);          princ_str(");",VV[1]);
136          V36= structure_ref((V31),VV[0],2);          (void)((*(LnkLI14))(STREF(object,(V18),8)));
137          (void)((*(LnkLI14))(/* INLINE-ARGS */V36));          V21= (*(LnkLI15))();
138          V37= (*(LnkLI15))();          V22= Ct;
139          {object V38 = structure_set((V31),VV[0],3,/* INLINE-ARGS */V37);          STSET(object,(V18),12, /* INLINE-ARGS */V21);
140          VMR2(V38)}          {object V23 = /* INLINE-ARGS */V21;
141            VMR2(V23)}
142          goto T67;          goto T67;
143  T67:;  T67:;
144          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
145          V39= structure_ref((V31),VV[0],2);          (void)((*(LnkLI12))(STREF(object,(V18),8)));
         (void)((*(LnkLI12))(/* INLINE-ARGS */V39));  
146          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
147          (void)((*(LnkLI17))((V32)));          (void)((*(LnkLI17))((V19)));
148          princ_char(59,VV[1]);          princ_char(59,VV[1]);
149          {object V40 = Cnil;          {object V24 = Cnil;
150          VMR2(V40)}          VMR2(V24)}
151          goto T65;          goto T65;
152  T65:;  T65:;
153          if((V33!= VV[16]))goto T84;          if((V20!= VV[16]))goto T84;
154          princ_str("\n   bds_bind(VV[",VV[1]);          princ_str("\n   bds_bind(VV[",VV[1]);
155          V41= structure_ref((V31),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V18),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V41));  
156          princ_str("],",VV[1]);          princ_str("],",VV[1]);
157          (void)((*(LnkLI17))((V32)));          (void)((*(LnkLI17))((V19)));
158          princ_str(");",VV[1]);          princ_str(");",VV[1]);
159          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));          (VV[3]->s.s_dbind)= make_cons(VV[2],(VV[3]->s.s_dbind));
160          {object V43 = symbol_value(VV[3]);          {object V26 = (VV[3]->s.s_dbind);
161          VMR2(V43)}          VMR2(V26)}
162          goto T84;          goto T84;
163  T84:;  T84:;
164          if((V33!= VV[10]))goto T92;          if((V20!= VV[10]))goto T92;
165          princ_str("\n   base0[",VV[1]);          princ_str("\n   base0[",VV[1]);
166          V44= structure_ref((V31),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V18),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V44));  
167          princ_str("]=",VV[1]);          princ_str("]=",VV[1]);
168          (void)((*(LnkLI17))((V32)));          (void)((*(LnkLI17))((V19)));
169          princ_char(59,VV[1]);          princ_char(59,VV[1]);
170          {object V45 = Cnil;          {object V27 = Cnil;
171          VMR2(V45)}          VMR2(V27)}
172          goto T92;          goto T92;
173  T92:;  T92:;
174          if((V33!= VV[19]))goto T98;          if((V20!= VV[19]))goto T98;
175          bds_bind(VV[4],small_fixnum(0));          bds_bind(VV[4],small_fixnum(0));
176          bds_bind(VV[5],symbol_value(VV[5]));          bds_bind(VV[5],(VV[5]->s.s_dbind));
177          base[2]= VV[6];          (void)((*(LnkLI26))(VV[6]));
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk26)();  
         vs_top=sup;  
178          princ_str("\n   V",VV[1]);          princ_str("\n   V",VV[1]);
179          V46= structure_ref((V31),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V18),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V46));  
180          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
181          base[2]= (V32);          (void)((VFUN_NARGS=2,(*(LnkLI27))((V19),(V18))));
         base[3]= (V31);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk27)();  
         vs_top=sup;  
182          princ_char(59,VV[1]);          princ_char(59,VV[1]);
183          {object V47 = (*(LnkLI28))();          {object V28 = (*(LnkLI28))();
184          bds_unwind1;          bds_unwind1;
185          bds_unwind1;          bds_unwind1;
186          VMR2(V47)}          VMR2(V28)}
187          goto T98;          goto T98;
188  T98:;  T98:;
189          princ_str("\n   V",VV[1]);          princ_str("\n   V",VV[1]);
190          V48= structure_ref((V31),VV[0],4);          (void)((*(LnkLI17))(STREF(object,(V18),16)));
         (void)((*(LnkLI17))(/* INLINE-ARGS */V48));  
191          princ_str("= ",VV[1]);          princ_str("= ",VV[1]);
192          V50= structure_ref((V31),VV[0],1);          {object V29= STREF(object,(V18),4);
193          {object V49= /* INLINE-ARGS */V50;          if((V29!= VV[20]))goto T112;
194          if((V49!= VV[20]))goto T115;          base[0]= (V19);
         base[0]= (V32);  
195          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
196          (void) (*Lnk29)();          (void) (*Lnk29)();
197          vs_top=sup;          vs_top=sup;
198          goto T114;          goto T111;
199          goto T115;          goto T112;
200  T115:;  T112:;
201          if((V49!= VV[21]))goto T117;          if((V29!= VV[21]))goto T114;
202          base[0]= (V32);          base[0]= (V19);
203          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
204          (void) (*Lnk30)();          (void) (*Lnk30)();
205          vs_top=sup;          vs_top=sup;
206            goto T111;
207          goto T114;          goto T114;
208          goto T117;  T114:;
209  T117:;          if((V29!= VV[22]))goto T116;
210          if((V49!= VV[22]))goto T119;          base[0]= (V19);
         base[0]= (V32);  
211          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
212          (void) (*Lnk31)();          (void) (*Lnk31)();
213          vs_top=sup;          vs_top=sup;
214          goto T114;          goto T111;
215          goto T119;          goto T116;
216  T119:;  T116:;
217          if((V49!= VV[23]))goto T121;          if((V29!= VV[23]))goto T118;
218          base[0]= (V32);          base[0]= (V19);
219          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
220          (void) (*Lnk32)();          (void) (*Lnk32)();
221          vs_top=sup;          vs_top=sup;
222          goto T114;          goto T111;
223          goto T121;          goto T118;
224  T121:;  T118:;
225          if((V49!= VV[24]))goto T123;          if((V29!= VV[24]))goto T120;
226          base[0]= (V32);          base[0]= (V19);
227          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
228          (void) (*Lnk33)();          (void) (*Lnk33)();
229          vs_top=sup;          vs_top=sup;
230          goto T114;          goto T111;
231          goto T123;          goto T120;
232  T123:;  T120:;
233          (void)((*(LnkLI25))());}          (void)((*(LnkLI25))());}
234          goto T114;          goto T111;
235  T114:;  T111:;
236          princ_char(59,VV[1]);          princ_char(59,VV[1]);
237          {object V51 = Cnil;          {object V30 = Cnil;
238          VMR2(V51)}}          VMR2(V30)}}
239          base[0]=base[0];          base[0]=base[0];
240          return Cnil;          return Cnil;
241  }  }
242  /*      local entry for function C2BIND-INIT    */  /*      local entry for function C2BIND-INIT    */
243    
244  static object LI3(V54,V55)  static object LI3(V33,V34)
245    
246  register object V54;register object V55;  register object V33;register object V34;
247  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
248          bds_check;          bds_check;
249          goto TTL;          goto TTL;
250  TTL:;  TTL:;
251          V57= structure_ref((V54),VV[0],1);          {object V35= STREF(object,(V33),4);
252          {object V56= /* INLINE-ARGS */V57;          if((V35!= VV[11]))goto T123;
253          if((V56!= VV[11]))goto T126;          if((STREF(object,(V33),12))==Cnil){
254          if((structure_ref((V54),VV[0],3))==Cnil){          goto T125;}
255          goto T128;}          {object V36;
256          {object V58;          V36= list(2,VV[7],STREF(object,(V33),8));
257          V58= list(2,VV[7],structure_ref((V54),VV[0],2));          bds_bind(VV[8],(V36));
258          bds_bind(VV[8],(V58));          V37= (*(LnkLI34))((V34));
         V59= (*(LnkLI34))((V55));  
259          bds_unwind1;          bds_unwind1;
260          princ_str("\n   ",VV[1]);          princ_str("\n   ",VV[1]);
261          (void)((*(LnkLI17))((V58)));          (void)((*(LnkLI17))((V36)));
262          princ_str("=MMcons(",VV[1]);          princ_str("=MMcons(",VV[1]);
263          (void)((*(LnkLI17))((V58)));          (void)((*(LnkLI17))((V36)));
264          princ_char(44,VV[1]);          princ_char(44,VV[1]);
265          (void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9]))));          (void)((VFUN_NARGS=1,(*(LnkLI13))((VV[9]->s.s_dbind))));
266          princ_str(");",VV[1]);}          princ_str(");",VV[1]);}
267          V60= structure_ref((V54),VV[0],2);          (void)((*(LnkLI14))(STREF(object,(V33),8)));
268          (void)((*(LnkLI14))(/* INLINE-ARGS */V60));          V38= (*(LnkLI15))();
269          V61= (*(LnkLI15))();          V39= Ct;
270          {object V62 = structure_set((V54),VV[0],3,/* INLINE-ARGS */V61);          STSET(object,(V33),12, /* INLINE-ARGS */V38);
271          VMR3(V62)}          {object V40 = /* INLINE-ARGS */V38;
272          goto T128;          VMR3(V40)}
273  T128:;          goto T125;
274          base[0]= list(2,VV[7],structure_ref((V54),VV[0],2));  T125:;
275            base[0]= list(2,VV[7],STREF(object,(V33),8));
276          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
277          {object V63 = (*(LnkLI34))((V55));          {object V41 = (*(LnkLI34))((V34));
278          bds_unwind1;          bds_unwind1;
279          VMR3(V63)}          VMR3(V41)}
280          goto T126;          goto T123;
281  T126:;  T123:;
282          if((V56!= VV[16]))goto T143;          if((V35!= VV[16]))goto T140;
283          base[0]= list(2,VV[2],structure_ref((V54),VV[0],4));          base[0]= list(2,VV[2],STREF(object,(V33),16));
284          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
285          V64= (*(LnkLI34))((V55));          V42= (*(LnkLI34))((V34));
286          bds_unwind1;          bds_unwind1;
287          setq(VV[3],make_cons(VV[2],symbol_value(VV[3])));          (VV[3]->s.s_dbind)= make_cons(VV[2],(VV[3]->s.s_dbind));
288          {object V66 = symbol_value(VV[3]);          {object V44 = (VV[3]->s.s_dbind);
289          VMR3(V66)}          VMR3(V44)}
290          goto T143;          goto T140;
291  T143:;  T140:;
292          if((V56!= VV[10]))goto T147;          if((V35!= VV[10]))goto T144;
293          base[0]= list(2,VV[10],structure_ref((V54),VV[0],4));          base[0]= list(2,VV[10],STREF(object,(V33),16));
294          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
295          {object V67 = (*(LnkLI34))((V55));          {object V45 = (*(LnkLI34))((V34));
296          bds_unwind1;          bds_unwind1;
297          VMR3(V67)}          VMR3(V45)}
298            goto T144;
299    T144:;
300            if((V35== VV[20])
301            || (V35== VV[21])
302            || (V35== VV[22])
303            || (V35== VV[23])
304            || (V35== VV[24]))goto T147;
305            if((V35!= VV[19]))goto T146;
306          goto T147;          goto T147;
307  T147:;  T147:;
308          if((V56== VV[20])          base[0]= list(3,VV[0],(V33),Cnil);
         || (V56== VV[21])  
         || (V56== VV[22])  
         || (V56== VV[23])  
         || (V56== VV[24]))goto T150;  
         if((V56!= VV[19]))goto T149;  
         goto T150;  
 T150:;  
         base[0]= list(3,VV[0],(V54),Cnil);  
309          bds_bind(VV[8],base[0]);          bds_bind(VV[8],base[0]);
310          {object V68 = (*(LnkLI34))((V55));          {object V46 = (*(LnkLI34))((V34));
311          bds_unwind1;          bds_unwind1;
312          VMR3(V68)}          VMR3(V46)}
313          goto T149;          goto T146;
314  T149:;  T146:;
315          {object V69 = (*(LnkLI25))();          {object V47 = (*(LnkLI25))();
316          VMR3(V69)}}          VMR3(V47)}}
317          base[0]=base[0];          base[0]=base[0];
318          return Cnil;          return Cnil;
319  }  }
320  /*      local entry for function SET-BDS-BIND   */  /*      local entry for function SET-BDS-BIND   */
321    
322  static object LI4(V72,V73)  static object LI4(V50,V51)
323    
324  object V72;object V73;  object V50;object V51;
325  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
326          goto TTL;          goto TTL;
327  TTL:;  TTL:;
328          princ_str("\n   bds_bind(VV[",VV[1]);          princ_str("\n   bds_bind(VV[",VV[1]);
329          (void)((*(LnkLI17))((V73)));          (void)((*(LnkLI17))((V51)));
330          princ_str("],",VV[1]);          princ_str("],",VV[1]);
331          (void)((*(LnkLI17))((V72)));          (void)((*(LnkLI17))((V50)));
332          princ_str(");",VV[1]);          princ_str(");",VV[1]);
333          {object V74 = Cnil;          {object V52 = Cnil;
334          VMR4(V74)}          VMR4(V52)}
335          return Cnil;          return Cnil;
336  }  }
337  static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */  static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
# Line 367  static void LnkT31(){ call_or_link(VV[31 Line 341  static void LnkT31(){ call_or_link(VV[31
341  static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* WT-FIXNUM-LOC */  static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* WT-FIXNUM-LOC */
342  static void LnkT29(){ call_or_link(VV[29],(void **)(void *)&Lnk29);} /* WT-LOC */  static void LnkT29(){ call_or_link(VV[29],(void **)(void *)&Lnk29);} /* WT-LOC */
343  static object  LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* CLOSE-INLINE-BLOCKS */
344  static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* WT-INTEGER-LOC */  static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[27],(void **)(void *)&LnkLI27,first,ap);va_end(ap);return V1;} /* WT-INTEGER-LOC */
345  static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* SAVE-AVMA */  static object  LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */
346  static object  LnkTLI25(){return call_proc0(VV[25],(void **)(void *)&LnkLI25);} /* BABOON */  static object  LnkTLI25(){return call_proc0(VV[25],(void **)(void *)&LnkLI25);} /* BABOON */
347  static object  LnkTLI18(){return call_proc0(VV[18],(void **)(void *)&LnkLI18);} /* WFS-ERROR */  static object  LnkTLI18(){return call_proc0(VV[18],(void **)(void *)&LnkLI18);} /* WFS-ERROR */
348  static object  LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,1,first,ap);va_end(ap);return V1;} /* WT1 */

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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