Browse Source

* fix output position of deprecated hint for certain cases where it was wrong, resolves #40534

florian 1 year ago
parent
commit
1f91fe4b11
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pexpr.pas

+ 1 - 1
compiler/pexpr.pas

@@ -3510,7 +3510,7 @@ implementation
                      not (sp_generic_para in srsym.symoptions) and
                      not (sp_generic_para in srsym.symoptions) and
                      (token in [_LT, _LSHARPBRACKET])
                      (token in [_LT, _LSHARPBRACKET])
                    ) then
                    ) then
-                 check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
+                 check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg,tokenpos);
 
 
                { if nothing found give error and return errorsym }
                { if nothing found give error and return errorsym }
                if not assigned(srsym) or
                if not assigned(srsym) or