/[gcl]/gcl/pcl/pcl_gazonk2.c
ViewVC logotype

Diff of /gcl/pcl/pcl_gazonk2.c

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Thu Oct 23 15:30:18 2003 UTC
# Line 51  T7:; Line 51  T7:;
51          base[6]= (V9);          base[6]= (V9);
52          base[7]= VV[0];          base[7]= VV[0];
53          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
54          (void) (*Lnk7)();          (void) (*Lnk14)();
55          vs_top=sup;          vs_top=sup;
56          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
57          goto T14;}          goto T14;}
# Line 67  T14:; Line 67  T14:;
67          base[6]= V9;          base[6]= V9;
68          base[7]= VV[1];          base[7]= VV[1];
69          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
70          (void) (*Lnk7)();          (void) (*Lnk14)();
71          vs_top=sup;          vs_top=sup;
72          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
73          goto T19;}          goto T19;}
74          {object V12;          {object V13;
75          object V13;          object V14;
76          register object V14;          register object V15;
77          V12= STREF(object,(V9),0);          V13= STREF(object,(V9),0);
78          V13= listA(3,(V3),(V4),(V5));          V14= listA(3,(V3),(V4),(V5));
79          V14= STREF(object,(V9),4);          V15= STREF(object,(V9),4);
80          if(((V14))==Cnil){          if(((V15))==Cnil){
81          goto T27;}          goto T27;}
82          if((CMPcdr((V14)))!=Cnil){          if((CMPcdr((V15)))!=Cnil){
83          goto T27;}          goto T27;}
84          (void)((          (void)((
85          (type_of((V12)) == t_sfun ?(*(((V12))->sfn.sfn_self)):          (type_of((V13)) == t_sfun ?(*(((V13))->sfn.sfn_self)):
86          (fcall.argd=2,type_of((V12))==t_vfun) ?          (fcall.argd=2,type_of((V13))==t_vfun) ?
87          (*(((V12))->sfn.sfn_self)):          (*(((V13))->sfn.sfn_self)):
88          (fcall.fun=((V12)),fcalln))((V13),CMPcar((V14)))));          (fcall.fun=((V13)),fcalln))((V14),CMPcar((V15)))));
89          goto T11;          goto T11;
90          goto T27;          goto T27;
91  T27:;  T27:;
92          base[6]= (V12);          base[6]= (V13);
93          base[7]= (V13);          base[7]= (V14);
94          {object V15;          {object V16;
95          V15= (V14);          V16= (V15);
96           vs_top=base+8;           vs_top=base+8;
97           while(V15!=Cnil)           while(V16!=Cnil)
98           {vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;}           {vs_push((V16)->c.c_car);V16=(V16)->c.c_cdr;}
99          vs_base=base+7;}          vs_base=base+7;}
100          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
101                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 114  T19:; Line 114  T19:;
114          base[6]= (V9);          base[6]= (V9);
115          base[7]= (V3);          base[7]= (V3);
116          base[8]= (V4);          base[8]= (V4);
117          {object V16;          {object V17;
118          V16= (V5);          V17= (V5);
119           vs_top=base+9;           vs_top=base+9;
120           while(V16!=Cnil)           while(V17!=Cnil)
121           {vs_push((V16)->c.c_car);V16=(V16)->c.c_cdr;}           {vs_push((V17)->c.c_car);V17=(V17)->c.c_cdr;}
122          vs_base=base+7;}          vs_base=base+7;}
123          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
124                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 128  T19:; Line 128  T19:;
128          goto T11;          goto T11;
129          goto T35;          goto T35;
130  T35:;  T35:;
131          base[7]= VV[2];          base[6]= VV[2];
132          base[8]= V9;          base[7]= VV[3];
133          base[9]= VV[3];          base[8]= VV[4];
134          vs_top=(vs_base=base+7)+3;          base[9]= VV[5];
135          (void) (*Lnk8)();          base[10]= V9;
136          vs_top=sup;          base[11]= VV[6];
137          base[6]= vs_base[0];          base[12]= VV[7];
138          vs_top=(vs_base=base+6)+1;          base[13]= VV[8];
139          Lerror();          base[14]= VV[9];
140            vs_top=(vs_base=base+6)+9;
141            (void) (*Lnk15)();
142          vs_top=sup;          vs_top=sup;
143          goto T11;          goto T11;
144  T11:;  T11:;
# Line 148  T2:; Line 150  T2:;
150          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
151          base[6]= VV[0];          base[6]= VV[0];
152          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
153          (void) (*Lnk7)();          (void) (*Lnk14)();
154          vs_top=sup;          vs_top=sup;
155          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
156          goto T53;}          goto T58;}
157          base[5]= STREF(object,(base0[1]->c.c_car),0);          base[5]= STREF(object,(base0[1]->c.c_car),0);
158          base[6]= STREF(object,(base0[1]->c.c_car),4);          base[6]= STREF(object,(base0[1]->c.c_car),4);
159          base[7]= STREF(object,(base0[1]->c.c_car),8);          base[7]= STREF(object,(base0[1]->c.c_car),8);
# Line 164  T2:; Line 166  T2:;
166                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
167                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
168          goto T1;          goto T1;
169          goto T53;          goto T58;
170  T53:;  T58:;
171          {object V17;          {object V18;
172          V17= (base0[1]->c.c_car);          V18= (base0[1]->c.c_car);
173          base[5]= (V17);          base[5]= V18;
174          base[6]= VV[1];          base[6]= VV[1];
175          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
176          (void) (*Lnk7)();          (void) (*Lnk14)();
177          vs_top=sup;          vs_top=sup;
178          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
179          goto T64;}          goto T69;}
180          {object V18;          {object V20;
181          object V19;          object V21;
182          object V20;          object V22;
183          V18= STREF(object,(base0[1]->c.c_car),0);          V20= STREF(object,(base0[1]->c.c_car),0);
184          V19= listA(3,(V3),(V4),(V5));          V21= listA(3,(V3),(V4),(V5));
185          V20= STREF(object,(base0[1]->c.c_car),4);          V22= STREF(object,(base0[1]->c.c_car),4);
186          if(((V20))==Cnil){          if(((V22))==Cnil){
187          goto T72;}          goto T77;}
188          if((CMPcdr((V20)))!=Cnil){          if((CMPcdr((V22)))!=Cnil){
189          goto T72;}          goto T77;}
190          base[5]= (V19);          base[5]= (V21);
191          base[6]= CMPcar((V20));          base[6]= CMPcar((V22));
192          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
193          {object _funobj = (V18);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V20);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
194                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
195                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
196                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
197          goto T1;          goto T1;
198          goto T72;          goto T77;
199  T72:;  T77:;
200          base[5]= (V18);          base[5]= (V20);
201          base[6]= (V19);          base[6]= (V21);
202          {object V21;          {object V23;
203          V21= (V20);          V23= (V22);
204           vs_top=base+7;           vs_top=base+7;
205           while(V21!=Cnil)           while(V23!=Cnil)
206           {vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;}           {vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;}
207          vs_base=base+6;}          vs_base=base+6;}
208          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
209                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
210                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
211                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
212          goto T1;}          goto T1;}
213          goto T64;          goto T69;
214  T64:;  T69:;
215          base[5]= (V17);          base[5]= V18;
216          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
217          Lfunctionp();          Lfunctionp();
218          vs_top=sup;          vs_top=sup;
219          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
220          goto T82;}          goto T87;}
221          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
222          base[6]= (V3);          base[6]= (V3);
223          base[7]= (V4);          base[7]= (V4);
224          {object V22;          {object V24;
225          V22= (V5);          V24= (V5);
226           vs_top=base+8;           vs_top=base+8;
227           while(V22!=Cnil)           while(V24!=Cnil)
228           {vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;}           {vs_push((V24)->c.c_car);V24=(V24)->c.c_cdr;}
229          vs_base=base+6;}          vs_base=base+6;}
230          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
231                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
232                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
233                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
234          goto T1;          goto T1;
235          goto T82;          goto T87;
236  T82:;  T87:;
237          base[6]= VV[4];          base[5]= VV[2];
238          base[7]= (V17);          base[6]= VV[3];
239            base[7]= VV[4];
240          base[8]= VV[5];          base[8]= VV[5];
241          vs_top=(vs_base=base+6)+3;          base[9]= (V18);
242          (void) (*Lnk8)();          base[10]= VV[6];
243          vs_top=sup;          base[11]= VV[10];
244          base[5]= vs_base[0];          base[12]= VV[8];
245          vs_top=(vs_base=base+5)+1;          base[13]= VV[11];
246          Lerror();}          vs_top=(vs_base=base+5)+9;
247            (void) (*Lnk15)();}
248          goto T1;          goto T1;
249  T1:;  T1:;
250          {object *V7=vs_top;object *V6=vs_base; vs_base=V7;          {object *V7=vs_top;object *V6=vs_base; vs_base=V7;
# Line 251  T1:; Line 255  T1:;
255          base[0]=base[0];          base[0]=base[0];
256          vs_check;          vs_check;
257          vs_top=sup;          vs_top=sup;
258          {object V23;          {object V25;
259          register object V24;          register object V26;
260          V23= (base0[0]->c.c_car);          V25= (base0[0]->c.c_car);
261          V24= CMPcar((V23));          V26= CMPcar((V25));
262          goto T97;          goto T107;
263  T97:;  T107:;
264          if(!(((V23))==Cnil)){          if(!(((V25))==Cnil)){
265          goto T98;}          goto T108;}
266          goto T93;          goto T103;
267          goto T98;          goto T108;
268  T98:;  T108:;
269          base[1]= (V24);          base[1]= (V26);
270          base[2]= VV[0];          base[2]= VV[0];
271          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
272          (void) (*Lnk7)();          (void) (*Lnk14)();
273          vs_top=sup;          vs_top=sup;
274          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
275          goto T105;}          goto T115;}
276          (void)((          (void)((
277          V25 = STREF(object,(V24),0),          V27 = STREF(object,(V26),0),
278          (type_of(V25) == t_sfun ?(*((V25)->sfn.sfn_self)):          (type_of(V27) == t_sfun ?(*((V27)->sfn.sfn_self)):
279          (fcall.argd=5,type_of(V25)==t_vfun) ?          (fcall.argd=5,type_of(V27)==t_vfun) ?
280          (*((V25)->sfn.sfn_self)):          (*((V27)->sfn.sfn_self)):
281          (fcall.fun=(V25),fcalln))(STREF(object,(V24),4),STREF(object,(V24),8),(V3),(V4),(V5))));          (fcall.fun=(V27),fcalln))(STREF(object,(V26),4),STREF(object,(V26),8),(V3),(V4),(V5))));
282          goto T102;          goto T112;
283          goto T105;          goto T115;
284  T105:;  T115:;
285          base[1]= V24;          base[1]= V26;
286          base[2]= VV[1];          base[2]= VV[1];
287          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
288          (void) (*Lnk7)();          (void) (*Lnk14)();
289          vs_top=sup;          vs_top=sup;
290          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
291          goto T110;}          goto T120;}
         {object V27;  
         object V28;  
         register object V29;  
         V27= STREF(object,(V24),0);  
         V28= listA(3,(V3),(V4),(V5));  
         V29= STREF(object,(V24),4);  
         if(((V29))==Cnil){  
         goto T118;}  
         if((CMPcdr((V29)))!=Cnil){  
         goto T118;}  
         (void)((  
         (type_of((V27)) == t_sfun ?(*(((V27))->sfn.sfn_self)):  
         (fcall.argd=2,type_of((V27))==t_vfun) ?  
         (*(((V27))->sfn.sfn_self)):  
         (fcall.fun=((V27)),fcalln))((V28),CMPcar((V29)))));  
         goto T102;  
         goto T118;  
 T118:;  
         base[1]= (V27);  
         base[2]= (V28);  
292          {object V30;          {object V30;
293          V30= (V29);          object V31;
294            register object V32;
295            V30= STREF(object,(V26),0);
296            V31= listA(3,(V3),(V4),(V5));
297            V32= STREF(object,(V26),4);
298            if(((V32))==Cnil){
299            goto T128;}
300            if((CMPcdr((V32)))!=Cnil){
301            goto T128;}
302            (void)((
303            (type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)):
304            (fcall.argd=2,type_of((V30))==t_vfun) ?
305            (*(((V30))->sfn.sfn_self)):
306            (fcall.fun=((V30)),fcalln))((V31),CMPcar((V32)))));
307            goto T112;
308            goto T128;
309    T128:;
310            base[1]= (V30);
311            base[2]= (V31);
312            {object V33;
313            V33= (V32);
314           vs_top=base+3;           vs_top=base+3;
315           while(V30!=Cnil)           while(V33!=Cnil)
316           {vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;}           {vs_push((V33)->c.c_car);V33=(V33)->c.c_cdr;}
317          vs_base=base+2;}          vs_base=base+2;}
318          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
319                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
320                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
321                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
322          vs_top=sup;          vs_top=sup;
323          goto T102;}          goto T112;}
324          goto T110;          goto T120;
325  T110:;  T120:;
326          base[1]= V24;          base[1]= V26;
327          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
328          Lfunctionp();          Lfunctionp();
329          vs_top=sup;          vs_top=sup;
330          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
331          goto T126;}          goto T136;}
332          base[1]= (V24);          base[1]= (V26);
333          base[2]= (V3);          base[2]= (V3);
334          base[3]= (V4);          base[3]= (V4);
335          {object V31;          {object V34;
336          V31= (V5);          V34= (V5);
337           vs_top=base+4;           vs_top=base+4;
338           while(V31!=Cnil)           while(V34!=Cnil)
339           {vs_push((V31)->c.c_car);V31=(V31)->c.c_cdr;}           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}
340          vs_base=base+2;}          vs_base=base+2;}
341          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
342                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
343                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
344                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
345          vs_top=sup;          vs_top=sup;
346          goto T102;          goto T112;
347          goto T126;          goto T136;
348  T126:;  T136:;
349          base[2]= VV[2];          base[1]= VV[2];
350          base[3]= V24;          base[2]= VV[3];
351          base[4]= VV[6];          base[3]= VV[4];
352          vs_top=(vs_base=base+2)+3;          base[4]= VV[5];
353          (void) (*Lnk8)();          base[5]= V26;
354          vs_top=sup;          base[6]= VV[6];
355          base[1]= vs_base[0];          base[7]= VV[12];
356          vs_top=(vs_base=base+1)+1;          base[8]= VV[8];
357          Lerror();          base[9]= VV[13];
358          vs_top=sup;          vs_top=(vs_base=base+1)+9;
359          goto T102;          (void) (*Lnk15)();
360  T102:;          vs_top=sup;
361          V23= CMPcdr((V23));          goto T112;
362          V24= CMPcar((V23));  T112:;
363          goto T97;}          V25= CMPcdr((V25));
364            V26= CMPcar((V25));
365            goto T107;}
366          }}          }}
367          goto T93;          goto T103;
368  T93:;  T103:;
369          vs_base=V6;vs_top=V7;}          vs_base=V6;vs_top=V7;}
370          return;          return;
371          }          }
372  }  }
373  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* TYPECASE-ERROR-STRING */  static void LnkT15(){ call_or_link(VV[15],(void **)(void *)&Lnk15);} /* ERROR */
374  static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */  static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* STRUCTURE-SUBTYPE-P */
375    
376  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
377  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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