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

* return nil in get_caller_addr, get_caller_frame an sptr

Browse Source 
git-svn-id: branches/wasm@48374 -
This commit is contained in:
nickysn 2021-01-24 02:18:20 +00:00
parent 5c36600c8c
commit 8c33dc4692
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/wasm32/wasm32.inc
View File

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