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

* correctly check for 0-size dynarray in previous patch

Browse Source
This commit is contained in:
Jonas Maebe 2001-12-29 15:51:11 +00:00
parent 0382990826
commit e27b13b0e4
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/dynarr.inc
View File

@ -140,7 +140,7 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
if not(assigned(p)) then
begin
{ do we have to allocate memory? }
if size = 0 then
if dims[dimcount-1] = 0 then
exit;
getmem(newp,size);
fillchar(newp^,size,0);
@ -252,7 +252,10 @@ function fpc_dynarray_copy(var p : pointer;ti : pointer;
{
$Log$
Revision 1.13 2001-12-28 14:19:07 jonas
Revision 1.14 2001-12-29 15:51:11 jonas
* correctly check for 0-size dynarray in previous patch
Revision 1.13 2001/12/28 14:19:07 jonas
* don't allocate memory when doing a setlength(dynarr,0) when dynarr is
already nil