Re: Non-Stub In Inner Scope?

[Robert A Duff <bobduff@world.std.com>]

"David C. Hoos, Sr." <david.c.hoos.sr@ada95.com> writes:

> Just move the stub outside of the subprogram which now encloses it.

Yes, or put Wont_Work into a child package.

> > I'm having trouble with the problem of separate compilation.  If I
> > try this:
> >
> >     with Ada.Text_Io;
> >     package body Example is
> >        procedure Put_Line(Text: String) is
> >           function Wont_Work(Text: String) return String is separate;
> >        begin
> >           Ada.Text_Io.Put_Line(Wont_Work(Text));
> >        end Put_Line;
> >     end Example;

If Put_Line were also a subunit, it would work.  There's no particularly
good reason for it to work this way (IMHO), but that's the way it is:
you can't have a subunit more deeply nested like that.

But I generally prefer child units to subunits anyway...

- Bob