With this modification and -gh it is alright: [v1@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@nb-msi Interface]$ V. ______________________________________________________________ > Od: "Marcos Douglas B. Santos" <m...@delfire.net> > Komu: FPC-Pascal users discussions <fpc-pascal@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@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal <http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal>
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
