Поэтому для повышения надёжности вместо семафоров лучше взять что-нибудь помощнее.

Dron написал(а) ...
Почему же в виндузе до сих пор применяются CritycalSection?

Dron написал(а) ...
как говорится - нефиг ибо нафиг.

Dron написал(а) ...
Сказал тоже мне...
Это общие фразы...
Ты конкретные названия говори, чтобы интересующиеся люди (Я к примеру) могли порыть и понять что ты хочешь сказать.

MODULE BoundedBuffers;
TYPE
Item* = OBJECT; (* произвольный объект *)
Buffer* = OBJECT
VAR h, n: INTEGER; B: ARRAY * OF Item;

PROCEDURE Get*(): Item;
VAR x: Item;
BEGIN {EXCLUSIVE}
AWAIT(n # 0); (* буфер не пустой *)
x := B[h]; h := (h+1) MOD LEN(B); DEC(n);
RETURN x
END Get;

PROCEDURE Put*(x: Item);
BEGIN {EXCLUSIVE}
AWAIT(n # LEN(B)); (* буфер не заполнен *)
B[(h+n) MOD LEN(B)] := x; INC(n)
END Put;

PROCEDURE &Init(max: INTEGER);
BEGIN (* initializer *)
NEW(B, max); h := 0; n := 0
END Init;
END Buffer;
END BoundedBuffers.