Changeset 16738


Ignore:
Timestamp:
May 18, 2016, 1:29:06 PM (5 years ago)
Author:
gb
Message:

*remove-trivisl-copies* defaults to T.

File:
1 edited

Legend:

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

    r16737 r16738  
    20242024              (declare (fixnum avail))
    20252025              (do* (( i 16 (1- i)))
    2026                    ((< i 0) (break "???")(linear-scan-bailout 'pressure))
     2026                   ((< i 0) (ls-break "???")(linear-scan-bailout 'pressure))
    20272027                (declare (fixnum i))
    20282028                (let* ((preg (1- i)))
     
    21732173                  (dolist (other (interval-active-before dest-interval)) (pushnew other (interval-conflicts-with dest-interval)))
    21742174                  (resolve-interval-conflict dest-interval nil)
    2175                   (break "~&funky at ~s" vinsn))))
     2175                  (when *linear-scan-verbose*
     2176                    (break "~&funky at ~s" vinsn)))))
    21762177         
    21772178            )
     
    21822183
    21832184
    2184 (defparameter *remove-trivial-copies* nil)
     2185(defparameter *remove-trivial-copies* t)
    21852186
    21862187;; see postprocess-interval; this assumes that all trivial-copy operands
     
    22262227        (format t "~&after:~&")
    22272228        (show-vinsn-list seg))
    2228       (format t "~&removed trivial-copy vinsns from ~s" *current-function-name*)
     2229      (when *linear-scan-verbose*
     2230        (format t "~&removed trivial-copy vinsns from ~s" *current-function-name*))
    22292231      )))
    22302232
Note: See TracChangeset for help on using the changeset viewer.