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: jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk)
Subject: Re: And
Date: 1998/07/22
Message-ID: <EwI7CC.5t@jvdsys.nextjk.stuyts.nl>#1/1
X-Deja-AN: 374003278
References: <35B4EC27.1E7B@lmtas.lmco.com>
Organization: * JerryWare *, Leiden, Holland
Newsgroups: comp.lang.ada
Date: 1998-07-22T00:00:00+00:00
List-Id: <comp.lang.ada>

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";

If you want to 'and' two 16-bit values use the unsigned type defined
in the Interfaces package (unsigned_32, unsigned16, unsigned_8)
than the 'and' operator is predefined for you.

or define them yourself, like

	type Unsigned_Word is mod 2 ** 16;
	for Unsigned_Word'Size use 16;

and also have the and operator thrown in for free.

Jerry.

-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada
-- Ada & Win32: http://stad.dsl.nl/~jvandyk