← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to pcl/c/pcl_gazonk3.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
pcl/c/pcl_gazonk3.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_gazonk3.h"
 
4
void init_pcl_gazonk3(){do_init(VV);}
 
5
/*      function definition for CMP-ANON        */
 
6
 
 
7
static void L1()
 
8
{register object *base=vs_base;
 
9
        register object *sup=base+VM1; VC1
 
10
        vs_check;
 
11
        check_arg(3);
 
12
        base[0]=MMcons(base[0],Cnil);
 
13
        base[1]=MMcons(base[1],base[0]);
 
14
        base[2]=MMcons(base[2],base[1]);
 
15
        vs_top=sup;
 
16
        base[3]= 
 
17
        make_cclosure_new(LC2,Cnil,base[2],Cdata);
 
18
        vs_top=(vs_base=base+3)+1;
 
19
        return;
 
20
}
 
21
/*      local function CLOSURE  */
 
22
 
 
23
static void LC2(base0)
 
24
register object *base0;
 
25
{       register object *base=vs_base;
 
26
        register object *sup=base+VM2; VC2
 
27
        vs_check;
 
28
        {object V1;
 
29
        object V2;
 
30
        register object V3;
 
31
        register object V4;
 
32
        check_arg(4);
 
33
        V1=(base[0]);
 
34
        V2=(base[1]);
 
35
        V3=(base[2]);
 
36
        V4=(base[3]);
 
37
        vs_top=sup;
 
38
        {register object V7;
 
39
        object V8;
 
40
        V7= (base0[2]->c.c_car);
 
41
        V8= CMPcar((V7));
 
42
        goto T6;
 
43
T6:;
 
44
        if(!(((V7))==Cnil)){
 
45
        goto T7;}
 
46
        goto T2;
 
47
        goto T7;
 
48
T7:;
 
49
        (void)((
 
50
        V9 = STREF(object,(V8),0),
 
51
        (type_of(V9) == t_sfun ?(*((V9)->sfn.sfn_self)):
 
52
        (fcall.argd=4,type_of(V9)==t_vfun) ?
 
53
        (*((V9)->sfn.sfn_self)):
 
54
        (fcall.fun=(V9),fcalln))(STREF(object,(V8),4),STREF(object,(V8),8),(V3),(V4))));
 
55
        V7= CMPcdr((V7));
 
56
        V8= CMPcar((V7));
 
57
        goto T6;}
 
58
        goto T2;
 
59
T2:;
 
60
        base[4]= (base0[1]->c.c_car);
 
61
        base[5]= VV[0];
 
62
        vs_top=(vs_base=base+4)+2;
 
63
        (void) (*Lnk12)();
 
64
        vs_top=sup;
 
65
        if((vs_base[0])==Cnil){
 
66
        goto T20;}
 
67
        base[4]= STREF(object,(base0[1]->c.c_car),0);
 
68
        base[5]= STREF(object,(base0[1]->c.c_car),4);
 
69
        base[6]= STREF(object,(base0[1]->c.c_car),8);
 
70
        base[7]= (V3);
 
71
        base[8]= (V4);
 
72
        vs_top=(vs_base=base+5)+4;
 
73
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
74
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
75
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
76
               else super_funcall_no_event(_funobj);}
 
77
        goto T1;
 
78
        goto T20;
 
79
T20:;
 
80
        {object V10;
 
81
        V10= (base0[1]->c.c_car);
 
82
        base[4]= V10;
 
83
        base[5]= VV[1];
 
84
        vs_top=(vs_base=base+4)+2;
 
85
        (void) (*Lnk12)();
 
86
        vs_top=sup;
 
87
        if((vs_base[0])==Cnil){
 
88
        goto T30;}
 
89
        {object V12;
 
90
        object V13;
 
91
        object V14;
 
92
        V12= STREF(object,(base0[1]->c.c_car),0);
 
93
        V13= make_cons((V3),(V4));
 
94
        V14= STREF(object,(base0[1]->c.c_car),4);
 
95
        if(((V14))==Cnil){
 
96
        goto T38;}
 
97
        if((CMPcdr((V14)))!=Cnil){
 
98
        goto T38;}
 
99
        base[4]= (V13);
 
100
        base[5]= CMPcar((V14));
 
101
        vs_top=(vs_base=base+4)+2;
 
102
        {object _funobj = (V12);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
103
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
104
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
105
               else super_funcall_no_event(_funobj);}
 
106
        goto T1;
 
107
        goto T38;
 
108
T38:;
 
109
        base[4]= (V12);
 
110
        base[5]= (V13);
 
111
        {object V15;
 
112
        V15= (V14);
 
113
         vs_top=base+6;
 
114
         while(V15!=Cnil)
 
115
         {vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;}
 
116
        vs_base=base+5;}
 
117
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
118
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
119
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
120
               else super_funcall_no_event(_funobj);}
 
121
        goto T1;}
 
122
        goto T30;
 
123
T30:;
 
124
        base[4]= V10;
 
125
        vs_top=(vs_base=base+4)+1;
 
126
        Lfunctionp();
 
127
        vs_top=sup;
 
128
        if((vs_base[0])==Cnil){
 
129
        goto T48;}
 
130
        base[4]= (base0[1]->c.c_car);
 
131
        base[5]= (V3);
 
132
        {object V16;
 
133
        V16= (V4);
 
134
         vs_top=base+6;
 
135
         while(V16!=Cnil)
 
136
         {vs_push((V16)->c.c_car);V16=(V16)->c.c_cdr;}
 
137
        vs_base=base+5;}
 
138
        {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
139
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
140
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
141
               else super_funcall_no_event(_funobj);}
 
142
        goto T1;
 
143
        goto T48;
 
144
T48:;
 
145
        base[4]= VV[2];
 
146
        base[5]= VV[3];
 
147
        base[6]= VV[4];
 
148
        base[7]= VV[5];
 
149
        base[8]= (V10);
 
150
        base[9]= VV[6];
 
151
        base[10]= VV[7];
 
152
        base[11]= VV[8];
 
153
        base[12]= VV[9];
 
154
        vs_top=(vs_base=base+4)+9;
 
155
        (void) (*Lnk13)();}
 
