paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 20:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@39335 -
This commit is contained in:
Mattias Gaertner 2018-06-28 22:31:13 +00:00
parent 7253451143
commit c0fdf4103c
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/pastojs/src/pas2jscompiler.pp
View File

@ -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);

2
packages/pastojs/src/pas2jsfiler.pp
View File

@ -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':