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

+ 1 byte too much allocated in new_ansiStringastrings.inc

Browse Source
This commit is contained in:
michael 1999-04-13 09:02:06 +00:00
parent 5efb1744bb
commit 77d45d20af
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

@ -77,7 +77,7 @@ Var
P : Pointer; P : Pointer;
begin begin
{ Also add +1 for a terminating zero } { Also add +1 for a terminating zero }
GetMem(P,Len+1+AnsiRecLen); GetMem(P,Len+AnsiRecLen);
If P<>Nil then If P<>Nil then
begin begin
PAnsiRec(P)^.Maxlen:=Len; { Maximal length } PAnsiRec(P)^.Maxlen:=Len; { Maximal length }
@ -761,7 +761,10 @@ end;
{ {
$Log$ $Log$
Revision 1.20 1999-04-09 07:33:15 michael Revision 1.21 1999-04-13 09:02:06 michael
+ 1 byte too much allocated in new_ansiStringastrings.inc
Revision 1.20 1999/04/09 07:33:15 michael
* More fixes and optimizing for ansistr_concat * More fixes and optimizing for ansistr_concat
Revision 1.19 1999/04/08 15:57:53 peter Revision 1.19 1999/04/08 15:57:53 peter