Re: Using Class wide types as factories, is this legit?

[David Botton <david@botton.com>]

> It is hard to say without seeing Initialize, Finalize and Adjust. I would
> 
> guess that Adjust is wrong, e.g. not making a deep copy of the things
> 
> killed in Finalize, which may lead to deallocating these twice in the first
> 
> variant of your code.

There is no adjust or finalize. Initialize looks like this:

   procedure Initialize (Object : in out Active_Record) is
      use Gnoga.Server.Database;
   begin
      if Object.Connection = null then
         raise Connection_Error;
      end if;

      Object.Fields :=
        Object.Connection.List_Fields_Of_Table
          (Object.Table_Name.all);
   end Initialize;