removed unused sync_interrupts;
authorwenzelm
Mon, 08 Sep 2008 20:33:29 +0200
changeset 28169 356fc8734741
parent 28168 ba410235ff04
child 28170 a18cf8a0e656
removed unused sync_interrupts;
src/Pure/ML-Systems/multithreading.ML
src/Pure/ML-Systems/multithreading_polyml.ML
--- a/src/Pure/ML-Systems/multithreading.ML	Mon Sep 08 20:33:27 2008 +0200
+++ b/src/Pure/ML-Systems/multithreading.ML	Mon Sep 08 20:33:29 2008 +0200
@@ -20,7 +20,6 @@
   val max_threads: int ref
   val max_threads_value: unit -> int
   val no_interrupts: Thread.threadAttribute list
-  val sync_interrupts: Thread.threadAttribute list
   val regular_interrupts: Thread.threadAttribute list
   val with_attributes: Thread.threadAttribute list ->
     (Thread.threadAttribute list -> 'a -> 'b) -> 'a -> 'b
@@ -41,7 +40,6 @@
 fun max_threads_value () = Int.max (! max_threads, 1);
 
 val no_interrupts = [];
-val sync_interrupts = [];
 val regular_interrupts = [];
 
 fun with_attributes _ f x = f [] x;
--- a/src/Pure/ML-Systems/multithreading_polyml.ML	Mon Sep 08 20:33:27 2008 +0200
+++ b/src/Pure/ML-Systems/multithreading_polyml.ML	Mon Sep 08 20:33:29 2008 +0200
@@ -65,9 +65,6 @@
 val no_interrupts =
   [Thread.EnableBroadcastInterrupt false, Thread.InterruptState Thread.InterruptDefer];
 
-val sync_interrupts =
-  [Thread.EnableBroadcastInterrupt false, Thread.InterruptState Thread.InterruptSynch];
-
 val regular_interrupts =
   [Thread.EnableBroadcastInterrupt true, Thread.InterruptState Thread.InterruptAsynchOnce];