Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/branches/SMLNJ/src/compiler/CodeGen/optimizer/mlrisc-optimizer.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/compiler/CodeGen/optimizer/mlrisc-optimizer.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 245 - (view) (download)

1 : monnier 245 (* Copyright 1999, Lucent Technologies, Bell Labs *)
2 :    
3 :     structure MLRISCOptimizer = struct
4 :     structure Glue =
5 :     MLRISCGlue(open Compiler.Machine
6 :     fun patchBranch{instr,backwards} = [instr]
7 :     fun branchProb _ = 50)
8 :     val _ = Compiler.Machine.optimizerHook := SOME(Glue.codegen)
9 :     end

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