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

fcl-passrc: useanalyzer: fixed marking inline specialize expression of a record method

Browse Source
This commit is contained in:
mattias 2024-12-06 20:00:27 +01:00
parent 9f16b0a0f4
commit 4d67cd80fc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1931,6 +1931,8 @@ begin
else
RaiseNotSupported(20181015193334,Expr,OpcodeStrings[Unary.OpCode]);
end
else if C=TInlineSpecializeExpr then
UseExprRef(El,TInlineSpecializeExpr(Expr).NameExpr,Access,UseFull)
else if (Access=rraRead)
and ((C=TPrimitiveExpr) // Kind<>pekIdent
or (C=TNilExpr)