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

* use freemem() without size

Browse Source
This commit is contained in:
peter 2004-05-02 15:15:58 +00:00
parent 62850815bd
commit e8f338aa8e
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

@ -72,7 +72,7 @@ procedure fpc_dynarray_clear(var p : pointer;ti : pointer); [Public,Alias:'FPC_D
pdynarraytypeinfo(ti)^.elesize); pdynarraytypeinfo(ti)^.elesize);
{ release the data } { release the data }
freemem(p,sizeof(tdynarray)+(pdynarray(p)^.high+1)*pdynarraytypeinfo(ti)^.elesize); freemem(p);
p:=nil; p:=nil;
end; end;
@ -302,7 +302,10 @@ procedure fpc_dynarray_copy(var pdest : pointer;psrc : pointer;ti : pointer;
{ {
$Log$ $Log$
Revision 1.23 2003-10-29 21:00:34 peter Revision 1.24 2004-05-02 15:15:58 peter
* use freemem() without size
Revision 1.23 2003/10/29 21:00:34 peter
* fixed a:=copy(b) * fixed a:=copy(b)
Revision 1.22 2003/10/25 22:52:07 florian Revision 1.22 2003/10/25 22:52:07 florian