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

View File

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