src/Pure/ML-Systems/polyml-5.5.2.ML
author wenzelm
Sat, 23 May 2015 17:19:37 +0200
changeset 60299 5ae2a2e74c93
parent 54726 5285805af26c
permissions -rw-r--r--
clarified NEWS: document_files are officially required since Isabelle2014, but the absence was tolerated as legacy feature;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
54726
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML-Systems/polyml-5.5.2.ML
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     3
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     4
Compatibility wrapper for Poly/ML 5.5.2.
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     5
*)
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     6
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     7
structure Thread =
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     8
struct
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
     9
  open Thread;
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    10
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    11
  structure Thread =
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    12
  struct
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    13
    open Thread;
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    14
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    15
    fun numProcessors () =
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    16
      (case Thread.numPhysicalProcessors () of
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    17
        SOME n => n
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    18
      | NONE => Thread.numProcessors ());
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    19
  end;
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    20
end;
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    21
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    22
use "ML-Systems/polyml.ML";
5285805af26c added missing file (cf. 124432e77ecf);
wenzelm
parents:
diff changeset
    23