From: Gautier write-only <gautier_niouzes@hotmail.com>
Subject: Re: Type of the target of an assignment shall not be abstract
Date: Sun, 28 Feb 2010 09:00:15 -0800 (PST)
Date: 2010-02-28T09:00:15-08:00 [thread overview]
Message-ID: <9a77428c-97b4-49b1-8421-485a07377a24@o30g2000yqb.googlegroups.com> (raw)
In-Reply-To: 770863d9-14ae-4a05-b924-2dfeda7a96a8@f15g2000yqe.googlegroups.com
Just in case, here is a reduced example:
--
package Abstrax is
type Root is abstract tagged private;
type T1 is new Root with private;
procedure Reset(x: in out Root'Class);
private
type Root is abstract tagged record
i: Integer:= 11;
end record;
type T1 is new Root with record
j: Integer:= 22;
end record;
end;
--
package body Abstrax is
procedure Reset (x: in out Root'Class) is
y: T1;
begin
Root(x):= Root(y);
-- ^---- Wrong here !
end Reset;
end Abstrax;
--
Gautier
prev parent reply other threads:[~2010-02-28 17:00 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-02-14 14:20 Type of the target of an assignment shall not be abstract Gautier write-only
2010-02-14 17:57 ` Dmitry A. Kazakov
2010-02-15 17:05 ` Adam Beneschan
2010-02-15 19:00 ` Hibou57 (Yannick Duchêne)
2010-02-23 21:19 ` Robert A Duff
2010-02-16 0:59 ` Adam Beneschan
2010-02-16 10:03 ` Gautier write-only
2010-02-16 12:14 ` Gautier write-only
2010-02-16 16:12 ` Adam Beneschan
2010-02-28 17:00 ` Gautier write-only [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox