paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed insert with char. length byte wrapped around in some cases.

Browse Source
This commit is contained in:
michael 1999-04-05 12:28:27 +00:00
parent 135349d5fb
commit d864c6d8c3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/sstrings.inc
View File

@ -90,7 +90,7 @@ begin
if index>length(s) then
index:=length(s)+1;
indexlen:=Length(s)-Index+1;
if (length(s)=sizeof(s)) and (indexlen>0) then
if (length(s)+1=sizeof(s)) and (indexlen>0) then
dec(indexlen);
move(s[Index],s[Index+1],indexlen);
s[Index]:=Source;
@ -1195,7 +1195,10 @@ end;
{
$Log$
Revision 1.25 1999-04-01 22:11:50 peter
Revision 1.26 1999-04-05 12:28:27 michael
+ Fixed insert with char. length byte wrapped around in some cases.
Revision 1.25 1999/04/01 22:11:50 peter
* fixed '1.' parsing of val
Revision 1.24 1999/04/01 22:00:49 peter