From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7a4380ff535aa24d,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-11-28 05:07:02 PST
Newsgroups: comp.lang.ada
Path: nntp.gmd.de!xlink.net!howland.reston.ans.net!EU.net!sun4nl!rburema
From: rburema@inter.NL.net (Rene Burema)
Subject: cross linking packages
Message-ID: <CzzAMz.K9F@inter.NL.net>
Organization: NLnet
Date: Mon, 28 Nov 1994 12:56:58 GMT
Date: 1994-11-28T12:56:58+00:00
List-Id: <comp.lang.ada>

Dear netlanders,

I have a problem specifing a seemingly simple problem in Ada. Anybody
want to help?

The problem is as follows:

-------------------- package A -----------------------
package A;
type tA is private;
procedure giveB(x: in tA,y: out tB);
end A;
-------------------- package B -----------------------
package B;
type tB is private;
procedure giveA(x: in tB,y: out tA);
end B;
---------------
where tA could be a reference to a  Doctor giving the reference to
a Patient (tB) and vice versa.

I need a with statement for B and A respectively. The Ada gnat compiler
however stumbles into a circular dependency. How can I solve this without
placing the two types tA and tB in a single package.

Many thanks for any help

	Arjen Duursma (arjen@capints.uucp)

PS: don't use the return adress in the message, as it is a shared account.