src/Pure/RAW/ml_heap.ML
author wenzelm
Mon, 29 Feb 2016 15:23:13 +0100
changeset 62467 c1b88e647e2f
child 62468 d97e13e5ea5b
permissions -rw-r--r--
clarified ML heap operations;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
62467
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/RAW/ml_heap.ML
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     3
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     4
ML heap operations.
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     5
*)
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     6
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     7
signature ML_HEAP =
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     8
sig
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
     9
  val share_common_data: unit -> unit
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    10
  val save_state: string -> unit
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    11
end;
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    12
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    13
structure ML_Heap: ML_HEAP =
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    14
struct
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    15
  fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    16
  val save_state = PolyML.SaveState.saveState o ml_platform_path;
c1b88e647e2f clarified ML heap operations;
wenzelm
parents:
diff changeset
    17
end;