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 - >> [EMAIL PROTECTED] >> http://lists.freepascal.org/mailman/listinfo/fpc-pascal > > _______________________________________________ > fpc-pascal maillist - > [EMAIL PROTECTED] > 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 _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
