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

* fixed chararray to ansistring (merged)

Browse Source
This commit is contained in:
peter 2000-08-29 18:39:42 +00:00
parent 7a780dea4f
commit a06bc54ee9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/astrings.inc
View File

@ -297,7 +297,8 @@ begin
inc(i); inc(i);
end; end;
Pointer(a):=NewAnsistring(i); Pointer(a):=NewAnsistring(i);
Move (P[0],Pointer(A)^,i) SetLength(A,i);
Move (P[0],Pointer(A)^,i);
end; end;
end; end;
@ -665,7 +666,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2000-08-24 07:37:21 jonas Revision 1.5 2000-08-29 18:39:42 peter
* fixed chararray to ansistring (merged)
Revision 1.4 2000/08/24 07:37:21 jonas
* fixed bug in setlength (it sometimes read after the end of the heap) * fixed bug in setlength (it sometimes read after the end of the heap)
and small improvement to ansistring_to_chararray conversion (merged and small improvement to ansistring_to_chararray conversion (merged
from fixes branch) from fixes branch)