paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use sizeof(CORE_ADDR) instead of sizeof(pointer) for finding the parameters

Browse Source 
on the stack in GetFPCBreakParameters

git-svn-id: trunk@30117 -
This commit is contained in:
nickysn 2015-03-07 01:15:16 +00:00
parent 4fbab88449
commit a32b335832
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpdebug.pas
View File

@ -1290,9 +1290,9 @@ end;
function TDebugController.GetFPCBreakErrorParameters(var ExitCode: LongInt; var ExitAddr, ExitFrame: CORE_ADDR): Boolean; function TDebugController.GetFPCBreakErrorParameters(var ExitCode: LongInt; var ExitAddr, ExitFrame: CORE_ADDR): Boolean;
const const
{ try to find the parameters } { try to find the parameters }
FirstArgOffset = -sizeof(pointer); FirstArgOffset = -sizeof(CORE_ADDR);
SecondArgOffset = 2*-sizeof(pointer); SecondArgOffset = 2*-sizeof(CORE_ADDR);
ThirdArgOffset = 3*-sizeof(pointer); ThirdArgOffset = 3*-sizeof(CORE_ADDR);
begin begin
// Procedure HandleErrorAddrFrame (Errno : longint;addr : CodePointer; frame : Pointer); // Procedure HandleErrorAddrFrame (Errno : longint;addr : CodePointer; frame : Pointer);
// [public,alias:'FPC_BREAK_ERROR']; {$ifdef cpui386} register; {$endif} // [public,alias:'FPC_BREAK_ERROR']; {$ifdef cpui386} register; {$endif}