From 896b40d3302b760f39ae13fdf12cda9d38f7cc19 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 18 Apr 2005 12:51:31 +0000
Subject: [PATCH] fixed DbgS(const p: pointer)

git-svn-id: trunk@7082 -
---
 components/codetools/fileprocs.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index d0f8184014..c471fb8dfd 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -1098,7 +1098,7 @@ end;
 
 function DbgS(const p: pointer): string;
 begin
-  Result:=DbgS(p);
+  Result:=HexStr(PtrInt(p),sizeof(PtrInt));
 end;
 
 function DbgS(const e: extended): string;