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

Diff of /gcl/o/gbc.c

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

revision 1.32 by camm, Wed Sep 7 02:54:13 2005 UTC revision 1.33 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 408  mark_object(object x) { Line 408  mark_object(object x) {
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            
# Line 531  mark_object(object x) { Line 536  mark_object(object x) {
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)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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