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

Diff of /gcl/pcl/pcl_gazonk7.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          object V2;          register object V2;
31          check_arg(2);          object V3;
32            check_arg(3);
33          V1=(base[0]);          V1=(base[0]);
34          V2=(base[1]);          V2=(base[1]);
35            V3=(base[2]);
36          vs_top=sup;          vs_top=sup;
37          {register object V3;          {register object V4;
38          V3= (base0[1]->c.c_car);          base[3]= (V1);
39          base[2]= (V3);          base[4]= VV[0];
40          base[3]= VV[0];          vs_top=(vs_base=base+3)+2;
41          vs_top=(vs_base=base+2)+2;          (void) (*Lnk4)();
         (void) (*Lnk6)();  
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[2]= STREF(object,(V3),0);          {register object V5;
46          base[3]= STREF(object,(V3),4);          register object V6;
47          base[4]= STREF(object,(V3),8);          V5= (base0[3]->c.c_car);
48          base[5]= (V1);          V6= CMPcar((V5));
49          base[6]= (V2);          goto T10;
50          vs_top=(vs_base=base+3)+4;  T10:;
51          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          if(!(((V5))==Cnil)){
52                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);          goto T11;}
53                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();          V4= (base0[2]->c.c_car);
54                 else super_funcall_no_event(_funobj);}          goto T1;
55          return;          goto T11;
56    T11:;
57            if(!((CMPcar((V6)))==((V2)))){
58            goto T15;}
59            V4= CMPcdr((V6));
60            goto T1;
61            goto T15;
62    T15:;
63            V5= CMPcdr((V5));
64            V6= CMPcar((V5));
65            goto T10;}
66          goto T3;          goto T3;
67  T3:;  T3:;
68          if(!(type_of((V3))==t_fixnum)){          V4= (base0[1]->c.c_car);
69          goto T13;}          goto T1;
70          {object V5;  T1:;
71          if(type_of(V1)==t_structure){          base[3]= (V4);
72          goto T19;}          base[4]= VV[1];
73          goto T17;          vs_top=(vs_base=base+3)+2;
74          goto T19;          (void) (*Lnk5)();
 T19:;  
         if(!(((V1)->str.str_def)==(VV[1]))){  
         goto T17;}  
         V5= STREF(object,(V1),4);  
         goto T15;  
         goto T17;  
 T17:;{object V7;  
         V7= (VV[3]->s.s_dbind);  
         base[2]= small_fixnum(14);  
         base[3]= (V1);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk7)();  
75          vs_top=sup;          vs_top=sup;
76          V8= vs_base[0];          if((vs_base[0])==Cnil){
77          if(!((V7)==(CMPcar(V8)))){          goto T25;}
78          goto T22;}}          base[3]= STREF(object,(V4),0);
79          V5= CMPcar(((V1))->cc.cc_turbo[12]);          base[4]= STREF(object,(V4),4);
80          goto T15;          base[5]= STREF(object,(V4),8);
81          goto T22;          base[6]= (V1);
82  T22:;          base[7]= (V2);
83          V5= Cnil;          base[8]= (V3);
84          goto T15;          vs_top=(vs_base=base+4)+5;
85  T15:;          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
86          if(((V5))==Cnil){                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
87          goto T28;}                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
88          base[2]= ((V5))->v.v_self[fix((V3))]= (V1);                 else super_funcall_no_event(_funobj);}
         vs_top=(vs_base=base+2)+1;  
89          return;          return;
90          goto T28;          goto T25;
91  T28:;  T25:;
92          base[2]= Cnil;          {register object V7;
93          vs_top=(vs_base=base+2)+1;          V7= (V4);
94          return;}          base[3]= (V7);
95          goto T13;          base[4]= VV[2];
96  T13:;          vs_top=(vs_base=base+3)+2;
97          {register object V9;          (void) (*Lnk5)();
         V9= (V3);  
         base[2]= (V9);  
         base[3]= VV[4];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk6)();  
98          vs_top=sup;          vs_top=sup;
99          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
100          goto T31;}          goto T36;}
101          {object V10;          {object V8;
102          object V11;          object V9;
103          register object V12;          object V10;
104          V10= STREF(object,(V3),0);          V8= STREF(object,(V4),0);
105          V11= list(2,(V1),(V2));          V9= list(3,(V1),(V2),(V3));
106          V12= STREF(object,(V3),4);          V10= STREF(object,(V4),4);
107          if(((V12))==Cnil){          if(((V10))==Cnil){
108          goto T42;}          goto T47;}
109          if(!((CMPcdr((V12)))==Cnil)){          if(!((CMPcdr((V10)))==Cnil)){
110          goto T39;}          goto T44;}
111          goto T40;          goto T45;
112          goto T42;          goto T47;
113  T42:;  T47:;
114          goto T39;          goto T44;
115          goto T40;          goto T45;
116  T40:;  T45:;
117          base[2]= (V11);          base[3]= (V9);
118          base[3]= CMPcar((V12));          base[4]= CMPcar((V10));
119          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+3)+2;
120          {object _funobj = (V10);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V8);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
121                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
122                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
123                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
124          return;          return;
125          goto T39;          goto T44;
126  T39:;  T44:;
127          base[2]= (V10);          base[3]= (V8);
128          base[3]= (V11);          base[4]= (V9);
129          {object V13;          {object V11;
130          V13= (V12);          V11= (V10);
131           vs_top=base+4;           vs_top=base+5;
132           while(V13!=Cnil)           while(V11!=Cnil)
133           {vs_push((V13)->c.c_car);V13=(V13)->c.c_cdr;}           {vs_push((V11)->c.c_car);V11=(V11)->c.c_cdr;}
134          vs_base=base+3;}          vs_base=base+4;}
135          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
136                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
137                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
138                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
139          return;}          return;}
140          goto T31;          goto T36;
141  T31:;  T36:;
142          base[2]= (V9);          base[3]= (V7);
143          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
144          Lfunctionp();          Lfunctionp();
145          vs_top=sup;          vs_top=sup;
146          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
147          goto T50;}          goto T55;}
148          base[2]= (V1);          base[3]= (V1);
149          base[3]= (V2);          base[4]= (V2);
150          vs_top=(vs_base=base+2)+2;          base[5]= (V3);
151          {object _funobj = (V3);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          vs_top=(vs_base=base+3)+3;
152            {object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
153                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
154                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
155                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
156          return;          return;
157          goto T50;          goto T55;
158  T50:;  T55:;
159          base[3]= VV[5];          base[4]= VV[3];
160          base[4]= (V9);          base[5]= (V7);
161          base[5]= (base0[0]->c.c_car);          base[6]= (base0[0]->c.c_car);
162          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+4)+3;
163          (void) (*Lnk9)();          (void) (*Lnk6)();
164          vs_top=sup;          vs_top=sup;
165          base[2]= vs_base[0];          base[3]= vs_base[0];
166          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+3)+1;
167          Lerror();          Lerror();
168          return;}}          return;}}
169          }          }
170  }  }
171  static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* TYPECASE-ERROR-STRING */  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* TYPECASE-ERROR-STRING */
172  static object  LnkTLI8(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[8],(void **)(void *)&LnkLI8,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static void LnkT5(){ call_or_link(VV[5],(void **)(void *)&Lnk5);} /* STRUCTURE-SUBTYPE-P */
173  static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT4(){ call_or_link(VV[4],(void **)(void *)&Lnk4);} /* TYPEP */
 static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* STRUCTURE-SUBTYPE-P */  
174    
175  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
176  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