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

* fixed compilation of the setjmp/longjmp dummy functions for WebAssembly

Browse Source 
git-svn-id: branches/wasm@48242 -
This commit is contained in:
nickysn 2021-01-20 21:54:24 +00:00
parent de15809f62
commit bc7f37dad7
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/wasm32/setjump.inc
View File

@ -14,13 +14,12 @@
**********************************************************************}
(*function fpc_setjmp(var S : jmp_buf) : shortint;{[Public, alias : 'FPC_SETJMP_'];}compilerproc;
function fpc_setjmp(var S : jmp_buf) : longint;[Public, alias : 'FPC_SETJMP'];compilerproc;
begin
fpc_setjmp:=0;
end;
procedure fpc_longjmp(var S : jmp_buf;value : shortint);{[Public, alias : 'FPC_LONGJMP_'];}compilerproc;
procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LONGJMP'];compilerproc;
begin
end;*)
end;

4
rtl/wasm32/setjumph.inc
View File

@ -19,5 +19,5 @@ type
end;
pjmp_buf = ^jmp_buf;
function setjmp(var S : jmp_buf) : shortint;{[external name 'FPC_SETJMP'];}
procedure longjmp(var S : jmp_buf;value : shortint);{[external name 'FPC_LONGJMP'];}
function setjmp(var S : jmp_buf) : longint;[external name 'FPC_SETJMP'];
procedure longjmp(var S : jmp_buf;value : longint);[external name 'FPC_LONGJMP'];