Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/frequencies/compute-freqs-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/frequencies/compute-freqs-fn.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 167  Line 167 
167                    end                    end
168            and followEdges [] = ()            and followEdges [] = ()
169              | followEdges ((_, dst, _)::r) = (dfs dst; followEdges r)              | followEdges ((_, dst, _)::r) = (dfs dst; followEdges r)
170            val [root] = #entries methods ()            val root =
171                  case #entries methods () of
172                      [root] => root
173                    | _ => raise Fail "ComputeFreqsFn: root"
174            in            in
175            (* initialize edge probabilities *)            (* initialize edge probabilities *)
176              CompleteProbs.completeProbs cfg;              CompleteProbs.completeProbs cfg;

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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