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

* dec ptr before free in reallocmem

Browse Source
This commit is contained in:
peter 2004-03-23 22:35:20 +00:00
parent e46cdcea48
commit d644629612
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/cmem.pp
View File

@ -88,6 +88,7 @@ begin
begin
if p<>nil then
begin
dec(size,sizeof(ptrint));
free(p);
p:=nil;
end;
@ -164,7 +165,10 @@ end.
{
$Log$
Revision 1.3 2004-03-17 12:50:53 michael
Revision 1.4 2004-03-23 22:35:20 peter
* dec ptr before free in reallocmem
Revision 1.3 2004/03/17 12:50:53 michael
* Fixed: Macavail -> CMaxAvail (from Marc Weustinc)
Revision 1.2 2004/03/16 15:25:16 peter