Browse Source

* Correct compilation

Michael Van Canneyt 1 year ago
parent
commit
5b2660990f
1 changed files with 1 additions and 9 deletions
  1. 1 9
      demo/wasienv/dom/BrowserDomTest1.lpr

+ 1 - 9
demo/wasienv/dom/BrowserDomTest1.lpr

@@ -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