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=2.3 required=5.0 tests=BAYES_00,
	FREEMAIL_FORGED_REPLYTO,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,751dd8d1629507ea,start
X-Google-Attributes: gid103376,public
From: Marc J Bejerano <mbejeran@uswest.net>
Subject: Storage error problem...
Date: 1999/02/04
Message-ID: <36B9A748.5CA5DAA8@uswest.net>#1/1
X-Deja-AN: 440585835
X-Report: Report abuse to abuse@uswest.net.
Content-Transfer-Encoding: 7bit
X-Accept-Language: en, de, ru
Content-Type: text/plain; charset=us-ascii
X-Trace: 4 Feb 1999 07:57:03 +0600, 209.181.206.85
MIME-Version: 1.0
Reply-To: marc_bejerano@email.com
Newsgroups: comp.lang.ada
Date: 1999-02-04T00:00:00+00:00
List-Id: <comp.lang.ada>

I have code similar to this:

Type Foo;
Type Foo_P is Access All Foo;

Type Foo is Record
    .
    .
    Bar: Aliased Foo_P;
End Record;

Type AFoo is Array (Natural Range <>) of Foo;

I then declars some variables of type Foo:

ABC : Foo(1..10) := ( ... )
ABC_P : Aliased Foo_P := new Foo(1..10);

in one of the Foo elements I reference a  ABC_P (essentially like a
nested menu).

Under HPUX this works fine.
Under Linux it raises a storage error.

I'd be happy to provide the code, it's just large.

Marc Bejerano