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,54889de51045a215
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-06 01:05:04 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.icl.net!newsfeed.fjserv.net!oleane.net!oleane!nnrp.oleane.net!skymaster!nobody
From: "Jean-Pierre Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: += in ada
Date: Mon, 6 Oct 2003 09:36:34 +0200
Organization: Adalog
Message-ID: <c26rlb.p67.ln@skymaster>
References: <3F7316F7.219F@mail.ru>
 <ble3d6$aus9m$1@ID-69815.news.uni-berlin.de>
 <vbvtnv88rptlapnm35dget8jm9hrgoa2o3@4ax.com>
NNTP-Posting-Host: mailhost.axlog.fr
X-Trace: s1.read.news.oleane.net 1065427336 1155 195.25.228.57 (6 Oct 2003
 08:02:16 GMT)
X-Complaints-To: abuse@oleane.net
NNTP-Posting-Date: Mon, 6 Oct 2003 08:02:16 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:294
Date: 2003-10-06T09:36:34+02:00
List-Id: <comp.lang.ada>

I'm surprised that nobody suggested that (or I missed it), but why not define an attribute:

procedure <integer-or-modular-type>'Inc (X : in out <integer-or-modular-type>; By : <integer-or-modular-type> := 1);

No big change to the language, easy to implement....

-- 
---------------------------------------------------------
           J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr