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

SCM Repository

[smlnj] Annotation of /MLRISC/releases/release-110.60/instructions/freqProps.sml
ViewVC logotype

Annotation of /MLRISC/releases/release-110.60/instructions/freqProps.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 409 - (view) (download)
Original Path: sml/trunk/src/MLRISC/instructions/freqProps.sml

1 : monnier 409 (*
2 :     * Generic module for extracting the frequency information.
3 :     *)
4 :    
5 :     functor FreqProps(Props : INSN_PROPERTIES) : FREQUENCY_PROPERTIES =
6 :     struct
7 :    
8 :     structure I = Props.I
9 :    
10 :     (* Branch probability in percentage *)
11 :     fun branchProb instr =
12 :     let fun f(BasicAnnotations.BRANCH_PROB b::_) = b
13 :     | f(_::a) = f a
14 :     | f [] = 50
15 :     in f(Props.getAnnotations instr) end
16 :    
17 :     end

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