HINTS lassen sich nicht abschalten, wenn sie durch eine Parameterübergabe entstehen

[LN40470]

In einem Projekt habe ich 5 Stellen, wo Hints ausgegeben werden, obwohl sie mit {$HINTS OFF} unterdrückt sein sollten. Im angefügten Bild sind 2 Quelltextstellen gezeigt. Dort sind die {$IFDEF FPC} ... {$ENDIF} nur vorhanden, weil der selbe Quelltext auch mit Delphi 10 compiliert werden kann:

[PascalDragon]

Bitte gib ein komplettes Beispiel an, das folgende Programm gibt keine Hinweise aus:

Code: Alles auswählen

program ttest;

{$mode objfpc}{$H+}

uses
  Windows;

procedure Test;
var
  l: TSystemTime;
begin
  {$push}{$hints off}
  GetLocalTime(l);
  {$pop}
  with l do begin
    Writeln(l.Hour);
  end;
end;

begin
  Test;
end.

Code: Alles auswählen

PS D:\fpc\git> fpc -FEtestoutput .\fpctests\ttest.pp -vhin
Hint: Start of reading config file D:\lazarus\2.2\fpc\3.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\2.2\fpc\3.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 3.2.2 [2022/01/02] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling .\fpctests\ttest.pp
Linking testoutput\ttest.exe
23 lines compiled, 0.1 sec, 28384 bytes code, 1316 bytes data
2 hint(s) issued