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

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/instructions/freqProps.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 409 - (download) (annotate)
Fri Sep 3 00:21:52 1999 UTC (21 years, 2 months ago) by monnier
File size: 390 byte(s)
Initial revision
(*
 * Generic module for extracting the frequency information.
 *)

functor FreqProps(Props : INSN_PROPERTIES) : FREQUENCY_PROPERTIES =
struct

   structure I = Props.I

      (* Branch probability in percentage *)
   fun branchProb instr =
   let fun f(BasicAnnotations.BRANCH_PROB b::_) = b     
         | f(_::a) = f a
         | f [] = 50
   in  f(Props.getAnnotations instr) end

end

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