7 lines
110 B
Ada
7 lines
110 B
Ada
|
protected type Mutex is
|
||
|
|
entry Seize;
|
||
|
|
procedure Release;
|
||
|
|
private
|
||
|
|
Owned : Boolean := False;
|
||
|
|
end Mutex;
|