Changeset 16153


Ignore:
Timestamp:
Aug 9, 2014, 11:42:50 PM (5 years ago)
Author:
gb
Message:

Get ARM2-NFP-REF-P right.
ARM2-%I-: un-botch (%i- 0 n) ...

File:
1 edited

Legend:

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

    r16130 r16153  
    49194919            (eq op (%nx1-operator lexical-reference)))
    49204920      (let* ((var (car (acode-operands form))))
    4921         (not (rassoc var *arm2-nfp-vars*))))))
     4921        (not (null (rassoc var *arm2-nfp-vars*)))))))
    49224922
    49234923
     
    73577357           (diff (and fix1 fix2 (if overflow (- fix1 fix2) (%i- fix1 fix2))))
    73587358           (other (unless diff
    7359                     (if (and
    7360                          fix1
    7361                          (typep (ash fix1 *arm2-target-fixnum-shift*)
    7362                                 '(signed-byte 32))
    7363                          (arm::encode-arm-immediate
    7364                               (ash fix1 *arm2-target-fixnum-shift*)))
    7365                       form2
    7366                       (if (and fix2
     7359                    (if (and fix2
    73677360                               (typep (ash fix2 *arm2-target-fixnum-shift*)
    73687361                                      '(signed-byte 32))
     
    73717364                                   (arm::encode-arm-immediate
    73727365                                    (- (ash fix2 *arm2-target-fixnum-shift*)))))
    7373                         form1))))
     7366                        form1)))
    73747367           (constant (and other (ash (or fix1 fix2) *arm2-target-fixnum-shift*)))
    73757368           r1
Note: See TracChangeset for help on using the changeset viewer.