forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, gdb com, no disassembly on signal caught 

missing line info lead to bad formed MI request
This commit is contained in:
Basile Burg 2020-07-12 13:49:45 +02:00
parent b478336f88
commit 29d6d97697
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/u_gdb.pas
View File

@ -2476,7 +2476,10 @@ begin
if obj.findAny('fullname', val) then if obj.findAny('fullname', val) then
fLastFilename := val.AsString; fLastFilename := val.AsString;
if obj.findAny('line', val) then if obj.findAny('line', val) then
begin
line := val.AsInteger; line := val.AsInteger;
fLastLine := val.AsString;
end;
if obj.findAny('func', val) then if obj.findAny('func', val) then
begin begin
if fOptions.autoDisassemble and (val.AsString <> fLastFunction) then if fOptions.autoDisassemble and (val.AsString <> fLastFunction) then
@ -2610,7 +2613,10 @@ begin
addr := val.AsInt64; addr := val.AsInt64;
val := obj.Find('line'); val := obj.Find('line');
if val.isAssigned then if val.isAssigned then
begin
line := val.AsInteger; line := val.AsInteger;
fLastLine := val.AsString;
end;
fStackItems.addItem(addr, fLastFilename, func, line); fStackItems.addItem(addr, fLastFilename, func, line);
end; end;
fStackItems.assignToList(lstCallStack); fStackItems.assignToList(lstCallStack);