Programowanie współbieżne. Systemy czasu rzeczywistego - Helion

Rozdzia 8. Problemy programowania wspóbienego 239
Widelce(Nr).wait;
Widelce((Nr mod 5) + 1).wait;
Filozof_je;
Widelce((Nr mod 5) + 1).signal;
Widelce(nr).signal;
end loop;
end FilozofN;
W tym rozwizaniu s spenione wasnoci ywotnoci lokalnej i globalnej. Rozwamy
najbardziej niebezpieczny stan, w którym kady z procesów w tym samym czasie chce
podnie swój pierwszy widelec: FilozofN1 podnosi prawy widelec o numerze 1, FilozofP2
podnosi lewy widelec o numerze 3, FilozofN3 nie moe podnie prawego widelca
o numerze 3; FilozofP4 podnosi swój lewy widelec o numerze 5, FilozofN5 nie moe
podnie zajtego lewego widelca. Widelce o numerach 2 i 4 s wolne i FilozofN1 oraz
FilozofP4 mog podnie widelce i rozpocz jedzenie. atwo pokaza, e jakikolwiek
przeplot operacji podnoszenia widelców w powyszym programie pozostawia dwa
wolne widelce, co gwarantuje zarówno brak blokady, jak i zagodzenia procesów.
Najczciej prezentowane w literaturze symetryczne (ze wzgldu na jednakow struktur
procesów filozofa) rozwizanie, gdzie kady proces filozofa podnosi prawy, a nastpnie
lewy widelec, polega na ograniczeniu do czterech liczby filozofów jednoczenie wspózawodniczcych
o dostp do widelców. To ograniczenie uzyskano poprzez definicj
semafora ogólnego Jadalnia o wartoci pocztkowej równej 4. Nawet w szczególnym
przypadku jednoczesnego wspózawodnictwa czterech filozofów jeden z nich bdzie
mia moliwo podniesienia dwóch widelców i wykonania sekcji krytycznej „jedzenie”.
procedure Filozofow5 is
task type Filozof(Nr: Integer := 0);
type wskF is access Filozof;
Filozofowie: array(1..5) of wskF;
Widelce: array(1..5) of SemBin;
Jadalnia: Sem; -- warto pocztkowa semafora 4
task body Filozof is
begin
loop
Filozof_myli;
Jadalnia.wait;
Widelce(Nr).wait;
Widelce((Nr mod 5) + 1).wait;
Filozof_je;
Widelce(nr).signal;
Widelce((Nr mod 5) + 1).signal;
Jadalnia.signal;
end loop;
end Filozof;
begin
Jadalnia.init(4);
for i in 1..5 loop Filozofowie(i) := new Filozof(i);
end loop;
end Filozofow5;