File: mlrisc-optimizer.sml

package info (click to toggle)
smlnj 110.79-8
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 82,564 kB
  • sloc: ansic: 32,532; asm: 6,314; sh: 2,296; makefile: 1,821; perl: 1,170; pascal: 295; yacc: 190; cs: 78; python: 77; lisp: 19
file content (9 lines) | stat: -rw-r--r-- 279 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
(* Copyright 1999, Lucent Technologies, Bell Labs *)

structure MLRISCOptimizer = struct
  structure Glue = 
    MLRISCGlue(open Compiler.Machine
               structure FreqProps = FreqProps(P)
              )
  val _ = Compiler.Machine.optimizerHook := SOME(Glue.codegen)
end