From 5b2660990fab47a5926f18f9dfad8944615602e4 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Mon, 17 Jun 2024 10:37:29 +0200
Subject: [PATCH] * Correct compilation

---
 demo/wasienv/dom/BrowserDomTest1.lpr | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/demo/wasienv/dom/BrowserDomTest1.lpr b/demo/wasienv/dom/BrowserDomTest1.lpr
index 4ad7c47..b53488f 100644
--- a/demo/wasienv/dom/BrowserDomTest1.lpr
+++ b/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