Browse Source

* Micro improvements

Michaël Van Canneyt 3 years ago
parent
commit
9f8e8c71de
2 changed files with 3 additions and 2 deletions
  1. 1 1
      packages/rtl/webassembly.pas
  2. 2 1
      packages/wasi/wasienv.pas

+ 1 - 1
packages/rtl/webassembly.pas

@@ -29,7 +29,7 @@ Type
 
   { TJSModulesArray }
 
-  TJSModulesExports = Class external name 'anon' (TJSObject)
+  TJSModulesExports = Class external name 'Object' (TJSObject)
   private
     FMemory : TJSWebAssemblyMemory; external name 'memory';
     function GetFun(aName : String): TJSFunction; external name '[]';

+ 2 - 1
packages/wasi/wasienv.pas

@@ -299,7 +299,8 @@ type
 
   TWASIWriteEvent = Reference to Procedure(Sender : TObject; Const aOutput : String);
 
-  TWASIExports = Class External name 'Object' (TJSObject)
+  // Standard FPC exports.
+  TWASIExports = Class External name 'Object' (TJSModulesExports)
   Public
      Procedure start; external name '_start';
   end;