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

Diff of /gcl/o/alloc.c

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

revision 1.47 by camm, Thu Jun 16 17:02:18 2005 UTC revision 1.48 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 198  add_page_to_freelist(char *p, struct typ Line 198  add_page_to_freelist(char *p, struct typ
198   make_free(x);   make_free(x);
199  #ifdef SGC  #ifdef SGC
200   if (sgc_enabled && tm->tm_sgc)   if (sgc_enabled && tm->tm_sgc)
201     {if (type_of(x)!=t_cons) x->d.s=SGC_RECENT; /*FIXME, can sgc mark cons on 64bit*/     {if (!consp(x)) x->d.s=SGC_RECENT; /*FIXME, can sgc mark cons on 64bit*/
202      sgc_type_map[np] = (SGC_PAGE_FLAG | SGC_TEMP_WRITABLE);}      sgc_type_map[np] = (SGC_PAGE_FLAG | SGC_TEMP_WRITABLE);}
203   else {if (type_of(x)!=t_cons) x->d.s = SGC_NORMAL;}   else {if (!consp(x)) x->d.s = SGC_NORMAL;}
204    
205   /* array headers must be always writable, since a write to the   /* array headers must be always writable, since a write to the
206      body does not touch the header.   It may be desirable if there      body does not touch the header.   It may be desirable if there

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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