paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 17:01:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed deadlock

Browse Source
This commit is contained in:
florian 2005-04-17 13:43:00 +00:00
parent 5372c3450d
commit bbee26af24
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw3814.pp
View File

@ -25,10 +25,10 @@ type
MyThread = class(TThread)
private
worker: Tester;
worker: Tester;
public
constructor Create(w: Tester);
procedure Execute; override;
constructor Create(w: Tester);
procedure Execute; override;
end;
constructor MyThread.Create(w: Tester);
@ -42,7 +42,8 @@ begin
WriteLn('Starting MyThread.Execute');
repeat
// sleep(500);
Synchronize(worker.count);
if worker.count<10 then
Synchronize(worker.count);
until Terminated;
WriteLn('Ending MyThread.Execute');
end;