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

DBG: simplify getting line info (no type "pointer" needed)

Browse Source 
git-svn-id: trunk@40205 -
This commit is contained in:
martin 2013-02-08 03:20:24 +00:00
parent 98b1126b93
commit 4e4bffbae4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmidebugger.pp
View File

@ -4908,7 +4908,7 @@ function TGDBMIDebuggerCommandExecute.ProcessStopped(const AParams: String;
if (Result.SrcLine = -1) or (Result.SrcFile = '') then begin if (Result.SrcLine = -1) or (Result.SrcFile = '') then begin
Str(Result.Address, S); Str(Result.Address, S);
if ExecuteCommand('info line * POINTER(%s)', [S], R) if ExecuteCommand('info line *%s', [S], R)
then begin then begin
Result.SrcLine := StrToIntDef(GetPart('Line ', ' of', R.Values), -1); Result.SrcLine := StrToIntDef(GetPart('Line ', ' of', R.Values), -1);
Result.SrcFile := ConvertGdbPathAndFile(GetPart('\"', '\"', R.Values)); Result.SrcFile := ConvertGdbPathAndFile(GetPart('\"', '\"', R.Values));