Re: Strange crash on custom iterator

[Lucretia <laguest9000@googlemail.com>]

On Monday, 2 July 2018 20:42:59 UTC+1, Simon Wright  wrote:

> This worked for me ..

Thanks, needed the extra in Has_Element as well.

But there are other issues as well:

1) Cannot pass an array which has been declared and initialised to an aliased parameter:

procedure Mem is
   type Unicode_String is array (Positive range <>) of Integer;

   procedure Inner (B : aliased in out Unicode_String) is null;

   S : aliased Unicode_String(1..10) := (others => Integer'First);
--   S : aliased Unicode_String := (1..10 => Integer'First);
begin
   Inner (S);
end Mem;

2) raised STORAGE_ERROR : stack overflow or erroneous memory access, when using "'Access" instead of "package Convert is new System.Address_To_Access_Conversions (Unicode_String);" and "'Address"