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

* Added DisposeAndNil (bug ID 28895)

Browse Source 
git-svn-id: trunk@33377 -
This commit is contained in:
michael 2016-03-29 07:33:28 +00:00
parent 6e56f5c191
commit 92b8bf97c0
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysutils/sysutilh.inc
View File

@ -321,6 +321,7 @@ Type
{$ENDIF}
procedure FreeAndNil(var obj);
procedure DisposeAndNil(var p);
{ interface handling }
{$i intfh.inc}

11
rtl/objpas/sysutils/sysutils.inc
View File

@ -162,7 +162,16 @@ end;
temp.free;
end;
procedure DisposeAndNil(var p);
var
temp:Pointer;
begin
temp := Pointer(p);
Pointer(P):=nil;
FreeMem(temp);
end;
{ Interfaces support }
{$i sysuintf.inc}