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

Diff of /sml/trunk/src/MLRISC/sparc/instructions/sparcFreqProps.sml

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

revision 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 19  Line 19 
19       | fcond I.FBNE = 90       | fcond I.FBNE = 90
20       | fcond _      = 50       | fcond _      = 50
21    
22       fun sparcBranchProb(I.Bicc{b,...}) = cond b
23         | sparcBranchProb(I.FBfcc{b,...}) = fcond b
24         | sparcBranchProb(I.BP{b,...}) = cond b
25         | sparcBranchProb(I.BR _) = 50
26         | sparcBranchProb(I.JMP _) = 100
27         | sparcBranchProb(I.RET _) = 100
28         | sparcBranchProb _ = 0 (* non-branch *)
29    
30     fun branchProb(I.ANNOTATION{a, i, ...}) =     fun branchProb(I.ANNOTATION{a, i, ...}) =
31          (case #peek MLRiscAnnotations.BRANCH_PROB a of          (case #peek MLRiscAnnotations.BRANCH_PROB a of
32             SOME b => b             SOME b => b
33           | NONE => branchProb i           | NONE => branchProb i
34          )          )
35       | branchProb(I.Bicc{b,...}) = cond b       | branchProb(I.INSTR(i)) = sparcBranchProb(i)
36       | branchProb(I.FBfcc{b,...}) = fcond b       | branchProb _ = 0
      | branchProb(I.BP{b,...}) = cond b  
      | branchProb(I.BR _) = 50  
      | branchProb(I.JMP _) = 100  
      | branchProb(I.RET _) = 100  
      | branchProb _ = 0 (* non-branch *)  
37    
38  end  end

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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