paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 07:41:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix filtering

Browse Source 
git-svn-id: trunk@5766 -
This commit is contained in:
peter 2006-12-31 11:43:35 +00:00
parent 36d54c027d
commit 19b4964df3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/utils/testsuite/utests.pp
View File

@ -363,11 +363,11 @@ Var
begin
S:='';
If (FCPU<>'') and (FCPU<>'0') then
If (FCPU<>'') and (GetCPUName(FCPU)<>'All') then
S:=S+' AND (TU_CPU_FK='+FCPU+')';
If (FVersion<>'') and (FVersion<>'0') then
If (FVersion<>'') and (GetVersionName(FVersion)<>'All') then
S:=S+' AND (TU_VERSION_FK='+FVERSION+')';
if (FOS<>'') and (FOS<>'0') then
if (FOS<>'') and (GetOSName(FOS)<>'All') then
S:=S+' AND (TU_OS_FK='+FOS+')';
If (Round(FDate)<>0) then
S:=S+' AND (TU_DATE>="'+FormatDateTime('YYYY/MM/DD',FDate)+'")'