Re: bit operations on integers

["Vincent P. Amiot" <godzilla@mozilla.com>]

On Aonix/Alsys compilers there is a package 'Unsigned' that defines "and"
and "or" for 8 and 16 bit integers:

	-- test Bit4
	if (X and 2#0001_0000#) > 0 then

you can always resort to unchecked-convert to packed arrays of booleans of
the right size and implement your own.

A side note:
To represent 32 bit int in Ada83 when BIT31 is set (most of the Ada83
compiler do no accept: type X is range 0 .. 2**32-1; -- this would
theoretically require the availability of a 33 bit integer base type...

	Bias : constant := 2**32;

	K : constant :=  16#AAAA_BBBB#  - BIAS;

same bit pattern but negative!

Have fun!

Vincent Amiot
Principal Consultant / Aonix
-- 
 


phadreus@iname.com wrote in article <7gkhr7$5kr$1@nnrp1.dejanews.com>...
> 
> 
> How do I test, set, and clear individual bits in an integer
> in Ada 83?
> 
> Thank you.
> 
> 
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own  
 
>