From: ytomino <aghia05@gmail.com>
Subject: Re: discriminant questions
Date: Mon, 19 Sep 2011 07:46:15 -0700 (PDT)
Date: 2011-09-19T07:46:15-07:00 [thread overview]
Message-ID: <d6b8a9d4-3ad6-492c-bbf3-cdd14880bd07@s7g2000yqd.googlegroups.com> (raw)
In-Reply-To: 708a1202-d480-451b-9b55-00b31ad9c452@w28g2000yqw.googlegroups.com
Please look below:
procedure q1 is
generic
type e is private;
package the_package_like_ada2012_vector is
type ref (element : not null access e) is null record;
end the_package_like_ada2012_vector;
generic
type e is private;
type ref (element : not null access e) is private;
package the_package_use_ref is
end the_package_use_ref;
package inst1 is new the_package_like_ada2012_vector (integer);
package inst2 is new the_package_use_ref (integer, inst1.ref); --
error (line 13)
-- additional from here
type int_ref (element : not null access Integer) is null record;
package inst3 is new the_package_use_ref (integer, int_ref); --
ok !?!?
begin
null;
end q1;
-- q1.adb:13:65: types of actual discriminants must match formal
-- q1.adb:13:65: instantiation abandoned
I can not understand the reason that inst1 is error and inst2 is ok.
It seems bug to me.
Can someone tell me which is this bug or specified in RM?
If this is actual bug, I'd like to report it to gcc.
Quick fix for the time being: (is this fix correct?)
Index: gcc/ada/sem_ch12.adb
===================================================================
--- gcc/ada/sem_ch12.adb (revision 178831)
+++ gcc/ada/sem_ch12.adb (working copy)
@@ -10158,10 +10158,10 @@
if Ekind (Base_Type (Formal_Subt)) =
E_Anonymous_Access_Type
and then (Ekind (Base_Type (Etype
(Actual_Discr)))) =
E_Anonymous_Access_Type
- and then
+ and then Subtypes_Match (
Get_Instance_Of
- (Designated_Type (Base_Type (Formal_Subt))) =
- Designated_Type (Base_Type (Etype
(Actual_Discr)))
+ (Designated_Type (Base_Type (Formal_Subt))),
+ Designated_Type (Base_Type (Etype
(Actual_Discr))))
then
null;
next prev parent reply other threads:[~2011-09-19 14:46 UTC|newest]
Thread overview: 89+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-09-17 16:30 discriminant questions ytomino
2011-09-17 17:19 ` Dmitry A. Kazakov
2011-09-17 17:46 ` ytomino
2011-09-17 19:41 ` Dmitry A. Kazakov
2011-09-17 22:55 ` ytomino
2011-09-18 8:50 ` Dmitry A. Kazakov
2011-09-18 10:54 ` ytomino
2011-09-18 11:35 ` Dmitry A. Kazakov
2011-09-18 12:41 ` ytomino
2011-09-18 13:17 ` Dmitry A. Kazakov
2011-09-18 16:22 ` ytomino
2011-09-18 16:32 ` ytomino
2011-09-18 18:15 ` Dmitry A. Kazakov
2011-09-18 23:44 ` ytomino
2011-09-19 7:27 ` Dmitry A. Kazakov
2011-09-18 14:43 ` Dmitry A. Kazakov
2011-09-18 16:46 ` Robert A Duff
2011-09-18 18:01 ` Dmitry A. Kazakov
2011-09-18 19:20 ` Maciej Sobczak
2011-09-19 7:39 ` Dmitry A. Kazakov
2011-09-19 20:00 ` Maciej Sobczak
2011-09-20 7:33 ` Dmitry A. Kazakov
2011-09-20 15:45 ` Maciej Sobczak
2011-09-20 16:48 ` Dmitry A. Kazakov
2011-09-20 20:19 ` Maciej Sobczak
2011-09-21 7:48 ` Dmitry A. Kazakov
2011-09-21 20:51 ` Maciej Sobczak
2011-09-22 8:07 ` Dmitry A. Kazakov
2011-09-22 20:57 ` Maciej Sobczak
2011-09-23 7:59 ` Dmitry A. Kazakov
2011-09-23 10:57 ` Georg Bauhaus
2011-09-23 22:30 ` Randy Brukardt
2011-09-23 22:50 ` Randy Brukardt
2011-09-24 6:46 ` Dmitry A. Kazakov
2011-09-26 22:48 ` Randy Brukardt
2011-09-27 8:10 ` Dmitry A. Kazakov
2011-09-27 10:18 ` Georg Bauhaus
2011-09-27 12:14 ` Dmitry A. Kazakov
2011-09-27 15:11 ` Georg Bauhaus
2011-09-27 15:38 ` Dmitry A. Kazakov
2011-09-27 18:06 ` Georg Bauhaus
2011-09-27 19:06 ` Dmitry A. Kazakov
2011-09-29 0:01 ` Georg Bauhaus
2011-09-29 8:26 ` Dmitry A. Kazakov
2011-09-30 1:24 ` Randy Brukardt
2011-09-30 8:10 ` Dmitry A. Kazakov
2011-09-30 10:07 ` Georg Bauhaus
2011-09-30 12:38 ` Dmitry A. Kazakov
2011-09-30 17:40 ` Georg Bauhaus
2011-09-30 18:55 ` Dmitry A. Kazakov
2011-09-23 9:23 ` Stephen Leake
2011-09-23 9:48 ` Dmitry A. Kazakov
2011-09-23 22:42 ` Randy Brukardt
2011-09-24 6:56 ` Dmitry A. Kazakov
2011-09-26 22:43 ` Randy Brukardt
2011-09-24 10:47 ` Stephen Leake
2011-09-24 12:54 ` Simon Wright
2011-09-24 14:46 ` Dmitry A. Kazakov
2011-09-24 16:21 ` Simon Wright
2011-09-24 16:43 ` Dmitry A. Kazakov
2011-09-22 2:52 ` Randy Brukardt
2011-09-22 8:11 ` Dmitry A. Kazakov
2011-09-20 0:01 ` Randy Brukardt
2011-09-20 7:38 ` Dmitry A. Kazakov
2011-09-20 11:11 ` AdaMagica
2011-09-20 12:09 ` Dmitry A. Kazakov
2011-09-20 12:31 ` AdaMagica
2011-09-20 12:57 ` Dmitry A. Kazakov
2011-09-20 23:28 ` ytomino
2011-09-21 5:03 ` AdaMagica
2011-09-21 8:08 ` Dmitry A. Kazakov
2011-09-21 10:03 ` Georg Bauhaus
2011-09-21 10:29 ` Dmitry A. Kazakov
2011-09-22 3:21 ` Randy Brukardt
2011-09-22 3:05 ` Randy Brukardt
2011-09-19 23:35 ` Randy Brukardt
2011-09-20 21:39 ` ytomino
2011-09-22 3:32 ` Randy Brukardt
2011-09-18 16:32 ` ytomino
2011-09-19 14:46 ` ytomino [this message]
2011-09-19 15:14 ` Dmitry A. Kazakov
2011-09-19 17:49 ` ytomino
2011-09-20 7:29 ` Georg Bauhaus
2011-09-20 19:50 ` ytomino
2011-09-20 8:08 ` Dmitry A. Kazakov
2011-09-20 18:47 ` ytomino
2011-09-21 8:16 ` Dmitry A. Kazakov
2011-09-21 9:55 ` ytomino
2011-09-22 3:26 ` Randy Brukardt
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox