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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,6689542a60dbcc55
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!feeder.news-service.com!feeder.erje.net!weretis.net!feeder4.news.weretis.net!news.teledata-fn.de!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Mon, 23 Aug 2010 15:16:30 +0200
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US;
 rv:1.9.2.8) Gecko/20100802 Thunderbird/3.1.2
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Discriminated records are not the most efficient, but ...
References: <op.vhs349clule2fv@garhos> <op.vhs5xtdlule2fv@garhos>
 <op.vhtrcjhmule2fv@garhos> <op.vhuw06a1ule2fv@garhos>
 <874oemcr37.fsf@mid.deneb.enyo.de> <op.vhu027nyule2fv@garhos>
 <4c71e5fc$0$2388$4d3efbfe@news.sover.net> <op.vhvgxm1rule2fv@garhos>
 <8dejelF6qlU1@mid.individual.net> <m2k4nhdbqm.fsf@pushface.org>
 <54fd0620-5ca9-45b9-80c7-497b02f85e10@j18g2000yqd.googlegroups.com>
In-Reply-To: 
 <54fd0620-5ca9-45b9-80c7-497b02f85e10@j18g2000yqd.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Message-ID: <4c7274ae$0$6770$9b4e6d93@newsspool3.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 23 Aug 2010 15:16:31 CEST
NNTP-Posting-Host: 997d68e7.newsspool3.arcor-online.net
X-Trace: 
 DXC=M3;9?i7TDIifF8a^:6>b7eMcF=Q^Z^V3h4Fo<]lROoRa8kF<OcfhCOkHAQJ;JMblFmnc\616M64>jLh>_cHTX3jml3H98M:8_ij
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:13667
Date: 2010-08-23T15:16:31+02:00
List-Id: <comp.lang.ada>

On 23.08.10 13:44, Martin wrote:
> On 23 Aug, 08:33, Simon Wright <si...@pushface.org> wrote:
>> Niklas Holsti <niklas.hol...@tidorum.invalid> writes:
>>> Subprograms can be compiled on their own, without being enclosed in a
>>> package.
>>
>> And a main subprogram is usually a compilation unit, ie not in a package
>> (though I can't see anything that actually requires that,http://www.adaic.com/standards/05rm/html/RM-10-2.html(7)).
> 
> Used to be required in Ada83 (see http://archive.adaic.com/standards/83lrm/html/lrm-10-01.html#10.1
> - just before 'Notes') but Ada95 relaxed the rules.


package Empty is
   pragma Elaborate_Body (Empty);
end Empty;

with Ada.Text_IO;
package body Empty is
begin
   Ada.Text_IO.Put_Line ("Psst!");
end Empty;

$ gnatchop empty.ada && gnatmake -z empty



-- Georg