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

Diff of /gcl/pcl/pcl_gazonk5.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, Tue Oct 7 21:07:36 2003 UTC
# Line 8  static void L1() Line 8  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_check;          vs_check;
11          check_arg(2);          check_arg(4);
12          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
13          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
14            base[2]=MMcons(base[2],base[1]);
15            base[3]=MMcons(base[3],base[2]);
16          vs_top=sup;          vs_top=sup;
17          base[2]=          base[4]=
18          make_cclosure_new(LC2,Cnil,base[1],Cdata);          make_cclosure_new(LC2,Cnil,base[3],Cdata);
19          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
20          return;          return;
21  }  }
22  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 25  register object *base0; Line 27  register object *base0;
27          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
28          vs_check;          vs_check;
29          {register object V1;          {register object V1;
30          check_arg(1);          register object V2;
31            object V3;
32            check_arg(3);
33          V1=(base[0]);          V1=(base[0]);
34            V2=(base[1]);
35            V3=(base[2]);
36          vs_top=sup;          vs_top=sup;
37          {register object V2;          {register object V4;
38          V2= (base0[1]->c.c_car);          base[3]= (V1);
39          base[1]= (V2);          base[4]= VV[0];
40          base[2]= VV[0];          vs_top=(vs_base=base+3)+2;
41          vs_top=(vs_base=base+1)+2;          (void) (*Lnk4)();
         (void) (*Lnk7)();  
42          vs_top=sup;          vs_top=sup;
43          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
44          goto T3;}          goto T3;}
45          base[1]= STREF(object,(V2),0);          if(!(((V2))==(CMPcar((base0[3]->c.c_car))))){
46          base[2]= STREF(object,(V2),4);          goto T8;}
47          base[3]= STREF(object,(V2),8);          V4= CMPcdr((base0[3]->c.c_car));
48          base[4]= (V1);          goto T1;
49          vs_top=(vs_base=base+2)+3;          goto T8;
50          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  T8:;
51                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);          V4= (base0[2]->c.c_car);
52                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();          goto T1;
                else super_funcall_no_event(_funobj);}  
         return;  
53          goto T3;          goto T3;
54  T3:;  T3:;
55          if(!(type_of((V2))==t_fixnum)){          V4= (base0[1]->c.c_car);
56          goto T12;}          goto T1;
57          {object V3;  T1:;
58          object V4;          base[3]= (V4);
59          if(type_of(V1)==t_structure){          base[4]= VV[1];
         goto T18;}  
         goto T16;  
         goto T18;  
 T18:;  
         if(!(((V1)->str.str_def)==(VV[1]))){  
         goto T16;}  
         V3= STREF(object,(V1),4);  
         goto T14;  
         goto T16;  
 T16:;{object V6;  
         V6= (VV[3]->s.s_dbind);  
         base[3]= small_fixnum(14);  
         base[4]= (V1);  
60          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
61          (void) (*Lnk8)();          (void) (*Lnk5)();
62          vs_top=sup;          vs_top=sup;
63          V7= vs_base[0];          if((vs_base[0])==Cnil){
64          if(!((V6)==(CMPcar(V7)))){          goto T12;}
65          goto T21;}}          base[3]= STREF(object,(V4),0);
66          V3= CMPcar(((V1))->cc.cc_turbo[12]);          base[4]= STREF(object,(V4),4);
67          goto T14;          base[5]= STREF(object,(V4),8);
68          goto T21;          base[6]= (V1);
69  T21:;          base[7]= (V2);
70          V3= Cnil;          base[8]= (V3);
71          goto T14;          vs_top=(vs_base=base+4)+5;
72  T14:;          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
73          if(((V3))==Cnil){                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
74          goto T28;}                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
75          V4= ((V3))->v.v_self[fix((V2))];                 else super_funcall_no_event(_funobj);}
         goto T26;  
         goto T28;  
 T28:;  
         V4= Cnil;  
         goto T26;  
 T26:;  
         if(!(((V4))==(VV[4]))){  
         goto T31;}  
         base[3]= (V1);  
         base[4]= (V2);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk10)();  
76          return;          return;
         goto T31;  
 T31:;  
         base[3]= (V4);  
         vs_top=(vs_base=base+3)+1;  
         return;}  
