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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b0e28886667436ea,start
X-Google-Attributes: gid103376,public
From: Philippe Laval <laval@obs-vlfr.fr>
Subject: Task storage
Date: 1998/02/24
Message-ID: <34F30CB0.CD9@obs-vlfr.fr>#1/1
X-Deja-AN: 328205092
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=us-ascii
Organization: CNRS
Mime-Version: 1.0
Reply-To: laval@obs-vlfr.fr
Newsgroups: comp.lang.ada
Date: 1998-02-24T00:00:00+00:00
List-Id: <comp.lang.ada>


My Ada 95 application, compiled with Gnat 3.10 under Windows 95,
recursively allocates large tasks (about 1_000 instructions).
Storage_Error is raised after only a few ten tasks are created, despite
the 40 Mbytes available on my machine. I need about 12 Kbytes of stack
per task. The default storage pool is obviously too small. I would like
to set up a user defined pool object, according to the chapter 13.11 of
the ALRM, but the examples given make not very clear how Allocate could
be overridden to reserve 12 Kbytes each time "new" is executed. Where
can I find some examples which could be adapted to solve my problem?
-- 
Philippe Laval
Observatoire oceanologique - Villefranche-sur-Mer (France)
laval@obs-vlfr.fr