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

* Fixed freemem bug; reported by Sebastian Guenther

Browse Source
This commit is contained in:
michael 1999-08-19 19:52:26 +00:00
parent d63e0e23e8
commit 452213952b
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/objpas.pp
View File

@ -193,8 +193,11 @@ begin
Procedure Freemem(Var p:pointer);
begin
Dec(P,SizeOf(Longint));
SysFreemem(P,Plongint(P)^);
If P<>Nil then
begin
Dec(P,SizeOf(Longint));
SysFreemem(P,Plongint(P)^);
end;
end;
@ -333,7 +336,10 @@ end.
{
$Log$
Revision 1.32 1999-08-15 21:28:57 michael
Revision 1.33 1999-08-19 19:52:26 michael
* Fixed freemem bug; reported by Sebastian Guenther
Revision 1.32 1999/08/15 21:28:57 michael
+ Pass hash also for speed reasons.
Revision 1.31 1999/08/15 21:02:56 michael