paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:30:30 +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} {$ENDIF}
procedure FreeAndNil(var obj); procedure FreeAndNil(var obj);
procedure DisposeAndNil(var p);
{ interface handling } { interface handling }
{$i intfh.inc} {$i intfh.inc}

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

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