instantobjects-cvscommit

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19555/Source/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
fixed memory leak in TInstantBroker.ReadDatabaseScheme

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -d -r1.75 -r1.76
*** InstantPersistence.pas	1 Dec 2005 03:18:00 -0000	1.75
--- InstantPersistence.pas	5 Dec 2005 21:37:12 -0000	1.76
***************
*** 10188,10194 ****
  begin
    Result := TInstantScheme.Create;
!   Result.Catalog := CreateCatalog(Result);
!   if Result.Catalog = nil then
!     raise Exception.CreateFmt(SUndefinedCatalog, [ClassName]);
  end;
  
--- 10188,10199 ----
  begin
    Result := TInstantScheme.Create;
!   try
!     Result.Catalog := CreateCatalog(Result);
!     if Result.Catalog = nil then
!       raise Exception.CreateFmt(SUndefinedCatalog, [ClassName]);
!   except
!     Result.Free;
!     raise;
!   end;
  end;