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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,386228a37afe967f
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-07-21 04:00:39 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!arclight.uoregon.edu!wn13feed!wn12feed!worldnet.att.net!204.127.198.203!attbi_feed3!attbi_feed4!attbi.com!sccrnsc03.POSTED!not-for-mail
From: "Jeffrey Creem" <jeff@thecreems.com>
Newsgroups: comp.lang.ada
References: <n54tgvgugor0ag2qsv97t9mf9sn9rr542i@4ax.com>
 <slrnbgtckk.54b.randhol+abuse@kiuk0152.chembio.ntnu.no>
 <1ec946d1.0307150715.4ba69f85@posting.google.com> <3F149243.80304@attbi.com>
 <gE4Ra.103343$Io.8883476@newsread2.prod.itd.earthlink.net>
 <3F15930C.2070907@attbi.com>
 <slrnbhcrk3.jt.randhol+abuse@kiuk0152.chembio.ntnu.no>
 <evacnf433pJrU4uiXTWJgA@gbronline.com> <mqm6fb.pn3.ln@skymaster>
 <wcc65m0omev.fsf@shell01.TheWorld.com> <ubrvrwmwt.fsf@wanadoo.fr>
 <vp9nhv8ju4t5kjrvdtd3sp3qgt59nu31tt@4ax.com>
Subject: Re: Computer Language Shootout
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <qJPSa.110861$N7.15748@sccrnsc03>
NNTP-Posting-Host: 66.31.5.146
X-Complaints-To: abuse@comcast.net
X-Trace: sccrnsc03 1058785238 66.31.5.146 (Mon, 21 Jul 2003 11:00:38 GMT)
NNTP-Posting-Date: Mon, 21 Jul 2003 11:00:38 GMT
Organization: Comcast Online
Date: Mon, 21 Jul 2003 11:00:38 GMT
Xref: archiver1.google.com comp.lang.ada:40544
Date: 2003-07-21T11:00:38+00:00
List-Id: <comp.lang.ada>


"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote in message
news:vp9nhv8ju4t5kjrvdtd3sp3qgt59nu31tt@4ax.com...

stuff deleted

>    Get_Line (Line.all, Size);
>    Length := Size;
>    while Size = Line'Last loop
>       declare
>          Old_Line : String_Ptr := Line;
>       begin
>          Line := new String'(Old_Line.all & (1..Increment => ' '));
>          Free (Old_Line);
>       end;
>       Get_Line (Line (Length + 1..Line'Last), Size);
>       Length := Length + Size;
>    end loop;
> end Read_Line;
>
> used as:
>
>    Line    : String_Ptr := new String'(1..Increment => ' ');
>    Length  : Natural;
> begin is
>    Read_Line (Line, Length);



Note, this will probably be slower. I see this all the time in code and I
wish it would go away. There is no need
to pad the string with blank characters. Yes it makes looking at the string
in a debugger a little easier but if
this thing gets called in a loop it is going to be much slower than it
should due to all the temporary creation and copying.

If someone really felt they had to put characters in the unused portion of a
string, I would expect that using something like @
would be the better choice to help hunt down messed up string index
values.....But I would rather that the
unused portion of the string be left alone.