[fpc-pascal] TBufDataset broken in fixes_2_2

[Michael Müller]

Hi!

Am 15.11.2008 um 16:56 schrieb Funky Beast:

> Hi,
>
> TBufDataset is broken in latest fixes_2_2.
>
> Can be reproduce with following code:
>
> var s: TSQLQuery;
> begin
>  s := TSQLQuery;

The example is correct without .Create()?

>  s.Free;
> end;
>
> Compiling fcl-db with debug info, the above code excepts
> at TBufDataset.Destroy destructor at the following position:
>
> For I:=0 to Length(FIndexes)-1 do
>     FreeAndNil(Findexes[I]);
>
> It stops at the FreeAndNil line.
>
> Latest trunk 2.3.1 has no such problem.
>
> Should I file a bug report?
>
> Regards,
> Funky Beast
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal