[Pythianproject-cvsmail] CVS: PythianProject/Source/Units PythianUtils.pas,1.1,1.2

[Kamil K. <kkr...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv17133

Modified Files:
	PythianUtils.pas 
Log Message:
@@kk 18/10/00

Index: PythianUtils.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/PythianUtils.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** PythianUtils.pas	2000/09/10 16:47:17	1.1
--- PythianUtils.pas	2000/10/18 17:58:11	1.2
***************
*** 11,14 ****
--- 11,16 ----
  function BoolToStr(b:boolean):String;
  
+ procedure PyFreeAndNil(P: Pointer);
+ 
  implementation
  
***************
*** 18,21 ****
--- 20,29 ----
      Result := 'TRUE'
    else Result := 'FALSE';
+ end;
+ 
+ procedure PyFreeAndNil(P: Pointer);
+ begin
+   Dispose(P);
+   P := nil;
  end;