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,7a3b1c6915ea1273
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.189.202 with SMTP id gk10mr885905pbc.4.1326460929570;
        Fri, 13 Jan 2012 05:22:09 -0800 (PST)
Path: 
 lh20ni177515pbb.0!nntp.google.com!news1.google.com!news.glorb.com!feeder.erje.net!newsfeed.straub-nv.de!noris.net!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Fri, 13 Jan 2012 14:22:08 +0100
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6;
 rv:8.0) Gecko/20111105 Thunderbird/8.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: How many Ada compiler bugs are here?
References: 
 <6d352870-d204-4137-a562-5a0b67db1f80@h13g2000vbn.googlegroups.com>
 <15d37z3l8zllg$.3z2pj9cy5kvq.dlg@40tude.net>
 <12560181348142702.911808rmhost.bauhaus-maps.arcor.de@news.arcor.de>
 <xvj2f2yki9lk$.jv0y5dm4p76g$.dlg@40tude.net>
 <4f1026fd$0$6574$9b4e6d93@newsspool3.arcor-online.net>
 <df176784-3537-4180-995c-388979bb11eb@q8g2000yqa.googlegroups.com>
In-Reply-To: 
 <df176784-3537-4180-995c-388979bb11eb@q8g2000yqa.googlegroups.com>
Message-ID: <4f103001$0$6565$9b4e6d93@newsspool3.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 13 Jan 2012 14:22:09 CET
NNTP-Posting-Host: e1f12856.newsspool3.arcor-online.net
X-Trace: 
 DXC=G\`>XV>VZ;J[6=1B@oB@@@McF=Q^Z^V3H4Fo<]lROoRA8kF<OcfhCOK5LCKWkH=]UOnc\616M64>JLh>_cHTX3jMj[JHc9gZSlB
X-Complaints-To: usenet-abuse@arcor.de
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Date: 2012-01-13T14:22:09+01:00
List-Id: <comp.lang.ada>

On 13.01.12 14:06, AdaMagica wrote:

>> package P.Dummies is
>>    Raising_Dummy : constant T;
>> private
>>    Raising_Dummy : constant T := Raises_Assertion_Error;
>> end P.Dummies;
>>
>> -- or make Raising_Dummy a constructing function that raises,
>> -- so that raising happens where Raising_Dummy is written.

> I do not see what you are trying to accomplish. As written, P.Dummies
> will raise an exception upon elaboration.

Yes, my head was spinning around objects that would
be (default) Initialized while my fingers were typing
something different. Hence the constant-turned-function
comment.