Changeset 15877


Ignore:
Timestamp:
Aug 7, 2013, 6:00:32 PM (6 years ago)
Author:
gb
Message:

Use ARM2-EQUAL-ENCODINGS-P in ARM2-UNDO-BODY. (More to do here.)
No more VAR-DECLARED-UNBOXED-TYPE; more to do here, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/acode-rewrite/source/compiler/ARM/arm2.lisp

    r15876 r15877  
    49054905    (declare (fixnum numundo))
    49064906    (with-arm-local-vinsn-macros (seg vreg xfer)
    4907       (if (eq current-stack old-stack)
     4907      (if (arm2-equal-encodings-p current-stack old-stack)
    49084908        (arm2-form seg vreg xfer body)
    49094909        (if (eq xfer $backend-return)
     
    53985398    (let* ((need-double
    53995399            (dolist (var varset)
    5400               (when (eq (var-declared-unboxed-type var) 'double-float)
     5400              (when (eq (var-declared-type var) 'double-float)
    54015401                (return t)))))
    54025402      (if need-double
     
    54105410                   (single (make-hard-fp-reg (+ (hard-regspec-value arm::s16) (ash i -1)) hard-reg-class-fpr-mode-single)))
    54115411              (dolist (var varset)
    5412                 (if (eq 'double-float (var-declared-unboxed-type var))
     5412                (if (eq 'double-float (var-declared-type var))
    54135413                  (setf (var-nvr var) double)
    54145414                  (setf (var-nvr var) single)))
Note: See TracChangeset for help on using the changeset viewer.