paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +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 begin
if p<>nil then if p<>nil then
begin begin
dec(size,sizeof(ptrint));
free(p); free(p);
p:=nil; p:=nil;
end; end;
@ -164,7 +165,10 @@ end.
{ {
$Log$ $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) * Fixed: Macavail -> CMaxAvail (from Marc Weustinc)
Revision 1.2 2004/03/16 15:25:16 peter Revision 1.2 2004/03/16 15:25:16 peter