В описании модуля System (равно, как и других модулей Free Pascal) функции CreateThread и TerminateThread отсутствуют (может быть в других версиях Паскаля они и есть).
Функции возвращают только коды ошибок, которые, как следует из описания, "специфичны для системы". Номера разные, где их посмотреть, я не знаю.
Еще один непонятный момент. Я проверил работу критических секций с помощью приблизительно следующего кода:
| Код |
function f;
begin
EnterCriticalSection;
Sleep(3000);
writeln('.');
LeaveCriticalSection;
end;
begin
BeginThread(f);
BeginThread(f);
end.
|
В случае правильного функционирования, второй поток должен дождаться, пока первый поток не выйдет из критической секции, и в результате вторая точка должна появиться через три секунды после первой. Так оно и происходит.
Однако, когда я в реальной программе вывожу текст внутри критической секции и одновременно внутри основного потока, то тексты перемешиваются. Вот коротенький код для наглядного описания проблемы:
| Код |
function f;
begin
EnterCriticalSection;
writeln('long long long text');
LeaveCriticalSection;
end;
begin
BeginThread(f);
while true do begin
sleep(100);
write('.')
end
end.
|
Иногда точки выводятся внутри 'long long long text'. Как это согласуется с предыдущей проверкой я не понимаю. Ведь по идее основной поток не должен выполняться, пока функция f не выйдет из критической секции. |
)