Changeset 11199


Ignore:
Timestamp:
Oct 22, 2008, 5:24:40 AM (11 years ago)
Author:
gb
Message:

Only kill pointers that're >= #x10000 and < #xffff...0000.

File:
1 edited

Legend:

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

    r10830 r11199  
    331331      subtag = header_subtag(x1);
    332332      if (subtag == subtag_macptr) {
    333         if (start[1]) {
    334           /* Leave NULL pointers alone */
     333        if ((start[1] >= (natural)0x10000) && (start[1] < (natural)-0x10000)) {
     334          /* Leave small pointers alone */
    335335          *start = make_header(subtag_dead_macptr,header_element_count(x1));
    336336        }
Note: See TracChangeset for help on using the changeset viewer.