/[gcl]/gcl/cmpnew/cmpblock.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpblock.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:44 2002 UTC
# Line 54  register object V10; Line 54  register object V10;
54          bds_check;          bds_check;
55  goto TTL;  goto TTL;
56  TTL:;  TTL:;
57          if(!(endp((V10)))){          if(!(endp_prop((V10)))){
58          goto T9;}          goto T9;}
59          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0)));
60  goto T9;  goto T9;
# Line 265  object V43; Line 265  object V43;
265  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
266  goto TTL;  goto TTL;
267  TTL:;  TTL:;
268          if(!(endp((V43)))){          if(!(endp_prop((V43)))){
269          goto T107;}          goto T107;}
270          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0)));
271          goto T105;          goto T105;
272  goto T107;  goto T107;
273  T107:;  T107:;
274          if(endp(cdr((V43)))){          if(endp_prop(cdr((V43)))){
275          goto T110;}          goto T110;}
276          if(endp(cddr((V43)))){          if(endp_prop(cddr((V43)))){
277          goto T110;}          goto T110;}
278          V44 = make_fixnum((long)length((V43)));          V44 = make_fixnum((long)length((V43)));
279          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V44));          (void)((*(LnkLI43))(VV[19],small_fixnum(2),V44));
# Line 295  T105:; Line 295  T105:;
295          V48= Cnil;          V48= Cnil;
296  goto T120;  goto T120;
297  T120:;  T120:;
298          if(!(endp((V45)))){          if(!(endp_prop((V45)))){
299          goto T121;}          goto T121;}
300          {object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46)));          {object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46)));
301          VMR7(V49)}          VMR7(V49)}

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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