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