paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: useanalyzer: fixed system.typeinfo

Browse Source 
git-svn-id: trunk@41461 -
This commit is contained in:
Mattias Gaertner 2019-02-25 14:03:16 +00:00
parent e5c2d13671
commit 0fb27844d6
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -1475,6 +1475,7 @@ var
ModScope: TPasModuleScope;
Access: TResolvedRefAccess;
SubEl: TPasElement;
ParamsExpr: TParamsExpr;
begin
if El=nil then exit;
// Note: expression itself is not marked, but it can reference identifiers
@ -1527,7 +1528,8 @@ begin
case BuiltInProc.BuiltIn of
bfExit:
begin
if El.Parent is TParamsExpr then
ParamsExpr:=Resolver.GetParamsOfNameExpr(El);
if ParamsExpr<>nil then
begin
Params:=(El.Parent as TParamsExpr).Params;
if length(Params)=1 then
@ -1546,7 +1548,10 @@ begin
end;
bfTypeInfo:
begin
Params:=(El.Parent as TParamsExpr).Params;
ParamsExpr:=Resolver.GetParamsOfNameExpr(El);
if ParamsExpr=nil then
RaiseNotSupported(20190225150136,El);
Params:=ParamsExpr.Params;
if length(Params)<>1 then
RaiseNotSupported(20180226144217,El.Parent);
Resolver.ComputeElement(Params[0],ParamResolved,[rcNoImplicitProc]);