Потоки... Потоки? Потоки!, FPC Опции

[Archon]

Сел переписывать движок Doomed Game под потоки и... понял, что мои знания о потокобезопасности оставляют желать лучшего. Может быть кто-нибудь (volvo?) проведет несколько лекций на эту тему? Думаю, это не только меня может заинтересовать. Или может я просто задам свои вопросы?

[Archon]

, если мьютекс уже установлен из другого потока, то будет облом, второй раз тебе установить его не дадут, и операция не произойдет Ты этого добивался, или тебе надо ждать, пока один закончит, и другой проделает эту операцию? Тогда CriticalSections в помощь...

Кстати да, CriticalSection тут будет проще .

unit u_test;
{$mode objfpc}

interface

type
	TTest = class
	private
		FData: Integer;
		CS: TRTLCriticalSection;
		function GetData: Integer;
		procedure SetData(Value: Integer);
	public
		constructor Create;
		destructor Destroy; override;
		procedure OutputData;
		procedure IncData(Value: Integer);
		procedure RandomData;
		property Data: Integer read GetData write SetData;
	end;

var
	Test: TTest = nil;

implementation

// private

function TTest.GetData: Integer;
begin
	try
		EnterCriticalSection(CS);
		Result := FData;
	finally
		LeaveCriticalSection(CS);
	end;
end;

procedure TTest.SetData(Value: Integer);
begin
	try
		EnterCriticalSection(CS);
		FData := Value;
	finally
		LeaveCriticalSection(CS);
	end;
end;

// public

constructor TTest.Create;
begin
	FData := 0;
	InitCriticalSection(CS);
end;

destructor TTest.Destroy;
begin
	DoneCriticalSection(CS);
	WriteLn('I''m dying!');
end;

procedure TTest.OutputData;
begin
	WriteLn('Data: ', Data);
end;

procedure TTest.IncData(Value: Integer);
begin
	Data := Data + Value;
end;

procedure TTest.RandomData;
var
	Temp: Integer;
begin
	Temp := Random(10);
	Data := Temp;
end;

initialization
	Test := TTest.Create;
finalization
	Test.Destroy;
end.

Проверяй .

Добавлено через 6 мин.
Почитал про Interlocked-функции. Я так понимаю, что чтение 32-битной переменной в любом случае атомарно?

PS Пока читал, узнал, что Int64 и QWord - оказывается не ordinal .