From: Martin <martin.dowie@btopenworld.com>
Subject: Re: Ada2012 Invariants and obaque types
Date: Tue, 21 Jun 2011 05:01:48 -0700 (PDT)
Date: 2011-06-21T05:01:48-07:00 [thread overview]
Message-ID: <d5ca92d9-1091-40ac-a256-f766e24c6574@a10g2000vbz.googlegroups.com> (raw)
In-Reply-To: wccmxhbv2td.fsf@shell01.TheWorld.com
On Jun 21, 12:31 pm, Robert A Duff <bobd...@shell01.TheWorld.com>
wrote:
> I suggest you erase the invariant, fix the errors, and then put the
> invariant back in. There's nothing wrong with your invariant.
Ok, with no Invariant:
package P1 is
type T1 is tagged private;
function Is_Valid (This : T1) return Boolean;
private
type Imp;
type Imp_Ref is not null access Imp;
type T1 is tagged
record
I : Imp_Ref;
end record;
end P1;
I get:
gnatmake -d -PH:\Ada\test_invarients\test_invarients.gpr p1.ads
gcc -c -g -g -gnatE -fstack-check -gnato -gnatf -fcallgraph-info=su,da
-gnat12 -I- -gnatA H:\Ada\test_invarients\src\p1.ads
cannot generate code for file p1.ads (package spec)
gnatmake: "H:\Ada\test_invarients\src\p1.ads" compilation error
[2011-06-21 12:58:10] process exited with status 4 (elapsed time:
00.37s)
i.e. no error.
The most reduced version I can come up with is now:
package P1 is
type T1 is tagged private
with Invariant => True; -- NB: not even a 'real' function
private
type Imp;
type Imp_Ref is not null access Imp;
type T1 is tagged
record
I : Imp_Ref;
end record;
end P1;
which produces the same original error:
gnatmake -d -PH:\Ada\test_invarients\test_invarients.gpr p1.ads
gcc -c -g -g -gnatE -fstack-check -gnato -gnatf -fcallgraph-info=su,da
-gnat12 -I- -gnatA H:\Ada\test_invarients\src\p1.ads
p1.ads:5:04: type "Imp" is frozen at line 2 before its full
declaration
gnatmake: "H:\Ada\test_invarients\src\p1.ads" compilation error
[2011-06-21 13:01:10] process exited with status 4 (elapsed time:
00.53s)
-- Martin
next prev parent reply other threads:[~2011-06-21 12:01 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-06-21 8:53 Ada2012 Invariants and obaque types Martin
2011-06-21 10:27 ` Yannick Duchêne (Hibou57)
2011-06-21 10:36 ` Martin
2011-06-21 10:46 ` Martin
2011-06-21 18:42 ` Yannick Duchêne (Hibou57)
2011-06-21 10:43 ` Ludovic Brenta
2011-06-21 10:53 ` Martin
2011-06-21 11:14 ` Martin
2011-06-21 11:31 ` Robert A Duff
2011-06-21 11:48 ` Martin
2011-06-21 12:01 ` Martin [this message]
2011-06-21 12:13 ` Robert A Duff
2011-06-21 12:22 ` Martin
2011-06-21 12:54 ` Robert A Duff
2011-06-21 13:00 ` Martin
2011-06-21 12:08 ` Dmitry A. Kazakov
2011-06-21 12:17 ` Georg Bauhaus
2011-06-21 12:31 ` Dmitry A. Kazakov
2011-06-21 13:29 ` Georg Bauhaus
2011-06-21 14:42 ` Dmitry A. Kazakov
2011-06-21 18:37 ` Yannick Duchêne (Hibou57)
2011-06-21 18:53 ` Dmitry A. Kazakov
2011-06-21 19:34 ` Vinzent Hoefler
2011-06-21 20:52 ` Dmitry A. Kazakov
2011-06-21 21:50 ` Vinzent Hoefler
2011-06-22 7:55 ` Dmitry A. Kazakov
2011-06-21 21:18 ` Manuel Collado
2011-06-22 8:00 ` Dmitry A. Kazakov
2011-06-22 10:39 ` Egil Høvik
2011-06-22 13:57 ` Martin
2011-06-23 16:21 ` anon
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox