408 |
case aet_nnshort: |
case aet_nnshort: |
409 |
j=sizeof(short)*x->a.a_dim; |
j=sizeof(short)*x->a.a_dim; |
410 |
break; |
break; |
411 |
|
case aet_int: |
412 |
|
case aet_uint: |
413 |
|
case aet_nnint: |
414 |
|
j=sizeof(int)*x->a.a_dim; |
415 |
|
break; |
416 |
default: |
default: |
417 |
j=sizeof(fixnum)*x->fixa.fixa_dim;} |
j=sizeof(fixnum)*x->fixa.fixa_dim;} |
418 |
|
|
536 |
unsigned char * s_type = &SLOT_TYPE(def,0); |
unsigned char * s_type = &SLOT_TYPE(def,0); |
537 |
unsigned short *s_pos= & SLOT_POS(def,0); |
unsigned short *s_pos= & SLOT_POS(def,0); |
538 |
for (i = 0, j = S_DATA(def)->length; i < j; i++) |
for (i = 0, j = S_DATA(def)->length; i < j; i++) |
539 |
if (s_type[i]==0) mark_object(STREF(object,x,s_pos[i])); |
if (s_type[i]==aet_object) mark_object(STREF(object,x,s_pos[i])); |
540 |
if ((int)what_to_collect >= (int)t_contiguous) { |
if ((int)what_to_collect >= (int)t_contiguous) { |
541 |
if (inheap(x->str.str_self)) { |
if (inheap(x->str.str_self)) { |
542 |
if (what_to_collect == t_contiguous) |
if (what_to_collect == t_contiguous) |