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,133de21eb82605b
X-Google-Attributes: gid103376,public
From: "Mark D. McKinney" <mck1nney@ix.netcom.com>
Subject: Re: How do functions return unbounded arrays?
Date: 1998/06/17
Message-ID: <3587173B.6F26CC38@ix.netcom.com>#1/1
X-Deja-AN: 363702652
Content-Transfer-Encoding: 7bit
References: <358444BA.757121D8@cl.cam.ac.uk>
 <1998061518584100.OAA28557@ladder01.news.aol.com>
Mime-Version: 1.0
Reply-To: mckinney@mar.erols.com
Content-Type: text/plain; charset=us-ascii
Organization: RTI
X-NETCOM-Date: Wed Jun 17  6:08:13 PM PDT 1998
Newsgroups: comp.lang.ada
Date: 1998-06-17T18:08:13-07:00
List-Id: <comp.lang.ada>


John Herro wrote:
> 
> with Text_IO;
> procedure Test is
>    S : String(1 .. 18);
> begin
>    for L in Long_Integer range
>         10_000_000 .. 99_999_998 loop

        -- This may work
        -- Some compilers deallocate the space when exiting the scope of
a block.
        Long_Integer_Conversion_Block:
        begin

   >       S := Long_Integer'Image(L) &
   >            Long_Integer'Image(L + 1);

        -- Memory dealloated when the block exits here.
        end Long_Integer_Conversion_Block;
      
>    end loop;
> end Test;
> 
 Meridian Ada (Perhaps thats what you're using) had this problem and
this was the solution recommended. Not all compilers do this.


MArk McKinney