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;
     1 (*  Title:      Pure/ML-Systems/polyml.ML
     2 
     3 Compatibility wrapper for Poly/ML 5.2 and 5.2.1.
     4 *)
     5 
     6 use "ML-Systems/unsynchronized.ML";
     7 
     8 open Thread;
     9 
    10 structure ML_Name_Space =
    11 struct
    12   open PolyML.NameSpace;
    13   type T = PolyML.NameSpace.nameSpace;
    14   val global = PolyML.globalNameSpace;
    15 end;
    16 
    17 fun reraise exn = raise exn;
    18 
    19 use "ML-Systems/polyml_common.ML";
    20 
    21 if ml_system = "polyml-5.2"
    22 then (use "ML-Systems/thread_dummy.ML"; use "ML-Systems/multithreading.ML")
    23 else use "ML-Systems/multithreading_polyml.ML";
    24 
    25 val pointer_eq = PolyML.pointerEq;
    26 
    27 fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
    28 
    29 use "ML-Systems/compiler_polyml-5.2.ML";
    30 use "ML-Systems/pp_polyml.ML";
    31