Changeset 14097


Ignore:
Timestamp:
Aug 1, 2010, 5:20:46 AM (9 years ago)
Author:
gb
Message:

Fix COMPOSE-DIGIT; add LOAD-SUBPRIM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-lapmacros.lisp

    r13921 r14097  
    298298  ;; This code does ...
    299299  `(progn
    300     (mov ,dest (:lsl ,high (:$ (- 16 arm::fixnumshift))))
    301     (orr ,dest ,dest (:lsr ,low (:$ arm::fixnumshift)))))
     300    (movw ,dest (:$ #xffff))
     301    (and ,dest ,dest (:lsr ,low (:$ arm::fixnumshift)))
     302    (orr ,dest ,dest (:lsl ,high (:$ (- 16 arm::fixnumshift))))))
    302303
    303304(defarmlapmacro macptr-ptr (dest macptr)
     
    343344  `(str ,new-value (:@ ,vector (:$ (+ (* 4 ,index) arm::misc-data-offset)))))
    344345
     346(defarmlapmacro load-subprim (reg spname)
     347  `(mov ,reg (:$ ,(subprim-name->offset spname))))
     348
     349
    345350(provide "ARM-LAPMACROS")
    346351
Note: See TracChangeset for help on using the changeset viewer.