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

* fixed copy(dyn. array of ansistring)

Browse Source
This commit is contained in:
florian 2005-01-24 21:32:48 +00:00
parent 085d1e6f12
commit 14c33448af
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/dynarr.inc
View File

@ -349,13 +349,16 @@ procedure fpc_dynarray_copy(var pdest : pointer;psrc : pointer;ti : pointer;
realpdest^.high:=cnt-1;
{ increment ref. count of members }
for i:= 0 to cnt-1 do
int_addref(pointer(pdest+sizeof(tdynarray)+elesize*i),eletype);
int_addref(pointer(pdest+elesize*i),eletype);
end;
{
$Log$
Revision 1.34 2004-11-07 18:31:50 jonas
Revision 1.35 2005-01-24 21:32:48 florian
* fixed copy(dyn. array of ansistring)
Revision 1.34 2004/11/07 18:31:50 jonas
* fixed getting pointer to nested dynarray types
Revision 1.33 2004/11/07 18:02:47 jonas
@ -418,4 +421,4 @@ procedure fpc_dynarray_copy(var pdest : pointer;psrc : pointer;ti : pointer;
Revision 1.15 2002/01/21 20:16:08 peter
* updated for dynarr:=nil
}
}