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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: some trivial questions?
Date: Tue, 07 Nov 2017 11:50:38 +0000
Organization: A noiseless patient Spider
Message-ID: <lyinemgve9.fsf@pushface.org>
References: <6a5368c5-f015-4dcb-9291-e77b40fa1bf1@googlegroups.com>
	<ff607ea1-9d64-441b-b5e6-1a4377a5a199@googlegroups.com>
	<oteku0$ek3$1@gioia.aioe.org> <lymv44erz2.fsf@pushface.org>
	<otf6tg$1j81$1@gioia.aioe.org> <wccr2tbc8vg.fsf@TheWorld.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: reader02.eternal-september.org;
 posting-host="6ae46ce746d235e9262c27f6436d5c3e";
	logging-data="5659"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+0TpRQm/cZht8MCgguS5ASmYP0oM7tCtA="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (darwin)
Cancel-Lock: sha1:b/7PIHK7/OcBKOEKZvkppKig23A=
	sha1:qlWNfGPIrm0xBoP1EyggyKtQCG8=
Xref: news.eternal-september.org comp.lang.ada:48757
Date: 2017-11-07T11:50:38+00:00
List-Id: <comp.lang.ada>

Robert A Duff <bobduff@TheWorld.com> writes:

> "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:
>
>> On 02/11/2017 14:21, Simon Wright wrote:
>>> AdaCore used to use the rename-package-as-abbreviation pattern a lot,
>
> Used to?  That style is used in the run-time system,
> but not so much in the compiler.

Yes, there seem to be only 6 instances in the compiler (all of children
of GNAT.Spitbol).

And one at least looks silly -- ceinfo.adb,

   package TV renames GNAT.Spitbol.Table_VString;
   use TV;

Instead, the compiler goes over the top (IMO) with 'use' - par.adb,

   with Aspects;  use Aspects;
   with Atree;    use Atree;
   with Casing;   use Casing;
   with Debug;    use Debug;
   with Elists;   use Elists;
   with Errout;   use Errout;
   with Fname;    use Fname;
   with Lib;      use Lib;
   with Namet;    use Namet;
   with Namet.Sp; use Namet.Sp;
   with Nlists;   use Nlists;
   with Nmake;    use Nmake;
   with Opt;      use Opt;
   with Output;   use Output;
   with Par_SCO;  use Par_SCO;
   with Restrict; use Restrict;
   with Scans;    use Scans;
   with Scn;      use Scn;
   with Sem_Util; use Sem_Util;
   with Sinput;   use Sinput;
   with Sinput.L; use Sinput.L;
   with Sinfo;    use Sinfo;
   with Snames;   use Snames;
   with Style;
   with Stylesw;  use Stylesw;
   with Table;
   with Tbuild;   use Tbuild;