Re: Iterator trouble??

[Jeffrey Carter <jrcarter@acm.org>]

Michael Andersson wrote:
> 
> Why do I get the following compiler error?
> access discriminats allowed only for limited types
> 
> with Spline_Pkg; use Spline_Pkg;
> 
> package Spline_Pkg.SplineIterator_Pkg is
>    type SplineIterator(S :  access Spline) is limited private;
>    function Next(Si : SplineIterator) return Point3;
> private
>    type SplineIterator(S : access Spline)  is
>       record
>          Index : Natural;
>       end record;
> end Spline_Pkg.SplineIterator_Pkg;
> 

This is because the full declaration of type Splineiterator is not
limited. You could make it limited by replacing "is record" with "is
limited record".

Note that "with Spline_Pkg;" is unnecessary; child packages
automatically have visibility to their parents.

-- 
Jeff Carter
"Your mother was a hamster and your father smelt of elderberries."
Monty Python & the Holy Grail