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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b394cc2aa7252501
X-Google-Attributes: gid103376,public
From: nobody@REPLAY.COM (Anonymous)
Subject: Re: And
Date: 1998/07/22
Message-ID: <199807221423.QAA21530@basement.replay.com>#1/1
X-Deja-AN: 373846518
Content-Transfer-Encoding: 7bit
References: <35B4EC27.1E7B@lmtas.lmco.com> 
Organization: Replay Associates, L.L.P.
Mail-To-News-Contact: postmaster@nym.alias.net
X-001: Replay may or may not approve of the content of this posting
X-002: Report misuse of this automated service to <abuse@replay.com>
X-URL: http://www.replay.com/remailer/
Content-Type: text/plain; charset=us-ascii
Newsgroups: comp.lang.ada
Date: 1998-07-22T00:00:00+00:00
List-Id: <comp.lang.ada>

On Tue, 21 Jul 1998 14:29:43 -0500, Scott Sheffield
<sheffieldsy@lmtas.lmco.com> wrote:

> I have a function that I am trying to convert for use on my PC using
> adagide :
> 
>   function "and" (l,r : in system.unsigned_word)
> 	return system.unsigned_word
> 	renames system."and";
> ...

This looks like Ada 83. Ada 83 did not have much in the way of support
for unsigned integer types and bitwise Boolean operations on integer
types, so this compiler vendor supplied one or more
implementation-defined unsigned type in System, with bitwise Boolean
operations on it/them.

Ada (95) now provides for modular (unsigned) types with bitwise Boolean
operations defined for them. You may replace System.Unsigned_Word with
your own modular type; however, if you need a type that relates in some
way to the underlying hardware, you might want to use the types in
Interfaces, called Unsigned_n. Most compilers will define Unsigned_8,
Unsigned_16, and Unsigned_32 if such types make sense for the hardware.

As a wild guess, the above is probably equivalent to:

function "and" (L, R : Interfaces.Unsigned_16)
return Interfaces.Unsigned_16 renames Interfaces."and";

Jeff Carter  PGP:1024/440FBE21
My real e-mail address: ( carter @ innocon . com )
"I fart in your general direction."
Monty Python & the Holy Grail

Posted with Spam Hater - see
http://www.compulink.co.uk/~net-services/spam/