comp.lang.ada
 help / color / mirror / Atom feed
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



      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