Start working on Initialize for SeqOf

asn1-iterators/src/asn1_iterators-iterable_seqof.adb

@@ -4,16 +4,15 @@ use Ada.Text_IO;
 package body ASN1_Iterators.Iterable_SeqOF is
 
     procedure Initialize (It: in out ASN1_SequenceOf) is
---        Rest_Init : Instance;
     begin
          Put_Line ("Initialize Iterable_SeqOF length " & It.Length'Img);
---       It.Value.Length := It.Length;
---       if It.Length > 1 then
---           Rest_Init.Item.Length := It.Length - 1;
---           It.Rest               := new Instance'(Rest_Init);
---           It.Rest_It            := new Cust_Iterator'(Cust_Iterator(It.Rest.Iterate));
---           It.Rest_It.Ptr        := It.Rest_It.First;
---       end if;
+         It.Value.Length := It.Length;
+         if It.Length > 1 then
+             It.Rest               := new Instance; -- not initialized
+             It.Rest.Item.Length   := It.Length - 1;
+             It.Rest_It            := new Cust_Iterator'(Cust_Iterator(It.Rest.Iterate));
+             It.Rest_It.Ptr        := It.Rest_It.First;
+         end if;
     end;
 
     function Has_Element (It: ASN1_SequenceOf) return Boolean is