Browse Source

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

mattias 8 months ago
parent
commit
4d67cd80fc
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-passrc/src/pasuseanalyzer.pas

+ 2 - 0
packages/fcl-passrc/src/pasuseanalyzer.pas

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