From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,27db9c02e8783e58
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Received: by 10.224.180.205 with SMTP id bv13mr1514736qab.8.1343318185801;
        Thu, 26 Jul 2012 08:56:25 -0700 (PDT)
Received: by 10.66.85.231 with SMTP id k7mr1832277paz.38.1343318185732;
        Thu, 26 Jul 2012 08:56:25 -0700 (PDT)
Received: by 10.66.72.73 with SMTP id b9mr1635862pav.9.1343314692551;
        Thu, 26 Jul 2012 07:58:12 -0700 (PDT)
Path: 
 a15ni113198934qag.0!nntp.google.com!q21no9803394qas.0!news-out.google.com!p10ni65138561pbh.1!nntp.google.com!u4no1994214pbs.0!news-out.google.com!b9ni64925609pbl.0!nntp.google.com!border1.nntp.dca.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!newsfeed.straub-nv.de!news.swapon.de!de-l.enfer-du-nord.net!feeder2.enfer-du-nord.net!gegeweb.org!dedibox.gegeweb.org!nntpfeed.proxad.net!proxad.net!feeder2-2.proxad.net!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Thu, 19 Jul 2012 15:45:30 +0200
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7;
 rv:14.0) Gecko/20120713 Thunderbird/14.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Differences in finalization of controlled objects between gcc
 4.6 and gcc 4.7
References: <ju8u7t$kh9$1@speranza.aioe.org>
In-Reply-To: <ju8u7t$kh9$1@speranza.aioe.org>
Message-ID: <50080f7b$0$9525$9b4e6d93@newsspool1.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 19 Jul 2012 15:45:31 CEST
NNTP-Posting-Host: cb69df50.newsspool1.arcor-online.net
X-Trace: 
 DXC=hL27=K9HI;lPXlQ;h]GTMdic==]BZ:afn4Fo<]lROoRankgeX?EC@@`@eiPY3A=egenc\616M64>jLh>_cHTX3jmB:fNnFiOX\l
X-Complaints-To: usenet-abuse@arcor.de
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
Date: 2012-07-19T15:45:31+02:00
List-Id: <comp.lang.ada>

On 19.07.12 14:23, Markus Sch�pflin wrote:
> Is there a way to have the objects created in place directly in the array?


Can you make the type limited?

(And of so, then T could also be self-initializing:

   type T is new ADA.FINALIZATION.LIMITED_CONTROLLED with
      record
         SELF : T_PTR := INIT_T (T'Unchecked_Access);
         ITEM : INTEGER;
      end record;
(...

   function INIT_T (X : T_PTR) return T_PTR is
   begin
      TEXT_IO.PUT_LINE (SYSTEM.ADDRESS_IMAGE (X'Address) & ": <");
      X.ITEM := 123;
      return X;
   end INIT_T;

...)