paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 12:37:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* FreeMem(p) is ignored if p is NIL, instead of throwing an

Browse Source 
runtime error 204. (Delphi ignores NIL FreeMem's, too)
This commit is contained in:
sg 1999-10-22 22:03:07 +00:00
parent 4bf41d3afb
commit cb3d2ac4f3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/heap.inc
View File

@ -109,7 +109,8 @@ end;
procedure FreeMem(Var p:pointer);
begin
MemoryManager.FreeMem(p);
if p <> nil then
MemoryManager.FreeMem(p);
end;
@ -552,7 +553,11 @@ end;
{
$Log$
Revision 1.19 1999-10-01 07:55:54 peter
Revision 1.20 1999-10-22 22:03:07 sg
* FreeMem(p) is ignored if p is NIL, instead of throwing an
runtime error 204. (Delphi ignores NIL FreeMem's, too)
Revision 1.19 1999/10/01 07:55:54 peter
* fixed memsize which forgot the sizemask
Revision 1.18 1999/09/22 21:59:02 peter