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

* reduced complexity/running time of the test

Browse Source 
git-svn-id: trunk@21499 -
This commit is contained in:
Jonas Maebe 2012-06-06 18:17:36 +00:00
parent aa0f1bdf26
commit 769a4ecc6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/theapthread.pp
View File

@ -212,7 +212,7 @@ begin
pairs[i] := tpair.create; pairs[i] := tpair.create;
for i := low(pairs) to high(pairs) do for i := low(pairs) to high(pairs) do
pairs[i].resume; pairs[i].resume;
sleep(5000); sleep(1500);
done := true; done := true;
for i := low(pairs) to high(pairs) do for i := low(pairs) to high(pairs) do
begin begin