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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,38159b1b5557a2e7
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-01-21 22:00:54 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-post-02!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: Standard Ada Preprocessor (Was: why ada is so unpopular ?)
Date: Wed, 21 Jan 2004 23:59:46 -0600
Organization: Posted via Supernews, http://www.supernews.com
Message-ID: <100upo7ln5e3k59@corp.supernews.com>
References: <bub5n8$kf5$1@atlantis.news.tpi.pl>
 <49cbf610.0401170627.79c3dfe5@posting.google.com>
 <buc87c$8p$1@nemesis.news.tpi.pl>
 <slrnc0je79.hlv.adi@ppc201.mipool.uni-jena.de>
 <budjfo$n18$1@nemesis.news.tpi.pl> <budvvf$9al$1@online.de>
 <bue4r7$3n6$1@nemesis.news.tpi.pl> <400A9B48.3060100@noplace.com>
 <slrnc0lddd.2bt.randhol+valid_for_reply_from_news@k-083152.nt.ntnu.no>
 <400BD4B5.6000307@noplace.com>
 <slrnc0nlj3.1jn.randhol+valid_for_reply_from_news@k-083152.nt.ntnu.no>
 <400BDB7C.40100@noplace.com>
 <slrnc0nncv.4qq.randhol+valid_for_reply_from_news@k-083152.nt.ntnu.no>
 <400D2150.6000705@noplace.com> <nBdPb.5187$rW5.288435@news20.bellglobal.com>
 <400E72F9.8060501@noplace.com> <LNOdncWFbKUojpLdRVn-uQ@comcast.com>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4807.1700
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
X-Complaints-To: abuse@supernews.com
Xref: archiver1.google.com comp.lang.ada:4626
Date: 2004-01-21T23:59:46-06:00
List-Id: <comp.lang.ada>

"Robert I. Eachus" <rieachus@comcast.net> wrote in message
news:LNOdncWFbKUojpLdRVn-uQ@comcast.com...
> E:\Ada\Test>system_names
> system_names
>   The Available System Names are: SYSTEM_NAME_GNAT.
>
>   Current System.System_Name is: SYSTEM_NAME_GNAT.
>
> Is there any compiler that produces a useful output?

Dunno. We used to have additional names in that enumeration, but I believe
we removed the capability because of the ACVC. In Ada 83, you were supposed
to be able to set the value of the System_Name (via a pragma, I believe) to
any of the allowed choices. The best way to "avoid" that test was to have
only one name in the enumeration. Then, the test couldn't do anything
useful.

Although that capability is long gone, I suppose implementers are sticking
with the way it was back then.

Besides, having all of your supported targets in the enumeration is a real
maintenance headache. If you add or drop support for a target, you have to
go modify System in all of the targets. Yuck.

                 Randy.