Changeset 14038 for branches


Ignore:
Timestamp:
Jul 24, 2010, 11:36:44 PM (9 years ago)
Author:
gb
Message:

Compare both halves of DOUBLE-FLOATs in EQL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-pred.lisp

    r13926 r14038  
    5050  (bne @one-unboxed-word)
    5151  ;; This is the double-float case.
    52   (ldr imm0 (:@ x (:$ arm::double-float.value)))
    53   (ldr imm1 (:@ y (:$ arm::double-float.value)))
     52  (ldr imm0 (:@ x (:$ arm::double-float.val-low)))
     53  (ldr imm1 (:@ y (:$ arm::double-float.val-low)))
    5454  (cmp imm0 imm1)
    55   (ldreq imm0 (:@ x (:$ arm::double-float.val-low)))
    56   (ldreq imm1 (:@ y (:$ arm::double-float.val-low)))
     55  (ldreq imm0 (:@ x (:$ arm::double-float.val-high)))
     56  (ldreq imm1 (:@ y (:$ arm::double-float.val-high)))
    5757  (cmpeq imm0 imm1)
    5858  (mov arg_z 'nil)
Note: See TracChangeset for help on using the changeset viewer.