浏览代码

+ free memory in finalization code

git-svn-id: trunk@6123 -
pierre 18 年之前
父节点
当前提交
90c85b198a
共有 1 个文件被更改,包括 3 次插入2 次删除
  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.