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

+ Fixed memory leak

Browse Source
This commit is contained in:
michael 1999-08-20 10:50:55 +00:00
parent 50ae4cf315
commit eb5bc7aff7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/objpas.pp
View File

@ -174,7 +174,8 @@ begin
Procedure Getmem(Var p:pointer;Size:Longint); Procedure Getmem(Var p:pointer;Size:Longint);
begin begin
SysGetmem(P,Size+SizeOf(Longint)); Inc(Size,SizeOf(Longint));
SysGetmem(P,Size);
PLongint(P)^:=Size; PLongint(P)^:=Size;
Inc(P,SizeOf(Longint)); Inc(P,SizeOf(Longint));
end; end;
@ -336,7 +337,10 @@ end.
{ {
$Log$ $Log$
Revision 1.33 1999-08-19 19:52:26 michael Revision 1.34 1999-08-20 10:50:55 michael
+ Fixed memory leak
Revision 1.33 1999/08/19 19:52:26 michael
* Fixed freemem bug; reported by Sebastian Guenther * Fixed freemem bug; reported by Sebastian Guenther
Revision 1.32 1999/08/15 21:28:57 michael Revision 1.32 1999/08/15 21:28:57 michael