/[gcl]/gcl/o/num_log.c
ViewVC logotype

Diff of /gcl/o/num_log.c

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

revision 1.9 by camm, Mon Feb 17 16:50:21 2003 UTC revision 1.10 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 685  siLbit_array_op(void) Line 685  siLbit_array_op(void)
685                      for (b1=b,i=0;i<x->a.a_rank;i++,b1=b1->c.c_cdr) {                      for (b1=b,i=0;i<x->a.a_rank;i++,b1=b1->c.c_cdr) {
686                        b1->d.t=(int)t_cons;                        b1->d.t=(int)t_cons;
687                        b1->d.m=FALSE;                        b1->d.m=FALSE;
688                        b1->c.c_car=x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ?                        b1->c.c_car=/* x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ?  */
689                          small_fixnum(x->a.a_dims[i]) :                          /* small_fixnum(x->a.a_dims[i]) :  */
690                            /* now done in a macro */
691                          make_fixnum(x->a.a_dims[i]);                          make_fixnum(x->a.a_dims[i]);
692                        b1->c.c_cdr=i<x->a.a_rank-1 ? (object)++p : Cnil;                        b1->c.c_cdr=i<x->a.a_rank-1 ? (object)++p : Cnil;
693                      }                      }

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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