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

* Fixed registerlookup for amd64

Browse Source 
* Fixed entrypoint parsing (Micha was right)
* Added message on load failure

git-svn-id: trunk@8185 -
This commit is contained in:
marc 2005-11-18 00:17:23 +00:00
parent d8ae91b726
commit b80db1e018
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/gdbmidebugger.pp
View File

@ -458,6 +458,7 @@ function TGDBMIDebugger.ChangeFileName: Boolean;
var
S: String;
R: TGDBMIExecResult;
List: TStringList;
begin
Result := False;
@ -472,7 +473,10 @@ begin
if (R.State = dsError)
and (FileName <> '')
then begin
SetState(dsError);
List := CreateMIValueList(R);
MessageDlg('Debugger', Format('Failed to load file: %s', [List.Values['msg']]), mtError, [mbOK], 0);
List.Free;
SetState(dsStop);
Exit;
end;
if not (inherited ChangeFileName) then Exit;
@ -1254,8 +1258,8 @@ procedure TGDBMIDebugger.Init;
FTargetRegisters[2] := '$ecx';
end;
4, 5: begin // ia64, x86_64
FTargetRegisters[0] := '$rax';
FTargetRegisters[1] := '$rcx';
FTargetRegisters[0] := '$rdi';
FTargetRegisters[1] := '$rsi';
FTargetRegisters[2] := '$rdx';
end;
6: begin // powerpc
@ -2037,7 +2041,7 @@ begin
if rfNoMI in R.Flags
then begin
FileType := GetPart('file type ', '.', R.Values);
EntryPoint := GetPart('Entry point: ', '\n', R.Values);
EntryPoint := GetPart(['Entry point: '], [#10, #13], R.Values);
end
else begin
// OS X gdb has mi output here