Commit b32f46b5 authored by Maxime Perrotin's avatar Maxime Perrotin

Fixed regression

parent 2aff0f30
......@@ -16,7 +16,7 @@ package body ASN1_Iterators.Generic_Fixed_SeqOf is
(P.Has_Element(P.Ptr(Ptr.FirstIt)));
function Iterate (Self : ASN1_SeqOf)
return Iterators_SeqOf.Forward_Iterator'Class is
return ASN1_SeqOf_It'Class is --Iterators_SeqOf.Forward_Iterator'Class is
begin
return I: ASN1_SeqOf_It do
I.Ptr := Self'Unrestricted_Access;
......
......@@ -54,7 +54,7 @@ package ASN1_Iterators.Generic_Fixed_SeqOf is
Ptr : ASN1_SeqOf_Ptr) return ASN1_SeqOf_Ptr;
function Iterate (self : ASN1_SeqOf)
return Iterators_SeqOf.Forward_Iterator'Class;
return ASN1_SeqOf_It'Class; -- Iterators_SeqOf.Forward_Iterator'Class;
function Element_SeqOf_Value (Self : ASN1_SeqOf;
Ptr : ASN1_SeqOf_Ptr)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment