pastojs: library: export unitname.name as alias

packages/pastojs/src/fppas2js.pp

@@ -18013,6 +18013,7 @@ var
   EvalValue: TResEvalValue;
   ExpNameJS: TJSExportNameElement;
   Decl: TPasElement;
+  ResolvedEl: TPasResolverResult;
 begin
   ExportSymbols:=El.LibrarySection.ExportSymbols;
   if ExportSymbols.Count=0 then exit;
@@ -18028,8 +18029,8 @@ begin
     // name
     if Symb.NameExpr<>nil then
       begin
-      RaiseNotSupported(Symb.NameExpr,AContext,20211020142210);
-      Decl:=nil;
+      aResolver.ComputeElement(Symb.NameExpr,ResolvedEl,[rcConstant]);
+      Decl:=ResolvedEl.IdentEl;
       end
     else
       begin

packages/pastojs/tests/tcmodules.pas

@@ -33806,15 +33806,15 @@ begin
   'end;',
   'exports',
   '  Run;',
-  //'  run name ''Foo'';',
-  //'  test1.run name ''Test1Run'';',
+  '  run name ''Foo'';',
+  '  test1.run name ''Test1Run'';',
   '']);
   ConvertLibrary;
   CheckSource('TestLibrary_ExportFunc',
     LinesToStr([ // statements
     'this.Run = function (w) {',
     '};',
-    'export { this.Run as Run };',
+    'export { this.Run as Run, this.Run as Foo, this.Run as Test1Run };',
     '']),
     LinesToStr([
     '']));