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,afb6e61f9b1678d1
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-02 02:02:02 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed.stanford.edu!syros.belnet.be!news.belnet.be!feed.news.nacamar.de!newsfeed.stueberl.de!newsr1.ipcore.viaginterkom.de!btnet-peer1!btnet-feed3!newreader.ukcore.bt.net!btnet-feed5!btnet!news.btopenworld.com!not-for-mail
From: john@nospam.demon.co.uk (John McCabe)
Newsgroups: comp.lang.ada
Subject: Re: Bitwise XOR?
Date: Thu, 2 Oct 2003 09:01:10 +0000 (UTC)
Organization: BT Openworld
Message-ID: <3f7be99c.3710575@news.btclick.com>
References: <nhLeb.476768$Oz4.309292@rwcrnsc54>
 <mailman.23.1065059855.25614.comp.lang.ada@ada-france.org>
NNTP-Posting-Host: host217-37-177-69.in-addr.btopenworld.com
X-Trace: titan.btinternet.com 1065085270 18179 217.37.177.69 (2 Oct 2003
 09:01:10 GMT)
X-Complaints-To: news-complaints@lists.btinternet.com
NNTP-Posting-Date: Thu, 2 Oct 2003 09:01:10 +0000 (UTC)
X-Newsreader: Forte Free Agent 1.21/32.243
Xref: archiver1.google.com comp.lang.ada:102
Date: 2003-10-02T09:01:10+00:00
List-Id: <comp.lang.ada>

On Wed, 01 Oct 2003 21:03:37 -0500, sk <noname@myob.com> wrote:

>"David N. Maez" <sellout@dharmadevil.com>:
> > ...
>
>Try using modular types.
>
>with Ada.Text_IO; use Ada.Text_IO;
>procedure foobar is
>
>     type Unsigned_32 is mod 2 ** 32;
>
>     x,y : Unsigned_32;
>
>begin
>   x := 12;
>   y := 23;
>   x := x xor y;
>   put_line(x'img);
>end foobar;

For the record....

http://www.adaic.org/standards/95lrm/html/RM-4-5-1.html#I2480


Best Regards
John McCabe

To reply by email replace 'nospam' with 'assen'