paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: GDBMIDebugger better handling of space in filenames / Fix problem from Revision: 44429 / some filenames end up forever pending

Browse Source 
git-svn-id: trunk@44468 -
This commit is contained in:
martin 2014-03-18 21:01:50 +00:00
parent 3d8ea62914
commit ef91216989
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -8913,11 +8913,11 @@ begin
if not Result then exit; if not Result then exit;
s1 := ''; s1 := '';
if dfForceBreak in FTheDebugger.FDebuggerFlags then s1 := '-f';
s2 := StringReplace(FSource, '\', '/', [rfReplaceAll]); s2 := StringReplace(FSource, '\', '/', [rfReplaceAll]);
//s2 := StringReplace(s2, '"', '\"', [rfReplaceAll]); //s2 := StringReplace(s2, '"', '\"', [rfReplaceAll]);
Result := ExecuteCommand('-break-insert %s "\"%s\":%d"', [s1, s2, FLine], R); Result := ExecuteCommand('-break-insert %s "\"%s\":%d"', [s1, s2, FLine], R);
if dfForceBreak in FTheDebugger.FDebuggerFlags then s1 := '-f';
if (not Result) or (R.State = dsError) then if (not Result) or (R.State = dsError) then
Result := ExecuteCommand('-break-insert %s %s:%d', [s1, ExtractFileName(FSource), FLine], R); Result := ExecuteCommand('-break-insert %s %s:%d', [s1, ExtractFileName(FSource), FLine], R);
end; end;