Fix get_caller_stackinfo function: Addr parameter must also be by var

git-svn-id: trunk@25537 -

rtl/inc/system.inc

@@ -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;

rtl/inc/systemh.inc

@@ -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];

rtl/mips/mips.inc

@@ -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;