Re: test with task

From: "Björn Lundin" <bnl@tiscali.se>
To: comp.lang.ada@ada-france.org
Subject: Re: test with task
Date: Thu, 25 Nov 2004 22:07:56 +0100
Date: 2004-11-25T22:07:56+01:00	[thread overview]
Message-ID: <mailman.121.1101416909.10401.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: <1101379922.259456.11270@c13g2000cwb.googlegroups.com>

torsdag 25 november 2004 11:52 skrev mferracini:
> Jeffrey Carter wrote:
> > >    type N_array is array (1..10) of Dummy;
> >
> > type N_Array is array (1 .. 10) of Bar.Dummy;
>
> foo.adb:10:40 "dummy" is not a visible entity of "bar"

Move the declaration of dummy to bar spec as in

 package Foo is
    package Bar is
       type Dummy is new Integer;
       procedure nulla;
    end Bar;
 end Foo;
 
 package body Foo is
    package body Bar is
-- moved to spec       type Dummy is new Integer;
       procedure Nulla is
          X : Dummy;
       begin
          X:=1;
       end Nulla;
    end Bar;
   type N_Array is array (1 .. 10) of Bar.Dummy;
end Foo;

/Björn
>
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada