Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Fix wasienv examples to use InstanceExports, not WasiExports

As indicated by @mvancanneyt in https://gitlab.com/freepascal.org/fpc/pas2js/-/issues/39289#note_2237702957 , the InstanceExports is correct.
Michalis Kamburelis 8 months ago
parent
ee136fca55
commit
635d2f57a0
2 changed files with 2 additions and 2 deletions
Unified View Show Diff Stats
  1. 1 1
      demo/wasienv/button/BrowserButton1.lpr
  2. 1 1
      demo/wasienv/fetch/BrowserFetch1.lpr

+ 1 - 1
demo/wasienv/button/BrowserButton1.lpr
View File 

@@ -22,7 +22,7 @@ Type
 
 function TMyApplication.OnBeforeStart(Sender: TObject;
 
 function TMyApplication.OnBeforeStart(Sender: TObject;
 
   aDescriptor: TWebAssemblyStartDescriptor): Boolean;
 
   aDescriptor: TWebAssemblyStartDescriptor): Boolean;
 
 begin
 
 begin
 
-  FWADomBridge.WasiExports:=aDescriptor.Exported;
 
+  FWADomBridge.InstanceExports:=aDescriptor.Exported;
 
   Result:=true;
 
   Result:=true;
 
 end;
 
 end;

+ 1 - 1
demo/wasienv/fetch/BrowserFetch1.lpr
View File 

@@ -22,7 +22,7 @@ Type
 
 function TMyApplication.OnBeforeStart(Sender: TObject;
 
 function TMyApplication.OnBeforeStart(Sender: TObject;
 
   aDescriptor: TWebAssemblyStartDescriptor): Boolean;
 
   aDescriptor: TWebAssemblyStartDescriptor): Boolean;
 
 begin
 
 begin
 
-  FWADomBridge.WasiExports:=aDescriptor.Exported;
 
+  FWADomBridge.InstanceExports:=aDescriptor.Exported;
 
   Result:=true;
 
   Result:=true;
 
 end;
 
 end;