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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.107.6.80 with SMTP id 77mr7060355iog.11.1438426060649;
        Sat, 01 Aug 2015 03:47:40 -0700 (PDT)
X-Received: by 10.140.104.147 with SMTP id a19mr69250qgf.2.1438426060621; Sat,
 01 Aug 2015 03:47:40 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!f3no5838933igg.0!news-out.google.com!78ni2026qge.1!nntp.google.com!69no3216434qgl.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 1 Aug 2015 03:47:40 -0700 (PDT)
In-Reply-To: <lyoairo1ao.fsf@pushface.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=81.203.145.32;
 posting-account=AFCLjAoAAABJAOf_HjgEEEi3ty-lG5m2
NNTP-Posting-Host: 81.203.145.32
References: <e610ca1e-4df6-4fbb-b3a1-ac35694d9072@googlegroups.com>
 <mp645u$abo$1@loke.gir.dk>
 <2df4698f-4c8e-457c-822d-209cb2f8ab5e@googlegroups.com>
 <mp8r8l$fnn$1@loke.gir.dk>
 <014427b1-ff7a-4a69-82e6-0330af77ed96@googlegroups.com>
 <mpbd8f$re$1@loke.gir.dk>
 <d5a73210-a67f-4d21-8b16-536af10ab157@googlegroups.com>
 <mpborl$6b9$1@dont-email.me>
 <91f88d79-197c-419f-84a8-908e05967a2c@googlegroups.com>
 <d1tst3FoastU1@mid.individual.net> <mpcjpo$93v$1@dont-email.me>
 <135c2b00-d13c-4f5d-a586-8aca442d363b@googlegroups.com>
 <87380683vc.fsf@adaheads.sparre-andersen.dk>
 <347c6be9-c918-4bc0-9494-c93cd6740def@googlegroups.com>
 <mpdts2$72e$3@dont-email.me>
 <4cb32c40-f659-490d-bbb6-73585fc069e8@googlegroups.com>
 <mpfm1b$bif$5@dont-email.me>
 <mpgcma$hup$1@dont-email.me>
 <7e653a88-e690-431a-9df9-3fc691466e08@googlegroups.com>
 <lyzj2bo4pi.fsf@pushface.org>
 <25e8deb9-a967-4856-97cb-4257e1ba7fa4@googlegroups.com>
 <lyoairo1ao.fsf@pushface.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a7e26857-2ab6-4cc3-a9ef-f39d2f71a826@googlegroups.com>
Subject: Re: Running a preprocessor from GPS?
From: EGarrulo <egarrulo@gmail.com>
Injection-Date: Sat, 01 Aug 2015 10:47:40 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: news.eternal-september.org comp.lang.ada:27292
Date: 2015-08-01T03:47:40-07:00
List-Id: <comp.lang.ada>

On Saturday, August 1, 2015 at 10:32:47 AM UTC+2, Simon Wright wrote:
> EGarrulo  writes:
> 
> >    if Some_Condition then
> >       declare
> >          with Ada; use Ada;
> >       begin
> >          Singleton := Singleton_Package.Singleton_Instance; -- Read variable.
> >          -- Use singleton.
> >       end;
> >    end if;
> >
> > But the compiler complains that "aspect specifications not allowed
> > here".  Or does "with Package" put a package in scope without
> > elaborating it until "use Package", and therefore I should have left
> > only the "use" directive?
> 
> "with Pkg" can only occur in a compilation unit's context clauses.
> 
> "use Pkg" can appear there, and also in a declarative region (e.g. your
> "declare" section).
> 
> "use" has no effect on elaboration, only on visibility. See ARM 10.2,
> Program Execution.
> 
> http://www.adaic.org/resources/add_content/standards/12rm/html/RM-10-2.html

Thanks.  Therefore there is no way to postpone the creation of a singleton 
until client code needs it, by relying on package elaboration alone, right?  
Therefore Ada -- too -- needs the Singleton pattern.