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

Debugger: Changed commit 27554 #73fda95380 ( Issue #0017537,#0016318,#0016132 ). Order could be wrong if addresses had highest bit set (type-cast to negative, would make bigger addr appear smaller)

Browse Source 
git-svn-id: trunk@27569 -
This commit is contained in:
martin 2010-10-04 11:20:59 +00:00
parent ba23bd2982
commit ea59a61dee
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/debugger.pp
View File

@ -42,8 +42,6 @@ uses
type type
// datatype pointing to data on the target // datatype pointing to data on the target
TDBGPtr = type QWord; TDBGPtr = type QWord;
// Signed datatype with size of TDBGPtr
TDBGPtrInt = type Int64;
TDBGLocationRec = record TDBGLocationRec = record
Address: TDBGPtr; Address: TDBGPtr;

8
debugger/gdbmidebugger.pp
View File

@ -1538,7 +1538,13 @@ end;
function DisasmSortCompare(AItem1, AItem2: Pointer): Integer; function DisasmSortCompare(AItem1, AItem2: Pointer): Integer;
begin begin
Result := TDBGPtrInt(PGDBMIDisasm(AItem1)^.Address) - TDBGPtrInt(PGDBMIDisasm(AItem2)^.Address); if PGDBMIDisasm(AItem1)^.Address < PGDBMIDisasm(AItem2)^.Address then
Result := -1
else
if PGDBMIDisasm(AItem1)^.Address > PGDBMIDisasm(AItem2)^.Address then
Result := 1
else
Result := 0;
end; end;
function TGDBMIDebugger.GDBDisassemble(AAddr: TDbgPtr; ABackward: Boolean; out ANextAddr: TDbgPtr; out ADump, AStatement, AFile: String; out ALine: Integer): Boolean; function TGDBMIDebugger.GDBDisassemble(AAddr: TDbgPtr; ABackward: Boolean; out ANextAddr: TDbgPtr; out ADump, AStatement, AFile: String; out ALine: Integer): Boolean;