From 0dd3daffcc8e9bb69815e4c7e128fcb50c4a1f59 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 19 Feb 2012 14:40:45 +0000 Subject: [PATCH] lazutils: dbgmemrange: pointer to avoid typecasts git-svn-id: trunk@35484 - --- components/lazutils/lazlogger.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/lazutils/lazlogger.pas b/components/lazutils/lazlogger.pas index a0b338a2b8..ed47143f4d 100644 --- a/components/lazutils/lazlogger.pas +++ b/components/lazutils/lazlogger.pas @@ -121,7 +121,7 @@ function DbgSName(const p: TObject): string; overload; function DbgSName(const p: TClass): string; overload; function DbgStr(const StringWithSpecialChars: string): 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 dbgObjMem(AnObject: TObject): string; overload; function dbghex(i: Int64): string; overload; @@ -726,7 +726,7 @@ begin end; end; -function dbgMemRange(P: PByte; Count: integer; Width: integer): string; +function dbgMemRange(P: Pointer; Count: integer; Width: integer): string; const HexChars: array[0..15] of char = '0123456789ABCDEF'; LineEnd: shortstring = LineEnding;