test with task

From: Brittany (brittany_2005_at_mail.com)
Date: 12/17/04


Date: 17 Dec 2004 05:17:20 -0800

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
Post a follow-up to this message

Message 7 in thread
From: mferracini (maurizio.ferracini@gmail.com)
Subject: Re: test with task
 
  
View this article only
Newsgroups: comp.lang.ada
Date: 2004-11-23 08:37:22 PST
 

new problem :) (i try a solution of my problem but dont' work...)

package Foo is
package Bar is
procedure nulla;
end Bar;
end Foo;

package body Foo is
package body Bar is
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 dummy;
begin
null;
end Foo;

--------------------------------
how make dummy visible? and if dummy is a task type?

thanks
http://www.geocities.com/gooksite/googlegrp.html



Relevant Pages

  • Re: test with task
    ... package Foo is ... package Bar is ... package body Foo is ... type Dummy is new Integer; ...
    (comp.lang.ada)
  • Re: test with task
    ... package Foo is ... package Bar is ... package body Foo is ... type Dummy is new Integer; ...
    (comp.lang.ada)
  • Re: test with task
    ... > package Bar is ... > package body Foo is ... > procedure Nulla is ...
    (comp.lang.ada)
  • Re: Insert with response
    ... FooBar, there's no way and no need to put them in synch. ... column in the foo table to 250 calumns in the bar table. ... set statistics time off ...
    (microsoft.public.sqlserver.programming)
  • Re: Magic function
    ... processing objects created in root at depth 3 ... root obj2 at depth 3 ... processing objects created in foo at depth 2 ... processing objects created in bar at depth 0 ...
    (comp.lang.python)