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

Diff of /gcl/cmpnew/gcl_cmpblock.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 52  register object V10; Line 52  register object V10;
52          bds_check;          bds_check;
53          goto TTL;          goto TTL;
54  TTL:;  TTL:;
55          if(!(endp_prop((V10)))){          if(!(((V10))==Cnil)){
56          goto T9;}          goto T9;}
57          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));
58          goto T9;          goto T9;
59  T9:;  T9:;
60          if(type_of(car((V10)))==t_symbol){          if(type_of(CMPcar((V10)))==t_symbol){
61          goto T12;}          goto T12;}
62          (void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10)))));          (void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],CMPcar((V10)))));
63          goto T12;          goto T12;
64  T12:;  T12:;
65          {register object V11;          {register object V11;
66          object V12;          object V12;
67          V11= (VFUN_NARGS=8,(*(LnkLI28))(VV[3],car((V10)),VV[4],Cnil,VV[5],Cnil,VV[6],Cnil));          V11= (VFUN_NARGS=8,(*(LnkLI28))(VV[3],CMPcar((V10)),VV[4],Cnil,VV[5],Cnil,VV[6],Cnil));
68          bds_bind(VV[7],make_cons((V11),symbol_value(VV[7])));          bds_bind(VV[7],make_cons((V11),(VV[7]->s.s_dbind)));
69          V12= (*(LnkLI29))(cdr((V10)));          V12= (*(LnkLI29))(CMPcdr((V10)));
70          if((structure_ref((V11),VV[0],3))!=Cnil){          if((STREF(object,(V11),12))!=Cnil){
71          goto T19;}          goto T19;}
72          if((structure_ref((V11),VV[0],2))==Cnil){          if((STREF(object,(V11),8))==Cnil){
73          goto T18;}          goto T18;}
74          goto T19;          goto T19;
75  T19:;  T19:;
76          setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1)));          (VV[8]->s.s_dbind)= number_plus((VV[8]->s.s_dbind),small_fixnum(1));
77          goto T18;          goto T18;
78  T18:;  T18:;
79          if((structure_ref((V11),VV[0],3))!=Cnil){          if((STREF(object,(V11),12))!=Cnil){
80          goto T24;}          goto T24;}
81          if((structure_ref((V11),VV[0],2))!=Cnil){          if((STREF(object,(V11),8))!=Cnil){
82          goto T24;}          goto T24;}
83          if((structure_ref((V11),VV[0],1))==Cnil){          if((STREF(object,(V11),4))==Cnil){
84          goto T25;}          goto T25;}
85          goto T24;          goto T24;
86  T24:;  T24:;
87          V13= (*(LnkLI30))(cadr((V12)));          V13= (*(LnkLI30))(CMPcadr((V12)));
88          {object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12));          {object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12));
89          bds_unwind1;          bds_unwind1;
90          VMR2(V14)}          VMR2(V14)}
# Line 101  T25:; Line 101  T25:;
101  static void L3()  static void L3()
102  {register object *base=vs_base;  {register object *base=vs_base;
103          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
104          vs_reserve(VM3);          vs_check;
105          {register object V16;          {register object V16;
106          object V17;          object V17;
         check_arg(2);  
107          V16=(base[0]);          V16=(base[0]);
108          V17=(base[1]);          V17=(base[1]);
109          vs_top=sup;          vs_top=sup;
110          goto TTL;          goto TTL;
111  TTL:;  TTL:;
112          if((structure_ref((V16),VV[0],3))==Cnil){          if((STREF(object,(V16),12))==Cnil){
113          goto T32;}          goto T32;}
114          base[2]= (*(LnkLI31))((V16),(V17));          base[2]= (*(LnkLI31))((V16),(V17));
115          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
116          return;          return;
117          goto T32;          goto T32;
118  T32:;  T32:;
119          if((structure_ref((V16),VV[0],2))==Cnil){          if((STREF(object,(V16),8))==Cnil){
120          goto T35;}          goto T35;}
121          base[2]= (*(LnkLI32))((V16),(V17));          base[2]= (*(LnkLI32))((V16),(V17));
122          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 136  T35:; Line 135  T35:;
135  static void L4()  static void L4()
136  {register object *base=vs_base;  {register object *base=vs_base;
137          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
138          vs_reserve(VM4);          vs_check;
139          {object V18;          {object V18;
140          object V19;          object V19;
         check_arg(2);  
141          V18=(base[0]);          V18=(base[0]);
142          V19=(base[1]);          V19=(base[1]);
143          vs_top=sup;          vs_top=sup;
144          goto TTL;          goto TTL;
145  TTL:;  TTL:;
146          (void)(structure_set((V18),VV[0],4,symbol_value(VV[9])));          V20= Ct;
147          (void)(structure_set((V18),VV[0],5,symbol_value(VV[10])));          STSET(object,(V18),16, (VV[9]->s.s_dbind));
148            (void)((VV[9]->s.s_dbind));
149            V21= Ct;
150            STSET(object,(V18),20, (VV[10]->s.s_dbind));
151            (void)((VV[10]->s.s_dbind));
152          base[2]= (V19);          base[2]= (V19);
153          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
154          (void) (*Lnk34)();          (void) (*Lnk34)();
# Line 155  TTL:; Line 157  TTL:;
157  }  }
158  /*      local entry for function C2BLOCK-CLB    */  /*      local entry for function C2BLOCK-CLB    */
159    
160  static object LI5(V22,V23)  static object LI5(V24,V25)
161    
162  register object V22;object V23;  register object V24;object V25;
163  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
164          bds_check;          bds_check;
165          goto TTL;          goto TTL;
166  TTL:;  TTL:;
167          bds_bind(VV[11],symbol_value(VV[11]));          bds_bind(VV[11],(VV[11]->s.s_dbind));
168          (void)(structure_set((V22),VV[0],4,symbol_value(VV[9])));          V26= Ct;
169          (void)(structure_set((V22),VV[0],5,symbol_value(VV[10])));          STSET(object,(V24),16, (VV[9]->s.s_dbind));
170          V24= (*(LnkLI35))();          (void)((VV[9]->s.s_dbind));
171          (void)(structure_set((V22),VV[0],2,/* INLINE-ARGS */V24));          V27= Ct;
172            STSET(object,(V24),20, (VV[10]->s.s_dbind));
173            (void)((VV[10]->s.s_dbind));
174            V28= (*(LnkLI35))();
175            V29= Ct;
176            STSET(object,(V24),8, /* INLINE-ARGS */V28);
177            (void)(/* INLINE-ARGS */V28);
178          princ_str("\n   ",VV[12]);          princ_str("\n   ",VV[12]);
179          V25= structure_ref((V22),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V24),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V25));  
180          princ_str("=alloc_frame_id();",VV[12]);          princ_str("=alloc_frame_id();",VV[12]);
181          princ_str("\n   frs_push(FRS_CATCH,",VV[12]);          princ_str("\n   frs_push(FRS_CATCH,",VV[12]);
182          V26= structure_ref((V22),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V24),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V26));  
183          princ_str(");",VV[12]);          princ_str(");",VV[12]);
184          princ_str("\n   if(nlj_active)",VV[12]);          princ_str("\n   if(nlj_active)",VV[12]);
185          princ_str("\n   {nlj_active=FALSE;frs_pop();",VV[12]);          princ_str("\n   {nlj_active=FALSE;frs_pop();",VV[12]);
186          (void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14])));          (void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14])));
187          princ_char(125,VV[12]);          princ_char(125,VV[12]);
188          princ_str("\n   else{",VV[12]);          princ_str("\n   else{",VV[12]);
189          base[1]= make_cons(VV[16],symbol_value(VV[15]));          base[1]= make_cons(VV[16],(VV[15]->s.s_dbind));
190          bds_bind(VV[15],base[1]);          bds_bind(VV[15],base[1]);
191          base[2]= (V23);          base[2]= (V25);
192          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
193          (void) (*Lnk34)();          (void) (*Lnk34)();
194          vs_top=sup;          vs_top=sup;
195          bds_unwind1;          bds_unwind1;
196          princ_str("\n   }",VV[12]);          princ_str("\n   }",VV[12]);
197          {object V27 = Cnil;          {object V30 = Cnil;
198          bds_unwind1;          bds_unwind1;
199          VMR5(V27)}          VMR5(V30)}
200          base[0]=base[0];          base[0]=base[0];
201          return Cnil;          return Cnil;
202  }  }
203  /*      local entry for function C2BLOCK-CCB    */  /*      local entry for function C2BLOCK-CCB    */
204    
205  static object LI6(V30,V31)  static object LI6(V33,V34)
206    
207  register object V30;object V31;  register object V33;object V34;
208  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
209          bds_check;          bds_check;
210          goto TTL;          goto TTL;
211  TTL:;  TTL:;
212          bds_bind(VV[11],symbol_value(VV[11]));          bds_bind(VV[11],(VV[11]->s.s_dbind));
213          bds_bind(VV[17],symbol_value(VV[17]));          bds_bind(VV[17],(VV[17]->s.s_dbind));
214          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],(VV[18]->s.s_dbind));
215          (void)(structure_set((V30),VV[0],4,symbol_value(VV[9])));          V35= Ct;
216          (void)(structure_set((V30),VV[0],5,symbol_value(VV[10])));          STSET(object,(V33),16, (VV[9]->s.s_dbind));
217          V32= (*(LnkLI35))();          (void)((VV[9]->s.s_dbind));
218          (void)(structure_set((V30),VV[0],2,/* INLINE-ARGS */V32));          V36= Ct;
219          V33= structure_ref((V30),VV[0],0);          STSET(object,(V33),20, (VV[10]->s.s_dbind));
220          V34= (*(LnkLI38))(/* INLINE-ARGS */V33);          (void)((VV[10]->s.s_dbind));
221          (void)(structure_set((V30),VV[0],6,/* INLINE-ARGS */V34));          V37= (*(LnkLI35))();
222            V38= Ct;
223            STSET(object,(V33),8, /* INLINE-ARGS */V37);
224            (void)(/* INLINE-ARGS */V37);
225            V39= (*(LnkLI38))(STREF(object,(V33),0));
226            V40= Ct;
227            STSET(object,(V33),24, /* INLINE-ARGS */V39);
228            (void)(/* INLINE-ARGS */V39);
229          princ_str("\n   ",VV[12]);          princ_str("\n   ",VV[12]);
230          V35= structure_ref((V30),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V33),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V35));  
231          princ_str("=alloc_frame_id();",VV[12]);          princ_str("=alloc_frame_id();",VV[12]);
232          princ_str("\n   ",VV[12]);          princ_str("\n   ",VV[12]);
233          V36= structure_ref((V30),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V33),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V36));  
234          princ_str("=MMcons(",VV[12]);          princ_str("=MMcons(",VV[12]);
235          V37= structure_ref((V30),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V33),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V37));  
236          princ_char(44,VV[12]);          princ_char(44,VV[12]);
237          (void)((VFUN_NARGS=0,(*(LnkLI39))()));          (void)((VFUN_NARGS=0,(*(LnkLI39))()));
238          princ_str(");",VV[12]);          princ_str(");",VV[12]);
239          V38= structure_ref((V30),VV[0],2);          (void)((*(LnkLI40))(STREF(object,(V33),8)));
240          (void)((*(LnkLI40))(/* INLINE-ARGS */V38));          V41= (*(LnkLI41))();
241          V39= (*(LnkLI41))();          V42= Ct;
242          (void)(structure_set((V30),VV[0],3,/* INLINE-ARGS */V39));          STSET(object,(V33),12, /* INLINE-ARGS */V41);
243            (void)(/* INLINE-ARGS */V41);
244          princ_str("\n   frs_push(FRS_CATCH,",VV[12]);          princ_str("\n   frs_push(FRS_CATCH,",VV[12]);
245          V40= structure_ref((V30),VV[0],2);          (void)((*(LnkLI42))(STREF(object,(V33),8)));
         (void)((*(LnkLI42))(/* INLINE-ARGS */V40));  
