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

Diff of /gcl/pcl/pcl_fsc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.4 by camm, Thu Oct 23 15:30:17 2003 UTC
# Line 63  TTL:; Line 63  TTL:;
63          (void) (*Lnk3)(Lclptr3);          (void) (*Lnk3)(Lclptr3);
64          vs_top=sup;          vs_top=sup;
65          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
66          goto T17;}          goto T11;}
67          base[0]= (V41);          base[0]= (V41);
68          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
69          (void) (*Lnk4)(Lclptr4);          (void) (*Lnk4)(Lclptr4);
70          vs_top=sup;          vs_top=sup;
71          goto T17;          goto T11;
72  T17:;  T11:;
73          base[0]= (V41);          base[0]= (V41);
74          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
75          (void) (*Lnk5)(Lclptr5);          (void) (*Lnk5)(Lclptr5);
# Line 93  TTL:; Line 93  TTL:;
93          (void) (*Lnk7)(Lclptr7);          (void) (*Lnk7)(Lclptr7);
94          vs_top=sup;          vs_top=sup;
95          V56= vs_base[0];          V56= vs_base[0];
96          V57 = (V54);          {object V57 = (*(LnkLI6))(V56,(V54));
97          {object V58 = (*(LnkLI6))(V56,V57);          VMR6(V57)}
         VMR6(V58)}  
98          base[0]=base[0];          base[0]=base[0];
99          return Cnil;          return Cnil;
100  }  }
101  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))       */
102    
103  static object LI7(V63,V64,V65,V66)  static object LI7(V62,V63,V64,V65)
104    
105  object V63;object V64;object V65;object V66;  object V62;object V63;object V64;object V65;
106  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
107          goto TTL;          goto TTL;
108  TTL:;  TTL:;
109          base[0]= (V65);          base[0]= (V64);
110          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
111          (void) (*Lnk7)(Lclptr7);          (void) (*Lnk7)(Lclptr7);
112          vs_top=sup;          vs_top=sup;
113          V68= vs_base[0];          V67= vs_base[0];
114          V69 = (V66);          {object V68 = (*(LnkLI8))(V67,(V65));
115          {object V70 = (*(LnkLI8))(V68,V69);          VMR7(V68)}
         VMR7(V70)}  
116          base[0]=base[0];          base[0]=base[0];
117          return Cnil;          return Cnil;
118  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26