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

DBG: Fixed reading exception classname with fpc-trunk and dwarf

Browse Source 
git-svn-id: trunk@28981 -
This commit is contained in:
martin 2011-01-13 00:26:28 +00:00
parent 5aefc8ac47
commit 6e5ff4cb3e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/gdbmidebugger.pp
View File

@ -8544,6 +8544,7 @@ begin
OK := ExecuteCommand('-data-evaluate-expression ^^shortstring(%s+%d)^^',
[S, TargetInfo^.TargetPtrSize * 3], R);
if (not OK) or (LastExecResult.State = dsError)
or (pos('value="#0', LastExecResult.Values) > 0)
then OK := ExecuteCommand('-data-evaluate-expression ^char(^pointer(%s+%d)^+1)',
[S, TargetInfo^.TargetPtrSize * 3], R);
end