← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_gazonk5.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_gazonk5.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_gazonk5.h"
 
4
void init_pcl_gazonk5(){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(5);
 
12
        base[0]=MMcons(base[0],Cnil);
 
13
        base[1]=MMcons(base[1],base[0]);
 
14
        base[2]=MMcons(base[2],base[1]);
 
15
        base[3]=MMcons(base[3],base[2]);
 
16
        base[4]=MMcons(base[4],base[3]);
 
17
        vs_top=sup;
 
18
        base[5]= 
 
19
        make_cclosure_new(LC2,Cnil,base[4],Cdata);
 
20
        vs_top=(vs_base=base+5)+1;
 
21
        return;
 
22
}
 
23
/*      local function CLOSURE  */
 
24
 
 
25
static void LC2(base0)
 
26
register object *base0;
 
27
{       register object *base=vs_base;
 
28
        register object *sup=base+VM2; VC2
 
29
        vs_check;
 
30
        {register object V1;
 
31
        register object V2;
 
32
        object V3;
 
33
        check_arg(3);
 
34
        V1=(base[0]);
 
35
        V2=(base[1]);
 
36
        V3=(base[2]);
 
37
        vs_top=sup;
 
38
        {register object V4;
 
39
        base[3]= (V1);
 
40
        base[4]= VV[0];
 
41
        vs_top=(vs_base=base+3)+2;
 
42
        (void) (*Lnk9)();
 
43
        vs_top=sup;
 
44
        if((vs_base[0])==Cnil){
 
45
        goto T3;}
 
46
        if(!(((V2))==(CMPcar((base0[4]->c.c_car))))){
 
47
        goto T8;}
 
48
        V4= CMPcdr((base0[4]->c.c_car));
 
49
        goto T1;
 
50
        goto T8;
 
51
T8:;
 
52
        V4= (base0[3]->c.c_car);
 
53
        goto T1;
 
54
        goto T3;
 
55
T3:;
 
56
        V4= (base0[2]->c.c_car);
 
57
        goto T1;
 
58
T1:;
 
59
        base[3]= (V4);
 
60
        base[4]= VV[1];
 
61
        vs_top=(vs_base=base+3)+2;
 
62
        (void) (*Lnk10)();
 
63
        vs_top=sup;
 
64
        if((vs_base[0])==Cnil){
 
65
        goto T12;}
 
66
        base[3]= STREF(object,(V4),0);
 
67
        base[4]= STREF(object,(V4),4);
 
68
        base[5]= STREF(object,(V4),8);
 
69
        base[6]= (V1);
 
70
        base[7]= (V2);
 
71
        base[8]= (V3);
 
72
        vs_top=(vs_base=base+4)+5;
 
73
        {object _funobj = base[3];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
        return;
 
78
        goto T12;
 
79
T12:;
 
80
        {register object V6;
 
81
        V6= V4;
 
82
        base[3]= (V6);
 
83
        base[4]= VV[2];
 
84
        vs_top=(vs_base=base+3)+2;
 
85
        (void) (*Lnk10)();
 
86
        vs_top=sup;
 
87
        if((vs_base[0])==Cnil){
 
88
        goto T23;}
 
89
        {object V7;
 
90
        object V8;
 
91
        register object V9;
 
92
        V7= STREF(object,(V4),0);
 
93
        V8= list(3,(V1),(V2),(V3));
 
94
        V9= STREF(object,(V4),4);
 
95
        if(((V9))==Cnil){
 
96
        goto T34;}
 
97
        if(!((CMPcdr((V9)))==Cnil)){
 
98
        goto T31;}
 
99
        goto T32;
 
100
        goto T34;
 
101
T34:;
 
102
        goto T31;
 
103
        goto T32;
 
104
T32:;
 
105
        base[3]= (V8);
 
106
        base[4]= CMPcar((V9));
 
107
        vs_top=(vs_base=base+3)+2;
 
108
        {object _funobj = (V7);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
109
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
110
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
111
               else super_funcall_no_event(_funobj);}
 
112
        return;
 
113
        goto T31;
 
114
T31:;
 
115
        base[3]= (V7);
 
116
        base[4]= (V8);
 
117
        {object V10;
 
118
        V10= (V9);
 
119
         vs_top=base+5;
 
120
         while(V10!=Cnil)
 
121
         {vs_push((V10)->c.c_car);V10=(V10)->c.c_cdr;}
 
122
        vs_base=base+4;}
 
123
        {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
124
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
125
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
126
               else super_funcall_no_event(_funobj);}
 
127
        return;}
 
128
        goto T23;
 
129
T23:;
 
130
        base[3]= (V6);
 
131
        vs_top=(vs_base=base+3)+1;
 
132
        Lfunctionp();
 
133
        vs_top=sup;
 
134
        if((vs_base[0])==Cnil){
 
135
        goto T42;}
 
136
        base[3]= (V1);
 
137
        base[4]= (V2);
 
138
        base[5]= (V3);
 
139
        vs_top=(vs_base=base+3)+3;
 
140
        {object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
141
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
142
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
143
               else super_funcall_no_event(_funobj);}
 
144
        return;
 
145
        goto T42;
 
146
T42:;
 
147
        base[3]= VV[3];
 
148
        base[4]= VV[4];
 
149
        base[5]= VV[5];
 
150
        base[6]= VV[6];
 
151
        base[7]= V4;
 
152
        base[8]= VV[7];
 
153
        base[9]= (base0[1]->c.c_car);
 
154
        base[10]= VV[8];
 
155
        base[11]= (base0[0]->c.c_car);
 
156
        vs_top=(vs_base=base+3)+9;
 
157
        (void) (*Lnk11)();
 
158
        return;}}
 
159
        }
 
160
}
 
161
static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* ERROR */
 
162
static void LnkT10(){ call_or_link(VV[10],(void **)(void *)&Lnk10);} /* STRUCTURE-SUBTYPE-P */
 
163
static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* TYPEP */
 
164
 
 
165
#ifdef SYSTEM_SPECIAL_INIT
 
166
SYSTEM_SPECIAL_INIT
 
167
#endif
 
168