pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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_ZEROS();
procedure Create_NON_ZERO_MIN(); procedure Create_NON_ZERO_MIN();
procedure Release(); procedure Release();
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure Release_NON(); procedure Release_NON();
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure Discard(); procedure Discard();
end; end;
@ -93,7 +95,9 @@ type
procedure NOT_Pooled(); procedure NOT_Pooled();
procedure POOLED_Create_ZEROS(); procedure POOLED_Create_ZEROS();
procedure POOLED_Release(); procedure POOLED_Release();
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure POOLED_Release_NON(); procedure POOLED_Release_NON();
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure POOLED_Discard(); procedure POOLED_Discard();
end; end;
@ -205,6 +209,7 @@ begin
end; end;
end; end;
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TIntfPool.Release_NON(); procedure TTest_TIntfPool.Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
var var
@ -242,6 +247,7 @@ begin
obj.Release(elt); obj.Release(elt);
end; end;
end; end;
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TIntfPool.Discard(); procedure TTest_TIntfPool.Discard();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
@ -358,6 +364,7 @@ begin
end; end;
end; end;
{$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON(); procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
var var
@ -394,6 +401,7 @@ begin
obj.ReleaseInstance(elt); obj.ReleaseInstance(elt);
end; end;
end; end;
{$ENDIF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TSimpleItemFactoryEx.POOLED_Discard(); procedure TTest_TSimpleItemFactoryEx.POOLED_Discard();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); 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} {$DEFINE UseCThreads}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}
custapp, classes, sysutils, fpcunit, testreport, testregistry, custapp, classes, sysutils, fpcunit, testreport, testregistry,
TestFormatter_unit, testmetadata_unit, 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+} {$mode objfpc}{$H+}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}
Interfaces, Forms, GuiTestRunner, Interfaces, Forms, GuiTestRunner,
TestFormatter_unit, testmetadata_unit, TestFormatter_unit, testmetadata_unit,
server_service_soap, soap_formatter, base_binary_formatter, server_service_soap, soap_formatter, base_binary_formatter,

5
wst/trunk/wst_global.inc
View File

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