291 |
!(inheap(cp)) && SGC_RELBLOCK_P(x->a.a_self)) |
!(inheap(cp)) && SGC_RELBLOCK_P(x->a.a_self)) |
292 |
ROUND_RB_POINTERS_DOUBLE; |
ROUND_RB_POINTERS_DOUBLE; |
293 |
break; |
break; |
294 |
|
case aet_nnchar: |
295 |
case aet_char: |
case aet_char: |
296 |
case aet_uchar: |
case aet_uchar: |
297 |
j=sizeof(char)*x->a.a_dim; |
j=sizeof(char)*x->a.a_dim; |
298 |
break; |
break; |
299 |
|
case aet_nnshort: |
300 |
case aet_short: |
case aet_short: |
301 |
case aet_ushort: |
case aet_ushort: |
302 |
j=sizeof(short)*x->a.a_dim; |
j=sizeof(short)*x->a.a_dim; |
303 |
break; |
break; |
304 |
|
case aet_nnint: |
305 |
|
case aet_int: |
306 |
|
case aet_uint: |
307 |
|
j=sizeof(int)*x->a.a_dim; |
308 |
|
break; |
309 |
default: |
default: |
310 |
j=sizeof(fixnum)*x->fixa.fixa_dim;} |
j=sizeof(fixnum)*x->fixa.fixa_dim;} |
311 |
|
|
460 |
unsigned char * s_type = &SLOT_TYPE(def,0); |
unsigned char * s_type = &SLOT_TYPE(def,0); |
461 |
unsigned short *s_pos= & SLOT_POS(def,0); |
unsigned short *s_pos= & SLOT_POS(def,0); |
462 |
for (i = 0, j = S_DATA(def)->length; i < j; i++) |
for (i = 0, j = S_DATA(def)->length; i < j; i++) |
463 |
if (s_type[i]==0 && |
if (s_type[i]==aet_object && |
464 |
ON_WRITABLE_PAGE(& STREF(object,x,s_pos[i])) |
ON_WRITABLE_PAGE(& STREF(object,x,s_pos[i])) |
465 |
) |
) |
466 |
sgc_mark_object(STREF(object,x,s_pos[i])); |
sgc_mark_object(STREF(object,x,s_pos[i])); |