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/instructions/freqProps.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/instructions/freqProps.sml

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

revision 410, Fri Sep 3 00:25:03 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 9  Line 9 
9    
10        (* Branch probability in percentage *)        (* Branch probability in percentage *)
11     fun branchProb instr =     fun branchProb instr =
12     let fun f(BasicAnnotations.BRANCH_PROB b::_) = b        case #get BasicAnnotations.BRANCH_PROB (#2(Props.getAnnotations instr)) of
13           | f(_::a) = f a          SOME b => b
14           | f [] = 50        | NONE => 50
    in  f(Props.getAnnotations instr) end  
15    
16  end  end

Legend:
Removed from v.410  
changed lines
  Added in v.469

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