paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More fixes and optimizing for ansistr_concat

Browse Source
This commit is contained in:
michael 1999-04-09 07:33:15 +00:00
parent 814a03ee84
commit 66bb181cf5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/astrings.inc
View File

@ -169,11 +169,8 @@ begin
begin
Size:=PAnsiRec(S2-FirstOff)^.Len;
Location:=Length(AnsiString(S1));
{ Setlength takes case of uniqueness
and allocated memory. We need to use length,
to take into account possibility of S1=Nil }
SetLength (AnsiString(S3),Size+Location);
Move (S1^,S3^,PAnsiRec(S1-FirstOff)^.Len);
Move (S1^,S3^,Location);
Move (S2^,(S3+location)^,Size+1);
end;
AnsiStr_Concat:=S3;
@ -764,7 +761,10 @@ end;
{
$Log$
Revision 1.19 1999-04-08 15:57:53 peter
Revision 1.20 1999-04-09 07:33:15 michael
* More fixes and optimizing for ansistr_concat
Revision 1.19 1999/04/08 15:57:53 peter
+ subrange checking for readln()
Revision 1.18 1999/04/08 10:19:55 peter