From: "Ratson Janiv" <janiv@013.net.il>
Subject: inheritence and generic
Date: Tue, 9 Dec 2003 03:23:25 +0200
Date: 2003-12-09T03:23:25+02:00 [thread overview]
Message-ID: <3fd52491@news.barak.net.il> (raw)
I have the following code :
generic
type Bounded_Q is new Queue with private;
package Jr.Queue.Max_Queue.Bounded is
type Max_Bounded_Queue is new Max_Queue with private;
procedure Push(Q: in out Max_Bounded_Queue ; Item:T);
private
type Max_Bounded_Queue is new Max_Queue with record
BQ : Bounded_Q;
end record;
end Jr.Queue.Max_Queue.Bounded;
---------------------------------------------------------------------------
package body Jr.Queue.Max_Queue.Bounded is
procedure Push(Q: in out Max_Bounded_Queue;Item:T) is
begin
Q.BQ.Push(Q,Item);
end Push;
end Jr.Queue.Max_Queue.Bounded;
-------------------------------------------------------------
compile error :
jr-queue-max_queue-bounded.adb:5:11: no selector "Push" for type "Queue"
defined at jr-queue.ads:12.
what am I doing wrong ?
10x a lot,
Janiv.
next reply other threads:[~2003-12-09 1:23 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-12-09 1:23 Ratson Janiv [this message]
2003-12-09 9:00 ` inheritence and generic Dmitry A. Kazakov
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox