paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* since exporting webassembly globals doesn't yet work accross units, added a

Browse Source 
workaround by using property getters and setters
This commit is contained in:
Nikolay Nikolov 2023-06-11 15:00:56 +03:00
parent b247302871
commit b97f3a08ed
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/wasi/system.pp
View File

@ -57,7 +57,12 @@ var
argc: longint;
argv: PPChar;
envp: PPChar;
__fpc_wasm_suspender: WasmExternRef; section 'WebAssembly.Global';
___fpc_wasm_suspender: WasmExternRef; section 'WebAssembly.Global';
function __fpc_get_wasm_suspender: WasmExternRef;
procedure __fpc_set_wasm_suspender(v: WasmExternRef);
property __fpc_wasm_suspender: WasmExternRef read __fpc_get_wasm_suspender write __fpc_set_wasm_suspender;
implementation
@ -79,6 +84,16 @@ end;
exports
WasiAlloc,WasiFree;
function __fpc_get_wasm_suspender: WasmExternRef;
begin
result:=___fpc_wasm_suspender;
end;
procedure __fpc_set_wasm_suspender(v: WasmExternRef);
begin
___fpc_wasm_suspender:=v;
end;
function ConvertToFdRelativePath(path: RawByteString; out fd: LongInt; out relfd_path: RawByteString): Word; forward;
function fpc_wasi_path_readlink_ansistring(