Re: question re Ada equivalent of C function

["Corey Ashford" <yeroca7@rocketmail.com>]

David Fisher wrote in message <34EEFF9C.1D01FA5D@stellar1.com>...
>Sorry if this is a bit basic, but learning Ada on one's own can be, er,
>challenging.
>
>What are the Ada equivalents of the C functions, inp and outp, used to
>read a byte from or send one to a memory address?
>
>Thanks!
>
>David Fisher
>Fisher Research Corporation
>

There are a number of ways to do this in Ada.  Here's one fairly simple one:

with unchecked_conversion;
with system;

type byte is mod 2*8;
type byte_access is access byte;
function to_byte_access is new unchecked_conversion(system.address,
byte_access);

function inp(addr: system.address) return byte is
begin
    return to_byte_access(addr).all;
end inp;

procedure outp(addr: system.address; value: byte) is
begin
    to_byte_access(addr).all := value;
end outp;