Ignore:
Timestamp:
Nov 7, 2009, 11:19:39 PM (10 years ago)
Author:
gb
Message:

Propagate r13175 (x8632 image relocation/large functions) and
r13171 (x8632 callback winabi/ObjC exception disentanglement)
to 1.4.

File:
1 edited

Legend:

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

    r13075 r13176  
    6565        int skip = ((int) start[1])+1;
    6666#else
    67         int skip = ((unsigned short)start[1])+1;
    6867        extern void update_self_references(LispObj *);
     68        extern natural imm_word_count(LispObj);
     69
     70        natural skip = (natural)imm_word_count(((LispObj)start)+fulltag_misc)+1;
    6971        update_self_references(start);
    7072#endif
     
    9193      ++start;
    9294    }
     95  }
     96  if (start > end) {
     97    Bug(NULL, "Overran area bounds in relocate_area_contents");
    9398  }
    9499}
Note: See TracChangeset for help on using the changeset viewer.