瀏覽代碼

* only free the llvm shadow symtable when the original symtable will
also be freed

git-svn-id: trunk@33989 -

Jonas Maebe 9 年之前
父節點
當前提交
4121facc7a
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/symtable.pas

+ 2 - 1
compiler/symtable.pas

@@ -1082,7 +1082,8 @@ implementation
     destructor tabstractrecordsymtable.destroy;
       begin
 {$ifdef llvm}
-        fllvmst.free;
+        if refcount=1 then
+          fllvmst.free;
 {$endif llvm}
         inherited destroy;
       end;