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

Diff of /sml/trunk/src/MLRISC/alpha/instructions/alphaFreqProps.sml

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

revision 428, Wed Sep 8 09:47:00 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 9  Line 9 
9    
10     structure I = AlphaInstr     structure I = AlphaInstr
11    
12     fun branchProb(I.ANNOTATION{a=BasicAnnotations.BRANCH_PROB b,...}) = b     fun branchProb(I.ANNOTATION{a, i, ...}) =
13       | branchProb(I.ANNOTATION{i,...}) = branchProb i          (case #peek BasicAnnotations.BRANCH_PROB a of
14               SOME b => b
15             | NONE => branchProb i
16            )
17       | branchProb(I.BRANCH(I.BR,_,_)) = 100 (* unconditional *)       | branchProb(I.BRANCH(I.BR,_,_)) = 100 (* unconditional *)
18       | branchProb(I.BRANCH(I.BEQ,_,_)) = 10       | branchProb(I.BRANCH(I.BEQ,_,_)) = 10
19       | branchProb(I.BRANCH(I.BNE,_,_)) = 90       | branchProb(I.BRANCH(I.BNE,_,_)) = 90

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

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