Changeset 16470


Ignore:
Timestamp:
Jul 14, 2015, 8:42:42 AM (4 years ago)
Author:
gb
Message:

initialize *linear-scan-verbose* to nil.
maintain fgn-spills agaib in note-spill.

All of this needs to be more sensitive to vinsn ordering within fgns than iths been.

likewise PROCESS-ORE-SPILLED-INTERVAL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/vinsn.lisp

    r16466 r16470  
    2222  (require "BACKEND"))
    2323
    24 (defparameter *linear-scan-verbose* t)
     24(defparameter *linear-scan-verbose* nil)
    2525
    2626(defun ls-format (&rest args)
     
    11791179         (spills (fgn-spills node)))
    11801180    (unless (member interval spills)
    1181       ;;(push interval (fgn-spills node))
     1181      (push interval (fgn-spills node))
    11821182      (insert-vinsn-after vinsn def)
    11831183      (pushnew vinsn (lreg-refs (interval-lreg interval))))))
     
    11951195   
    11961196
    1197     (dolist (ref (lreg-refs lreg))
    1198       (let* ((reload-vinsn (select-vinsn 'reload templates (list lreg offset))))
    1199         (note-reload interval reload-vinsn ref)
     1197    (let* ((start (find-vinsn seg (interval-begin interval)))
     1198           (reload-vinsn (select-vinsn (reload-vinsn-for-interval interval) templates (list lreg offset))))
     1199        (note-reload interval reload-vinsn start)
    12001200        )))))
    12011201
Note: See TracChangeset for help on using the changeset viewer.