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

Diff of /gcl/o/sgbc.c

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

revision 1.28 by camm, Wed Sep 7 02:54:19 2005 UTC revision 1.29 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 291  sgc_mark_object1(object x) { Line 291  sgc_mark_object1(object x) {
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            
# Line 453  sgc_mark_object1(object x) { Line 460  sgc_mark_object1(object x) {
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]));

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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