1 (* Copyright (C) 2009 Matthew Fluet.
2 * Copyright (C) 2002-2007 Henry Cejtin, Matthew Fluet, Suresh
3 * Jagannathan, and Stephen Weeks.
5 * MLton is released under a BSD-style license.
6 * See the file MLton-LICENSE for details.
9 signature IMPLEMENT_PROFILING_STRUCTS =
11 structure Machine: MACHINE
13 sharing Machine.ProfileLabel = Rssa.ProfileLabel
16 signature IMPLEMENT_PROFILING =
18 include IMPLEMENT_PROFILING_STRUCTS
22 -> Rssa.Program.t * ({frames: Rssa.Label.t vector}
23 -> Machine.ProfileInfo.t option)