Re: Or

[Mark A Biggar <mark.a.biggar@lmco.com>]

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:
> 
>    function C_Or (R: C.Int;
>                   L: C.Int) return C.Int
>    is
>       type Int_Access is access all C.Int;
>       package A2A is new System.Address_To_Access_Conversions(C.Int);
>       X,Y,Result: aliased C.Int;
>       XA,YA,RA: System.Address;
>       RP : Int_Access;
>    begin
>       X := R;
>       Y := L;
>       XA := A2A.To_Address(X'Access);
>       YA := A2A.To_Address(Y'Access);
>       RA := A2A.To_Address(Result'Access);
>       System.Bit_Ops.Bit_Or(XA,32,YA,32,RA);
>       return A2A.To_Pointer(RA).all;
>    end C_Or;
>    pragma Inline(C_Or);

You might try something like:

function C_Or (R: C.Int;
               L: C.Int) return C.Int
is
    subtype Unsigned is C.Unsigned;
    function to_Unsigned(X: C.int) return Unsigned is
	new Unchecked_Conversion(C.Int, Unsigned);
    function to_Int(X: Unsigned) return C.Int is
	new Unchecked_conversion(Unsigned, C.Int);
begin
    return to_Int(to_Unsigned(R) or to_Unsigned(L));
end C_Or;
pragma Inline(C_Or);

--
Mark Biggar
mark.a.biggar@lmco.com