瀏覽代碼

* fixed memory leaks when ending a macro

git-svn-id: branches/jvmbackend@18599 -
Jonas Maebe 14 年之前
父節點
當前提交
4c6388df6f
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/finput.pas

+ 2 - 0
compiler/finput.pas

@@ -284,6 +284,8 @@ uses
               Freemem(buf,maxbufsize);
               buf:=nil;
             end;
+           stringdispose(name);
+           stringdispose(path);
            closed:=true;
            exit;
          end;