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

Vojtěch Čihák vojtech.cihak at atlas.cz
Sun Mar 11 15:51:51 CET 2018

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]$
 > 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?
  Bar := TBar.Create;
    if Supports(Bar, IBar) then
      Writeln(Bar.Name + ' supports...');
    ////Bar.Free;  << no Free
 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>

More information about the fpc-pascal mailing list