Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /MLRISC/trunk/ra/mem-ra.sml
ViewVC logotype

Diff of /MLRISC/trunk/ra/mem-ra.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 744, Fri Dec 8 04:11:42 2000 UTC revision 1009, Wed Jan 9 19:44:22 2002 UTC
# Line 38  Line 38 
38      | isMemLoc(SPILL_LOC _) = true      | isMemLoc(SPILL_LOC _) = true
39      | isMemLoc(MEMREG _) = true      | isMemLoc(MEMREG _) = true
40      | isMemLoc _ = false      | isMemLoc _ = false
41    
42    (*    (*
43     * Spill coalescing.     * Spill coalescing.
44     * Coalesce non-interfering moves between spilled nodes,     * Coalesce non-interfering moves between spilled nodes,
# Line 430  Line 431 
431        fun spillIt{graph = G as GRAPH{mode, ...}, nodes,        fun spillIt{graph = G as GRAPH{mode, ...}, nodes,
432                    copyInstr, spill, spillSrc, spillCopyTmp,                    copyInstr, spill, spillSrc, spillCopyTmp,
433                    reload, reloadDst, renameSrc, cellkind} =                    reload, reloadDst, renameSrc, cellkind} =
434        let val nodes = if isOn(mode,SPILL_PROPAGATION) then        let
435              val nodes = if isOn(mode,SPILL_PROPAGATION) then
436                            spillPropagation G nodes else nodes                            spillPropagation G nodes else nodes
437            val _ = if isOn(mode,SPILL_COALESCING) then            val _ = if isOn(mode,SPILL_COALESCING) then
438                       spillCoalescing G nodes else ()                       spillCoalescing G nodes else ()

Legend:
Removed from v.744  
changed lines
  Added in v.1009

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0