Changeset 14119 for trunk/source/xdump


Ignore:
Timestamp:
Aug 5, 2010, 7:33:28 AM (10 years ago)
Author:
gb
Message:

Changes from ARM branch. Need testing ...

Location:
trunk/source/xdump
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/xdump/xfasload.lisp

    r13279 r14119  
    10541054      ;; a function vector).  The code-vector in its 0th element should
    10551055      ;; report the appropriate error.
     1056      ;; On the ARM: make a two-element vector: entrypoint, code-vector.
    10561057      (let* ((udf-object (xload-make-gvector :simple-vector 1)))
    1057         (setf (xload-%svref udf-object 0) (xload-save-code-vector
    1058                                            (backend-xload-info-udf-code
    1059                                             *xload-target-backend*))))
     1058        (target-arch-case
     1059         (:arm
     1060          (setf (xload-%svref udf-object 0)
     1061                (+ (subprim-name->offset '.SPfix-nfn-entrypoint *target-backend*)
     1062                   #x40)))
     1063         (otherwise
     1064          (setf (xload-%svref udf-object 0)
     1065                (xload-save-code-vector
     1066                 (backend-xload-info-udf-code
     1067                  *xload-target-backend*))))))
    10601068      (let* ((udf-object (xload-make-gvector :simple-vector 1)))
    10611069        (setf (xload-%svref udf-object 0) (backend-xload-info-udf-code
Note: See TracChangeset for help on using the changeset viewer.