Changeset 10087


Ignore:
Timestamp:
Jul 18, 2008, 6:20:16 PM (11 years ago)
Author:
rme
Message:

mark_tcr_xframes(): Pollute file with x8632 conditionalization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/gc-common.c

    r10010 r10087  
    603603  xp = tcr->gc_context;
    604604  if (xp) {
     605#ifndef X8632
    605606    mark_xp(xp);
    606   }
     607#else
     608    mark_xp(xp, tcr->node_regs_mask);
     609#endif
     610  }
     611#ifdef X8632
     612  mark_root(tcr->save0);
     613  mark_root(tcr->save1);
     614  mark_root(tcr->save2);
     615  mark_root(tcr->save3);
     616  mark_root(tcr->next_method_context);
     617#endif
    607618 
    608619  for (xframes = (xframe_list *) tcr->xframe;
    609620       xframes;
    610621       xframes = xframes->prev) {
     622#ifndef X8632
    611623      mark_xp(xframes->curr);
     624#else
     625      mark_xp(xframes->curr, xframes->node_regs_mask);
     626#endif
    612627  }
    613628}
Note: See TracChangeset for help on using the changeset viewer.