156
        goto T1;
 
157
T1:;
 
158
        {object *V6=vs_top;object *V5=vs_base; vs_base=V6;
 
159
        {register object *base1=base;
 
160
        {register object *base=V6;
 
161
        register object *sup=vs_base+VM3;
 
162
        base1[0]=base1[0];
 
163
        base[0]=base[0];
 
164
        vs_check;
 
165
        vs_top=sup;
 
166
        {register object V17;
 
167
        register object V18;
 
168
        V17= (base0[0]->c.c_car);
 
169
        V18= CMPcar((V17));
 
170
        goto T67;
 
171
T67:;
 
172
        if(!(((V17))==Cnil)){
 
173
        goto T68;}
 
174
        goto T63;
 
175
        goto T68;
 
176
T68:;
 
177
        base[1]= (V18);
 
178
        base[2]= VV[0];
 
179
        vs_top=(vs_base=base+1)+2;
 
180
        (void) (*Lnk12)();
 
181
        vs_top=sup;
 
182
        if((vs_base[0])==Cnil){
 
183
        goto T75;}
 
184
        (void)((
 
185
        V19 = STREF(object,(V18),0),
 
186
        (type_of(V19) == t_sfun ?(*((V19)->sfn.sfn_self)):
 
187
        (fcall.argd=4,type_of(V19)==t_vfun) ?
 
188
        (*((V19)->sfn.sfn_self)):
 
189
        (fcall.fun=(V19),fcalln))(STREF(object,(V18),4),STREF(object,(V18),8),(V3),(V4))));
 
190
        goto T72;
 
191
        goto T75;
 
192
T75:;
 
193
        base[1]= V18;
 
194
        base[2]= VV[1];
 
195
        vs_top=(vs_base=base+1)+2;
 
196
        (void) (*Lnk12)();
 
197
        vs_top=sup;
 
198
        if((vs_base[0])==Cnil){
 
199
        goto T80;}
 
200
        {object V22;
 
201
        object V23;
 
202
        register object V24;
 
203
        V22= STREF(object,(V18),0);
 
204
        V23= make_cons((V3),(V4));
 
205
        V24= STREF(object,(V18),4);
 
206
        if(((V24))==Cnil){
 
207
        goto T88;}
 
208
        if((CMPcdr((V24)))!=Cnil){
 
209
        goto T88;}
 
210
        (void)((
 
211
        (type_of((V22)) == t_sfun ?(*(((V22))->sfn.sfn_self)):
 
212
        (fcall.argd=2,type_of((V22))==t_vfun) ?
 
213
        (*(((V22))->sfn.sfn_self)):
 
214
        (fcall.fun=((V22)),fcalln))((V23),CMPcar((V24)))));
 
215
        goto T72;
 
216
        goto T88;
 
217
T88:;
 
218
        base[1]= (V22);
 
219
        base[2]= (V23);
 
220
        {object V25;
 
221
        V25= (V24);
 
222
         vs_top=base+3;
 
223
         while(V25!=Cnil)
 
224
         {vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;}
 
225
        vs_base=base+2;}
 
226
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
227
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
228
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
229
               else super_funcall_no_event(_funobj);}
 
230
        vs_top=sup;
 
231
        goto T72;}
 
232
        goto T80;
 
233
T80:;
 
234
        base[1]= V18;
 
235
        vs_top=(vs_base=base+1)+1;
 
236
        Lfunctionp();
 
237
        vs_top=sup;
 
238
        if((vs_base[0])==Cnil){
 
239
        goto T96;}
 
240
        base[1]= (V18);
 
241
        base[2]= (V3);
 
242
        {object V26;
 
243
        V26= (V4);
 
244
         vs_top=base+3;
 
245
         while(V26!=Cnil)
 
246
         {vs_push((V26)->c.c_car);V26=(V26)->c.c_cdr;}
 
247
        vs_base=base+2;}
 
248
        {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
249
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
250
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
251
               else super_funcall_no_event(_funobj);}
 
252
        vs_top=sup;
 
253
        goto T72;
 
254
        goto T96;
 
255
T96:;
 
256
        base[1]= VV[2];
 
257
        base[2]= VV[3];
 
258
        base[3]= VV[4];
 
259
        base[4]= VV[5];
 
260
        base[5]= V18;
 
261
        base[6]= VV[6];
 
262
        base[7]= VV[10];
 
263
        base[8]= VV[8];
 
264
        base[9]= VV[11];
 
265
        vs_top=(vs_base=base+1)+9;
 
266
        (void) (*Lnk13)();
 
267
        vs_top=sup;
 
268
        goto T72;
 
269
T72:;
 
270
        V17= CMPcdr((V17));
 
271
        V18= CMPcar((V17));
 
272
        goto T67;}
 
273
        }}
 
274
        goto T63;
 
275
T63:;
 
276
        vs_base=V5;vs_top=V6;}
 
277
        return;
 
278
        }
 
279
}
 
280
static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */
 
281
static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* STRUCTURE-SUBTYPE-P */
 
282
 
 
283
#ifdef SYSTEM_SPECIAL_INIT
 
284
SYSTEM_SPECIAL_INIT
 
285
#endif
 
286