From 6a4f8a515e57427b2ceb6da2929830fda2eac023 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Thu, 3 Nov 2005 23:46:05 +0000
Subject: [PATCH] * Fixed amd64 register detect

git-svn-id: trunk@8052 -
---
 debugger/gdbmidebugger.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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