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

* fixed reallocmem (bug noted by Vincent Snijders)

Browse Source
This commit is contained in:
Jonas Maebe 2004-05-05 13:00:43 +00:00
parent f803e314b4
commit b1cfe655e7
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/cmem.pp
View File

@ -88,7 +88,7 @@ begin
begin
if p<>nil then
begin
dec(size,sizeof(ptrint));
dec(p,sizeof(ptrint));
free(p);
p:=nil;
end;
@ -97,7 +97,7 @@ begin
begin
inc(size,sizeof(ptrint));
if p=nil then
p:=calloc(Size,1)
p:=malloc(Size)
else
begin
dec(p,sizeof(ptrint));
@ -165,7 +165,10 @@ end.
{
$Log$
Revision 1.4 2004-03-23 22:35:20 peter
Revision 1.5 2004-05-05 13:00:43 jonas
* fixed reallocmem (bug noted by Vincent Snijders)
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