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

+ Fixed copy. Now reference count is correct

Browse Source
This commit is contained in:
michael 1998-11-17 12:16:07 +00:00
parent c8d3ad6484
commit cc415c9cd4
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/astrings.inc
View File

@ -453,7 +453,7 @@ begin
PByte(ResultAddress+Size)^:=0;
end;
end;
Copy:=AnsiString(ResultAddress);
Pointer(Copy):=ResultAddress;
end;
@ -714,7 +714,10 @@ end;
{
$Log$
Revision 1.2 1998-11-17 11:33:22 peter
Revision 1.3 1998-11-17 12:16:07 michael
+ Fixed copy. Now reference count is correct
Revision 1.2 1998/11/17 11:33:22 peter
+ several checks for empty string
Revision 1.1 1998/11/17 10:34:18 michael