246          princ_str(");",VV[12]);          princ_str(");",VV[12]);
247          princ_str("\n   if(nlj_active)",VV[12]);          princ_str("\n   if(nlj_active)",VV[12]);
248          princ_str("\n   {nlj_active=FALSE;frs_pop();",VV[12]);          princ_str("\n   {nlj_active=FALSE;frs_pop();",VV[12]);
249          (void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14])));          (void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14])));
250          princ_char(125,VV[12]);          princ_char(125,VV[12]);
251          princ_str("\n   else{",VV[12]);          princ_str("\n   else{",VV[12]);
252          base[3]= make_cons(VV[16],symbol_value(VV[15]));          base[3]= make_cons(VV[16],(VV[15]->s.s_dbind));
253          bds_bind(VV[15],base[3]);          bds_bind(VV[15],base[3]);
254          base[4]= (V31);          base[4]= (V34);
255          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
256          (void) (*Lnk34)();          (void) (*Lnk34)();
257          vs_top=sup;          vs_top=sup;
258          bds_unwind1;          bds_unwind1;
259          princ_str("\n   }",VV[12]);          princ_str("\n   }",VV[12]);
260          {object V41 = Cnil;          {object V43 = Cnil;
261          bds_unwind1;          bds_unwind1;
262          bds_unwind1;          bds_unwind1;
263          bds_unwind1;          bds_unwind1;
264          VMR6(V41)}          VMR6(V43)}
265          base[0]=base[0];          base[0]=base[0];
266          return Cnil;          return Cnil;
267  }  }
268  /*      local entry for function C1RETURN-FROM  */  /*      local entry for function C1RETURN-FROM  */
269    
270  static object LI7(V43)  static object LI7(V45)
271    
272  object V43;  object V45;
273  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
274          goto TTL;          goto TTL;
275  TTL:;  TTL:;
276          if(!(endp_prop((V43)))){          if(!(((V45))==Cnil)){
277          goto T107;}          goto T107;}
278          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));
279          goto T105;          goto T105;
280          goto T107;          goto T107;
281  T107:;  T107:;
282          if(endp_prop(cdr((V43)))){          if((CMPcdr((V45)))==Cnil){
283          goto T110;}          goto T110;}
284          if(endp_prop(cddr((V43)))){          if((CMPcddr((V45)))==Cnil){
285          goto T110;}          goto T110;}
286          V44 = make_fixnum((long)length((V43)));          V46 = CMPmake_fixnum((long)length((V45)));
287          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V44));          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V46));
288          goto T105;          goto T105;
289          goto T110;          goto T110;
290  T110:;  T110:;
291          if(type_of(car((V43)))==t_symbol){          if(type_of(CMPcar((V45)))==t_symbol){
292          goto T105;}          goto T105;}
293          (void)(car((V43)));          (void)(CMPcar((V45)));
294          goto T105;          goto T105;
295  T105:;  T105:;
296          {register object V45;          {register object V47;
         register object V46;  
         register object V47;  
297          register object V48;          register object V48;
298          V45= symbol_value(VV[7]);          register object V49;
299          V46= car((V43));          register object V50;
300          V47= Cnil;          V47= (VV[7]->s.s_dbind);
301          V48= Cnil;          V48= CMPcar((V45));
302            V49= Cnil;
303            V50= Cnil;
304          goto T120;          goto T120;
305  T120:;  T120:;
306          if(!(endp_prop((V45)))){          if(!(((V47))==Cnil)){
307          goto T121;}          goto T121;}
308          {object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46)));          {object V51 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V48)));
309          VMR7(V49)}          VMR7(V51)}
310          goto T121;          goto T121;
311  T121:;  T121:;
312          {object V50= car((V45));          {object V52= CMPcar((V47));
313          if((V50!= VV[44]))goto T126;          if((V52!= VV[44]))goto T126;
314          V47= Ct;          V49= Ct;
315          goto T125;          goto T125;
316          goto T126;          goto T126;
317  T126:;  T126:;
318          if((V50!= VV[45]))goto T128;          if((V52!= VV[45]))goto T128;
319          V48= Ct;          V50= Ct;
320          goto T125;          goto T125;
321          goto T128;          goto T128;
322  T128:;  T128:;
323          V51= structure_ref(car((V45)),VV[0],0);          if(!((STREF(object,CMPcar((V47)),0))==((V48)))){
         if(!((/* INLINE-ARGS */V51)==((V46)))){  
324          goto T125;}          goto T125;}
325          {register object V52;          {register object V53;
326          register object V53;          register object V54;
327          V52= (*(LnkLI46))(cadr((V43)));          V53= (*(LnkLI46))(CMPcadr((V45)));
328          V53= car((V45));          V54= CMPcar((V47));
329          if(((V47))==Cnil){          if(((V49))==Cnil){
330          goto T136;}          goto T136;}
331          (void)(structure_set((V53),VV[0],3,Ct));          V55= Ct;
332            STSET(object,(V54),12, Ct);
333            (void)(Ct);
334          goto T134;          goto T134;
335          goto T136;          goto T136;
336  T136:;  T136:;
337          if(((V48))==Cnil){          if(((V50))==Cnil){
338          goto T139;}          goto T139;}
339          (void)(structure_set((V53),VV[0],2,Ct));          V56= Ct;
340            STSET(object,(V54),8, Ct);
341            (void)(Ct);
342          goto T134;          goto T134;
343          goto T139;          goto T139;
344  T139:;  T139:;
345          (void)(structure_set((V53),VV[0],1,Ct));          V57= Ct;
346            STSET(object,(V54),4, Ct);
347            (void)(Ct);
348          goto T134;          goto T134;
349  T134:;  T134:;
350          V54= (*(LnkLI30))(cadr((V52)));          V58= (*(LnkLI30))(CMPcadr((V53)));
351          {object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52));          {object V59 = list(6,VV[19],/* INLINE-ARGS */V58,(V54),(V50),(V49),(V53));
352          VMR7(V55)}}}          VMR7(V59)}}}
353          goto T125;          goto T125;
354  T125:;  T125:;
355          V45= cdr((V45));          V47= CMPcdr((V47));
356          goto T120;}          goto T120;}
357          return Cnil;          return Cnil;
358  }  }
# Line 346  T125:; Line 361  T125:;
361  static void L8()  static void L8()
362  {register object *base=vs_base;  {register object *base=vs_base;
363          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
364          vs_reserve(VM8);          vs_check;
365          {object V56;          {object V60;
366          object V57;          object V61;
367          object V58;          object V62;
368          object V59;          object V63;
369          check_arg(4);          V60=(base[0]);
370          V56=(base[0]);          V61=(base[1]);
371          V57=(base[1]);          V62=(base[2]);
372          V58=(base[2]);          V63=(base[3]);
         V59=(base[3]);  
373          vs_top=sup;          vs_top=sup;
374          goto TTL;          goto TTL;
375  TTL:;  TTL:;
376          if(((V58))==Cnil){          if(((V62))==Cnil){
377          goto T145;}          goto T145;}
378          base[4]= (*(LnkLI47))((V56),(V59));          base[4]= (*(LnkLI47))((V60),(V63));
379          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
380          return;          return;
381          goto T145;          goto T145;
382  T145:;  T145:;
383          if(((V57))==Cnil){          if(((V61))==Cnil){
384          goto T148;}          goto T148;}
385          base[4]= (*(LnkLI48))((V56),(V59));          base[4]= (*(LnkLI48))((V60),(V63));
386          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
387          return;          return;
388          goto T148;          goto T148;
389  T148:;  T148:;
390          base[4]= (V56);          base[4]= (V60);
391          base[5]= (V59);          base[5]= (V63);
392          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
393          (void) (*Lnk49)();          (void) (*Lnk49)();
394          return;          return;
# Line 385  T148:; Line 399  T148:;
399  static void L9()  static void L9()
400  {register object *base=vs_base;  {register object *base=vs_base;
401          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
402          vs_reserve(VM9);          vs_check;
403          bds_check;          bds_check;
404          {object V60;          {object V64;
405          object V61;          object V65;
406          check_arg(2);          V64=(base[0]);
407          V60=(base[0]);          V65=(base[1]);
         V61=(base[1]);  
408          vs_top=sup;          vs_top=sup;
409          goto TTL;          goto TTL;
410  TTL:;  TTL:;
411          base[2]= structure_ref((V60),VV[0],5);          base[2]= STREF(object,(V64),20);
412          base[3]= structure_ref((V60),VV[0],4);          base[3]= STREF(object,(V64),16);
413          bds_bind(VV[10],base[2]);          bds_bind(VV[10],base[2]);
414          bds_bind(VV[9],base[3]);          bds_bind(VV[9],base[3]);
415          base[4]= (V61);          base[4]= (V65);
416          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
417          (void) (*Lnk34)();          (void) (*Lnk34)();
418          bds_unwind1;          bds_unwind1;
# Line 409  TTL:; Line 422  TTL:;
422  }  }
423  /*      local entry for function C2RETURN-CLB   */  /*      local entry for function C2RETURN-CLB   */
424    
425  static object LI10(V64,V65)  static object LI10(V68,V69)
426    
427  object V64;object V65;  object V68;object V69;
428  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
429          bds_check;          bds_check;
430          goto TTL;          goto TTL;
431  TTL:;  TTL:;
432          bds_bind(VV[10],VV[22]);          bds_bind(VV[10],VV[22]);
433          V66= (*(LnkLI50))((V65));          V70= (*(LnkLI50))((V69));
434          bds_unwind1;          bds_unwind1;
435          princ_str("\n   unwind(frs_sch(",VV[12]);          princ_str("\n   unwind(frs_sch(",VV[12]);
436          if((structure_ref((V64),VV[0],3))==Cnil){          if((STREF(object,(V68),12))==Cnil){
437          goto T160;}          goto T160;}
438          V67= structure_ref((V64),VV[0],2);          (void)((*(LnkLI42))(STREF(object,(V68),8)));
         (void)((*(LnkLI42))(/* INLINE-ARGS */V67));  
439          goto T158;          goto T158;
440          goto T160;          goto T160;
441  T160:;  T160:;
442          V68= structure_ref((V64),VV[0],2);          (void)((*(LnkLI36))(STREF(object,(V68),8)));
         (void)((*(LnkLI36))(/* INLINE-ARGS */V68));  
443          goto T158;          goto T158;
444  T158:;  T158:;
445          princ_str("),Cnil);",VV[12]);          princ_str("),Cnil);",VV[12]);
446          {object V69 = Cnil;          {object V71 = Cnil;
447          VMR10(V69)}          VMR10(V71)}
448          base[0]=base[0];          base[0]=base[0];
449          return Cnil;          return Cnil;
450  }  }
451  /*      local entry for function C2RETURN-CCB   */  /*      local entry for function C2RETURN-CCB   */
452    
453  static object LI11(V72,V73)  static object LI11(V74,V75)
454    
455  object V72;object V73;  object V74;object V75;
456  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
457          bds_check;          bds_check;
458          goto TTL;          goto TTL;
459  TTL:;  TTL:;
460          princ_str("\n   {frame_ptr fr;",VV[12]);          princ_str("\n   {frame_ptr fr;",VV[12]);
461          princ_str("\n   fr=frs_sch(",VV[12]);          princ_str("\n   fr=frs_sch(",VV[12]);
462          V74= structure_ref((V72),VV[0],3);          (void)((*(LnkLI51))(STREF(object,(V74),12)));
         (void)((*(LnkLI51))(/* INLINE-ARGS */V74));  
463          princ_str(");",VV[12]);          princ_str(");",VV[12]);
464          princ_str("\n   if(fr==NULL) FEerror(\"The block ~s is missing.\",1,VV[",VV[12]);          princ_str("\n   if(fr==NULL) FEerror(\"The block ~s is missing.\",1,VV[",VV[12]);
465          V75= structure_ref((V72),VV[0],6);          (void)((*(LnkLI52))(STREF(object,(V74),24)));
         (void)((*(LnkLI52))(/* INLINE-ARGS */V75));  
466          princ_str("]);",VV[12]);          princ_str("]);",VV[12]);
467          bds_bind(VV[10],VV[22]);          bds_bind(VV[10],VV[22]);
468          V76= (*(LnkLI50))((V73));          V76= (*(LnkLI50))((V75));
469          bds_unwind1;          bds_unwind1;
470          princ_str("\n   unwind(fr,Cnil);}",VV[12]);          princ_str("\n   unwind(fr,Cnil);}",VV[12]);
471          {object V77 = Cnil;          {object V77 = Cnil;

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