lib/stubs/mlton-stubs/gc.sig

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  * Copyright (C) 1997-2000 NEC Research Institute.
   5  *
   6  * MLton is released under a BSD-style license.
   7  * See the file MLton-LICENSE for details.
   8  *)
   9
  10 signature MLTON_GC =
  11    sig
  12       val collect: unit -> unit
  13       val pack: unit -> unit
  14       val setMessages: bool -> unit
  15       val setSummary: bool -> unit
  16       val unpack: unit -> unit
  17
  18       (* Most meaningful immediately after 'collect()'. *)
  19       structure Statistics :
  20          sig
  21             val bytesAllocated: unit -> IntInf.int
  22             val lastBytesLive: unit -> IntInf.int
  23             val numCopyingGCs: unit -> IntInf.int
  24             val numMarkCompactGCs: unit -> IntInf.int
  25             val numMinorGCs: unit -> IntInf.int
  26             val maxBytesLive: unit -> IntInf.int
  27          end
  28    end