From e4487e628d625072830e5870f9ccd18f298d3b9f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 29 Aug 2007 06:30:38 +0000
Subject: [PATCH] * fixed overload choosing error on 64 bit
git-svn-id: trunk@8327 -
---
compiler/nbas.pas | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index 39abe9204d..7e80c208b7 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -869,7 +869,7 @@ implementation
procedure ttempcreatenode.printnodedata(var t:text);
begin
inherited printnodedata(t);
- writeln(t,printnodeindention,'size = ',size,', temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
+ writeln(t,printnodeindention,'size = ',size,', temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
end;
@@ -1004,7 +1004,7 @@ implementation
procedure ttemprefnode.printnodedata(var t:text);
begin
inherited printnodedata(t);
- writeln(t,printnodeindention,'temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
+ writeln(t,printnodeindention,'temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
end;
@@ -1118,7 +1118,7 @@ implementation
procedure ttempdeletenode.printnodedata(var t:text);
begin
inherited printnodedata(t);
- writeln(t,printnodeindention,'release_to_normal: ',release_to_normal,', temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
+ writeln(t,printnodeindention,'release_to_normal: ',release_to_normal,', temptypedef = "',tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
end;
begin