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

+ Small fixes to assign and add

Browse Source
This commit is contained in:
michael 1998-11-04 15:39:44 +00:00
parent d6c1e881ae
commit 478b404136
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/astrings.pp
View File

@ -176,11 +176,6 @@ begin
If S2<>nil then
If PAnsiRec(S2-FirstOff)^.Ref>0 then
Inc(PAnsiRec(S2-FirstOff)^.ref);
{ Temp:=S2;
end;
end
else
temp:=S2; }
{ Decrease the reference count on the old S1 }
Decr_Ansi_Ref (S1);
{ And finally, have S1 pointing to S2 (or its copy) }
@ -198,7 +193,6 @@ function Ansi_String_Concat (S1,S2 : Pointer) : pointer;
S3 : pointer;
begin
if S2=Nil then exit;
if (S1=Nil) then
AssignAnsiString(S3,S2)
else
@ -701,7 +695,10 @@ end;
{
$Log$
Revision 1.27 1998-11-04 10:20:48 peter
Revision 1.28 1998-11-04 15:39:44 michael
+ Small fixes to assign and add
Revision 1.27 1998/11/04 10:20:48 peter
* ansistring fixes
Revision 1.26 1998/11/02 09:46:12 michael