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

* Patch from Yury Sidorov. Enables ARM target.

Browse Source 
git-svn-id: trunk@8873 -
This commit is contained in:
marc 2006-03-06 19:36:22 +00:00
parent 24d096e296
commit e5196c9d04
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -1274,6 +1274,8 @@ procedure TGDBMIDebugger.Init;
then Exit;
S := GetPart(['configured as \"'], ['\"'], R.Values, False, False);
if Pos('--target=', S) <> 0 then
S := GetPart('--target=', '', S);
FGDBCPU := GetPart('', '-', S);
GetPart('-', '-', S); // strip vendor
FGDBOS := GetPart('-', '-', S);
@ -2021,7 +2023,8 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
case StringCase(FTargetCPU, [
'i386', 'i486', 'i586', 'i686',
'ia64', 'x86_64', 'powerpc', 'sparc'
'ia64', 'x86_64', 'powerpc',
'sparc', 'arm'
], True, False) of
0..3: begin // ix86
FTargetRegisters[0] := '$eax';
@ -2055,6 +2058,11 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
FTargetRegisters[1] := '$o0';
FTargetRegisters[2] := '$o1';
end;
8: begin // arm
FTargetRegisters[0] := '$r0';
FTargetRegisters[1] := '$r1';
FTargetRegisters[2] := '$r2';
end;
else
FTargetRegisters[0] := '';
FTargetRegisters[1] := '';