← Back to branch summary

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

« back to all changes in this revision

Viewing changes to pcl/c/pcl_gazonk0.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_gazonk0.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_gazonk0.h"
 
4
void init_pcl_gazonk0(){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
        register object V5;
 
33
        check_arg(5);
 
34
        V1=(base[0]);
 
35
        V2=(base[1]);
 
36
        V3=(base[2]);
 
37
        V4=(base[3]);
 
38
        V5=(base[4]);
 
39
        vs_top=sup;
 
40
        {register object V8;
 
41
        register object V9;
 
42
        V8= (base0[2]->c.c_car);
 
43
        V9= CMPcar((V8));
 
44
        goto T6;
 
45
T6:;
 
46
        if(!(((V8))==Cnil)){
 
47
        goto T7;}
 
48
        goto T2;
 
49
        goto T7;
 
50
T7:;
 
51
        (void)((
 
52
        V10 = STREF(object,(V9),0),
 
53
        (type_of(V10) == t_sfun ?(*((V10)->sfn.sfn_self)):
 
54
        (fcall.argd=5,type_of(V10)==t_vfun) ?
 
55
        (*((V10)->sfn.sfn_self)):
 
56
        (fcall.fun=(V10),fcalln))(STREF(object,(V9),4),STREF(object,(V9),8),(V3),(V4),(V5))));
 
57
        V8= CMPcdr((V8));
 
58
        V9= CMPcar((V8));
 
59
        goto T6;}
 
60
        goto T2;
 
61
T2:;
 
62
        base[5]= STREF(object,(base0[1]->c.c_car),0);
 
63
        base[6]= STREF(object,(base0[1]->c.c_car),4);
 
64
        base[7]= STREF(object,(base0[1]->c.c_car),8);
 
65
        base[8]= (V3);
 
66
        base[9]= (V4);
 
67
        base[10]= (V5);
 
68
        vs_top=(vs_base=base+6)+5;
 
69
        {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
 
70
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
 
71
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
 
72
               else super_funcall_no_event(_funobj);}
 
73
        {object *V7=vs_top;object *V6=vs_base; vs_base=V7;
 
74
        {register object *base1=base;
 
75
        {register object *base=V7;
 
76
        register object *sup=vs_base+VM3;
 
77
        base1[0]=base1[0];
 
78
        base[0]=base[0];
 
79
        vs_check;
 
80
        vs_top=sup;
 
81
        {register object V11;
 
82
        register object V12;
 
83
        V11= (base0[0]->c.c_car);
 
84
        V12= CMPcar((V11));
 
85
        goto T29;
 
86
T29:;
 
87
        if(!(((V11))==Cnil)){
 
88
        goto T30;}
 
89
        goto T25;
 
90
        goto T30;
 
91
T30:;
 
92
        (void)((
 
93
        V13 = STREF(object,(V12),0),
 
94
        (type_of(V13) == t_sfun ?(*((V13)->sfn.sfn_self)):
 
95
        (fcall.argd=5,type_of(V13)==t_vfun) ?
 
96
        (*((V13)->sfn.sfn_self)):
 
97
        (fcall.fun=(V13),fcalln))(STREF(object,(V12),4),STREF(object,(V12),8),(V3),(V4),(V5))));
 
98
        V11= CMPcdr((V11));
 
99
        V12= CMPcar((V11));
 
100
        goto T29;}
 
101
        }}
 
102
        goto T25;
 
103
T25:;
 
104
        vs_base=V6;vs_top=V7;}
 
105
        return;
 
106
        }
 
107
}
 
108
 
 
109
#ifdef SYSTEM_SPECIAL_INIT
 
110
SYSTEM_SPECIAL_INIT
 
111
#endif
 
112