paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix get_caller_stackinfo function: Addr parameter must also be by var

Browse Source 
git-svn-id: trunk@25537 -
This commit is contained in:
pierre 2013-09-23 09:51:20 +00:00
parent f3963172ba
commit 22e9cb48dd
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -697,7 +697,7 @@ end;
of get_caller_stackinfo procedure,
using get_caller_addr and get_caller_frame
functions. }
procedure get_caller_stackinfo(var framebp : pointer; addr : codepointer);
procedure get_caller_stackinfo(var framebp : pointer; var addr : codepointer);
var
nextbp : pointer;
nextaddr : codepointer;

2
rtl/inc/systemh.inc
View File

@ -1262,7 +1262,7 @@ Function Get_pc_addr : CodePointer;
function get_caller_addr(framebp:pointer;addr:codepointer=nil):codepointer;
function get_caller_frame(framebp:pointer;addr:codepointer=nil):pointer;
procedure get_caller_stackinfo(var framebp : pointer; addr : codepointer);
procedure get_caller_stackinfo(var framebp : pointer; var addr : codepointer);
Function IOResult:Word;
Function Sptr:Pointer;[internconst:fpc_in_const_ptr];

2
rtl/mips/mips.inc
View File

@ -101,7 +101,7 @@ function get_frame:pointer;assembler;nostackframe;
{ Try to find previous $fp,$ra register pair
reset both to nil if failure }
{$define FPC_SYSTEM_HAS_GET_CALLER_STACKINFO}
procedure get_caller_stackinfo(var framebp,addr : pointer);
procedure get_caller_stackinfo(var framebp : pointer; var addr : codepointer);
const
instr_size = 4;
MAX_INSTRUCTIONS = 64000;