paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-13 11:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

wasi: fixed typo

Browse Source
This commit is contained in:
mattias 2022-05-22 09:52:47 +02:00
parent 20d320edf0
commit 3369ec279d
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demo/wasienv/canvas/demowasicanvas.lpr
View File

@ -96,7 +96,6 @@ begin
CreateWebAssembly('canvasdraw.wasm',ImportObj)._then(@initEnv)
end;
destructor TMyApplication.Destroy;
begin
FreeAndNil(FWasiEnv);

6
packages/wasi/wasienv.pas
View File

@ -342,11 +342,10 @@ type
function getModuleMemoryDataView : TJSDataView;
procedure AddExtension(aExtension : TImportExtension); virtual;
procedure RemoveExtension(aExtension : TImportExtension); virtual;
// IWASI calls
// !! Please keep these sorted !!
function args_get(argv, argvBuf : NativeInt) : NativeInt; virtual;
function args_sizes_get(argc, argvBufSize : NativeInt) : NativeInt; virtual;
function clock_res_get(clockId, resolution: NativeInt): NativeInt; virtual;
@ -357,7 +356,6 @@ type
function fd_allocate (fd, offset, len : NativeInt) : NativeInt; virtual;
function fd_close(fd : NativeInt) : NativeInt; virtual;
function fd_datasync (fd : NativeInt) : NativeInt; virtual;
function fd_fdstat_get(fd,bufPtr : NativeInt) : NativeInt; virtual;
function fd_fdstat_set_flags (fd, flags: NativeInt) : NativeInt; virtual;
function fd_fdstat_set_rights (fd, fsRightsBase, fsRightsInheriting: NativeInt) : NativeInt; virtual;
@ -472,7 +470,7 @@ type
Destructor Destroy; override;
// Load and start webassembly. If DoRun is true, then Webassembly entry point is called.
// If aBeforeStart is specified, then it is called prior to calling run, and can disable running.
// If aAfterStart is specified, then it is called after calling run. It is not called is running was disabled.
// If aAfterStart is specified, then it is called after calling run. It is not called if running was disabled.
Procedure StartWebAssembly(aPath: string; DoRun : Boolean = True; aBeforeStart : TBeforeStartCallback = Nil; aAfterStart : TAfterStartCallback = Nil);
// Initial memory descriptor
Property MemoryDescriptor : TJSWebAssemblyMemoryDescriptor Read FMemoryDescriptor Write FMemoryDescriptor;