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

* x86_64 fix: removed pointer->cardinal cast

Browse Source 
git-svn-id: trunk@6393 -
This commit is contained in:
marc 2004-12-19 17:41:18 +00:00
parent 911977269b
commit 42eaa8b09a
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/avglvltree.pas
View File

@ -973,11 +973,8 @@ var h: string;
begin begin
if ANode=nil then exit; if ANode=nil then exit;
WriteTreeNode(ANode.Right,Prefix+' '); WriteTreeNode(ANode.Right,Prefix+' ');
b:=Prefix+HexStr(Cardinal(ANode.Data),8)+' ' b:=Prefix+Format('%p Self=%p Parent=%p Balance=%d#13#10', [
+' Self='+HexStr(Cardinal(ANode),8) ANode.Data, Pointer(ANode),Pointer(ANode.Parent), ANode.Balance]);
+' Parent='+HexStr(Cardinal(ANode.Parent),8)
+' Balance='+IntToStr(ANode.Balance)
+#13#10;
WriteStr(b); WriteStr(b);
WriteTreeNode(ANode.Left,Prefix+' '); WriteTreeNode(ANode.Left,Prefix+' ');
end; end;