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

[Archon]

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

[Archon]

Окей. Тогда рассмотрим пример. Мое приложение состоит из нескольких глобальных объектов. Не знаю, насколько это оправдано, но в свое время мне это показалось неплохим решением. Объекты примерно такие:

unit u_test;
{$mode objfpc}

interface

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

var
	Test: TTest = nil;

implementation

constructor TTest.Create;
begin
	FData := 0;
end;

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

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

procedure TTest.IncData(Value: Integer);
begin
	Inc(FData, Value);
end;

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

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

Так как с объектами могут взаимодействовать (вызывать их методы) сразу несколько потоков, их следует сделать потокобезопасными. Предлагаю это сделать . Если такая схема приложения кажется тебе неподходящей, можно ее пересмотреть.