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 /sml/trunk/src/MLRISC/block-placement/weighted-block-placement-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/weighted-block-placement-fn.sml

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

revision 1110, Fri Mar 1 14:07:58 2002 UTC revision 1111, Fri Mar 1 14:57:13 2002 UTC
# Line 23  Line 23 
23      structure ITbl = IntHashTable      structure ITbl = IntHashTable
24      structure PQ = LeftPriorityQFn (      structure PQ = LeftPriorityQFn (
25        struct        struct
26          type priority = Freq.freq          type priority = CFG.weight
27          val compare = Freq.compare          val compare = Real.compare
28          type item = CFG.edge          type item = CFG.edge
29          fun priority (_, _, CFG.EDGE{w, ...}) = !w          fun priority (_, _, CFG.EDGE{w, ...}) = !w
30        end)        end)
# Line 49  Line 49 
49      fun head (CHAIN{hd, ...}) = #1 hd      fun head (CHAIN{hd, ...}) = #1 hd
50      fun tail (CHAIN{tl, ...}) = #1 tl      fun tail (CHAIN{tl, ...}) = #1 tl
51      fun id (CHAIN{hd, ...}) = #1 hd     (* use node ID of head to identify chains *)      fun id (CHAIN{hd, ...}) = #1 hd     (* use node ID of head to identify chains *)
52      fun sameChain (CHAIN{hd=h1, ...}, CHAIN{hd=h2, ...}) = (h1 = h2)      fun sameChain (CHAIN{hd=h1, ...}, CHAIN{hd=h2, ...}) = (#1 h1 = #1 h2)
53    
54      fun blockToString (id', CFG.BLOCK{id, ...}) =      fun blockToString (id', CFG.BLOCK{id, ...}) =
55            concat["<", Int.toString id', ":", Int.toString id, ">"]            concat["<", Int.toString id', ":", Int.toString id, ">"]

Legend:
Removed from v.1110  
changed lines
  Added in v.1111

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