Przeglądaj źródła

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

git-svn-id: trunk@33989 -

Jonas Maebe 9 lat temu
rodzic
commit
4121facc7a
1 zmienionych plików z 2 dodań i 1 usunięć
  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;