/[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.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Fri Oct 3 16:03:17 2003 UTC
# 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          {object V57 = (*(LnkLI6))(V56,(V54));          V57 = (V54);
97          VMR6(V57)}          {object V58 = (*(LnkLI6))(V56,V57);
98            VMR6(V58)}
99          base[0]=base[0];          base[0]=base[0];
100          return Cnil;          return Cnil;
101  }  }
102  /*      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))       */
103    
104  static object LI7(V62,V63,V64,V65)  static object LI7(V63,V64,V65,V66)
105    
106  object V62;object V63;object V64;object V65;  object V63;object V64;object V65;object V66;
107  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
108          goto TTL;          goto TTL;
109  TTL:;  TTL:;
110          base[0]= (V64);          base[0]= (V65);
111          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
112          (void) (*Lnk7)(Lclptr7);          (void) (*Lnk7)(Lclptr7);
113          vs_top=sup;          vs_top=sup;
114          V67= vs_base[0];          V68= vs_base[0];
115          {object V68 = (*(LnkLI8))(V67,(V65));          V69 = (V66);
116          VMR7(V68)}          {object V70 = (*(LnkLI8))(V68,V69);
117            VMR7(V70)}
118          base[0]=base[0];          base[0]=base[0];
119          return Cnil;          return Cnil;
120  }  }

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