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,e447f17ef3e0aaf3
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.224.138.146 with SMTP id a18mr11590073qau.6.1343789549413;
        Tue, 31 Jul 2012 19:52:29 -0700 (PDT)
Received: by 10.66.74.40 with SMTP id q8mr3110077pav.19.1343789445457;
        Tue, 31 Jul 2012 19:50:45 -0700 (PDT)
Path: 
 a15ni13561295qag.0!nntp.google.com!r1no8449216qas.0!news-out.google.com!g9ni9632825pbo.0!nntp.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nrc-news.nrc.ca!goblin1!goblin.stu.neva.ru!takemy.news.telefonica.de!telefonica.de!newsfeed.arcor.de!newsspool2.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Sun, 29 Jul 2012 17:00:55 +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: Emulating placement new
References: <87vch67jsk.fsf@mid.deneb.enyo.de>
In-Reply-To: <87vch67jsk.fsf@mid.deneb.enyo.de>
Message-ID: <50155028$0$6576$9b4e6d93@newsspool3.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 29 Jul 2012 17:00:56 CEST
NNTP-Posting-Host: c43d8dc6.newsspool3.arcor-online.net
X-Trace: 
 DXC=aA[lJWkiEY4;]cDoEWD6A4McF=Q^Z^V384Fo<]lROoR18kF<OcfhCO;2^a?VURO\o?PCY\c7>ejV8`6I:;1<8f5<MJli[cA9_09
X-Complaints-To: usenet-abuse@arcor.de
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Date: 2012-07-29T17:00:56+02:00
List-Id: <comp.lang.ada>

On 29.07.12 15:56, Florian Weimer wrote:
> Is there a way to specify a storage pool (or something similar) on the
> allocator, and not on the access type?
>

Would subpools do? (I see that the access type's storage pool must be a
Root_Storage_Pool_With_Subpools.)

allocator ::=
    new [subpool_specification] subtype_indication
  | new [subpool_specification] qualified_expression

subpool_specification ::= (subpool_handle_name)