From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,87b54dbabc658fa2
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
X-Received: by 10.180.87.193 with SMTP id ba1mr2949205wib.0.1367666133722;
        Sat, 04 May 2013 04:15:33 -0700 (PDT)
Path: 
 hg5ni66856wib.1!nntp.google.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!85.12.40.130.MISMATCH!xlned.com!feeder1.xlned.com!news.astraweb.com!border6.a.newsrouter.astraweb.com!border4.nntp.ams.giganews.com!border2.nntp.ams.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!nrc-news.nrc.ca!News.Dal.Ca!news.litech.org!news.stack.nl!eternal-september.org!feeder.eternal-september.org!mx05.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: AVR Usart send number string with no 'Image
Date: Wed, 01 May 2013 22:00:41 +0100
Organization: A noiseless patient Spider
Message-ID: <lyip32quti.fsf@pushface.org>
References: <931385b2-3520-4d7a-b56f-6d0d0b06d467@googlegroups.com>
	<443a92d3-2327-423d-ad74-174b0a69e4c4@googlegroups.com>
Mime-Version: 1.0
Injection-Info: mx05.eternal-september.org;
 posting-host="32bbea2852c3ac5f339194c0aa5925ed";
	logging-data="5867"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+Bjac6Mf6p1fTWDuN1Z+8PhK8VRx3Z8Q4="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (darwin)
Cancel-Lock: sha1:QpgdGgrhXti8byNwPV6ty/doz9g=
	sha1:PhKuZg6v0XzDdcY2mFqORTkD5kA=
Content-Type: text/plain
Date: 2013-05-01T22:00:41+01:00
List-Id: <comp.lang.ada>

"Rego, P." <pvrego@gmail.com> writes:

> Now I am trying to implement the inverse (String to Unsigned_8), but
> something is missing...
>
> I tried
>
>    function String_To_Unsigned_8 (Input : String) return Unsigned_8 is
>       Result : Unsigned_8 := 0;
>    begin
>       for Digit in Input'Range loop
>          Result := 10*Result + (Character'Pos (Input (Digit)) - Character'Pos ('0'));
>       end loop;
>          
>       return Result;
>    end String_To_Unsigned_8;
>
> But the result is not right. Maybe did I forget something?

Do you have any white space in Input?