/[gcl]/gcl/clcs/clcs_precom.c
ViewVC logotype

Diff of /gcl/clcs/clcs_precom.c

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

revision 1.2.4.1.4.1 by camm, Tue Sep 23 18:39:17 2003 UTC revision 1.2.4.1.4.2 by camm, Tue Sep 23 19:32:30 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_precom.h"  #include "clcs_precom.h"
4  void init_clcs_precom(){do_init(VV);}  void init_clcs_precom(){do_init(VV);}
5  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2185 */  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2195 */
6    
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
# Line 19  TTL:; Line 19  TTL:;
19          (void) (*Lnk18)();          (void) (*Lnk18)();
20          return;          return;
21  }  }
22  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2185 */  /*      local entry for function progn 'compile2302     */
23    
24  static void L2()  static object LI2()
25    
26    {        VMB2 VMS2 VMV2
27            goto TTL;
28    TTL:;
29            vs_base=vs_top;
30            (void) (*Lnk19)();
31            vs_top=sup;
32            {object V1 = Cnil;
33            VMR2(V1)}
34            base[0]=base[0];
35            return Cnil;
36    }
37    /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2195 */
38    
39    static void L3()
40  {register object *base=vs_base;  {register object *base=vs_base;
41          register object *sup=base+VM2; VC2          register object *sup=base+VM3; VC3
42          vs_check;          vs_check;
43          vs_top=sup;          vs_top=sup;
44          goto TTL;          goto TTL;
45  TTL:;  TTL:;
46          base[0]= VV[6];          base[0]= VV[6];
47          base[1]= VV[19];          base[1]= VV[20];
48          base[2]= VV[4];          base[2]= VV[4];
49          base[3]= VV[8];          base[3]= VV[8];
50          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
51          (void) (*Lnk18)();          (void) (*Lnk18)();
52          return;          return;
53  }  }
54  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2185 */  /*      local entry for function progn 'compile2413     */
55    
56  static void L3()  static object LI4()
57    
58    {        VMB4 VMS4 VMV4
59            goto TTL;
60    TTL:;
61            vs_base=vs_top;
62            (void) (*Lnk21)();
63            vs_top=sup;
64            {object V2 = Cnil;
65            VMR4(V2)}
66            base[0]=base[0];
67            return Cnil;
68    }
69    /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2195 */
70    
71    static void L5()
72  {register object *base=vs_base;  {register object *base=vs_base;
73          register object *sup=base+VM3; VC3          register object *sup=base+VM5; VC5
74          vs_check;          vs_check;
75          vs_top=sup;          vs_top=sup;
76          goto TTL;          goto TTL;
77  TTL:;  TTL:;
78          base[0]= VV[9];          base[0]= VV[9];
79          base[1]= VV[20];          base[1]= VV[22];
80          base[2]= VV[4];          base[2]= VV[4];
81          base[3]= VV[11];          base[3]= VV[11];
82          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
83          (void) (*Lnk18)();          (void) (*Lnk18)();
84          return;          return;
85  }  }
86  /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2185 */  /*      local entry for function progn 'compile2576     */
87    
88    static object LI6()
89    
90    {        VMB6 VMS6 VMV6
91            goto TTL;
92    TTL:;
93            vs_base=vs_top;
94            (void) (*Lnk23)();
95            vs_top=sup;
96            {object V3 = Cnil;
97            VMR6(V3)}
98            base[0]=base[0];
99            return Cnil;
100    }
101    /*      function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2195 */
102    
103  static void L4()  static void L7()
104  {register object *base=vs_base;  {register object *base=vs_base;
105          register object *sup=base+VM4; VC4          register object *sup=base+VM7; VC7
106          vs_check;          vs_check;
107          vs_top=sup;          vs_top=sup;
108          goto TTL;          goto TTL;
109  TTL:;  TTL:;
110          base[0]= VV[12];          base[0]= VV[12];
111          base[1]= VV[21];          base[1]= VV[24];
112          base[2]= VV[4];          base[2]= VV[4];
113          base[3]= VV[16];          base[3]= VV[16];
114          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
115          (void) (*Lnk18)();          (void) (*Lnk18)();
116          return;          return;
117  }  }
118    /*      local entry for function progn 'compile2803     */
119    
120    static object LI8()
121    
122    {        VMB8 VMS8 VMV8
123            goto TTL;
124    TTL:;
125            vs_base=vs_top;
126            (void) (*Lnk25)();
127            vs_top=sup;
128            {object V4 = Cnil;
129            VMR8(V4)}
130            base[0]=base[0];
131            return Cnil;
132    }
133    /*      local entry for function progn 'compile2807     */
134    
135    static object LI9()
136    
137    {        VMB9 VMS9 VMV9
138            goto TTL;
139    TTL:;
140            base[0]= Ct;
141            vs_top=(vs_base=base+0)+1;
142            (void) (*Lnk26)();
143            vs_top=sup;
144            {object V5 = Cnil;
145            VMR9(V5)}
146            base[0]=base[0];
147            return Cnil;
148    }
149  /*      local function CLOSURE  */  /*      local function CLOSURE  */
150    
151  static void LC8(base0)  static void LC13(base0)
152  register object *base0;  register object *base0;
153  {       register object *base=vs_base;  {       register object *base=vs_base;
154          register object *sup=base+VM5; VC5          register object *sup=base+VM10; VC10
155          vs_check;          vs_check;
156          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
157          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
158          vs_top=sup;          vs_top=sup;
159          base[2]=          base[2]=
160          make_cclosure_new(LC9,Cnil,base[1],Cdata);          make_cclosure_new(LC14,Cnil,base[1],Cdata);
161          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
162          return;          return;
163  }  }
164  /*      local function CLOSURE  */  /*      local function CLOSURE  */
165    
166  static void LC9(base0)  static void LC14(base0)
167  register object *base0;  register object *base0;
168  {       register object *base=vs_base;  {       register object *base=vs_base;
169          register object *sup=base+VM6; VC6          register object *sup=base+VM11; VC11
170          vs_check;          vs_check;
171          {register object V1;          {register object V6;
         object V2;  
         V1=(base[0]);  
         V2=(base[1]);  
         vs_top=sup;  
         {register object V3;  
         object V4;  
         register object V5;  
         register object V6;  
172          object V7;          object V7;
173          register object V8;          V6=(base[0]);
174          V4= CMPcar((base0[1]->c.c_car));          V7=(base[1]);
         V3= (V2);  
         V5= Cnil;  
         V6= Cnil;  
         V7= Cnil;  
         V8= Cnil;  
         if(type_of(V1)==t_structure){  
         goto T29;}  
         goto T27;  
         goto T29;  
 T29:;  
         if(!(((V1)->str.str_def)==(VV[13]))){  
         goto T27;}  
         V5= STREF(object,(V1),4);  
         V6= STREF(object,(V1),0);  
         goto T25;  
         goto T27;  
 T27:;{object V10;  
         V10= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V1);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk22)();  
175          vs_top=sup;          vs_top=sup;
176          V11= vs_base[0];          {register object V8;
177          if(!((V10)==(CMPcar(V11)))){          object V9;
178          goto T35;}}          register object V10;
179          V5= CMPcar(((V1))->cc.cc_turbo[12]);          register object V11;
180          V6= CMPcar(((V1))->cc.cc_turbo[13]);          object V12;
181          goto T25;          register object V13;
182            V9= CMPcar((base0[1]->c.c_car));
183            V8= (V7);
184            V10= Cnil;
185            V11= Cnil;
186            V12= Cnil;
187            V13= Cnil;
188            if(type_of(V6)==t_structure){
189            goto T35;}
190            goto T33;
191          goto T35;          goto T35;
192  T35:;  T35:;
193          base[2]= (V1);          if(!(((V6)->str.str_def)==(VV[13]))){
194            goto T33;}
195            V10= STREF(object,(V6),4);
196            V11= STREF(object,(V6),0);
197            goto T31;
198            goto T33;
199    T33:;{object V15;
200            V15= (VV[3]->s.s_dbind);
201            base[2]= small_fixnum(14);
202            base[3]= (V6);
203            vs_top=(vs_base=base+2)+2;
204            (void) (*Lnk27)();
205            vs_top=sup;
206            V16= vs_base[0];
207            if(!((V15)==(CMPcar(V16)))){
208            goto T41;}}
209            V10= CMPcar(((V6))->cc.cc_turbo[12]);
210            V11= CMPcar(((V6))->cc.cc_turbo[13]);
211            goto T31;
212            goto T41;
213    T41:;
214            base[2]= (V6);
215          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
216          (void) (*Lnk23)();          (void) (*Lnk28)();
217          vs_top=sup;          vs_top=sup;
218          V6= vs_base[0];          V11= vs_base[0];
219          goto T25;          goto T31;
220  T25:;  T31:;
221          V7= ((V6))->v.v_self[11];          V12= ((V11))->v.v_self[11];
222          V3= CMPcdr((V3));          V8= CMPcdr((V8));
         {object V12;  
         V12= CMPcar((V3));  
         V3= CMPcdr((V3));  
         V8= (V12);}  
         (void)(((V5))->v.v_self[8]= ((V8)));  
         V3= CMPcdr((V3));  
         {object V13;  
         V13= CMPcar((V3));  
         V3= CMPcdr((V3));  
         V8= (V13);}  
         (void)(((V5))->v.v_self[0]= ((V8)));  
         V3= CMPcdr((V3));  
         {object V14;  
         V14= CMPcar((V3));  
         V3= CMPcdr((V3));  
         V8= (V14);}  
         (void)(((V5))->v.v_self[3]= ((V8)));  
         V3= CMPcdr((V3));  
         {object V15;  
         V15= CMPcar((V3));  
         V3= CMPcdr((V3));  
         V8= (V15);}  
         (void)(((V5))->v.v_self[4]= ((V8)));  
         V3= CMPcdr((V3));  
         {object V16;  
         V16= CMPcar((V3));  
         V3= CMPcdr((V3));  
         V8= (V16);}  
         (void)(((V5))->v.v_self[5]= ((V8)));  
         V3= CMPcdr((V3));  
223          {object V17;          {object V17;
224          V17= CMPcar((V3));          V17= CMPcar((V8));
225          V3= CMPcdr((V3));          V8= CMPcdr((V8));
226          V8= (V17);}          V13= (V17);}
227          (void)(((V5))->v.v_self[6]= ((V8)));          (void)(((V10))->v.v_self[8]= ((V13)));
228          if(!((((V5))->v.v_self[1])==(VV[14]))){          V8= CMPcdr((V8));
229          goto T95;}          {object V18;
230          V8= Cnil;          V18= CMPcar((V8));
231          (void)(((V5))->v.v_self[1]= ((V8)));          V8= CMPcdr((V8));
232          goto T95;          V13= (V18);}
233  T95:;          (void)(((V10))->v.v_self[0]= ((V13)));
234          if(!((((V5))->v.v_self[2])==(VV[14]))){          V8= CMPcdr((V8));
235          goto T100;}          {object V19;
236          V8= Cnil;          V19= CMPcar((V8));
237          (void)(((V5))->v.v_self[2]= ((V8)));          V8= CMPcdr((V8));
238          goto T100;          V13= (V19);}
239  T100:;          (void)(((V10))->v.v_self[3]= ((V13)));
240          if(!((((V5))->v.v_self[7])==(VV[14]))){          V8= CMPcdr((V8));
241          goto T105;}          {object V20;
242          V8= ((base0[0]->c.c_car))->v.v_self[9];          V20= CMPcar((V8));
243          (void)(((V5))->v.v_self[7]= ((V8)));          V8= CMPcdr((V8));
244          goto T105;          V13= (V20);}
245  T105:;          (void)(((V10))->v.v_self[4]= ((V13)));
246          if(!((((V5))->v.v_self[9])==(VV[14]))){          V8= CMPcdr((V8));
247          goto T17;}          {object V21;
248          V8= VV[15];          V21= CMPcar((V8));
249          (void)(((V5))->v.v_self[9]= ((V8)));}          V8= CMPcdr((V8));
250          goto T17;          V13= (V21);}
251  T17:;          (void)(((V10))->v.v_self[5]= ((V13)));
252          base[2]= (V2);          V8= CMPcdr((V8));
253            {object V22;
254            V22= CMPcar((V8));
255            V8= CMPcdr((V8));
256            V13= (V22);}
257            (void)(((V10))->v.v_self[6]= ((V13)));
258            if(!((((V10))->v.v_self[1])==(VV[14]))){
259            goto T101;}
260            V13= Cnil;
261            (void)(((V10))->v.v_self[1]= ((V13)));
262            goto T101;
263    T101:;
264            if(!((((V10))->v.v_self[2])==(VV[14]))){
265            goto T106;}
266            V13= Cnil;
267            (void)(((V10))->v.v_self[2]= ((V13)));
268            goto T106;
269    T106:;
270            if(!((((V10))->v.v_self[7])==(VV[14]))){
271            goto T111;}
272            V13= ((base0[0]->c.c_car))->v.v_self[9];
273            (void)(((V10))->v.v_self[7]= ((V13)));
274            goto T111;
275    T111:;
276            if(!((((V10))->v.v_self[9])==(VV[14]))){
277            goto T23;}
278            V13= VV[15];
279            (void)(((V10))->v.v_self[9]= ((V13)));}
280            goto T23;
281    T23:;
282            base[2]= (V7);
283          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
284          return;          return;
285          }          }
286  }  }
287  /*      local function CLOSURE  */  /*      local function CLOSURE  */
288    
289  static void LC7(base0)  static void LC12(base0)
290  register object *base0;  register object *base0;
291  {       register object *base=vs_base;  {       register object *base=vs_base;
292          register object *sup=base+VM7; VC7          register object *sup=base+VM12; VC12
293          vs_check;          vs_check;
294          {object V18;          {object V23;
295          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
296          V18=(base[1]);          V23=(base[1]);
297          vs_top=sup;          vs_top=sup;
298          base[2]=          base[2]=
299          make_cclosure_new(LC10,Cnil,base[0],Cdata);          make_cclosure_new(LC15,Cnil,base[0],Cdata);
300          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
301          return;          return;
302          }          }
303  }  }
304  /*      local function CLOSURE  */  /*      local function CLOSURE  */
305    
306  static void LC10(base0)  static void LC15(base0)
307  register object *base0;  register object *base0;
308  {       register object *base=vs_base;  {       register object *base=vs_base;
309          register object *sup=base+VM8; VC8          register object *sup=base+VM13; VC13
310          vs_check;          vs_check;
311          {register object V19;          {register object V24;
         object V20;  
         V19=(base[0]);  
         V20=(base[1]);  
         vs_top=sup;  
         {register object V21;  
         object V22;  
         register object V23;  
         register object V24;  
312          object V25;          object V25;
313          register object V26;          V24=(base[0]);
314          V22= CMPcar((base0[0]->c.c_car));          V25=(base[1]);
         V21= (V20);  
         V23= Cnil;  
         V24= Cnil;  
         V25= Cnil;  
         V26= Cnil;  
         if(type_of(V19)==t_structure){  
         goto T126;}  
         goto T124;  
         goto T126;  
 T126:;  
         if(!(((V19)->str.str_def)==(VV[10]))){  
         goto T124;}  
         V23= STREF(object,(V19),4);  
         V24= STREF(object,(V19),0);  
         goto T122;  
         goto T124;  
 T124:;{object V28;  
         V28= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V19);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk22)();  
315          vs_top=sup;          vs_top=sup;
316          V29= vs_base[0];          {register object V26;
317          if(!((V28)==(CMPcar(V29)))){          object V27;
318          goto T132;}}          register object V28;
319          V23= CMPcar(((V19))->cc.cc_turbo[12]);          register object V29;
320          V24= CMPcar(((V19))->cc.cc_turbo[13]);          object V30;
321          goto T122;          register object V31;
322            V27= CMPcar((base0[0]->c.c_car));
323            V26= (V25);
324            V28= Cnil;
325            V29= Cnil;
326            V30= Cnil;
327            V31= Cnil;
328            if(type_of(V24)==t_structure){
329            goto T132;}
330            goto T130;
331          goto T132;          goto T132;
332  T132:;  T132:;
333          base[2]= (V19);          if(!(((V24)->str.str_def)==(VV[10]))){
334            goto T130;}
335            V28= STREF(object,(V24),4);
336            V29= STREF(object,(V24),0);
337            goto T128;
338            goto T130;
339    T130:;{object V33;
340            V33= (VV[3]->s.s_dbind);
341            base[2]= small_fixnum(14);
342            base[3]= (V24);
343            vs_top=(vs_base=base+2)+2;
344            (void) (*Lnk27)();
345            vs_top=sup;
346            V34= vs_base[0];
347            if(!((V33)==(CMPcar(V34)))){
348            goto T138;}}
349            V28= CMPcar(((V24))->cc.cc_turbo[12]);
350            V29= CMPcar(((V24))->cc.cc_turbo[13]);
351            goto T128;
352            goto T138;
353    T138:;
354            base[2]= (V24);
355          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
356          (void) (*Lnk23)();          (void) (*Lnk28)();
357          vs_top=sup;          vs_top=sup;
358          V24= vs_base[0];          V29= vs_base[0];
359          goto T122;          goto T128;
360  T122:;  T128:;
361          V25= ((V24))->v.v_self[11];          V30= ((V29))->v.v_self[11];
362          V21= (V20);          V26= (V25);
363          V21= CMPcdr((V21));          V26= CMPcdr((V26));
         {object V30;  
         V30= CMPcar((V21));  
         V21= CMPcdr((V21));  
         V26= (V30);}  
         (void)(((V23))->v.v_self[8]= ((V26)));  
         V21= CMPcdr((V21));  
         {object V31;  
         V31= CMPcar((V21));  
         V21= CMPcdr((V21));  
         V26= (V31);}  
         (void)(((V23))->v.v_self[0]= ((V26)));  
         V21= CMPcdr((V21));  
         {object V32;  
         V32= CMPcar((V21));  
         V21= CMPcdr((V21));  
         V26= (V32);}  
         (void)(((V23))->v.v_self[3]= ((V26)));  
         V21= CMPcdr((V21));  
         {object V33;  
         V33= CMPcar((V21));  
         V21= CMPcdr((V21));  
         V26= (V33);}  
         (void)(((V23))->v.v_self[4]= ((V26)));  
         V21= CMPcdr((V21));  
         {object V34;  
         V34= CMPcar((V21));  
         V21= CMPcdr((V21));  
         V26= (V34);}  
         (void)(((V23))->v.v_self[5]= ((V26)));  
         V21= CMPcdr((V21));  
364          {object V35;          {object V35;
365          V35= CMPcar((V21));          V35= CMPcar((V26));
366          V21= CMPcdr((V21));          V26= CMPcdr((V26));
367          V26= (V35);}          V31= (V35);}
368          (void)(((V23))->v.v_self[6]= ((V26)));}          (void)(((V28))->v.v_self[8]= ((V31)));
369          base[2]= (V20);          V26= CMPcdr((V26));
370            {object V36;
371            V36= CMPcar((V26));
372            V26= CMPcdr((V26));
373            V31= (V36);}
374            (void)(((V28))->v.v_self[0]= ((V31)));
375            V26= CMPcdr((V26));
376            {object V37;
377            V37= CMPcar((V26));
378            V26= CMPcdr((V26));
379            V31= (V37);}
380            (void)(((V28))->v.v_self[3]= ((V31)));
381            V26= CMPcdr((V26));
382            {object V38;
383            V38= CMPcar((V26));
384            V26= CMPcdr((V26));
385            V31= (V38);}
386            (void)(((V28))->v.v_self[4]= ((V31)));
387            V26= CMPcdr((V26));
388            {object V39;
389            V39= CMPcar((V26));
390            V26= CMPcdr((V26));
391            V31= (V39);}
392            (void)(((V28))->v.v_self[5]= ((V31)));
393            V26= CMPcdr((V26));
394            {object V40;
395            V40= CMPcar((V26));
396            V26= CMPcdr((V26));
397            V31= (V40);}
398            (void)(((V28))->v.v_self[6]= ((V31)));}
399            base[2]= (V25);
400          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
401          return;          return;
402          }          }
403  }  }
404  /*      local function CLOSURE  */  /*      local function CLOSURE  */
405    
406  static void LC6(base0)  static void LC11(base0)
407  register object *base0;  register object *base0;
408  {       register object *base=vs_base;  {       register object *base=vs_base;
409          register object *sup=base+VM9; VC9          register object *sup=base+VM14; VC14
410          vs_check;          vs_check;
411          {object V36;          {object V41;
412          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
413          V36=(base[1]);          V41=(base[1]);
414          vs_top=sup;          vs_top=sup;
415          base[2]=          base[2]=
416          make_cclosure_new(LC11,Cnil,base[0],Cdata);          make_cclosure_new(LC16,Cnil,base[0],Cdata);
417          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
418          return;          return;
419          }          }
420  }  }
421  /*      local function CLOSURE  */  /*      local function CLOSURE  */
422    
423  static void LC11(base0)  static void LC16(base0)
424  register object *base0;  register object *base0;
425  {       register object *base=vs_base;  {       register object *base=vs_base;
426          register object *sup=base+VM10; VC10          register object *sup=base+VM15; VC15
427          vs_check;          vs_check;
428          {register object V37;          {register object V42;
         object V38;  
         V37=(base[0]);  
         V38=(base[1]);  
         vs_top=sup;  
         {register object V39;  
         object V40;  
         register object V41;  
         register object V42;  
429          object V43;          object V43;
430          register object V44;          V42=(base[0]);
431          V40= CMPcar((base0[0]->c.c_car));          V43=(base[1]);
         V39= (V38);  
         V41= Cnil;  
         V42= Cnil;  
         V43= Cnil;  
         V44= Cnil;  
         if(type_of(V37)==t_structure){  
         goto T205;}  
         goto T203;  
         goto T205;  
 T205:;  
         if(!(((V37)->str.str_def)==(VV[7]))){  
         goto T203;}  
         V41= STREF(object,(V37),4);  
         V42= STREF(object,(V37),0);  
         goto T201;  
         goto T203;  
 T203:;{object V46;  
         V46= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V37);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk22)();  
432          vs_top=sup;          vs_top=sup;
433          V47= vs_base[0];          {register object V44;
434          if(!((V46)==(CMPcar(V47)))){          object V45;
435          goto T211;}}          register object V46;
436          V41= CMPcar(((V37))->cc.cc_turbo[12]);          register object V47;
437          V42= CMPcar(((V37))->cc.cc_turbo[13]);          object V48;
438          goto T201;          register object V49;
439            V45= CMPcar((base0[0]->c.c_car));
440            V44= (V43);
441            V46= Cnil;
442            V47= Cnil;
443            V48= Cnil;
444            V49= Cnil;
445            if(type_of(V42)==t_structure){
446            goto T211;}
447            goto T209;
448          goto T211;          goto T211;
449  T211:;  T211:;
450          base[2]= (V37);          if(!(((V42)->str.str_def)==(VV[7]))){
451            goto T209;}
452            V46= STREF(object,(V42),4);
453            V47= STREF(object,(V42),0);
454            goto T207;
455            goto T209;
456    T209:;{object V51;
457            V51= (VV[3]->s.s_dbind);
458            base[2]= small_fixnum(14);
459            base[3]= (V42);
460            vs_top=(vs_base=base+2)+2;
461            (void) (*Lnk27)();
462            vs_top=sup;
463            V52= vs_base[0];
464            if(!((V51)==(CMPcar(V52)))){
465            goto T217;}}
466            V46= CMPcar(((V42))->cc.cc_turbo[12]);
467            V47= CMPcar(((V42))->cc.cc_turbo[13]);
468            goto T207;
469            goto T217;
470    T217:;
471            base[2]= (V42);
472          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
473          (void) (*Lnk23)();          (void) (*Lnk28)();
474          vs_top=sup;          vs_top=sup;
475          V42= vs_base[0];          V47= vs_base[0];
476          goto T201;          goto T207;
477  T201:;  T207:;
478          V43= ((V42))->v.v_self[11];          V48= ((V47))->v.v_self[11];
479          V39= CMPcdr((V39));          V44= CMPcdr((V44));
480          {object V48;          {object V53;
481          V48= CMPcar((V39));          V53= CMPcar((V44));
482          V39= CMPcdr((V39));          V44= CMPcdr((V44));
483          V44= (V48);}          V49= (V53);}
484          (void)(((V41))->v.v_self[1]= ((V44)));          (void)(((V46))->v.v_self[1]= ((V49)));
485          V39= CMPcdr((V39));          V44= CMPcdr((V44));
486          {object V49;          {object V54;
487          V49= CMPcar((V39));          V54= CMPcar((V44));
488          V39= CMPcdr((V39));          V44= CMPcdr((V44));
489          V44= (V49);}          V49= (V54);}
490          (void)(((V41))->v.v_self[0]= ((V44)));}          (void)(((V46))->v.v_self[0]= ((V49)));}
491          base[2]= (V38);          base[2]= (V43);
492          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
493          return;          return;
494          }          }
495  }  }
496  /*      local function CLOSURE  */  /*      local function CLOSURE  */
497    
498  static void LC5(base0)  static void LC10(base0)
499  register object *base0;  register object *base0;
500  {       register object *base=vs_base;  {       register object *base=vs_base;
501          register object *sup=base+VM11; VC11          register object *sup=base+VM16; VC16
502          vs_check;          vs_check;
503          {object V50;          {object V55;
504          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
505          V50=(base[1]);          V55=(base[1]);
506          vs_top=sup;          vs_top=sup;
507          base[2]=          base[2]=
508          make_cclosure_new(LC12,Cnil,base[0],Cdata);          make_cclosure_new(LC17,Cnil,base[0],Cdata);
509          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
510          return;          return;
511          }          }
512  }  }
513  /*      local function CLOSURE  */  /*      local function CLOSURE  */
514    
515  static void LC12(base0)  static void LC17(base0)
516  register object *base0;  register object *base0;
517  {       register object *base=vs_base;  {       register object *base=vs_base;
518          register object *sup=base+VM12; VC12          register object *sup=base+VM17; VC17
519          vs_check;          vs_check;
520          {register object V51;          {register object V56;
         object V52;  
         V51=(base[0]);  
         V52=(base[1]);  
         vs_top=sup;  
         {register object V53;  
         object V54;  
         register object V55;  
         register object V56;  
521          object V57;          object V57;
522          register object V58;          V56=(base[0]);
523          V54= CMPcar((base0[0]->c.c_car));          V57=(base[1]);
         V53= (V52);  
         V55= Cnil;  
         V56= Cnil;  
         V57= Cnil;  
         V58= Cnil;  
         if(type_of(V51)==t_structure){  
         goto T250;}  
         goto T248;  
         goto T250;  
 T250:;  
         if(!(((V51)->str.str_def)==(VV[1]))){  
         goto T248;}  
         V55= STREF(object,(V51),4);  
         V56= STREF(object,(V51),0);  
         goto T246;  
         goto T248;  
 T248:;{object V60;  
         V60= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V51);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk22)();  
524          vs_top=sup;          vs_top=sup;
525          V61= vs_base[0];          {register object V58;
526          if(!((V60)==(CMPcar(V61)))){          object V59;
527          goto T256;}}          register object V60;
528          V55= CMPcar(((V51))->cc.cc_turbo[12]);          register object V61;
529          V56= CMPcar(((V51))->cc.cc_turbo[13]);          object V62;
530          goto T246;          register object V63;
531            V59= CMPcar((base0[0]->c.c_car));
532            V58= (V57);
533            V60= Cnil;
534            V61= Cnil;
535            V62= Cnil;
536            V63= Cnil;
537            if(type_of(V56)==t_structure){
538            goto T256;}
539            goto T254;
540          goto T256;          goto T256;
541  T256:;  T256:;
542          base[2]= (V51);          if(!(((V56)->str.str_def)==(VV[1]))){
543            goto T254;}
544            V60= STREF(object,(V56),4);
545            V61= STREF(object,(V56),0);
546            goto T252;
547            goto T254;
548    T254:;{object V65;
549            V65= (VV[3]->s.s_dbind);
550            base[2]= small_fixnum(14);
551            base[3]= (V56);
552            vs_top=(vs_base=base+2)+2;
553            (void) (*Lnk27)();
554            vs_top=sup;
555            V66= vs_base[0];
556            if(!((V65)==(CMPcar(V66)))){
557            goto T262;}}
558            V60= CMPcar(((V56))->cc.cc_turbo[12]);
559            V61= CMPcar(((V56))->cc.cc_turbo[13]);
560            goto T252;
561            goto T262;
562    T262:;
563            base[2]= (V56);
564          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
565          (void) (*Lnk23)();          (void) (*Lnk28)();
566          vs_top=sup;          vs_top=sup;
567          V56= vs_base[0];          V61= vs_base[0];
568          goto T246;          goto T252;
569  T246:;  T252:;
570          V57= ((V56))->v.v_self[11];          V62= ((V61))->v.v_self[11];
571          V53= (V52);          V58= (V57);
572          V53= CMPcdr((V53));          V58= CMPcdr((V58));
573          {object V62;          {object V67;
574          V62= CMPcar((V53));          V67= CMPcar((V58));
575          V53= CMPcdr((V53));          V58= CMPcdr((V58));
576          V58= (V62);}          V63= (V67);}
577          (void)(((V55))->v.v_self[1]= ((V58)));          (void)(((V60))->v.v_self[1]= ((V63)));
578          V53= CMPcdr((V53));          V58= CMPcdr((V58));
579          {object V63;          {object V68;
580          V63= CMPcar((V53));          V68= CMPcar((V58));
581          V53= CMPcdr((V53));          V58= CMPcdr((V58));
582          V58= (V63);}          V63= (V68);}
583          (void)(((V55))->v.v_self[0]= ((V58)));}          (void)(((V60))->v.v_self[0]= ((V63)));}
584          base[2]= (V52);          base[2]= (V57);
585          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
586          return;          return;
587          }          }
588  }  }
589  static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* WRAPPER-OF */  static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* WRAPPER-OF */
590  static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* CCLOSURE-ENV-NTHCDR */
591    static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* COMPILE-IIS-FUNCTIONS */
592    static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2195 */
593    static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2195 */
594    static void LnkT21(){ call_or_link(VV[21],(void **)(void *)&Lnk21);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2195 */
595    static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2195 */
596  static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */  static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */
597    
598  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2.4.1.4.1  
changed lines
  Added in v.1.2.4.1.4.2

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