paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 17:16:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less hints

Browse Source
This commit is contained in:
mattias 2023-07-20 14:52:13 +02:00
parent 64d8a0b0bc
commit 2aaefc8651
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/laz2_xmlcfg.pas
View File

@ -794,7 +794,7 @@ begin
tkQWord: Result := IntToStr(QWord(AValue));
tkSet: Result := SetToString(APTypeInfo, @AValue, True);
tkChar: Result := Char(AValue);
tkWChar: Result := WideChar(AValue);
tkWChar: Result := {%H-}WideChar(AValue);
end;
end;

2
components/lazutils/laz2_xpath.pas
View File

@ -698,7 +698,7 @@ begin
end;
end;
procedure AddNodes(var Dst: TXPathNodeArray; const Src: array of TXPathExprNode;
procedure AddNodes(var Dst: TXPathNodeArray; const {%H-}Src: array of TXPathExprNode;
var Count: Integer);
var
L: Integer;

2
components/lazutils/lazlogger.pas
View File

@ -164,7 +164,7 @@ type
procedure DoDbgOut(s: string; AGroup: PLazLoggerLogGroup = nil); override;
procedure DoDebugLn(s: string; AGroup: PLazLoggerLogGroup = nil); override;
procedure DoDebuglnStack(const s: string; AGroup: PLazLoggerLogGroup = nil); override;
procedure DoDebuglnStack(const s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); override;
property FileHandle: TLazLoggerFileHandle read GetFileHandle write SetFileHandle;
public

6
components/lazutils/lazloggerbase.pas
View File

@ -133,9 +133,9 @@ type
procedure IndentChanged; virtual;
function GetBlockHandler({%H-}AIndex: Integer): TLazLoggerBlockHandler; virtual;
procedure DoDbgOut({%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDebugLn({%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDebuglnStack(const {%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDbgOut({%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDebugLn({%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDebuglnStack(const {%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
function ArgsToString(Args: array of const): string;
property IsInitialized: Boolean read FIsInitialized;

2
components/lazutils/lazloggerdummy.pas
View File

@ -194,7 +194,7 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DumpExceptionBackTrace;
procedure DumpExceptionBackTrace(LogEnabled: TLazLoggerLogEnabled);
procedure DumpExceptionBackTrace({%H-}LogEnabled: TLazLoggerLogEnabled);
end;