equal
deleted
inserted
replaced
35 |
35 |
36 fun self_critical () = false; |
36 fun self_critical () = false; |
37 fun NAMED_CRITICAL _ e = e (); |
37 fun NAMED_CRITICAL _ e = e (); |
38 fun CRITICAL e = e (); |
38 fun CRITICAL e = e (); |
39 |
39 |
40 fun schedule _ _ _ = raise Fail "Multithreading support unavailable"; |
40 fun schedule _ _ _ = raise Fail "No multithreading support"; |
41 |
41 |
42 end; |
42 end; |
43 |
43 |
44 val NAMED_CRITICAL = Multithreading.NAMED_CRITICAL; |
44 val NAMED_CRITICAL = Multithreading.NAMED_CRITICAL; |
45 val CRITICAL = Multithreading.CRITICAL; |
45 val CRITICAL = Multithreading.CRITICAL; |