paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-14 17:09:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix error when no import extensions registered

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-27 16:51:05 +01:00
parent 6e6647b2c0
commit 2d3fbefd0a
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/wasi/wasienv.pas
View File

@ -458,13 +458,14 @@ Var
begin begin
aObject[WASIImportName]:=ImportObject; aObject[WASIImportName]:=ImportObject;
For I:=0 to FImportExtensions.Count-1 do if Assigned(FImportExtensions) then
begin For I:=0 to FImportExtensions.Count-1 do
Ext:=TImportExtension(FImportExtensions[i]); begin
O:=TJSObject.New; Ext:=TImportExtension(FImportExtensions[i]);
Ext.FillImportObject(O); O:=TJSObject.New;
aObject[Ext.ImportName]:=O; Ext.FillImportObject(O);
end; aObject[Ext.ImportName]:=O;
end;
end; end;
procedure TPas2JSWASIEnvironment.AddExtension(aExtension : TImportExtension); procedure TPas2JSWASIEnvironment.AddExtension(aExtension : TImportExtension);