diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-20 21:54:24 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-20 21:54:24 +0000 |
| commit | a5128faff566bee85a27ff8bd0bfcb454dd12948 (patch) | |
| tree | 0334cac5ea14ca8baebd8989e7f031f0af4a9c8f /rtl/wasm32 | |
| parent | 6947377f26fdfd582deeee89a5d33bde9b4ca588 (diff) | |
| download | fpc-a5128faff566bee85a27ff8bd0bfcb454dd12948.tar.gz | |
* fixed compilation of the setjmp/longjmp dummy functions for WebAssembly
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/wasm@48242 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/wasm32')
| -rw-r--r-- | rtl/wasm32/setjump.inc | 9 | ||||
| -rw-r--r-- | rtl/wasm32/setjumph.inc | 4 |
2 files changed, 6 insertions, 7 deletions
diff --git a/rtl/wasm32/setjump.inc b/rtl/wasm32/setjump.inc index 9318baf031..21026009ed 100644 --- a/rtl/wasm32/setjump.inc +++ b/rtl/wasm32/setjump.inc @@ -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; diff --git a/rtl/wasm32/setjumph.inc b/rtl/wasm32/setjumph.inc index eaef394ff4..d94242cf61 100644 --- a/rtl/wasm32/setjumph.inc +++ b/rtl/wasm32/setjumph.inc @@ -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']; |