Changeset 14319


Ignore:
Timestamp:
Oct 2, 2010, 8:52:03 AM (9 years ago)
Author:
gb
Message:

relocate_area_contents(): need to relocate ARM entrypoints.

File:
1 edited

Legend:

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

    r14295 r14319  
    7777          --start;
    7878        }
     79        w0 = *start;
     80        fulltag = fulltag_of(w0);
     81      }
     82#endif
     83#ifdef ARM
     84      if (header_subtag(w0) == subtag_function) {
     85        w1 = start[1];
     86        if ((w1 >= low) && (w1 < high)) {
     87          start[1]=(w1+bias);
     88        }
     89        start+=2;
    7990        w0 = *start;
    8091        fulltag = fulltag_of(w0);
Note: See TracChangeset for help on using the changeset viewer.