Changeset 16737


Ignore:
Timestamp:
May 17, 2016, 7:48:38 PM (5 years ago)
Author:
gb
Message:

inch closer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/vinsn.lisp

    r16736 r16737  
    19881988              (if tdef
    19891989                (unless (eq lreg (trivial-copy-source-operand tdef))
    1990                   (when (null (interval-conflicts-with i))(break "1??"))
    19911990                  (pushnew other (interval-conflicts-with i)))
    19921991                ;;(break "2??")
     
    21022101                        (declare (fixnum dseq))
    21032102                        (unless (dolist (ref (lreg-refs dest) t)
    2104                                   (when (and (> (the fixnum (vinsn-sequence ref)) dseq)
     2103                                  (when (and (>= (the fixnum (vinsn-sequence ref)) dseq)
    21052104                                             (not (vinsn-attribute-p ref :trivial-copy)))
    21062105                                    ;;(ls-break "???")
     
    21702169                                               (interval-avail dest-interval))))
    21712170                (unless (getf (vinsn-annotation vinsn) :resolvable)
     2171                  (if (fixed-lreg-p dest)
     2172                    (linear-scan-bailout 'losing))
    21722173                  (dolist (other (interval-active-before dest-interval)) (pushnew other (interval-conflicts-with dest-interval)))
    21732174                  (resolve-interval-conflict dest-interval nil)
     
    22252226        (format t "~&after:~&")
    22262227        (show-vinsn-list seg))
    2227       (ls-format "~&removed trivial-copy vinsns from ~s" *current-function-name*)
     2228      (format t "~&removed trivial-copy vinsns from ~s" *current-function-name*)
    22282229      )))
    22292230
Note: See TracChangeset for help on using the changeset viewer.