pastojs: filer: read alias type, pcu: skip precompile typeinfo

git-svn-id: trunk@39335 -

packages/pastojs/src/pas2jscompiler.pp

@@ -1036,10 +1036,10 @@ end;
 function TPas2jsCompilerFile.OnPCUConverterIsTypeInfoUsed(Sender: TObject;
   El: TPasElement): boolean;
 begin
-  if (coKeepNotUsedPrivates in Compiler.Options) then
-    Result:=true
-  else
-    Result:=UseAnalyzer.IsTypeInfoUsed(El);
+  if Sender=nil then ;
+  if El=nil then ;
+  // PCU does not need precompiled typeinfo
+  Result:=false;
 end;
 
 procedure TPas2jsCompilerFile.OnScannerLog(Sender: TObject; const Msg: String);

packages/pastojs/src/pas2jsfiler.pp

@@ -5544,7 +5544,7 @@ begin
       end;
     'TypeAlias':
       begin
-      Result:=TPasPointerType.Create(Name,Parent);
+      Result:=TPasTypeAliasType.Create(Name,Parent);
       ReadAliasType(Obj,TPasTypeAliasType(Result),aContext);
       end;
     'ClassOf':