Преглед на файлове

* return nil in get_caller_addr, get_caller_frame an sptr

git-svn-id: branches/wasm@48374 -
nickysn преди 4 години
родител
ревизия
8c33dc4692
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      rtl/wasm32/wasm32.inc

+ 3 - 0
rtl/wasm32/wasm32.inc

@@ -23,18 +23,21 @@ procedure fpc_cpuinit;
 {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
 {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
 function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;
 function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;
   begin
   begin
+    result:=nil;
   end;
   end;
 
 
 
 
 {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
 {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
 function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;
 function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;
   begin
   begin
+    result:=nil;
   end;
   end;
 
 
 
 
 {$define FPC_SYSTEM_HAS_SPTR}
 {$define FPC_SYSTEM_HAS_SPTR}
 function Sptr : pointer;
 function Sptr : pointer;
   begin
   begin
+    result:=nil;
   end;
   end;