mlton/ssa/shrink.sig

   1 (* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 signature SHRINK_STRUCTS =
  10    sig
  11       include PREPASSES
  12    end
  13
  14 signature SHRINK =
  15    sig
  16       include SHRINK_STRUCTS
  17
  18       val shrinkFunction:
  19          {globals: Statement.t vector} -> Function.t -> Function.t
  20       val shrink: Program.t -> Program.t
  21    end