src/Pure/ML-Systems/thread_physical_processors.ML
author wenzelm
Wed, 11 Dec 2013 18:02:22 +0100
changeset 54717 42c209a6c225
permissions -rw-r--r--
support for polml-5.5.2; support Thread.numPhysicalProcessors of polyml-5.5.2 (according to SVN 1890); clarified max_threads: store plain value internally, reproduce result only on startup, and thus avoid potential system overhead;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
54717
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML-Systems/thread_physical_processors.ML
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     3
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     4
Emulation of structure Thread in Poly/ML 5.5.2 (SVN 1890).
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     5
*)
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     6
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     7
structure Thread =
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     8
struct
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
     9
  open Thread;
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
    10
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
    11
  fun numPhysicalProcessors () : int option = NONE;
42c209a6c225 support for polml-5.5.2;
wenzelm
parents:
diff changeset
    12
end;