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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!BGUVM.BITNET!GDAU100
From: GDAU100@BGUVM.BITNET ("Jonathan B. Owen")
Newsgroups: comp.lang.ada
Subject: Problem with defining *BIG* arrays using Verdix Ada on Apollo -
 Help Please
Message-ID: <8910162021.AA29952@ajpo.sei.cmu.edu>
Date: 19 Oct 89 16:27:26 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
X-Unparsable-Date: Mon, 16 Oct 89 22:04:31 IST
List-Id: <comp.lang.ada>

I have a need to define a 1-4 Meg array in a procedure as follows:

procedure MEG_ARRAY is

   type Byte is range 0..255;
   for Byte'Size use 8;

   type Byte_array is array(integer range <>) of Byte;

    My_array : Byte_array(1..1024*1024);

begin
   for i in My_array'RANGE
   loop
       -- Do something impresive!
   end loop;
end MEG_ARRAY;

When I try to run the program, I get a STORAGE_ERROR.  I am using Verdix
Ada Ver 3.0 on an Apollo (SR10.2b).   I have tried defining a bigger stack
than the default (using apollo's CONFIG_.A package).  No luck.

    I would very much appreciate any pointers/suggestions.

                                                           Thank you,
                                                                     Jonathan

______________________________________________________________________________
  (--)    /--)     /-(\                 Email: gdau100@bguvm (bitnet)
  \ /    /--K      | \|/\   /\/) /|-\   Snail: 55 Hovevei Zion
  _/_/o /L__)_/o \/\__/  \X/  \_/ | |_/        Tel-Aviv, 63346  ISRAEL
 (/        Jonathan B. Owen             Voice: (03) 281-422

 Point of view:  A chicken is the means by which an egg reproduces an egg.
______________________________________________________________________________
Acknowledge-To: <GDAU100@BGUVM>