Changeset 16734


Ignore:
Timestamp:
May 9, 2016, 3:15:15 PM (5 years ago)
Author:
gb
Message:

Inch forward. *remove-trivial-copies* is still not enabled, but some cases are better.
I don't want to lose these changes.

File:
1 edited

Legend:

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

    r16733 r16734  
    10751075  (alt-preg 0 :type (unsigned-byte 4))
    10761076  (conflicts-with () :type list)
     1077  (alive t)
     1078  peer
    10771079)
    10781080
     
    20392041         (tdef (interval-trivial-def interval)))
    20402042    (if (fixed-lreg-p lreg)
    2041       (and tdef (eq reg (svref (vinsn-variable-parts tdef) 1)))
    2042       t)))
     2043      (and tdef (eq reg (trivial-copy-source-operand tdef)))
     2044      nil)))
    20432045
    20442046(defparameter *break-seqs* () ) ; for debugging
     
    20992101           
    21002102              (dolist (conflict (interval-conflicts dest-interval) )
    2101                 (break)
     2103                ;;(break)
    21022104                ;;(resolve-interval-conflict conflict dest)
    21032105                (setf (interval-conflicts-with conflict) nil)))
     
    21362138                  (setf (interval-preg dest-interval)src-preg
    21372139                        ;;(interval-lreg dest-interval) nil
    2138                         (lreg-interval dest) src-interval)
     2140                        ;;(lreg-interval dest) src-interval
     2141                        )
    21392142               
    21402143
Note: See TracChangeset for help on using the changeset viewer.