Changeset 13797


Ignore:
Timestamp:
Jun 9, 2010, 9:10:55 PM (14 years ago)
Author:
Gary Byers
Message:

%KERNEL-IMPORT: shift result left. (We can't assume that foreign
entrypoints are word-aligned; may be defined as THUMB/THUMB2 functions.)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/arm/level-0/ARM/arm-utils.lisp

    r13789 r13797  
    455455(defarmlapfunction %kernel-import ((offset arg_z))
    456456  (ref-global imm0 kernel-imports)
    457   (unbox-fixnum imm1 arg_z)
    458   (ldr arg_z (:@ imm0 imm1))
     457  (ldr imm0 (:@ imm0 (:asr arg_z (:$ arm::fixnumshift))))
     458  (box-fixnum arg_z imm0)
    459459  (bx lr))
    460460
Note: See TracChangeset for help on using the changeset viewer.