Data update

Task/Mutex/Ada/mutex-1.ada

@@ -1,6 +0,0 @@
-protected type Mutex is
-   entry Seize;
-   procedure Release;
-private
-   Owned : Boolean := False;
-end Mutex;

Task/Mutex/Ada/mutex-2.ada

@@ -1,10 +0,0 @@
-protected body Mutex is
-   entry Seize when not Owned is
-   begin
-      Owned := True;
-   end Seize;
-   procedure Release is
-   begin
-      Owned := False;
-   end Release;
-end Mutex;

Task/Mutex/Ada/mutex-3.ada

@@ -1,15 +0,0 @@
-declare
-   M : Mutex;
-begin
-   M.Seize;    -- Wait infinitely for the mutex to be free
-   ...         -- Critical code
-   M.Release;  -- Release the mutex
-   ...
-   select
-      M.Seize; -- Wait no longer than 0.5s
-   or delay 0.5;
-      raise Timed_Out;
-   end select;
-   ...         -- Critical code
-   M.Release;  -- Release the mutex
-end;