Changeset 6120


Ignore:
Timestamp:
Apr 4, 2007, 3:23:33 AM (13 years ago)
Author:
gb
Message:

Don't make NULL pointers into dead pointers when saving image.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/lisp-kernel/image.c

    r4395 r6120  
    343343      subtag = header_subtag(x1);
    344344      if (subtag == subtag_macptr) {
    345         *start = make_header(subtag_dead_macptr,header_element_count(x1));
     345        if (start[1]) {
     346          /* Leave NULL pointers alone */
     347          *start = make_header(subtag_dead_macptr,header_element_count(x1));
     348        }
    346349      }
    347350      start = (LispObj *)skip_over_ivector((natural)start, x1);
Note: See TracChangeset for help on using the changeset viewer.