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

#97, prevent invalid disasm when stepping during finalization

This commit is contained in:
Basile Burg 2016-11-28 23:24:05 +01:00
parent 555ed94e56
commit 6367a87a21
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_gdb.lfm
View File

@ -83,6 +83,7 @@ inherited CEGdbWidget: TCEGdbWidget
Top = 24
Width = 505
Align = alClient
AutoWidthLastColumn = True
BorderSpacing.Around = 2
Columns = <
item
@ -91,7 +92,6 @@ inherited CEGdbWidget: TCEGdbWidget
Width = 46
end
item
AutoSize = True
Caption = 'value'
Width = 455
end>
@ -130,6 +130,7 @@ inherited CEGdbWidget: TCEGdbWidget
Width = 505
Align = alClient
AutoSort = False
AutoWidthLastColumn = True
BorderSpacing.Around = 2
Columns = <
item
@ -138,7 +139,6 @@ inherited CEGdbWidget: TCEGdbWidget
Width = 59
end
item
AutoSize = True
Caption = 'instruction'
Width = 442
end>
@ -217,6 +217,8 @@ inherited CEGdbWidget: TCEGdbWidget
Top = 0
Width = 509
Align = alClient
AutoSort = False
AutoWidthLastColumn = True
Columns = <
item
AutoSize = True
@ -229,12 +231,12 @@ inherited CEGdbWidget: TCEGdbWidget
Width = 59
end
item
AutoSize = True
Caption = 'filename'
Width = 367
Width = 384
end>
GridLines = True
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lstCallStackDblClick
@ -251,6 +253,7 @@ inherited CEGdbWidget: TCEGdbWidget
Top = 0
Width = 509
Align = alClient
AutoSort = False
AutoWidthLastColumn = True
Columns = <
item
@ -285,10 +288,11 @@ inherited CEGdbWidget: TCEGdbWidget
end
item
Caption = 'line'
Width = 200
Width = 217
end>
GridLines = True
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lstThreadsDblClick

5
src/ce_gdb.pas
View File

@ -1319,6 +1319,7 @@ begin
btnReg.Enabled:=false;
btnVariables.Enabled:=false;
btnStack.Enabled:=false;
btnWatch.Enabled:=false;
clearDisplays;
end;
gsPaused:
@ -1332,6 +1333,7 @@ begin
btnReg.Enabled:=true;
btnVariables.Enabled:=true;
btnStack.Enabled:=true;
btnWatch.Enabled:=true;
end;
gsRunning:
begin
@ -1344,6 +1346,7 @@ begin
btnReg.Enabled:=false;
btnVariables.Enabled:=false;
btnStack.Enabled:=false;
btnWatch.Enabled:=false;
end;
end;
end;
@ -2217,6 +2220,8 @@ procedure TCEGdbWidget.infoAsm(const fname: string);
var
cmd: string;
begin
if not fname.fileExists or (fLastLine = '-1') or (fLastLine = '0') then
exit;
cmd := format('-data-disassemble -f %s -l %s -n -1 -- 0', [fname, fLastLine]);
//cmd := format('-data-disassemble -s %s -e $pc -- 0', [fLastOffset]);
gdbCommand(cmd, @gdboutJsonize);