paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 11:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Corrections so it compiles with latest JOB & WASI classes

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-06 09:09:15 +02:00
parent 44f8c7e352
commit fefd1e602e
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
demo/wasienv/job/hostsimpletest.lpr
View File

@ -24,8 +24,6 @@ Type
FWADomBridge : TJSObjectBridge;
function CreateMyObject(const aName: String; aArgs: TJSValueDynArray): TObject;
function CreateBrowserObject(const aName: String; aArgs: TJSValueDynArray): TJSObject;
function OnBeforeStart(Sender: TObject;
aDescriptor: TWebAssemblyStartDescriptor): Boolean;
Public
constructor Create(aOwner : TComponent); override;
procedure DoRun; override;
@ -40,13 +38,6 @@ end;
{ TMyApplication }
function TMyApplication.OnBeforeStart(Sender: TObject;
aDescriptor: TWebAssemblyStartDescriptor): Boolean;
begin
FWADomBridge.WasiExports:=aDescriptor.Exported;
Result:=true;
end;
function TMyApplication.CreateMyObject(const aName: String; aArgs: TJSValueDynArray): TObject;
begin
Writeln('Host: Creating TMyObject with argument "',aArgs[0],'"');
@ -73,7 +64,7 @@ procedure TMyApplication.DoRun;
begin
// Your code here
Terminate;
StartWebAssembly('wasmsimpletest.wasm',true,@OnBeforeStart);
StartWebAssembly('wasmsimpletest.wasm');
end;
var