Re: AVR Usart send number string with no 'Image

[Shark8 <onewingedshark@gmail.com>]

I rewrote it iteratively; I'm pretty sure an extended return doesn't require the second-stack so you should be fine.

    declare
	Subtype String_3 is String(1..3);
	use Interfaces;
	
	-- Because the secondary stack is disabled we cannot use either of
	-- (a) recursion, or (b) unconstrained return-types. Therefore we
	-- need to work both iteratively and with fixed-length strings.
	
	Function To_String( Input : Unsigned_8 ) Return String_3 is
	    -- A temporary variable for manipulation, initialized to input.
	    Working : Unsigned_8 := Input;
	begin
	    -- Extended return, we do not have to initialize any characters
	    -- because they will be in range '0'..'9' with leading zeros.
	    Return Result : String_3 do
		-- We assign the digit it's proper value, based on its
		-- position within the string.
		For Digit in reverse Result'Range loop
		    Result(Digit):= Character'Val(
				      -- We add the mod 10 value of working
				      -- to the value of '0' to get the proper
				      -- digit-character.
				      Natural(Working mod 10) + 
				      Character'Pos('0')
		     		);
		    -- We adjust our working-variable, by dividing it by 10.
		    Working:= Working / 10;
		end loop;
	    end return;
	End To_String;
	  
	-- Testing variable.
	Temp : Natural := 4;
    begin
	-- Test
	while Temp < 256 loop
	    Ada.Text_IO.Put_Line( To_String( Unsigned_8(Temp) ) );
	    Temp:= Temp *2;
	    -- I want to end w/ 255, not 128.
	    Temp:= (if temp = 256 then 255 else temp);
	end loop;
    end;