From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,ea5071f634c2ea8b
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.28.135 with SMTP id b7mr3668564pbh.8.1322042059670;
        Wed, 23 Nov 2011 01:54:19 -0800 (PST)
Path: 
 lh20ni8562pbb.0!nntp.google.com!news2.google.com!goblin2!goblin.stu.neva.ru!news.teledata-fn.de!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Wed, 23 Nov 2011 10:54:18 +0100
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6;
 rv:7.0.1) Gecko/20110929 Thunderbird/7.0.1
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Generic-Package Elaboration Question / Possible GNAT Bug.
References: 
 <7bf9bc32-850a-40c6-9ae2-5254fe220533@f29g2000yqa.googlegroups.com>
 <wcc4nxzu5gf.fsf@shell01.TheWorld.com>
 <4295dc09-43de-4557-a095-fc108359f27f@y42g2000yqh.googlegroups.com>
 <fe29npj98k5s$.1vzwcva8q22hk.dlg@40tude.net>
 <a5d7119f-7bb7-41e4-8d76-ef08f2d958d9@g7g2000vbd.googlegroups.com>
 <3snehoqgs8ia$.1nobjem6g6hx6$.dlg@40tude.net>
 <wcc1ut14o97.fsf@shell01.TheWorld.com>
 <128rdz2581345$.c4td19l7qp9z$.dlg@40tude.net> <jaecvt$4tp$1@dont-email.me>
 <16ipwvpdavifr$.17bxf7if7f6kh$.dlg@40tude.net>
 <4ecb78b1$0$6643$9b4e6d93@newsspool2.arcor-online.net>
 <1iofgbqznsviu$.phvidtvxlyj4$.dlg@40tude.net>
 <4ecbb96e$0$6581$9b4e6d93@newsspool3.arcor-online.net>
 <vagow98uvk3n$.198v2ms719j4e$.dlg@40tude.net>
 <4ecbdfdb$0$6629$9b4e6d93@newsspool2.arcor-online.net>
 <12hfiflyf7pr5$.l3pkpgoid8xt$.dlg@40tude.net> <jah2np$7fp$1@munin.nbi.dk>
 <1ecuhb030iugz.4q1hfjx371xa.dlg@40tude.net>
 <4ecc393d$0$7625$9b4e6d93@newsspool1.arcor-online.net>
 <124aq618dmove.884jj64mzm6w$.dlg@40tude.net>
In-Reply-To: <124aq618dmove.884jj64mzm6w$.dlg@40tude.net>
Message-ID: <4eccc2ca$0$6640$9b4e6d93@newsspool2.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 23 Nov 2011 10:54:18 CET
NNTP-Posting-Host: f20f1321.newsspool2.arcor-online.net
X-Trace: 
 DXC=\Q\b2M4\8V^1`E>oC;JXEZA9EHlD;3YcR4Fo<]lROoRQ8kF<OcfhCO[kf;:X2gm8e[PCY\c7>ejVX1:G4`DH3cX\BA56Mb5k^NY
X-Complaints-To: usenet-abuse@arcor.de
Xref: news2.google.com comp.lang.ada:14556
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Date: 2011-11-23T10:54:18+01:00
List-Id: <comp.lang.ada>

On 23.11.11 09:44, Dmitry A. Kazakov wrote:

> It is lousy language design placing implementation (...) into declarations.

As said, the goal is to make postcondition a consequence
of the program without postcondition, and redundant.

   type T is new Ada.Finalization.Controlled with ...;

   overriding procedure Adjust (Object : in out T);

   procedure Op (Item : in out T);

Is there no executable code?


> The proper one is:
>
>     procedure ...
>        raise Contraint_Error; -- I don't tell you when and how


So I won't know what my client code has done wrong.
How am I to learn how to do it right?  Trial and error?