Procházet zdrojové kódy

+ free memory in finalization code

git-svn-id: trunk@6123 -
pierre před 18 roky
rodič
revize
90c85b198a
1 změnil soubory, kde provedl 3 přidání a 2 odebrání
  1. 3 2
      ide/fpcygwin.pas

+ 3 - 2
ide/fpcygwin.pas

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