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
X-Google-Thread: 103376,e1233ddaa2bb38b2
X-Google-Attributes: gid103376,public
From: gisle@spurv.ii.uib.no (Gisle S�lensminde)
Subject: Re: Or
Date: 2000/01/31
Message-ID: <slrn89bo9p.5qm.gisle@spurv.ii.uib.no>#1/1
X-Deja-AN: 580005374
Content-Transfer-Encoding: 8bit
References: <vhioga2t8wa.fsf@ljod.ifi.uio.no>
Organization: University of Bergen, Norway
Content-Type: text/plain; charset=iso-8859-1
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 2000-01-31T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <vhioga2t8wa.fsf@ljod.ifi.uio.no>, Jan Kroken wrote:
>
>I need bitwise or on Interfaces.C.Int. I couldn't find any
>direct or operator in Ada, so I wrote the following:

<lot of code removed>

The bitwise logical operators is defined in Ada for modular types,
so you don't need C here. Here is an example:

procedure Kroken is

   type Modular is mod 2**32;

   A, B, C : Modular;

begin
   A := 16#00FF#;
   B := 16#FF00#;
   C := A or B;

end; 

If your purpose is interfacing with C, the types unsigned, 
unsigned_short and unsigned_long is defined in interfaces.c

--
Gisle S�lensminde ( gisle@ii.uib.no )   

ln -s /dev/null ~/.netscape/cookies