From 17f29c4ac2e4a955b87aa2e1542cfee2a620872d Mon Sep 17 00:00:00 2001 From: joost Date: Sun, 4 May 2014 11:10:27 +0000 Subject: [PATCH] FpDebug: Implemented GetStackPointerRegisterValue on Darwin git-svn-id: trunk@44904 - --- components/fpdebug/fpdbgdarwinclasses.pas | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/components/fpdebug/fpdbgdarwinclasses.pas b/components/fpdebug/fpdbgdarwinclasses.pas index ab60905ef1..0f6c1a994b 100644 --- a/components/fpdebug/fpdbgdarwinclasses.pas +++ b/components/fpdebug/fpdbgdarwinclasses.pas @@ -76,6 +76,7 @@ type function WriteData(const AAdress: TDbgPtr; const ASize: Cardinal; const AData): Boolean; override; function GetInstructionPointerRegisterValue: TDbgPtr; override; + function GetStackPointerRegisterValue: TDbgPtr; override; function GetStackBasePointerRegisterValue: TDbgPtr; override; procedure TerminateProcess; override; @@ -380,10 +381,14 @@ begin result := TDbgDarwinThread(FMainThread).FThreadState.__eip; end; +function TDbgDarwinProcess.GetStackPointerRegisterValue: TDbgPtr; +begin + result := TDbgDarwinThread(FMainThread).FThreadState.__esp; +end; + function TDbgDarwinProcess.GetStackBasePointerRegisterValue: TDbgPtr; begin result := TDbgDarwinThread(FMainThread).FThreadState.__ebp; - end; procedure TDbgDarwinProcess.TerminateProcess;