[fpc-pascal] Re: TBufDataset broken in fixes_2_2

[Funky Beast]

Michael Müller wrote:
> 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-PD4FTy7X32k2wBtHl531yWD2FQJk+8+b at public.gmane.org
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> 
> _______________________________________________
> fpc-pascal maillist  - 
> fpc-pascal-PD4FTy7X32k2wBtHl531yWD2FQJk+8+b at public.gmane.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> 

Yes, it should be with the .Create(nil) in the actual test code,
I accidentally missed it out here writing this mail.
See bug report 0012639.

Regards,
Funky Beast