* Added DisposeAndNil (bug ID 28895)

git-svn-id: trunk@33377 -

rtl/objpas/sysutils/sysutilh.inc

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

rtl/objpas/sysutils/sysutils.inc

@@ -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}