paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:49:16 +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 begin
fpc_setjmp:=0;
end; 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 begin
end;*) end;

4
rtl/wasm32/setjumph.inc
View File

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