Re: xor

[Michael Moeller <mic2@t-online.de>]

On Tue, 27 Mar 2012, Dennis Lee Bieber wrote:

> On Wed, 28 Mar 2012 00:50:22 +0100, Michael Moeller <mic2@t-online.de>
> declaimed the following in comp.lang.ada:
>
>> Thanks.
>> I checked out Stream, Sequential and Direct but gnat refuses to
>> even know them. Certainly I do something wrong but I can't see
>> it at the moment.
>>
> 	Did you instantiate them for the specific data type?
>
> (No actual I/O performed but... modifying the original XOR sample)
>
> with Sequential_IO;
>
> procedure C is
>
>    type UByte is mod 2 ** 8;
>    for UByte'Size use 8;
>
>    package UB_IO is new Sequential_IO (UByte);
>    use UB_IO;
>
>    X : UByte := 16#5A#;
>    Y : UByte := 16#F6#;
>    Z : UByte;
>
> begin
>
>    Z := X xor Y;
>
> end C;
> --
> 	Wulfraed                 Dennis Lee Bieber         AF6VN
>        wlfraed@ix.netcom.com    HTTP://wlfraed.home.netcom.com/
>
Thanks. While this example compiles without complaints it
doesn't work with procedures declared in my package. How can I
make Sequential_IO visible there?

Its a little strange, though, how dead easy coding concurrency
on a Sun machine was recently while I'm not able to write out
some silly bytes using the very same language.

Regards,
Michael