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

* use the type information *parameter* not the unitialized parameter

Browse Source 
git-svn-id: trunk@38234 -
This commit is contained in:
svenbarth 2018-02-13 19:26:21 +00:00
parent 291ee4b562
commit c87cee09fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/dynarr.inc
View File

@ -613,7 +613,7 @@ procedure fpc_dynarray_concat_multi(var dest : pointer; pti: pointer; const sarr
{eletype,}eletypemngd : pointer; {eletype,}eletypemngd : pointer;
begin begin
{ the destination is overwritten in each case, so clear it } { the destination is overwritten in each case, so clear it }
fpc_dynarray_clear(dest,ti); fpc_dynarray_clear(dest,pti);
{ sanity check } { sanity check }
if length(sarr)=0 then if length(sarr)=0 then