Re: Is there a better (Ada) way?

[snarflemike@yahoo.com (Mike Silva)]

"Steve" <nospam_steved94@comcast.net> wrote in message news:<%GHlb.1106$mZ5.9467@attbi_s54>...
> I don't know if its really more "Ada like" but here is the approach I would
> take.
> 
> Rougly following your conventions I would add a type definition:
> 
>   type SReg16_T is range -2**15..2**15-1;
>   for SReg16_T'size use 16;
> 
> Then use a type conversion for a sign extend:
>   SReg16_T( PB.Offset5 )
> 
> And an instance of unchecked conversion to convert to a SReg16_T to a
> Reg16_T:
> 
> function To_Reg16_T is new Ada.Unchecked_Conversion( SReg16_T, Reg16_T );
> 
> Then the expression in your example would read:
> 
> R16 := R16 + To_Reg16_T( SReg16_T( PB.Offset5 ) );
> 
Yes, I like this better -- in fact, I came up with the same thing
myself last night in trying various alternatives.  Thanks for
confirming my instincts!

(I also have to deal with signed 8-bit offsets, which pretty much puts
the array method out of the running for me...)

Mike