paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 64bit fix

Browse Source
This commit is contained in:
peter 2004-11-08 21:16:51 +00:00
parent 4a8f1e918d
commit 7be60f95d6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/inc/avl_tree.pp
View File

@ -875,7 +875,7 @@ var RealCount: integer;
Result:=-2; exit; Result:=-2; exit;
end; end;
if fOnCompare(ANode.Left.Data,ANode.Data)>0 then begin 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; Result:=-3; exit;
end; end;
Result:=CheckNode(ANode.Left); Result:=CheckNode(ANode.Left);
@ -887,7 +887,7 @@ var RealCount: integer;
Result:=-4; exit; Result:=-4; exit;
end; end;
if fOnCompare(ANode.Data,ANode.Right.Data)>0 then begin 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; Result:=-5; exit;
end; end;
Result:=CheckNode(ANode.Right); Result:=CheckNode(ANode.Right);
@ -962,9 +962,9 @@ 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+HexStr(PtrInt(ANode.Data),8)+' '
+' Self='+HexStr(Cardinal(ANode),8) +' Self='+HexStr(PtrInt(ANode),8)
+' Parent='+HexStr(Cardinal(ANode.Parent),8) +' Parent='+HexStr(PtrInt(ANode.Parent),8)
+' Balance='+IntToStr(ANode.Balance) +' Balance='+IntToStr(ANode.Balance)
+#13#10; +#13#10;
WriteStr(b); WriteStr(b);