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/branches/SMLNJ/src/MLRISC/instructions/freqProps.sml
ViewVC logotype

View of /sml/branches/SMLNJ/src/MLRISC/instructions/freqProps.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 410 - (download) (annotate)
Fri Sep 3 00:25:03 1999 UTC (20 years, 1 month ago)
File size: 390 byte(s)
This commit was manufactured by cvs2svn to create branch 'SMLNJ'.
(*
 * 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