# HG changeset patch
# User wenzelm
# Date 1386861921 -3600
# Node ID 5285805af26ca61ec63718240823a29a665f0d88
# Parent  fc384e0a7f51240ed38b0cadb3ad0e66f585c041
added missing file (cf. 124432e77ecf);

diff -r fc384e0a7f51 -r 5285805af26c src/Pure/ML-Systems/polyml-5.5.2.ML
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/ML-Systems/polyml-5.5.2.ML	Thu Dec 12 16:25:21 2013 +0100
@@ -0,0 +1,23 @@
+(*  Title:      Pure/ML-Systems/polyml-5.5.2.ML
+    Author:     Makarius
+
+Compatibility wrapper for Poly/ML 5.5.2.
+*)
+
+structure Thread =
+struct
+  open Thread;
+
+  structure Thread =
+  struct
+    open Thread;
+
+    fun numProcessors () =
+      (case Thread.numPhysicalProcessors () of
+        SOME n => n
+      | NONE => Thread.numProcessors ());
+  end;
+end;
+
+use "ML-Systems/polyml.ML";
+