paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-15 05:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make explicit what arguments are memory locations

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-06-06 14:40:54 +02:00
parent 41fc39d1e9
commit b84e5c60bf
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/wasi/src/wasitypes.pas
View File

@ -12,13 +12,13 @@ Type
// The imports as expected by WASI // The imports as expected by WASI
IWASI = interface ['{A03AC61B-3C68-4DA8-AC4F-53ED01814673}'] IWASI = interface ['{A03AC61B-3C68-4DA8-AC4F-53ED01814673}']
// Please keep these sorted !! // Please keep these sorted !!
function args_get(argc, argvBufSize : NativeInt) : NativeInt; function args_get(argv, argvBuf : TWasmMemoryLocation) : NativeInt;
function args_sizes_get(argc, argvBufSize : NativeInt) : NativeInt; function args_sizes_get(argc, argvBufSize : TWasmMemoryLocation) : NativeInt;
function clock_res_get(clockId, resolution: NativeInt): NativeInt; function clock_res_get(clockId, resolution: NativeInt): NativeInt;
function clock_time_get(clockId, precision : NativeInt; time: TWasmMemoryLocation): NativeInt; function clock_time_get(clockId, precision : NativeInt; time: TWasmMemoryLocation): NativeInt;
function environ_get(environ, environBuf : NativeInt) : NativeInt; function environ_get(environ, environBuf : TWasmMemoryLocation) : NativeInt;
function environ_sizes_get(environCount, environBufSize : NativeInt) : NativeInt; function environ_sizes_get(environCount, environBufSize : TWasmMemoryLocation) : NativeInt;
function fd_advise (fd, offset, len, advice : NativeInt) : NativeInt; function fd_advise (fd, offset, len, advice : NativeInt) : NativeInt;
function fd_allocate (fd, offset, len : NativeInt) : NativeInt; function fd_allocate (fd, offset, len : NativeInt) : NativeInt;
function fd_close(fd : NativeInt) : NativeInt; function fd_close(fd : NativeInt) : NativeInt;
@ -682,6 +682,7 @@ type
Function Read(FD : Integer; Data : TJSUint8Array; AtPos : Integer; Out BytesRead : Integer) : NativeInt; Function Read(FD : Integer; Data : TJSUint8Array; AtPos : Integer; Out BytesRead : Integer) : NativeInt;
function ReadDir(FD: Integer; Cookie: NativeInt; out DirEnt: TWasiFSDirent): NativeInt; function ReadDir(FD: Integer; Cookie: NativeInt; out DirEnt: TWasiFSDirent): NativeInt;
Function GetPrestat(FD: Integer) : String; Function GetPrestat(FD: Integer) : String;
Procedure PreLoadFile(aPath : String; aData : TJSDataView);
end; end;
Const Const