paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix cache when cross debugging a 64bit target from a 32bit IDE. (affects FpLldb)

Browse Source 
git-svn-id: trunk@60085 -
This commit is contained in:
martin 2019-01-14 23:05:10 +00:00
parent ea6abfeb17
commit 9a9d87e661
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/debuggerintf/dbgintfbasetypes.pas
View File

@ -16,6 +16,7 @@ type
datatype pointing to data on the target
*)
TDBGPtr = type QWord;
PDBGPtr = ^TDBGPtr;
TDBGPtrArray = Array of TDBGPtr;
(* TDbgSymbolKind

10
components/fpdebug/fpdmemorytools.pas
View File

@ -682,12 +682,12 @@ begin
else Result := 0;
end;
function CompareKey(Item1, Item2: Pointer): Integer;
function CompareKey(Key, Item2: Pointer): Integer;
begin
If {%H-}TDBGPtr(Item1) > TFpDbgMemCacheSimple(Item2).CacheAddress
If PDBGPtr(Key)^ > TFpDbgMemCacheSimple(Item2).CacheAddress
then Result := 1
else
If {%H-}TDBGPtr(Item1) < TFpDbgMemCacheSimple(Item2).CacheAddress
If PDBGPtr(Key)^ < TFpDbgMemCacheSimple(Item2).CacheAddress
then Result := -1
else Result := 0;
end;
@ -710,7 +710,7 @@ var
Node: TAVLTreeNode;
begin
Result := False;
Node := FCaches.FindNearestKey({%H-}Pointer(AnAddress), @CompareKey);
Node := FCaches.FindNearestKey(@AnAddress, @CompareKey);
if Node = nil then
exit;
@ -729,7 +729,7 @@ function TFpDbgMemCacheManagerSimple.ReadMemory(AnAddress: TDbgPtr;
var
Node: TAVLTreeNode;
begin
Node := FCaches.FindNearestKey({%H-}Pointer(AnAddress), @CompareKey);
Node := FCaches.FindNearestKey(@AnAddress, @CompareKey);
if Node = nil then
exit(inherited ReadMemory(AnAddress, ASize, ADest));