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/branches/SMLNJ/src/MLRISC/hppa/instructions/hppaFreqProps.sml
 [smlnj] / sml / branches / SMLNJ / src / MLRISC / hppa / instructions / hppaFreqProps.sml

# Diff of /sml/branches/SMLNJ/src/MLRISC/hppa/instructions/hppaFreqProps.sml

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 9  Line 9
9
10     structure I = HppaInstr     structure I = HppaInstr
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.BCOND{cmp=I.COMBT,bc=I.EQ,...}) = 10       | branchProb(I.BCOND{cmp=I.COMBT,bc=I.EQ,...}) = 10
18       | branchProb(I.BCOND{cmp=I.COMBF,bc=I.EQ,...}) = 90       | branchProb(I.BCOND{cmp=I.COMBF,bc=I.EQ,...}) = 90
19       | branchProb(I.BCOND{cmp=I.COMBT,bc=I.NE,...}) = 90       | branchProb(I.BCOND{cmp=I.COMBT,bc=I.NE,...}) = 90

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