Re: Help : Circular dependency

[Jeffrey Carter <jrcarter@acm.org>]

prashna wrote:
> Can anybody explain, with example, What is circular dependecy?

with B;
package A is
    type T is (Ay, Has, Tipe, Tee);
    procedure Op (P1 : in T; P2 : in B.T);
end A;

with A;
package B is
    type T is (Bee, Has, Tipe, Tee);
    procedure Op (P1 : in T; P2 : in A.T);
end B;

A depends on B, and B depends on A.

You can remove this by moving one of the type declarations up to a 
parent package (or moving the operations to a child package):

package A is
    type T is (Ay, Has, Tipe, Tee);
end A;

with B;
package A.Ops is
    procedure Op (P1 : in T; P2 : in B.T);
end A;

with A;
package B is
    type T is (Bee, Has, Tipe, Tee);
    procedure Op (P1 : in T; P2 : in A.T);
end B;

Now A does not depend on B, and B does not depend on A.Ops, so there is 
no circularity.

-- 
Jeff Carter
"Death awaits you all, with nasty, big, pointy teeth!"
Monty Python & the Holy Grail