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

[Archon]

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

[volvo]

Может менеджер процессов Windows шалит?

Угу, тут прямо шалит, а если сделать:

unit u_test;
{$mode objfpc}

interface

uses
	windows, sysutils;

type
	TLog = class
	private
		FLogFile: Text;
		FLock: TMultiReadExclusiveWriteSynchronizer;
		procedure WriteString(const Str: string);
	public
		constructor Create(const FileName: string);
		destructor Destroy; override;
		procedure Write(const SenderName, Str: string);
	end;

var
	Log: TLog;

implementation

const
	TimeFormat = 'yyyy-mm-dd hh:mm:ss.zzz';

// TLog -----

// private

procedure TLog.WriteString(const Str: string);
begin
	FLock.BeginWrite;
	try
		{$I-}
		WriteLn(FLogFile, Str);
		Flush(FLogFile);
		{$I+}
		if IOResult <> 0 then begin
			MessageBox(0, 'Can''t write to log file. Program halted.', 'File error', MB_OK);
			Halt(0);
		end;
	finally
		FLock.EndWrite;
	end;
end;

// public

constructor TLog.Create(const FileName: string);
begin
	FLock := TMultiReadExclusiveWriteSynchronizer.Create;
	{$I-}
	Assign(FLogFile, FileName);
	if FileExists(FileName) then Append(FLogFile) else Rewrite(FLogFile);
	{$I+}
	if (IOResult = 0) and (FileName <> '') then begin
		WriteString('');
		WriteString('*** Start session ***');
	end else begin
		MessageBox(0, 'Can''t create or open log file. Program halted.', 'File error', MB_OK);
		Halt(0);
	end;
end;

destructor TLog.Destroy;
begin
	WriteString('*** End session ***');
	Close(FLogFile);
	FLock.Free;
end;

procedure TLog.Write(const SenderName, Str: string);
begin
	WriteString(FormatDateTime(TimeFormat, Now) + ' Note: "' + SenderName + '" - ' + Str);
end;

initialization
	Log := TLog.Create('threads.txt');
finalization
   Log.Destroy;
end.

(код тестирующего приложения не меняется), то шалить моментально перестает?