Re: How do functions return unbounded arrays?

["Mark D. McKinney" <mck1nney@ix.netcom.com>]

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