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

#42, support for allthe throwables

This commit is contained in:
Basile Burg 2015-10-02 07:00:35 +02:00
parent 12f9600810
commit e148ae8901
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_gdb.pas
View File

@ -37,7 +37,7 @@ type
fDocHandler: ICEMultiDocHandler; fDocHandler: ICEMultiDocHandler;
fMsg: ICEMessagesDisplay; fMsg: ICEMessagesDisplay;
fGdb: TCEProcess; fGdb: TCEProcess;
fRegs: array[TCpuRegs] of UIntPtr; fRegs: array[TCpuRegs] of UInt64;
// //
procedure startDebugging; procedure startDebugging;
procedure killGdb; procedure killGdb;
@ -228,7 +228,8 @@ begin
str := 'break ' + fFileLineBrks.Strings[i] + ':' + intToStr(PtrUInt(fFileLineBrks.Objects[i])) + #10; str := 'break ' + fFileLineBrks.Strings[i] + ':' + intToStr(PtrUInt(fFileLineBrks.Objects[i])) + #10;
fGdb.Input.Write(str[1], length(str)); fGdb.Input.Write(str[1], length(str));
end; end;
// break on druntime exceptions, does not work with 'throw new ...' // break on druntime exceptions heper + throw'
fGdb.OnReadData := @processSilently;
gdbCommand('break onAssertError'); gdbCommand('break onAssertError');
gdbCommand('break onAssertErrorMsg'); gdbCommand('break onAssertErrorMsg');
gdbCommand('break onUnittestErrorMsg'); gdbCommand('break onUnittestErrorMsg');
@ -239,9 +240,8 @@ begin
gdbCommand('break onInvalidMemoryOperationError'); gdbCommand('break onInvalidMemoryOperationError');
gdbCommand('break onSwitchError'); gdbCommand('break onSwitchError');
gdbCommand('break onUnicodeError'); gdbCommand('break onUnicodeError');
// gdbCommand('break _d_throwc');
fGdb.OnReadData := @gdbOutput;
// launch // launch
gdbCommand('run'); gdbCommand('run');
end; end;