* return nil in get_caller_addr, get_caller_frame an sptr

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/wasm@48374 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 0 deletions

diff --git a/rtl/wasm32/wasm32.inc b/rtl/wasm32/wasm32.inc
index cbf382c242..0fe7785113 100644
--- a/rtl/wasm32/wasm32.inc
+++ b/rtl/wasm32/wasm32.inc
@@ -23,18 +23,21 @@ procedure fpc_cpuinit;
 {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
 function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;
   begin
+    result:=nil;
   end;
 
 
 {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
 function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;
   begin
+    result:=nil;
   end;
 
 
 {$define FPC_SYSTEM_HAS_SPTR}
 function Sptr : pointer;
   begin
+    result:=nil;
   end;