Re: Integer Overflow Question.

[austin.obyrne769@btinternet.com]

On Monday, August 25, 2014 6:21:43 PM UTC+1, Simon Wright wrote:
> austin.obyrne769@btinternet.com writes:
> 
> 
> 
> > Could you please set out the Ada-95 sourcecode for defining an integer
> 
> > variable called "CipherText" in the range say of 8 decimal digits to
> 
> > 12 decimal digits. I can do the others myself once I know what to do.
> 
> 
> 
> This may help:
> 
> 
> 
> with Ada.Text_IO;
> 
> procedure Obyrne is
> 
>    type Ciphertext_Integer is range -10 ** 12 .. 10 ** 12;
> 
> begin
> 
>    Ada.Text_IO.Put_Line
> 
>      ("first is " & Ciphertext_Integer'Image (Ciphertext_Integer'First)
> 
>         & ", last is " & Ciphertext_Integer'Image (Ciphertext_Integer'Last));
> 
> end Obyrne;
> 
> 
> 
> With up-to-date GNAT, this outputs
> 
> 
> 
> first is -1000000000000, last is  1000000000000

Many thanks Simon

Can I go ahead and use 'Ciphertext' eg. CipherText := residue + N.N any where in a program after that so long as I stay in the declared range? - I shall experiment with this - Thanks Austin