Explorar o código

Renamed DisposeAndNil to FreeMemAndNil

git-svn-id: trunk@33378 -
michael %!s(int64=9) %!d(string=hai) anos
pai
achega
3e96806f7e
Modificáronse 2 ficheiros con 2 adicións e 2 borrados
  1. 1 1
      rtl/objpas/sysutils/sysutilh.inc
  2. 1 1
      rtl/objpas/sysutils/sysutils.inc

+ 1 - 1
rtl/objpas/sysutils/sysutilh.inc

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

+ 1 - 1
rtl/objpas/sysutils/sysutils.inc

@@ -162,7 +162,7 @@ end;
         temp.free;
         temp.free;
       end;
       end;
 
 
-    procedure DisposeAndNil(var p);
+    procedure FreeMemAndNil(var p);
     
     
     var
     var
       temp:Pointer;
       temp:Pointer;