paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugger (pure): i386-linux support

Browse Source 
git-svn-id: trunk@45834 -
This commit is contained in:
joost 2014-07-11 21:29:07 +00:00
parent 3dd28b3d12
commit 42ba440a7d
2 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -233,7 +233,11 @@ var
begin
result := true;
errno:=0;
fpPTrace(PTRACE_GETREGS, Process.ProcessID, nil, @FUserRegsStruct64);
if Process.Mode=dm32 then
fpPTrace(PTRACE_GETREGS, Process.ProcessID, nil, @FUserRegsStruct32)
else
fpPTrace(PTRACE_GETREGS, Process.ProcessID, nil, @FUserRegsStruct64);
e := fpgeterrno;
if e <> 0 then
begin
@ -320,7 +324,10 @@ var
begin
if FUserRegsChanged then
begin
fpPTrace(PTRACE_SETREGS, Process.ProcessID, nil, @FUserRegsStruct64);
if Process.Mode=dm32 then
fpPTrace(PTRACE_SETREGS, Process.ProcessID, nil, @FUserRegsStruct32)
else
fpPTrace(PTRACE_SETREGS, Process.ProcessID, nil, @FUserRegsStruct64);
e := fpgeterrno;
if e <> 0 then
begin

21
components/fpdebug/fpdbglinuxextra.pas
View File

@ -35,20 +35,31 @@ function fpPTrace(ptrace_request: cint; pid: TPid; addr: Pointer; data: pointer)
implementation
type
TSysResult = int64; // all platforms, cint=32-bit.
// On platforms with off_t =64-bit, people should
// use int64, and typecast all calls that don't
// return off_t to cint.
// all platforms, cint=32-bit.
// On platforms with off_t =64-bit, people should
// use int64, and typecast all calls that don't
// return off_t to cint.
{$ifdef cpux86_64}
TSysResult = int64;
TSysParam = int64;
{$else}
TSysResult = cint32;
TSysParam = cint32;
{$endif cpux86_64}
{$ifdef darwin}
Function ptrace(ptrace_request: cInt; pid: TPid; addr:pointer; data:pointer): cint; cdecl; external clib name 'ptrace';
{$endif darwin}
{$ifdef linux}
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_SYSCALL4';
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; {$ifdef cpui386}register;{$endif} external name 'FPC_SYSCALL4';
const
{$ifdef cpux86_64}
syscall_nr_ptrace = 101;
{$else}
syscall_nr_ptrace = 26;
{$endif}
{$endif linux}
function fpPTrace(ptrace_request: cint; pid: TPid; addr: Pointer; data: pointer): PtrInt;