[fpc-devel] Little fcl-db patch

Joost van der Sluis joost at cnoc.nl
Fri Mar 21 19:28:00 CET 2008


Thanks, committed r10529.

Joost

Op vrijdag 21-03-2008 om 17:35 uur [tijdzone +0100], schreef
petr.kristan at epos.cz:
> Only creates and destroys Constraints, ZEOS depends on it.
> 
> Index: packages/fcl-db/src/base/dataset.inc
> ===================================================================
> --- packages/fcl-db/src/base/dataset.inc        (revision 10368)
> +++ packages/fcl-db/src/base/dataset.inc        (working copy)
> @@ -27,6 +27,7 @@
>    FFieldDefs:=TFieldDefs.Create(Self);
>    FFieldList:=TFields.Create(Self);
>    FDataSources:=TList.Create;
> +  FConstraints:=TCheckConstraints.Create(Self);
>    
>  // FBuffer must be allocated on create, to make Activebuffer return nil
>    ReAllocMem(FBuffers,SizeOf(PChar));
> @@ -58,6 +59,7 @@
>      end;
>    for i := 0 to FBufferCount do
>      FreeRecordBuffer(FBuffers[i]);
> +  FConstraints.Free;
>    FreeMem(FBuffers);
>    Inherited Destroy;
>  end;
> 
-- 




More information about the fpc-devel mailing list