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 |