Просмотр исходного кода

* call ArSymbols.Free instead of .Destroy in the tarobjectreader destructor
(because .destroy will cause a crash in case the object hasn't been
initialized)

git-svn-id: trunk@30762 -

nickysn 10 лет назад
Родитель
Сommit
74c74b6a88
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      compiler/owar.pas

+ 1 - 1
compiler/owar.pas

@@ -342,7 +342,7 @@ implementation
     destructor  tarobjectreader.destroy;
       begin
         inherited closefile;
-        ArSymbols.destroy;
+        ArSymbols.Free;
         if assigned(LFNStrs) then
           FreeMem(LFNStrs);
         inherited Destroy;