src/Pure/ML-Systems/polyml.ML
author wenzelm
Thu Oct 01 23:27:05 2009 +0200 (2009-10-01)
changeset 32843 c8f5a7c8353f
parent 32776 1504f9c2d060
child 33543 a4dbf0f92d96
permissions -rw-r--r--
moved cache_conv to src/Pure/conv.ML, use Thm.cterm_cache;
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@32776
     6
use "ML-Systems/unsynchronized.ML";
wenzelm@32776
     7
wenzelm@28152
     8
open Thread;
wenzelm@30672
     9
wenzelm@30672
    10
structure ML_Name_Space =
wenzelm@30672
    11
struct
wenzelm@30672
    12
  open PolyML.NameSpace;
wenzelm@30672
    13
  type T = PolyML.NameSpace.nameSpace;
wenzelm@30672
    14
  val global = PolyML.globalNameSpace;
wenzelm@30672
    15
end;
wenzelm@30672
    16
wenzelm@31427
    17
fun reraise exn = raise exn;
wenzelm@31427
    18
wenzelm@26215
    19
use "ML-Systems/polyml_common.ML";
wenzelm@28676
    20
wenzelm@28796
    21
if ml_system = "polyml-5.2"
wenzelm@32294
    22
then (use "ML-Systems/thread_dummy.ML"; use "ML-Systems/multithreading.ML")
wenzelm@28676
    23
else use "ML-Systems/multithreading_polyml.ML";
wenzelm@26215
    24
wenzelm@26215
    25
val pointer_eq = PolyML.pointerEq;
wenzelm@23921
    26
wenzelm@29638
    27
fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
wenzelm@29638
    28
wenzelm@31312
    29
use "ML-Systems/compiler_polyml-5.2.ML";
wenzelm@31313
    30
use "ML-Systems/pp_polyml.ML";
wenzelm@30627
    31