Re: AVR Usart send number string with no 'Image

["Rego, P." <pvrego@gmail.com>]

I tried this, but the compiler pointed that I could not use the second stack, so this recursion is not allowed.

On Thursday, April 25, 2013 7:55:38 AM UTC-3, Rego, P. wrote:
> On Wednesday, April 24, 2013 11:03:25 PM UTC-3, Shark8 wrote:
> 
> > declare
> 
> > 	Subtype Digit is Character Range '0'..'9';
> 
> > 	Function To_String( Input : Interfaces.Unsigned_8 ) Return String is
> 
> > 	    Subtype Digital is Interfaces.Unsigned_8 Range 0..9;
> 
> > 	begin
> 
> > 	    if Input in Digital then
> 
> > 		Return (1 => Digit'Val( Natural(Input) + Character'Pos('0') ));
> 
> > 	    else
> 
> > 		declare
> 
> > 		    Use Type Interfaces.Unsigned_8;
> 
> > 		    D2 : Constant Interfaces.Unsigned_8:= Input / 10;
> 
> > 		    D1 : Constant Interfaces.Unsigned_8:= Input mod 10;
> 
> > 		begin
> 
> > 		    Return To_String(D2) & To_String(D1);
> 
> > 		end;
> 
> > 	    end if;
> 
> > 	end To_String;
> 
> > 	Subtype Byte_Range is Integer range 0..255;
> 
> > 	X : Integer := 4;
> 
> >     begin
> 
> > 	While X in byte_range loop
> 
> > 	    Ada.Text_IO.Put_Line( To_String( Interfaces.Unsigned_8(X) ) );
> 
> > 	    X:= X*2;
> 
> > 	end loop;
> 
> >     end;
> 
> 
> 
> Thanks Shark8, much interesting your solution.