Changeset 16183 for release


Ignore:
Timestamp:
Sep 2, 2014, 3:34:09 PM (4 years ago)
Author:
rme
Message:

Merge fixes from trunk (refs ticket:1222, ticket:1223).

Location:
release/1.10/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/1.10/source

  • release/1.10/source/compiler/ARM/arm2.lisp

    r16180 r16183  
    26032603                                                    index unscaled-idx
    26042604                                                    value (arm2-target-reg-for-aset vreg type-keyword)))))
     2605          (let* ((*available-backend-imm-temps* *available-backend-imm-temps*)
     2606                 (value (if (eql (hard-regspec-class result-reg)
     2607                                 hard-reg-class-gpr)
     2608                          (hard-regspec-value result-reg))))
     2609            (when (and value (logbitp value *available-backend-imm-temps*))
     2610              (setq *available-backend-imm-temps* (bitclr value *available-backend-imm-temps*)))
    26052611        (with-crf-target () crf
    26062612          (! set-z-if-vector-header crf src)
     
    26222628
    26232629
    2624         (arm2-vset1 seg vreg xfer type-keyword src unscaled-idx index-known-fixnum result-reg (arm2-unboxed-reg-for-aset seg type-keyword result-reg safe constval) constval needs-memoization)))))
     2630        (arm2-vset1 seg vreg xfer type-keyword src unscaled-idx index-known-fixnum result-reg (arm2-unboxed-reg-for-aset seg type-keyword result-reg safe constval) constval needs-memoization))))))
    26252631
    26262632
  • release/1.10/source/compiler/X86/X8664/x8664-vinsns.lisp

    r16104 r16183  
    24062406                                                               ((offset :u16const)
    24072407                                                                (nfp :imm)))
    2408   (movq (:@ (:apply + 8 offset) (:% nfp)) (:%xmm val)))
     2408  (movq (:@ (:apply + 16 offset) (:% nfp)) (:%xmm val)))
    24092409
    24102410
Note: See TracChangeset for help on using the changeset viewer.