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,38fc011071df5a27
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-02 04:28:32 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!arclight.uoregon.edu!wn13feed!worldnet.att.net!4.24.21.153!chcgil2-snh1.gtei.net!news.bbnplanet.com!chcgil2-snf1.gtei.net!news.gtei.net!news.binc.net!kilgallen
From: Kilgallen@SpamCop.net (Larry Kilgallen)
Newsgroups: comp.lang.ada
Subject: Re: Ideas for Ada 200X
Date: 2 Jun 2003 06:28:27 -0500
Organization: LJK Software
Message-ID: <DFUCrHaMqkmj@eisner.encompasserve.org>
References: <6a90b886.0305262344.1d558079@posting.google.com>
 <VjOAa.16051$8g5.257873@news2.e.nsc.no> <3ED41344.7090105@spam.com>
 <3ED46D81.FF62C34F@0.0> <3ED46E07.4340CABC@0.0>
 <3ED4F3FD.A0EF7079@alfred-hilscher.de> <xIeBa.1017346$3D1.597085@sccrnsc01>
 <bebbba07.0305292326.75f5fbef@posting.google.com> <u4r3co12f.fsf@nasa.gov>
 <mdlpnoN$6E7R@eisner.encompasserve.org>
 <slrnbdm69r.nt.lutz@taranis.iks-jena.de>
NNTP-Posting-Host: eisner.encompasserve.org
X-Trace: grandcanyon.binc.net 1054553290 8807 192.135.80.34 (2 Jun 2003
 11:28:10 GMT)
X-Complaints-To: abuse@binc.net
NNTP-Posting-Date: Mon, 2 Jun 2003 11:28:10 +0000 (UTC)
Xref: archiver1.google.com comp.lang.ada:38333
Date: 2003-06-02T06:28:27-05:00
List-Id: <comp.lang.ada>

In article <slrnbdm69r.nt.lutz@taranis.iks-jena.de>, Lutz Donnerhacke <lutz@iks-jena.de> writes:
> * Larry Kilgallen wrote:
>> In article <u4r3co12f.fsf@nasa.gov>, Stephen Leake <Stephe.Leake@nasa.gov> writes:
>>> What is wrong with having a style guide that says:
>>> 
>>> "If you have statements like 
>>>    production_total( total_class ).shift( shift_index ) :=
>>>       production_total( total_class ).shift( shift_index ) + count;
>>> 
>>> you must write an appropriate Increment function, and use it instead"
>>> 
>>> Problem solved; no need for language change or compiler support.
>> 
>> Alternatively, would a renaming declaration work ?
> 
> Yes.

I thought I had done that in the past, but the source is off-line.

Renaming seems the best to me:

	Current_shift_total := Current_shift_total + count;

since the name Current_shift_total gives local _meaning_ to

	production_total( total_class ).shift( shift_index )