Changeset 15551


Ignore:
Timestamp:
Dec 28, 2012, 4:13:04 AM (6 years ago)
Author:
gb
Message:

compute 2d unscaled index (via !2d-unscaled-index) in ARM2-ASET2-VIA-GVSET

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm2.lisp

    r15542 r15551  
    17571757      (with-imm-target () dim1
    17581758        (let* ((idx-reg ($ arm::arg_y)))
    1759           (if safe                 
    1760             (! check-2d-bound dim1 unscaled-i unscaled-j src)
    1761             (! 2d-dim1 dim1 src))
     1759          (progn
     1760            (if safe                 
     1761              (! check-2d-bound dim1 unscaled-i unscaled-j src)
     1762              (! 2d-dim1 dim1 src))
     1763            (! 2d-unscaled-index idx-reg dim1 unscaled-i unscaled-j))
    17621764          (let* ((v ($ arm::arg_x)))
    17631765            (! array-data-vector-ref v src)
Note: See TracChangeset for help on using the changeset viewer.