paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:29:14 +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; ModScope: TPasModuleScope;
Access: TResolvedRefAccess; Access: TResolvedRefAccess;
SubEl: TPasElement; SubEl: TPasElement;
ParamsExpr: TParamsExpr;
begin begin
if El=nil then exit; if El=nil then exit;
// Note: expression itself is not marked, but it can reference identifiers // Note: expression itself is not marked, but it can reference identifiers
@ -1527,7 +1528,8 @@ begin
case BuiltInProc.BuiltIn of case BuiltInProc.BuiltIn of
bfExit: bfExit:
begin begin
if El.Parent is TParamsExpr then ParamsExpr:=Resolver.GetParamsOfNameExpr(El);
if ParamsExpr<>nil then
begin begin
Params:=(El.Parent as TParamsExpr).Params; Params:=(El.Parent as TParamsExpr).Params;
if length(Params)=1 then if length(Params)=1 then
@ -1546,7 +1548,10 @@ begin
end; end;
bfTypeInfo: bfTypeInfo:
begin 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 if length(Params)<>1 then
RaiseNotSupported(20180226144217,El.Parent); RaiseNotSupported(20180226144217,El.Parent);
Resolver.ComputeElement(Params[0],ParamResolved,[rcNoImplicitProc]); Resolver.ComputeElement(Params[0],ParamResolved,[rcNoImplicitProc]);