Changeset 13083 for branches/purify


Ignore:
Timestamp:
Oct 22, 2009, 9:58:04 AM (10 years ago)
Author:
gb
Message:

When copying functions on x8632, need to call update_self_references().

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/lisp-kernel/x86-gc.c

    r13042 r13083  
    22292229  int
    22302230    header_tag = fulltag_of(header);
     2231#ifdef X8632
     2232  Boolean
     2233    is_function = (header_subtag(header)==subtag_function);
     2234#endif
    22312235
    22322236  if (immheader_tag_p(header_tag)) {
     
    22442248
    22452249  memcpy(free, (BytePtr)old, physbytes);
     2250
     2251#ifdef X8632
     2252  if (is_function) {
     2253    update_self_references((LispObj *)free);
     2254  }
     2255#endif
     2256
     2257
    22462258  /* Leave a trail of breadcrumbs.  Or maybe just one breadcrumb. */
    22472259  /* Actually, it's best to always leave a trail, for two reasons.
Note: See TracChangeset for help on using the changeset viewer.