Re: A few questions

["Randy Brukardt" <randy@rrsoftware.com>]

"Simon Wright" <simon@pushface.org> wrote in message 
news:ly4mgrj8ab.fsf@pushface.org...
> "Randy Brukardt" <randy@rrsoftware.com> writes:
>
>> "Simon Wright" <simon@pushface.org> wrote in message
>> news:lyziyskeu2.fsf@pushface.org...
>
>>> Oh, it should have been
>>>
>>>   for P in F552A00_Prime_Numbers.Prime_Number_Set'(Max_Value =>
>>> 31).Iterate
>>>      loop
>>
>> I probably would have made type Prime_Number_Set directly the iterator
>> type (I don't see any other need for it), which would get rid of the
>> need for the ".Iterate". An iterator doesn't necessarily have to have
>> anything to do with a container!
>
> Hmm.
>
> A Prime_Number_Set is a new Prime_Number_Iterator.Forward_Iterator;
> Iterate returns a Prime_Number_Iterator.Forward_Iterator'Class.
>
> I tried without the .Iterate, as before, and with
>
>   for P in Prime_Number_Set'Class (Prime_Number_Set'(Max_Value => 30))
>
> (just in case) and as before got the 'expected a discrete type' error.

It should work either way. But does it work if you write:

   for P in Prime_Number_Iterator.Forward_Iterator'Class 
(Prime_Number_Set'(Max_Value => 30))

?? If so, GNAT surely has a bug (the type conversion shouldn't change 
anything). You could also try:

   for P in 
Prime_Number_Iterator.Forward_Iterator'(Prime_Number_Set'(Max_Value => 30))

which also shouldn't change anything.

> Perhaps this is a GNAT bug?

Looks like it to me.

> On the other hand, why did Brad include function Iterate?

It appears that he wanted tracing of the initialization (as that is all it 
does other than making a new iterator that is a copy of the first). It 
shouldn't be necessary.

                                          Randy.