77          goto T12;          goto T12;
78  T12:;  T12:;
79          {register object V8;          {register object V5;
80          V8= (V2);          V5= (V4);
81          base[1]= (V8);          base[3]= (V5);
82          base[2]= VV[5];          base[4]= VV[2];
83          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
84          (void) (*Lnk7)();          (void) (*Lnk5)();
85          vs_top=sup;          vs_top=sup;
86          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
87          goto T36;}          goto T23;}
88          {object V9;          {object V6;
89          object V10;          object V7;
90          register object V11;          register object V8;
91          V9= STREF(object,(V2),0);          V6= STREF(object,(V4),0);
92          V10= make_cons((V1),Cnil);          V7= list(3,(V1),(V2),(V3));
93          V11= STREF(object,(V2),4);          V8= STREF(object,(V4),4);
94          if(((V11))==Cnil){          if(((V8))==Cnil){
95          goto T47;}          goto T34;}
96          if(!((CMPcdr((V11)))==Cnil)){          if(!((CMPcdr((V8)))==Cnil)){
97          goto T44;}          goto T31;}
98          goto T45;          goto T32;
99          goto T47;          goto T34;
100  T47:;  T34:;
101          goto T44;          goto T31;
102          goto T45;          goto T32;
103  T45:;  T32:;
104          base[1]= (V10);          base[3]= (V7);
105          base[2]= CMPcar((V11));          base[4]= CMPcar((V8));
106          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+3)+2;
107          {object _funobj = (V9);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V6);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
108                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
109                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
110                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
111          return;          return;
112          goto T44;          goto T31;
113  T44:;  T31:;
114          base[1]= (V9);          base[3]= (V6);
115          base[2]= (V10);          base[4]= (V7);
116          {object V12;          {object V9;
117          V12= (V11);          V9= (V8);
118           vs_top=base+3;           vs_top=base+5;
119           while(V12!=Cnil)           while(V9!=Cnil)
120           {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}           {vs_push((V9)->c.c_car);V9=(V9)->c.c_cdr;}
121          vs_base=base+2;}          vs_base=base+4;}
122          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
123                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
124                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
125                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
126          return;}          return;}
127          goto T36;          goto T23;
128  T36:;  T23:;
129          base[1]= (V8);          base[3]= (V5);
130          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+3)+1;
131          Lfunctionp();          Lfunctionp();
132          vs_top=sup;          vs_top=sup;
133          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
134          goto T55;}          goto T42;}
135          base[1]= (V1);          base[3]= (V1);
136          vs_top=(vs_base=base+1)+1;          base[4]= (V2);
137          {object _funobj = (V2);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          base[5]= (V3);
138            vs_top=(vs_base=base+3)+3;
139            {object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
140                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
141                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
142                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
143          return;          return;
144          goto T55;          goto T42;
145  T55:;  T42:;
146          base[2]= VV[6];          base[4]= VV[3];
147          base[3]= (V8);          base[5]= (V5);
148          base[4]= (base0[0]->c.c_car);          base[6]= (base0[0]->c.c_car);
149          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+4)+3;
150          (void) (*Lnk11)();          (void) (*Lnk6)();
151          vs_top=sup;          vs_top=sup;
152          base[1]= vs_base[0];          base[3]= vs_base[0];
153          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+3)+1;
154          Lerror();          Lerror();
155          return;}}          return;}}
156          }          }
157  }  }
158  static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* TYPECASE-ERROR-STRING */  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* TYPECASE-ERROR-STRING */
159  static void LnkT10(){ call_or_link(VV[10],(void **)(void *)&Lnk10);} /* SLOT-UNBOUND-INTERNAL */  static void LnkT5(){ call_or_link(VV[5],(void **)(void *)&Lnk5);} /* STRUCTURE-SUBTYPE-P */
160  static object  LnkTLI9(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[9],(void **)(void *)&LnkLI9,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static void LnkT4(){ call_or_link(VV[4],(void **)(void *)&Lnk4);} /* TYPEP */
 static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* CCLOSURE-ENV-NTHCDR */  
 static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */  
161    
162  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
163  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