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

* Correct compilation

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-06-17 10:37:29 +02:00
parent e92717f761
commit 5b2660990f
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
demo/wasienv/dom/BrowserDomTest1.lpr
View File

@ -37,8 +37,6 @@ Type
TMyApplication = class(TBrowserWASIHostApplication)
Private
FWADomBridge : TJSObjectBridge;
function OnBeforeStart(Sender: TObject;
aDescriptor: TWebAssemblyStartDescriptor): Boolean;
Public
constructor Create(aOwner : TComponent); override;
procedure DoRun; override;
@ -142,12 +140,6 @@ end;
{ TMyApplication }
function TMyApplication.OnBeforeStart(Sender: TObject;
aDescriptor: TWebAssemblyStartDescriptor): Boolean;
begin
FWADomBridge.WasiExports:=aDescriptor.Exported;
Result:=true;
end;
constructor TMyApplication.Create(aOwner: TComponent);
begin
@ -164,7 +156,7 @@ procedure TMyApplication.DoRun;
begin
// Your code here
Terminate;
StartWebAssembly('WasiDomTest1.wasm',true,@OnBeforeStart);
StartWebAssembly('WasiDomTest1.wasm',true);
end;
var