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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,103b407e8b68350b
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-01-25 12:23:39 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!feed1.newsreader.com!newsreader.com!beamish.news.atl.earthlink.net!guinness.news.atl.earthlink.net!news.atl.earthlink.net!stamper.news.atl.earthlink.net!harp.news.atl.earthlink.net!not-for-mail
From: Richard Riehle <richard@adaworks.com>
Newsgroups: comp.lang.ada
Subject: Re: Anybody in US using ADA ? One silly idea..
Date: Sat, 25 Jan 2003 12:33:06 -0800
Organization: AdaWorks Software Engineering
Message-ID: <3E32F481.6FB265DE@adaworks.com>
References: <mailman.1041817083.31051.comp.lang.ada@ada.eu.org>
 <avc2tk$e3qv9$1@ID-77047.news.dfncis.de>
 <1041908422.928308@master.nyc.kbcfp.com>
 <kegl1vsa5tjnkuo04ckgt78b3lsn5j0ium@4ax.com>
 <1041997309.165001@master.nyc.kbcfp.com>
 <avh8fs$fni6s$2@ID-77047.news.dfncis.de>
 <1042086217.253468@master.nyc.kbcfp.com>
 <avmj4i$gh335$2@ID-77047.news.dfncis.de>
 <1042477504.547640@master.nyc.kbcfp.com>
 <b044a1$l4p22$1@ID-77047.news.dfncis.de> <3E32B5C0.5090004@attbi.com>
Reply-To: richard@adaworks.com
NNTP-Posting-Host: 41.b2.70.e1
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Server-Date: 25 Jan 2003 20:23:38 GMT
X-Mailer: Mozilla 4.7 [en] (Win98; I)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:33427
Date: 2003-01-25T20:23:38+00:00
List-Id: <comp.lang.ada>

"Robert I. Eachus" wrote:

> Robert,

In your haste to provide an example, you have done what I so
often do.   Note the syntax error in your generic formal parameters.
The function ">" should be,

        with function ">" (L, R : element) return Boolean;

>      generic
>         type Element is private;
>         type Element_Array is array (Integer range <>) of Element;
>         function ">" (L,R: Element) return Boolean;
>      procedure Sort(EA: in out Element_Array);

>
>      generic
>         type Element is private;
>         type Element_Array is array (Integer range <>) of Element;
>         function ">" (L,R: Element) return Boolean is <>;
>      procedure Sort(EA: in out Element_Array);

Richard Riehle