paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Suppress some hints when compiling LazUtils. Issue #27961.

Browse Source 
git-svn-id: trunk@51053 -
This commit is contained in:
juha 2015-12-27 15:04:41 +00:00
parent bcca492fd6
commit 800d968b77
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfilecache.pas
View File

@ -72,7 +72,7 @@ type
function FileIsWritableCached(const AFilename: string): boolean;
function FileIsTextCached(const AFilename: string): boolean;
function FileAgeCached(const AFileName: string): Longint;
function GetPhysicalFilenameCached(const AFileName: string; EmptyOnError: boolean): string;
function GetPhysicalFilenameCached(const AFileName: string; {%H-}EmptyOnError: boolean): string;
function FindFile(const Filename: string;
CreateIfNotExists: boolean): TFileStateCacheItem;
function Check(const Filename: string; AFlag: TFileStateCacheItemFlag;

2
components/lazutils/lazfileutils.pas
View File

@ -106,7 +106,7 @@ Function FileCreateUtf8(Const FileName : String; ShareMode : Integer; Rights : C
function FileSizeUtf8(const Filename: string): int64;
function GetFileDescription(const AFilename: string): string;
function ReadAllLinks(const Filename: string;
ExceptionOnError: boolean): string; // if a link is broken returns ''
{%H-}ExceptionOnError: boolean): string; // if a link is broken returns ''
function TryReadAllLinks(const Filename: string): string; // if a link is broken returns Filename
function GetShellLinkTarget(const FileName: string): string;

4
components/lazutils/lazlistclasses.pas
View File

@ -174,7 +174,7 @@ type
function GetCount: Integer; inline;
protected
function GrowCapacity(ARequired: Integer): Integer;
function ShrinkCapacity(ARequired: Integer): Integer;
function ShrinkCapacity({%H-}ARequired: Integer): Integer;
procedure SetCapacityEx(AValue, AnInsertPos, AnInsertSize: Integer);
procedure InsertRowsEx(AIndex, ACount: Integer; AGrowProc: TLazStorageMemGrowProc);
@ -232,7 +232,7 @@ type
generic TLazFixedRoundBufferListMemBase<TPItemT, TSizeT> = object(specialize TLazRoundBufferListMemBase<TPItemT, TSizeT>)
protected
function GrowCapacity(ARequired: Integer): Integer;
function ShrinkCapacity(ARequired: Integer): Integer;
function ShrinkCapacity({%H-}ARequired: Integer): Integer;
property Mem: TLazListClassesInternalMem read FMem;
public
procedure Create(AItemSize: TSizeT; ACapacity: Integer);