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

* Fixed amd64 register detect

Browse Source 
git-svn-id: trunk@8052 -
This commit is contained in:
marc 2005-11-03 23:46:05 +00:00
parent 9d47726ce8
commit 6a4f8a515e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -1246,19 +1246,19 @@ procedure TGDBMIDebugger.Init;
case StringCase(FTargetCPU, [ case StringCase(FTargetCPU, [
'i386', 'i486', 'i586', 'i686', 'i386', 'i486', 'i586', 'i686',
'ia64', 'powerpc', 'sparc' 'ia64', 'x86_64', 'powerpc', 'sparc'
], True, False) of ], True, False) of
0..3: begin // ix86 0..3: begin // ix86
FTargetRegisters[0] := '$eax'; FTargetRegisters[0] := '$eax';
FTargetRegisters[1] := '$edx'; FTargetRegisters[1] := '$edx';
FTargetRegisters[2] := '$ecx'; FTargetRegisters[2] := '$ecx';
end; end;
4: begin // ia64 4, 5: begin // ia64, x86_64
FTargetRegisters[0] := '$rax'; FTargetRegisters[0] := '$rax';
FTargetRegisters[1] := '$rcx'; FTargetRegisters[1] := '$rcx';
FTargetRegisters[2] := '$rdx'; FTargetRegisters[2] := '$rdx';
end; end;
5: begin // powerpc 6: begin // powerpc
// alltough darwin can start with r2, it seems that all OS start with r3 // alltough darwin can start with r2, it seems that all OS start with r3
// if UpperCase(FTargetOS) = 'DARWIN' // if UpperCase(FTargetOS) = 'DARWIN'
// then begin // then begin
@ -1272,7 +1272,7 @@ procedure TGDBMIDebugger.Init;
FTargetRegisters[2] := '$r5'; FTargetRegisters[2] := '$r5';
// end; // end;
end; end;
6: begin // sparc 7: begin // sparc
FTargetRegisters[0] := '$g1'; FTargetRegisters[0] := '$g1';
FTargetRegisters[1] := '$o0'; FTargetRegisters[1] := '$o0';
FTargetRegisters[2] := '$o1'; FTargetRegisters[2] := '$o1';