Changeset 6338


Ignore:
Timestamp:
Apr 23, 2007, 3:03:53 AM (15 years ago)
Author:
gb
Message:

Indentation ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/vinsn.lisp

    r6298 r6338  
    390390            (push vinsn (vinsn-label-refs label))
    391391            (setf (svref vp i) label))
    392         (let* ((lreg (allocate-temporary-vreg (car temps)))
    393                (class (hard-regspec-class lreg))
    394                (value (hard-regspec-value lreg)))
    395           (when value
    396             (case class
    397               (#.hard-reg-class-gpr (note-vinsn-sets-gpr vinsn value))
    398               (#.hard-reg-class-fpr (note-vinsn-sets-fpr vinsn value))))
    399           (setf (svref vp i) lreg)
    400           (pushnew vinsn (lreg-defs lreg))
    401           (pushnew vinsn (lreg-refs lreg))))))))
     392          (let* ((lreg (allocate-temporary-vreg (car temps)))
     393                 (class (hard-regspec-class lreg))
     394                 (value (hard-regspec-value lreg)))
     395            (when value
     396              (case class
     397                (#.hard-reg-class-gpr (note-vinsn-sets-gpr vinsn value))
     398                (#.hard-reg-class-fpr (note-vinsn-sets-fpr vinsn value))))
     399            (setf (svref vp i) lreg)
     400            (pushnew vinsn (lreg-defs lreg))
     401            (pushnew vinsn (lreg-refs lreg))))))))
    402402
    403403;;; "spec" is (<name> <class>).
Note: See TracChangeset for help on using the changeset viewer.