src/Pure/ML-Systems/multithreading_dummy.ML
changeset 24059 89a5382406a1
parent 23990 72a9b436af56
child 24118 464f260e5a20
equal deleted inserted replaced
24058:81aafd465662 24059:89a5382406a1
    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;