paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 17:27:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make use of AllocMem in fpc_dynarray_setlength

Browse Source 
git-svn-id: trunk@46900 -
This commit is contained in:
florian 2020-09-19 21:06:11 +00:00
parent 0c316deab5
commit 449cc8f152
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/dynarr.inc
View File

@ -208,8 +208,7 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
{ do we have to allocate memory? }
if dims[0] = 0 then
exit;
getmem(newp,size);
fillchar(newp^,size,0);
newp:=AllocMem(size);
{$ifndef VER3_0}
{ call int_InitializeArray for management operators }
if assigned(eletypemngd) and (PTypeKind(eletype)^ in [tkRecord, tkObject]) then