Changeset 13860


Ignore:
Timestamp:
Jun 19, 2010, 10:56:18 AM (9 years ago)
Author:
gb
Message:

CLASS-OF: fix another shift in the wrong direction.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-utils.lisp

    r13839 r13860  
    273273  (extract-subtag imm0 x)
    274274  @done
    275   (mov imm0 (:lsr imm0 (:$ arm::word-shift)))
     275  (mov imm0 (:lsl imm0 (:$ arm::word-shift)))
    276276  (ldr temp1 (:@ nfn  '*class-table*))
    277277  (add imm0 imm0 (:$ arm::misc-data-offset))
Note: See TracChangeset for help on using the changeset viewer.