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/blume-private-devel/src/MLRISC/ppc/backpatch/ppcJumps.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/MLRISC/ppc/backpatch/ppcJumps.sml

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

revision 1634, Tue Sep 28 15:53:10 2004 UTC revision 1635, Tue Sep 28 17:12:31 2004 UTC
# Line 11  Line 11 
11    
12    fun error msg = MLRiscErrorMsg.error("PPCJumps",msg)    fun error msg = MLRiscErrorMsg.error("PPCJumps",msg)
13    
14      val warn_long_branch =
15          MLRiscControl.mkFlag ("ppc-warn-long-branch",
16                                "whether to warn about long form of branch")
17    
18    val branchDelayedArch = false    val branchDelayedArch = false
19    
20    fun isSdi(I.ANNOTATION{i,...}) =isSdi i    fun isSdi(I.ANNOTATION{i,...}) =isSdi i
# Line 198  Line 202 
202                        | I.COUNTER{eqZero, cond} => error "expand:newBO:COUNTER"                        | I.COUNTER{eqZero, cond} => error "expand:newBO:COUNTER"
203                      (*esac*))                      (*esac*))
204                  in                  in
205                    print("emiting long form of branch"  ^ "\n");                    if !warn_long_branch then
206                          print("emiting long form of branch"  ^ "\n")
207                      else ();
208                   [I.bc{bo=newBO, bf=bf, bit=bit, addr=fall, fall=fall, LK=false},                   [I.bc{bo=newBO, bf=bf, bit=bit, addr=fall, fall=fall, LK=false},
209                    I.b{addr=addr, LK=LK}]                    I.b{addr=addr, LK=LK}]
210                  end                  end

Legend:
Removed from v.1634  
changed lines
  Added in v.1635

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