src/Pure/ML-Systems/polyml.ML
author wenzelm
Sun May 31 14:51:21 2009 +0200 (2009-05-31)
changeset 31312 1c00e4ff3c99
parent 30672 beaadd5af500
child 31313 97800f7e80b4
permissions -rw-r--r--
more modular setup of runtime compilation;
wenzelm@2341
     1
(*  Title:      Pure/ML-Systems/polyml.ML
wenzelm@2341
     2
wenzelm@31312
     3
Compatibility wrapper for Poly/ML 5.2 and 5.2.1.
wenzelm@2341
     4
*)
wenzelm@2341
     5
wenzelm@28152
     6
open Thread;
wenzelm@30672
     7
wenzelm@30672
     8
structure ML_Name_Space =
wenzelm@30672
     9
struct
wenzelm@30672
    10
  open PolyML.NameSpace;
wenzelm@30672
    11
  type T = PolyML.NameSpace.nameSpace;
wenzelm@30672
    12
  val global = PolyML.globalNameSpace;
wenzelm@30672
    13
end;
wenzelm@30672
    14
wenzelm@26215
    15
use "ML-Systems/polyml_common.ML";
wenzelm@28676
    16
wenzelm@28796
    17
if ml_system = "polyml-5.2"
wenzelm@28796
    18
then use "ML-Systems/thread_dummy.ML"
wenzelm@28676
    19
else use "ML-Systems/multithreading_polyml.ML";
wenzelm@26215
    20
wenzelm@26215
    21
val pointer_eq = PolyML.pointerEq;
wenzelm@23921
    22
wenzelm@29638
    23
fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
wenzelm@29638
    24
wenzelm@31312
    25
use "ML-Systems/compiler_polyml-5.2.ML";
wenzelm@30627
    26
use "ML-Systems/polyml_pp.ML";
wenzelm@30627
    27