src/Pure/ML-Systems/no_multithreading.ML
author wenzelm
Tue, 24 Jul 2007 19:44:33 +0200
changeset 23962 e0358fac0541
parent 23946 4fbb1ff12337
permissions -rw-r--r--
Runtime exceptions as values (from library.ML);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML-Systems/no_multithreading.ML
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     3
    Author:     Makarius
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     4
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     5
Compatibility file for ML systems without multithreading.
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     6
*)
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
     7
23946
4fbb1ff12337 added multithreading, self_critical
wenzelm
parents: 23921
diff changeset
     8
(*default number of worker threads*)
4fbb1ff12337 added multithreading, self_critical
wenzelm
parents: 23921
diff changeset
     9
val multithreading = ref (NONE: int option);
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
    10
23946
4fbb1ff12337 added multithreading, self_critical
wenzelm
parents: 23921
diff changeset
    11
(*critical section*)
4fbb1ff12337 added multithreading, self_critical
wenzelm
parents: 23921
diff changeset
    12
fun self_critical () = false;
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents:
diff changeset
    13
fun CRITICAL e = e ();