Changeset 6383 for branches/x8664-call


Ignore:
Timestamp:
Apr 30, 2007, 12:45:42 PM (13 years ago)
Author:
gb
Message:

Don't think that %ra0 and %temp2 are disjoint. (They aren't, and
we don't want to forward the same reference twice.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lisp-kernel/x86-gc.c

    r6334 r6383  
    14811481  mark_root(regs[Isave1]);
    14821482  mark_root(regs[Isave0]);
    1483   mark_root(regs[Ira0]);
    14841483  mark_root(regs[Ifn]);
    14851484  mark_root(regs[Itemp0]);
     
    20722071  update_noderef(&(regs[Isave1]));
    20732072  update_noderef(&(regs[Isave0]));
    2074   update_noderef(&(regs[Ira0]));
    20752073  update_noderef(&(regs[Ifn]));
    20762074  update_noderef(&(regs[Itemp0]));
     
    30603058  copy_ivector_reference(&(regs[Isave1]), low, high, to, what);
    30613059  copy_ivector_reference(&(regs[Isave0]), low, high, to, what);
    3062   copy_ivector_reference(&(regs[Ira0]), low, high, to, what);
    30633060  copy_ivector_reference(&(regs[Ifn]), low, high, to, what);
    30643061  copy_ivector_reference(&(regs[Itemp0]), low, high, to, what);
     
    32673264  impurify_noderef(&(regs[Isave1]), low, high, delta);
    32683265  impurify_noderef(&(regs[Isave0]), low, high, delta);
    3269   impurify_noderef(&(regs[Ira0]), low, high, delta);
    32703266  impurify_noderef(&(regs[Ifn]), low, high, delta);
    32713267  impurify_noderef(&(regs[Itemp0]), low, high, delta);
     
    35513547  adjust_noderef((LispObj *) (&(regs[Isave1])),base,limit,delta);
    35523548  adjust_noderef((LispObj *) (&(regs[Isave0])),base,limit,delta);
    3553   adjust_noderef((LispObj *) (&(regs[Ira0])),base,limit,delta);
    35543549  adjust_noderef((LispObj *) (&(regs[Ifn])),base,limit,delta);
    35553550  adjust_noderef((LispObj *) (&(regs[Itemp0])),base,limit,delta);
     
    35733568  nuke_noderef((LispObj *) (&(regs[Isave1])),base,limit);
    35743569  nuke_noderef((LispObj *) (&(regs[Isave0])),base,limit);
    3575   nuke_noderef((LispObj *) (&(regs[Ira0])),base,limit);
    35763570  nuke_noderef((LispObj *) (&(regs[Ifn])),base,limit);
    35773571  nuke_noderef((LispObj *) (&(regs[Itemp0])),base,limit);
Note: See TracChangeset for help on using the changeset viewer.