paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

POOLED_Release_NON and Release_NON are enabled on win32/64 due to non-existence of timeout for semaphore

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@566 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2008-09-21 16:56:14 +00:00
parent 9550266e37
commit 650f9e9b34
4 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/tests/test_suite/test_utilities.pas
View File

@ -82,7 +82,9 @@ type
procedure Create_ZEROS();
procedure Create_NON_ZERO_MIN();
procedure Release();
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure Release_NON();
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure Discard();
end;
@ -93,7 +95,9 @@ type
procedure NOT_Pooled();
procedure POOLED_Create_ZEROS();
procedure POOLED_Release();
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure POOLED_Release_NON();
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure POOLED_Discard();
end;
@ -205,6 +209,7 @@ begin
end;
end;
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TIntfPool.Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
var
@ -242,6 +247,7 @@ begin
obj.Release(elt);
end;
end;
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TIntfPool.Discard();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
@ -358,6 +364,7 @@ begin
end;
end;
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
var
@ -394,6 +401,7 @@ begin
obj.ReleaseInstance(elt);
end;
end;
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TSimpleItemFactoryEx.POOLED_Discard();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);

4
wst/trunk/tests/test_suite/wst_test_suite.lpr
View File

@ -4,9 +4,9 @@ program wst_test_suite;
{$DEFINE UseCThreads}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
{$IFDEF UNIX}
cthreads,
{$ENDIF}{$ENDIF}
{$ENDIF}
custapp, classes, sysutils, fpcunit, testreport, testregistry,
TestFormatter_unit, testmetadata_unit,

4
wst/trunk/tests/test_suite/wst_test_suite_gui.lpr
View File

@ -3,9 +3,9 @@ program wst_test_suite_gui;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
{$IFDEF UNIX}
cthreads,
{$ENDIF}{$ENDIF}
{$ENDIF}
Interfaces, Forms, GuiTestRunner,
TestFormatter_unit, testmetadata_unit,
server_service_soap, soap_formatter, base_binary_formatter,

5
wst/trunk/wst_global.inc
View File

@ -2,6 +2,7 @@
{$UNDEF TRemotableTypeInitializer_Initialize}
{$UNDEF WST_TKPROCVAR}
{$UNDEF WST_UNICODESTRING}
{$UNDEF WST_SEMAPHORE_TIMEOUT}
{$WARNINGS OFF}
@ -25,6 +26,9 @@
{$IF Defined(FPC_211)}
{$DEFINE HAS_FORMAT_SETTINGS}
{$IFEND}
{$IFDEF WINDOWS}
{$DEFINE WST_SEMAPHORE_TIMEOUT}
{$ENDIF WINDOWS}
{$ENDIF}
{$IFNDEF FPC}
@ -38,6 +42,7 @@
{$IFDEF VER150}
{$DEFINE HAS_FORMAT_SETTINGS}
{$ENDIF}
{$DEFINE WST_SEMAPHORE_TIMEOUT}
{$ENDIF}
{$IFDEF CPU86}