2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@33989 -

Jonas Maebe 9 жил өмнө
parent
commit
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;