<font size="3"></font>
<p style="padding: 0 0 0 0; margin: 0 0 0 0;">With this modification and -gh it is alright:</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">[v1@nb-msi Interface]$ ./test</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">Bar supports...</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">Heap dump by heaptrc unit</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">7 memory blocks allocated : 875/880</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">7 memory blocks freed     : 875/880</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">0 unfreed memory blocks : 0</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">True heap size : 360448</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">True free heap : 360448</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">[v1@nb-msi Interface]$</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">V.</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">______________________________________________________________<br />
 > Od: "Marcos Douglas B. Santos" <md@delfire.net><br />
 > Komu: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org><br />
 > Datum: 11.03.2018 15:36<br />
 > Předmět: Re: [fpc-pascal] Using Supports() I got an AV... bug?<br />
 ></p>

===begin===<br />
  Bar := TBar.Create;<br />
  try<br />
    if Supports(Bar, IBar) then<br />
      Writeln(Bar.Name + ' supports...');<br />
  finally<br />
    ////Bar.Free;  << no Free<br />
  end;<br />
 ===end===<br />
 <br />
 Are you still seeing an AV?<br />
 <br />
 Marcos Douglas<br />
 _______________________________________________<br />
 fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org<br />
 <a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal</a>