Changeset 16450


Ignore:
Timestamp:
Jul 8, 2015, 7:02:46 AM (4 years ago)
Author:
gb
Message:

work around apparent assembler bug in %iasr, %ilsr vinsns.
fix typo in unbind-inline.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/X86/X8664/x8664-vinsns.lisp

    r16448 r16450  
    31583158  (movl (:%l val) (:@ x8664::misc-data-offset (:%q v) (:%q scaled-idx))))
    31593159
    3160 (define-x8664-vinsn %iasr (((dest :imm))
    3161                            ((count :imm)
    3162                             (src :imm))
    3163                            ((temp :s64)
     3160(define-x8664-vinsn %iasr (((dest :lisp))
     3161                           ((count :lisp)
     3162                            (src :lisp))
     3163                           ((temp (:s64 #.x8664::rax))
    31643164                            (shiftcount (:s64 #.x8664::rcx))))
    31653165  (movq (:%q count) (:%q temp))
     
    31763176                           ((count :imm)
    31773177                            (src :imm))
    3178                            ((temp :s64)
     3178                           ((temp (:s64 #.x8664::rax))
    31793179                            (shiftcount (:s64 #.x8664::rcx))))
    31803180  (movq (:%q count) (:%q temp))
     
    43834383  (movq (:@  8 (:%q link)) (:%q idx))
    43844384  (movq (:@ 16 (:%q link)) (:%q val))
    4385   (movq (:@ link) (:%q link))
     4385  (movq (:@ (:%q link)) (:%q link))
    43864386  (movq (:% val) (:@ (:%q tlb-pointer) (:% idx)))
    43874387  (movq (:%q link) (:rcontext target::tcr.db-link)))
Note: See TracChangeset for help on using the changeset viewer.