/[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.16 by camm, Sun Nov 28 04:10:53 2004 UTC revision 1.17 by camm, Fri Jun 10 15:13:59 2005 UTC
# Line 481  LFD(Linteger_length)(void) Line 481  LFD(Linteger_length)(void)
481          vs_push(make_fixnum(count));          vs_push(make_fixnum(count));
482  }  }
483    
484  #define W_SIZE (8*sizeof(int))  /* #define W_SIZE (8*sizeof(int)) */
485  /* static object */  /* static object */
486  /* bitand(object a, object b, object c) */  /* bitand(object a, object b, object c) */
487  /* { int d= a->bv.bv_fillp; */  /* { int d= a->bv.bv_fillp; */
# Line 559  LFD(siLbit_array_op)(void) Line 559  LFD(siLbit_array_op)(void)
559                                  goto ERROR;                                  goto ERROR;
560                          if (r->bv.bv_dim != d)                          if (r->bv.bv_dim != d)
561                                  goto ERROR;                                  goto ERROR;
562                          i = (r->bv.bv_self - xp)*8 + (BV_OFFSET(r) - xo);                          i = (r->bv.bv_self - xp)*CHAR_SIZE + (BV_OFFSET(r) - xo);
563                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {
564                                  r0 = r;                                  r0 = r;
565                                  r = Cnil;                                  r = Cnil;
566                                  replace = TRUE;                                  replace = TRUE;
567                                  goto L1;                                  goto L1;
568                          }                          }
569                          i = (r->bv.bv_self - yp)*8 + (BV_OFFSET(r) - yo);                          i = (r->bv.bv_self - yp)*CHAR_SIZE + (BV_OFFSET(r) - yo);
570                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {
571                                  r0 = r;                                  r0 = r;
572                                  r = Cnil;                                  r = Cnil;
# Line 617  LFD(siLbit_array_op)(void) Line 617  LFD(siLbit_array_op)(void)
617                          for (i = 0;  i < x->a.a_rank;  i++)                          for (i = 0;  i < x->a.a_rank;  i++)
618                                  if (r->a.a_dims[i] != x->a.a_dims[i])                                  if (r->a.a_dims[i] != x->a.a_dims[i])
619                                          goto ERROR;                                          goto ERROR;
620                          i = (r->bv.bv_self - xp)*8 + (BV_OFFSET(r) - xo);                          i = (r->bv.bv_self - xp)*CHAR_SIZE + (BV_OFFSET(r) - xo);
621                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {
622                                  r0 = r;                                  r0 = r;
623                                  r = Cnil;                                  r = Cnil;
624                                  replace = TRUE;                                  replace = TRUE;
625                                  goto L2;                                  goto L2;
626                          }                          }
627                          i = (r->bv.bv_self - yp)*8 + (BV_OFFSET(r) - yo);                          i = (r->bv.bv_self - yp)*CHAR_SIZE + (BV_OFFSET(r) - yo);
628                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {                          if ((i > 0 && i < d) || (i < 0 && -i < d)) {
629                                  r0 = r;                                  r0 = r;
630                                  r = Cnil;                                  r = Cnil;
# Line 634  LFD(siLbit_array_op)(void) Line 634  LFD(siLbit_array_op)(void)
634          L2:          L2:
635                  if (r == Cnil) {                  if (r == Cnil) {
636                    object b;                    object b;
637                    struct cons *p=alloca(x->a.a_rank*sizeof(struct cons));                    struct cons *p=ZALLOCA((x->a.a_rank+1)*sizeof(struct cons));
638                      p=(void *)(((unsigned long)((void *)p+sizeof(struct cons)-1))&~(sizeof(struct cons)-1));
639                    if (x->a.a_rank) {                    if (x->a.a_rank) {
640                      object b1;                      object b1;
641    
642                      b=(object)p;                      b=(object)p;
643                      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) {
644                        b1->d.t=(int)t_cons;                        set_type_of(b1,t_cons);
645                        b1->d.m=FALSE;                        make_unfree(b1);
646                        b1->c.c_car=/* x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ?  */                        b1->c.c_car=/* x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ?  */
647                          /* small_fixnum(x->a.a_dims[i]) :  */                          /* small_fixnum(x->a.a_dims[i]) :  */
648                          /* now done in a macro */                          /* now done in a macro */

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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