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

lazutils: dbgmemrange: pointer to avoid typecasts

Browse Source 
git-svn-id: trunk@35484 -
This commit is contained in:
mattias 2012-02-19 14:40:45 +00:00
parent ac94bd963c
commit 0dd3daffcc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazlogger.pas
View File

@ -121,7 +121,7 @@ function DbgSName(const p: TObject): string; overload;
function DbgSName(const p: TClass): string; overload; function DbgSName(const p: TClass): string; overload;
function DbgStr(const StringWithSpecialChars: string): string; overload; function DbgStr(const StringWithSpecialChars: string): string; overload;
function DbgWideStr(const StringWithSpecialChars: widestring): string; overload; function DbgWideStr(const StringWithSpecialChars: widestring): string; overload;
function dbgMemRange(P: PByte; Count: integer; Width: integer = 0): string; overload; function dbgMemRange(P: Pointer; Count: integer; Width: integer = 0): string; overload;
function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload; function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload;
function dbgObjMem(AnObject: TObject): string; overload; function dbgObjMem(AnObject: TObject): string; overload;
function dbghex(i: Int64): string; overload; function dbghex(i: Int64): string; overload;
@ -726,7 +726,7 @@ begin
end; end;
end; end;
function dbgMemRange(P: PByte; Count: integer; Width: integer): string; function dbgMemRange(P: Pointer; Count: integer; Width: integer): string;
const const
HexChars: array[0..15] of char = '0123456789ABCDEF'; HexChars: array[0..15] of char = '0123456789ABCDEF';
LineEnd: shortstring = LineEnding; LineEnd: shortstring = LineEnding;