Browse Source

+ free memory in finalization code

git-svn-id: trunk@6123 -
pierre 18 years ago
parent
commit
90c85b198a
1 changed files with 3 additions and 2 deletions
  1. 3 2
      ide/fpcygwin.pas

+ 3 - 2
ide/fpcygwin.pas

@@ -67,7 +67,7 @@ begin
     GetCygwinFullName:='cygwin1.dll';
     GetCygwinFullName:='cygwin1.dll';
 end;
 end;
 
 
-begin
+initialization
   ModuleH:=GetModuleHandle('cygwin1');
   ModuleH:=GetModuleHandle('cygwin1');
   GetMem(CygwinFullName,MAX_PATH+1);
   GetMem(CygwinFullName,MAX_PATH+1);
   GetModuleFileName(ModuleH,CygwinFullName,MAX_PATH+1);
   GetModuleFileName(ModuleH,CygwinFullName,MAX_PATH+1);
@@ -81,5 +81,6 @@ begin
         FileInfo:=PFileInfo^;
         FileInfo:=PFileInfo^;
     end;
     end;
   FreeMem(InfoData,size);
   FreeMem(InfoData,size);
-  {FreeMem(CygwinFullName,MAX_PATH+1);}
+finalization
+  FreeMem(CygwinFullName,MAX_PATH+1);
 end.
 end.