paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use AllFilesMask fro RTL or define it

Browse Source 
git-svn-id: trunk@8550 -
This commit is contained in:
pierre 2007-09-18 14:33:58 +00:00
parent 5a0ec1105d
commit d7a1ec8e49
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/cfileutl.pas
View File

@ -23,9 +23,6 @@ unit cfileutl;
{$i fpcdefs.inc}
{$ifndef go32v2}
{$define usedircache}
{$endif not go32v2}
interface
@ -131,6 +128,29 @@ implementation
Comphook,
Globals;
{$undef AllFilesMaskIsInRTL}
{$if (FPC_VERSION > 2)}
{$define AllFilesMaskIsInRTL}
{$endif FPC_VERSION}
{$if (FPC_VERSION = 2) and (FPC_RELEASE > 2)}
{$define AllFilesMaskIsInRTL}
{$endif}
{$if (FPC_VERSION = 2) and (FPC_RELEASE = 2) and (FPC_PATCH > 0)}
{$define AllFilesMaskIsInRTL}
{$endif}
{$ifndef AllFilesMaskIsInRTL}
{$if defined(go32v2) or defined(watcom)}
const
AllFilesMask = '*.*';
{$else}
const
AllFilesMask = '*';
{$endif not (go32v2 or watcom)}
{$endif not AllFilesMaskIsInRTL}
var
DirCache : TDirectoryCache;
@ -192,7 +212,7 @@ implementation
begin
FreeDirectoryEntries;
DirectoryEntries.Clear;
if findfirst(IncludeTrailingPathDelimiter(Name)+'*',faAnyFile or faDirectory,dir) = 0 then
if findfirst(IncludeTrailingPathDelimiter(Name)+AllFilesMask,faAnyFile or faDirectory,dir) = 0 then
begin
repeat
if ((dir.attr and faDirectory)<>faDirectory) or
@ -956,7 +976,7 @@ implementation
suffix:=Copy(currpath,staridx+1,length(currpath));
subdirfound:=false;
{$ifdef usedircache}
if DirCache.FindFirst(Prefix+'*',dir) then
if DirCache.FindFirst(Prefix+AllFilesMask,dir) then
begin
repeat
if (dir.attr and faDirectory)<>0 then
@ -974,7 +994,7 @@ implementation
end;
DirCache.FindClose(dir);
{$else usedircache}
if findfirst(prefix+'*',faDirectory,dir) = 0 then
if findfirst(prefix+AllFilesMask,faDirectory,dir) = 0 then
begin
repeat
if (dir.name<>'.') and