* 64bit fix

fcl/inc/avl_tree.pp

@@ -875,7 +875,7 @@ var RealCount: integer;
         Result:=-2;  exit;
       end;
       if fOnCompare(ANode.Left.Data,ANode.Data)>0 then begin
-        //DebugLn('CCC-3 ',HexStr(Cardinal(ANode.Data),8),' ',HexStr(Cardinal(ANode.Left.Data),8));
+        //DebugLn('CCC-3 ',HexStr(PtrInt(ANode.Data),8),' ',HexStr(PtrInt(ANode.Left.Data),8));
         Result:=-3;  exit;
       end;
       Result:=CheckNode(ANode.Left);
@@ -887,7 +887,7 @@ var RealCount: integer;
         Result:=-4;  exit;
       end;
       if fOnCompare(ANode.Data,ANode.Right.Data)>0 then begin
-        //DebugLn('CCC-5 ',HexStr(Cardinal(ANode.Data),8),' ',HexStr(Cardinal(ANode.Right.Data),8));
+        //DebugLn('CCC-5 ',HexStr(PtrInt(ANode.Data),8),' ',HexStr(PtrInt(ANode.Right.Data),8));
         Result:=-5;  exit;
       end;
       Result:=CheckNode(ANode.Right);
@@ -962,9 +962,9 @@ var h: string;
   begin
     if ANode=nil then exit;
     WriteTreeNode(ANode.Right,Prefix+'  ');
-    b:=Prefix+HexStr(Cardinal(ANode.Data),8)+'    '
-        +'  Self='+HexStr(Cardinal(ANode),8)
-        +'  Parent='+HexStr(Cardinal(ANode.Parent),8)
+    b:=Prefix+HexStr(PtrInt(ANode.Data),8)+'    '
+        +'  Self='+HexStr(PtrInt(ANode),8)
+        +'  Parent='+HexStr(PtrInt(ANode.Parent),8)
         +'  Balance='+IntToStr(ANode.Balance)
         +#13#10;
     WriteStr(b);