[fpc-pascal] Using Supports() I got an AV... bug?

[Vojtěch Čihák]

With this modification and -gh it is alright:
 
[v1 at nb-msi Interface]$ ./test
Bar supports...
Heap dump by heaptrc unit
7 memory blocks allocated : 875/880
7 memory blocks freed     : 875/880
0 unfreed memory blocks : 0
True heap size : 360448
True free heap : 360448
[v1 at nb-msi Interface]$
 
V.
______________________________________________________________
 > Od: "Marcos Douglas B. Santos" <md at delfire.net>
 > Komu: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
 > Datum: 11.03.2018 15:36
 > Předmět: Re: [fpc-pascal] Using Supports() I got an AV... bug?
 >
===begin===
  Bar := TBar.Create;
  try
    if Supports(Bar, IBar) then
      Writeln(Bar.Name + ' supports...');
  finally
    ////Bar.Free;  << no Free
  end;
 ===end===
 
 Are you still seeing an AV?
 
 Marcos Douglas
 _______________________________________________
 fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
 http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal <http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20180311/5a5fc420/attachment.html>