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

Debugger, GDBMI: Keep original error when trying alternative filenames.

Browse Source 
git-svn-id: trunk@62609 -
This commit is contained in:
martin 2020-02-04 03:04:44 +00:00
parent 797910c4a4
commit 3de674b205
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -2204,10 +2204,26 @@ end;
function TGDBMIDebuggerChangeFilenameBase.DoChangeFilename: Boolean;
var
R: TGDBMIExecResult;
List: TGDBMINameValueList;
S, FileName: String;
procedure SetErrorMsg;
var
List: TGDBMINameValueList;
begin
if (FErrorMsg = '') or
(pos('no such file', LowerCase(FErrorMsg)) > 0) or
(pos('not exist', LowerCase(FErrorMsg)) < 0)
then begin
List := TGDBMINameValueList.Create(R);
FErrorMsg := DeleteEscapeChars((List.Values['msg']));
List.Free;
end;
Result := False;
end;
begin
Result := False;
FErrorMsg := '';
FContext.ThreadContext := ccNotRequired;
FContext.StackContext := ccNotRequired;
@ -2218,6 +2234,8 @@ begin
{$IFDEF darwin}
if (R.State = dsError) and (FileName <> '')
then begin
SetErrorMsg;
S := FTheDebugger.InternalFilename + '/Contents/MacOS/' + ExtractFileNameOnly(Filename);
S := FTheDebugger.ConvertToGDBPath(S, cgptExeName);
Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
@ -2226,6 +2244,8 @@ begin
{$ENDIF}
if (R.State = dsError) and (FileName <> '') then
begin
SetErrorMsg;
FTheDebugger.InternalFilename := Filename + '.elf';
S := FTheDebugger.ConvertToGDBPath(FTheDebugger.FileName, cgptExeName);
Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
@ -2234,10 +2254,7 @@ begin
if (R.State = dsError) and (FTheDebugger.FileName <> '')
then begin
List := TGDBMINameValueList.Create(R);
FErrorMsg := DeleteEscapeChars((List.Values['msg']));
List.Free;
Result := False;
SetErrorMsg;
Exit;
end;
end;