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; */ |
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; |
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; |
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 */ |